Mine

on *:text:!change*:#: { 
  if (($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138)) {
    set %world [ $+ [ $chan ] ] $2
    set %pcnick [ $+ [ $chan ] ] $nick
    set %suggest [ $+ [ $chan ] ] None 
    set %timeset [ $+ [ $chan ] ] $ctime
    msg $chan 4,0 $nick 2,0 has updated the 4,0Pest-Control 2,0world.
    msg $chan 2,0 Type 4,0!pcw 2,0or 4,0!world 2,0to see it.
  } 
  else { 
    notice $nick 2,0 $nick , $2 is an invalid world.  
  } 
}
} 
on *:text:!world*:#: { 
  notice $nick 5,0 [ World :2,0 %world [ $+ [ $chan ] ] 5,0] [ Set by:2,0 %pcnick [ $+ [ $chan ] $+ $duration($calc( $ctime - %timeset. [ $+ [ $chan ] ] )) ago ] 5,0] [ Suggested:2,0 %suggest [ $+ [ $chan ] ] 5,0]
} 
} 
on *:text:!pcw*:#: { 
  notice $nick 5,0 [ World :2,0 %world [ $+ [ $chan ] ] 5,0] [ Set by:2,0 %pcnick [ $+ [ $chan ] $+ $duration($calc( $ctime - %timeset. [ $+ [ $chan ] ] )) ago ] 5,0] [ Suggested:2,0 %suggest [ $+ [ $chan ] ] 5,0]
}
on *:text:!setworld *:#: { 
  notice $nick 2,0Please $nick , use !change <world> to change the world .
}
on *:text:!setpcw *:#: { 
  notice $nick 2,0Please $nick , use !change <world> to change the world. 
}
on *:text:!suggest*:#: { 
    if ($2 isnum 2-138) {
    set %suggest [ $+ [ $chan ] ] $2
    notice $nick 2,0You have suggested the world4,0 $2 2,0.Dont abuse this command or you will find yourself banned from4,0 $chan .
    }
    else {
    notice $nick 2,0 Oi Noobo, suggest a propper world.
}
} 
on *:text:!wsuggest*:#: { 
    if ($2 isnum 2-138) {
    set %suggest [ $+ [ $chan ] ] $2
    notice $nick 2,0You have suggested the world4,0 $2 2,0.Dont abuse this command or you will find yourself banned from4,0 $chan .
    }
    else {
    notice $nick 2,0 Oi Noobo, suggest a propper world.
}