on $*:TEXT:/^[!@.]setpcw */si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pcw. [ $+ [ $chan ] $+ ] .pcw $2
    set %pcw. [ $+ [ $chan ] $+ ] .nick $nick
    set %pcw. [ $+ [ $chan ] $+ ] .time $fulldate
    /msg $chan 1The Pest Control World has been updated by:4 %pcw. [ $+ [ $chan ] $+ ] .nick
    /msg $chan 1To see the world type:4 !pcw 1or4 !world
  }
  else {
    /notice $nick 1Only channel operators can set the PCW.
  }
}
on $*:TEXT:/^[!@.](pcw|world) */si:#: {
  if ( %pcw. [ $+ [ $chan ] $+ ] .pcw ) {
    /notice $nick 1Current World:4 %pcw. [ $+ [ $chan ] $+ ] .pcw 
    /notice $nick 1Set By:4 %pcw. [ $+ [ $chan ] $+ ] .nick 
    /notice $nick 1Set4 $duration($calc(($ctime - $ctime(%pcw. [ $+ [ $chan ] $+ ] .time)))) 1Ago.
  }
  else {
    /notice $nick 1There is no PCW set.
  }
}
on $*:TEXT:/^[!@.](wsuggest|suggest) */si:#: {
  if ( %pcw. [ $+ [ $chan ] $+ ] .pcw ) && (%pcw. [ $+ [ $chan ] $+ ] . [ $+ [ $2 ] ] >= 5) {
    /notice $nick 1You've suggested a world and its now the PCW!
    set %pcw. [ $+ [ $chan ] $+ ] .pcw $2
    set %pcw. [ $+ [ $chan ] $+ ] .nick $nick
    set %pcw. [ $+ [ $chan ] $+ ] .time $fulldate
    /msg $chan 1The Pest Control World has been scouted by:4 %pcw. [ $+ [ $chan ] $+ ] .nick
    /msg $chan 1To see the world type:4 !pcw 1or4 !world
  }
  else {
    /notice $nick 1World suggested.
    inc %pcw. [ $+ [ $chan ] $+ ] . [ $+ [ $2 ] ]
  }
}
on $*:TEXT:/^[!@.]delpcw */si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,1) == *!*ssh4505@6BFC68F.B6B468E3.CD66FCF8.IP) || ($address($nick,1) == *!*cgiirc@Swift-FE205505.range217-43.btcentralplus.com) || ($address($nick,1) == *!*ssh70049@6AAE4B53.CEA035C3.7C04A154.IP) || ($address($nick,1) ==  *!*ssh59f62@Swift-E2C1E27F.range86-147.btcentralplus.com) || ($address($nick,1) == *!*ss792516@Swift-AC7413B5.cable.ubr03.perr.blueyonder.co.uk) {
    /msg $chan The Pest Control Script has now been turned of for $chan $+ .
    unset %pcw. [ $+ [ $chan ] $+ ] .*
  }
  else {
    /notice $nick 1You cannot unset the PCW.
  }
}
on *:PART:#: {
  if ($nick == $me) { 
    unset %pcw. [ $+ [ $chan ] $+ ] .*
  }
}