Someone

on *:TEXT:!change*:#pesting-hq:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($me,2) == $address($nick,2)) ($nick == blackop) {
    set %pcw $$2 
    set %pccnick $nick
    set %pcsettime $ctime 
    inc %count
    if (%bot == off) { halt } {
      notice $nick You have just updated The pest control world to $$2
      msg #pesting-hq 14 The current 12Pest-Control 14world has been 12updated 14type 12!pcw 14or 12!world to view it
    }
  }
}
on $*:TEXT:/^[!](world|pcw)/Si:#pesting-hq:{
  if (%bot == off) { Halt } { 
    inc %count
    notice $nick 10»14]|[ 12World: 4 %pcw 14]|[ 12By: 4 $+ %pccnick 14]|[12 $+($duration($calc($ctime - %pcsettime)),) 14]|[ 12Count:4 %count 14]|[10«
  }
}
on *:TEXT:!bot1 off:#pesting-hq:{
  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:!bot1 on:#pesting-hq:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($me,2) == $address($nick,2)) || ($nick == blackop) {
    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
}
alias world {
  //echo -a 10»14]|[ 12World: 4 %pcw 14]|[ 12By: 4 $+ %pcnick 14]|[12 $+($duration($calc($ctime - %pcsettime)),) 14]|[ 12Count:4 %count 14]|[10«
}