on *:TEXT:!change*:#superpcw:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($me,2) == $address($nick,2)) {
    set %pcw $$2 
    set %pcnick $nick
    set %pcsettime $ctime 
    inc %count
    notice $nick You have just updated The pest control world to $$2
    msg #superpcw 14 The current 12Pest-Control 14world has been 12updated 14type 12!pcw 14or 12!world to view it
  }
}
on $*:TEXT:/^[!](world|pcw)/Si:#superpcw:{
  if (%bot == off) { Halt } { 
    inc %count
    notice $nick 10»14]|[ 12World: 4 %pcw 14]|[ 12By: 4 $+ %pcnick 14]|[12 $+($duration($calc($ctime - %pcsettime)),) 14]|[ 12Count:4 %count 14]|[10«
  }
}
on *:TEXT:!bot off:#superpcw:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($me,2) == $address($nick,2)) {
    set %bot off
    notice $nick You have just turnned my Pest-control functions off
  }
}
on *:TEXT:!bot on:#superpcw:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($me,2) == $address($nick,2)) {
    set %bot on
    notice $nick You have just turnned my Pest-control functions on
  }
}
alias boton {
  set %bot on
}
alias botoff {
  set %bot off 
}
alias commands {
  //echo -a /boton
  //echo -a /bot off
  //echo -a !change 12world
}