Someone

ON 1:TEXT:!setpcw*:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    set %pcw.world. [ $+ [ $chan ] ] $2-
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    set %pcw.nick. [ $+ [ $chan ] ] $nick
    notice $nick PCW in $chan set successfully
    msg $chan 12,1æ¸`ææ¸`ææ9,1 $nick has changed the $chan PCW. Type !pcw to see it 12,1`ææ¸`ææ¸`æ
  }
  else { notice $nick You cannot use that, use !worldsuggest instead! }
}
on 1:Text:!worldsuggest*:#:{
  set %suggestion.world. [ $+ [ $chan ] ] $2-
  set %suggestion.time. [ $+ [ $chan ] ] $ctime
  set %suggestion.nick. [ $+ [ $chan ] ] $nick
  notice $nick Suggestion set
}
ON $*:TEXT:/^[!](pcw|w|world)/Si:#:{
  inc %use
  if !%pcw.time. [ $+ [ $chan ] ] {
    set %pcw.world. [ $+ [ $chan ] ] 4unset
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    set %pcw.nick. [ $+ [ $chan ] ] FahadBot
  }
  if !%suggestion.time. [ $+ [ $chan ] ] {
    set %suggestion.world. [ $+ [ $chan ] ] 4unset
    set %suggestion.time. [ $+ [ $chan ] ] $ctime
    set %suggestion.nick. [ $+ [ $chan ] ] FahadBot
  notice $nick The Pest Control World for $chan is %pcw.world. [ $+ [ $chan ] ] $+ , set by %pcw.nick. [ $+ [ $chan ] ] $duration($calc($ctime -  %pcw.time. [ $+ [ $chan ] ] )) ago. The suggested world for $chan is %suggestion.world. [ $+ [ $chan ] ] $+ , set by %suggestion.nick. [ $+ [ $chan ] ] $duration($calc($ctime - [ %suggestion.time. [ $+ [ $chan ] ] ] )) ago. This is use %use }
}