Untitled

ON $*:TEXT:/^[!@.]setworld/Si:#: {
  if (%pcwset. [ $+ [ $chan ] ] == on) {
    if (($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138)) {
      set $+(%,Pcw.,$chan,.nick) $nick
      set $+(%,Pcw.,$chan,.time) $ctime 
      set $+(%,Pcw.,$chan) $2
      msg $chan The PestcontrolWorld Has Been Updated by $eval($+(%,Pcw.,$chan,.nick),2) $+ !
      msg $chan To see the world, Type !pcw, !world or !pest ^_^
    }
  } 
}
On $*:Text:/^[!@.]pcw (on|off)/Si:#: {
  if ($2 == off) {
    if ($nick isop $chan || $nick ishop $chan) {
      set %pcwset. [ $+ [ $chan ] ] off
      msg $chan Pest Control World script have been turned off in this channel.
      notice $nick type !pcw on to activate the Pest Control script.
    }
  }
  if ($2 == on) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      Set %pcwset. [ $+ [ $chan ] ] on      
      notice $nick type !setworld <world> to set the Pest Control world, untill then the default world will be 99.
    }
  }
}

on $*:TEXT:/^!(Pest|World|Pcw)/Si:#: {
  notice $nick The current Pest Control world is: $eval($+(%,Pcw.,$chan),2) Set by: $eval($+(%,Pcw.,$chan,.nick),2) - $duration($calc($ctime - $($+(%,Pcw.,$chan,.time),2))) ago. 
}