Someone

on $*:text:/^[!](change40|setpcw40|set40)/Si:#pcplace:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw40.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw40.world. [ $+ [ $chan ] ] $2 
    set %pcw40.time. [ $+ [ $chan ] ] $ctime 
    unset %suggest
    msg $chan 10»15]|[14The 40+ Pc World For12 $chan 14Has Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
}
on $*:text:/^[!](change70|setpcw70|set70)/Si:#pcplace:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw70.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw70.world. [ $+ [ $chan ] ] $2 
    set %pcw70.time. [ $+ [ $chan ] ] $ctime 
    unset %suggest
    msg $chan 10»15]|[14The 70+ Pc World For12 $chan 14Has Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
}
on $*:text:/^[!](change100|setpcw100|set100)/Si:#pcplace:{
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) && ($2 isnum 2-145) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw100.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw100.world. [ $+ [ $chan ] ] $2 
    set %pcw100.time. [ $+ [ $chan ] ] $ctime 
    unset %suggest
    msg $chan 10»15]|[14The 100+ Pc World For12 $chan 14Has Been Updated15]|[14Changed By12 $nick 14To12 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[ 12Access denied. 15]|[10«
  } 
} 
on $*:text:/^[!](Pcw40|W40|world40)/Si:#pcplace:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[ 14World:12 %pcw40.world. [ $+ [ $chan ] ] $+  15]|[ 14By:12 %pcw40.nick. [ $+ [ $chan ] ] $+  14]|[ 12 $+ $duration($calc( $ctime - %pcw40.time. [ $+ [ $chan ] ] )) 14ago 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
} 
on $*:text:/^[!](Pcw70|W70|world70)/Si:#pcplace:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[ 14World:12 %pcw70.world. [ $+ [ $chan ] ] $+  15]|[ 14By:12 %pcw70.nick. [ $+ [ $chan ] ] $+  14]|[ 12 $+ $duration($calc( $ctime - %pcw70.time. [ $+ [ $chan ] ] )) 14ago 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
} 
on $*:text:/^[!](Pcw100|W100|world100)/Si:#pcplace:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[ 14World:12 %pcw100.world. [ $+ [ $chan ] ] $+  15]|[ 14By:12 %pcw100.nick. [ $+ [ $chan ] ] $+  14]|[ 12 $+ $duration($calc( $ctime - %pcw100.time. [ $+ [ $chan ] ] )) 14ago 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
} 
on $*:text:/^[!](Pcw|W|world)/Si:#pcplace:{
  if (%pcw. [ $+ [ $chan ] ] != off) {
    $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick) 10»15]|[14 40+ World:12 %pcw40.world. [ $+ [ $chan ] ] $+  15]|[14 70+ World:12 %pcw70.world. [ $+ [ $chan ] ] $+  14]|[14  100+ World:12 %pcw100.world. [ $+ [ $chan ] ] $+ 15]|[ 14Count:12 %pestcontrol. $+ 15]|[10«
    inc %pestcontrol.  
  } 
}
on *:text:!pestcontrol on*:#pcplace:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick == Snipezy) { 
    set %pcw. $+ $chan on 
    msg $chan 10»15]|[ 14The pestcontrol commands for12 $chan 14are now 12ON 15]|[10«
  } 
} 
on *:text:!pestcontrol off*:#pcplace:{ 
  if ($nick isop $chan) || ($nick == Snipezy) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[ 14The pestcontrol commands for12 $chan 14are now 12OFF 15]|[10«
  } 
}