on $*:TEXT:/^[!@.](setpcw|setworld)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    set %world [ $+ [ $chan ] ] $2
    set %pcnick [ $+ [ $chan ] ] $nick
    set %time [ $+ [ $chan ] ] $ctime
    msg $chan 10New ownage 4[[14 Pest Control World 4]]10 has been set - Type 14!pcw10 or 14!world
  }
  Else {
    Notice $nick 10You must be op or hop to set a world.
  }
}
on $*:TEXT:/^[!@.](pcw|world)/Si:#:{
  Notice $nick 10The current ownage Pest Control World is 4[[14 %world [ $+ [ $chan ] ] 4]]10 Set by 4[[14 %pcnick [ $+ [ $chan ] ] 4]] [[14 $duration($calc($ctime - %time [ $+ [ $chan ] ])) 4]]10 Ago. Remeber to always have private chat to friends/off while PCing!
}
on $*:TEXT:/^[!@.](suggest)/Si:#:{
  if ($2 isnum) {
    msg $chan 4[[14 $nick 4]] 10has suggested world 4[[14 $2 4]]
  }
  Notice $nick 10Thank you for suggesting a world. Your suggestion has been taken into account.
}