Something

on *:text:!pestcontrol on*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) { 
    set %pcw. $+ $chan on 
    msg $chan 7The pestcontrol commands12 for $chan are now 9ON
  } 
} 
on *:text:!pestcontrol off*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) { 
    set %pcw. $+ $chan off 
    msg $chan 7The pestcontrol commands12 for $chan are now 4OFF
  } 
}
on *:TEXT:!setpcw*:#: { 
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 7The pc world for $chan 12has been changed by $nick 7! typ 12!world7 to see it
  } 
  else { 
    notice $nick 7 ur access is too12 low!, u need 7 halfop +12 if u have that7 then set a real world
  } 
} 
on *:TEXT:!pc:#:{ 
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { 7The pest control 12command is been7 set 4OFF } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 4<-kerstscript-> 7The pc world for $chan 12is %pcw.world. [ $+ [ $chan ] ] $+ , it's set by %pcw.nick. [ $+ [ $chan ] ] 7and it's $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) old  ( %pestcontrol. ) 
  } 
}