on $*:text:/^[!](setpc|setworld) /Si*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($2 isnum 1-138) {
      set %pcworld. [  $+ [ $chan ] ] $2
      set %nickzor. [ $+ [ $chan ] ] $nick
      set %cctime. [ $+ [ $chan ] ] $ctime
      msg $chan the world is changed to: %pcworld. [ $+ [ $chan ] ] $+ .
    }
   else notice $nick please put a number 1-138.
  }
  else notice $nick you dont have rights to do this.
}

on $*:text:/^[!](world|pc|pcw) /Si:#:{
  if (%pcworld.[ $+ [ $chan ] ] != $null) {
    inc %usedpc
    notice $nick pc world for $chan is: %world. [ $+ [ $chan ] ] $+ . Set by %nickzor. [ $+ [ $chan ] ] $duration($calc($ctime - %cctime. [ $+ [ $chan ] ])) ago.
  }
  else notice $nick there is no pc world set.
}