Someone

on *:TEXT:!pcw:#: { 
  if (%pestcontrol [ $+ [ $chan ] ] == on) { 
    inc %pestcontrol 
    notice $nick The pc world for $chan is %pcwworld.$chan $+ , set by %pcwnick.$chan $duration($calc( $ctime - %pcwtime.$chan ))  Ago | « %pestcontrol »| [Suggested %pcwsuggest.$chan ] [ $duration($calc( $ctime - %suggesttime.$chan )) ] ago. <Shotscript> 
  } 
} 
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:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = mcm1212) { 
    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:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = mcm1212) { 
    if (%pestcontrol [ $+ [ $chan ] ] == off) { 
      notice $nick Pestcontrol is already off 
    } 
    else { 
      set %pestcontrol [ $+ [ $chan ] ] off 
      .msg $chan pestcontrol script turned off 
    } 
  } 
}