Zeug

on *:TEXT:!setpcw*:#: { 
  if ($nick isop # || $nick ishop #) && ($2 isnum 2-138) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    msg $chan 12The current pc-world has been changed in10 $chan 14! - 12Type: 10!pc/!pcw
  } 
  else { 
    notice $nick Access denied. 
  } 
} 
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#:{
  if ($nick isreg $chan) { halt } 
  if (%pcw. [ $+ [ $chan ] ] == on)   { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
    elseif (%pcw.nick. [ $+ [ $chan ] ] != $null) { 
      notice $nick 12Current PcWorld:10 %pcw.world. [ $+ [ $chan ] ] $+ , 12was set by:10 %pcw.nick. [ $+ [ $chan ] ] 12and was set:10 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) ago. 
    } 
  }
}
on *:text:!pestc on*:#:{
  if ($nick isop #) || ($nick ishop #) {
    set %pcw. $+ $chan on
    /msg # 12Pest Control Command10 is now 12"on"10 for12 $chan
  }
}
on *:text:!pestc off*:#:{
  if ($nick isop #) || ($nick ishop #) {
    set %pcw. $+ $chan off
    /msg # 12Pest Control Command10 is now 12"off"10 for12 $chan
  }
}