on $*:text:/^[@!](change|setpcw|set)/si:#:{
  if (%pestcontrol [ $+ [ $chan ] ] == on) { 
    if ($nick isop $chan || $nick ishop $chan) { 
      if ($2 isnum 2-140) { 
        set %pcwnick.$chan $nick 
        set %pcwworld.$chan $2 
        set %pcwtime.$chan $ctime 
        msg $chan The pc world for 4 $chan 1has been changed by 4 $nick 1 type 4!pcw 1to see it 
      } 
      else { 
        notice $nick ur access is too low!, u need halfop + if u have that then set a real world 
      } 
    } 
  } 
} 

on $*:text:/^[!](pcw|world)/si:#:{
  if (%pestcontrol [ $+ [ $chan ] ] == on) { 
    inc %pestcontrol 
    notice $nick 1The pc world for $chan is 4 %pcwworld.$chan  $+ 1, set by 4 %pcwnick.$chan  1 $duration($calc( $ctime - %pcwtime.$chan ))  Ago | 4,1« %pestcontrol »1| 9,1[Suggested %pcwsuggest.$chan ]12,1 [ $duration($calc( $ctime - %suggesttime.$chan )) ] ago.
  } 
} 

on *:TEXT:!suggest*:#: { 
  if (%pestcontrol [ $+ [ $chan ] ] == on) { 
    if ($nick isop $chan || $nick ishop $chan) { 
      if ($2 isnum 2-138) { 
        set %pcwsuggest.$chan $2 
        set %suggesttime.$chan $ctime 
        msg $chan a new world has been suggested by $nick type !pcw to see it. 
        notice $nick thank you for your suggestion 
      } 
    } 
  } 
} 

on $*:text:/^[@!](pest on|pc on)/si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = shot_wif_bow) { 
    if (%pestcontrol [ $+ [ $chan ] ] == on) { 
      notice $nick Pestcontrol is already on 
    } 
    else { 
      set %pestcontrol [ $+ [ $chan ] ] on 
      .msg $chan pestcontrol script turned on 
    } 
  } 
} 


on $*:text:/^[@!](pest off|pc off)/si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = shot_wif_bow) { 
    if (%pestcontrol [ $+ [ $chan ] ] == off) { 
      notice $nick Pestcontrol is already off 
    } 
    else { 
      set %pestcontrol [ $+ [ $chan ] ] off 
      .msg $chan pestcontrol script turned off 
    } 
  } 
}