Something

on *:TEXT:*!pc on*:#: {
  if ($nick isop $chan )  ||  ($nick == jeffreims) { 
    if (%pc. [ $+ [ $chan ] ] == on) {
      notice $nick The pest control commands are already on for this channel ( $chan )
    }
    else {
      set %pc. $+ $chan on
      msg $chan 1pc is set to 7on1 in7 $chan 1by7 $nick
    }
  }
}
on *:TEXT:*!pc off*:#: {
  if ($nick isop $chan )  ||  ($nick == jeffreims) {
    if (%pc. [ $+ [ $chan ] ] == off) {
      notice $nick The pest control commands are already off for this channel ( $chan )
    }
    else {
      set %pc. $+ $chan off
      msg $chan 1pc is set to 7off 1in7 $chan 1by7 $nick
    }
  }
}
on *:text:!setworld*:#: {
  if (%pc. [ $+ [ $chan ] ] == on) {
    if ($nick isop $chan)  ||  ($nick ishop $chan) {
      set %pcw. [ $+ [ $chan ] ] $2
      msg $chan Pest Control World has been changed. 7typ !world to see it.
    }
  }
}
on $*:text:/^[@!.](world|pcw) */Si:#: {
  if (%pc. [ $+ [ $chan ] ] == on) {
/amsg I like stealing scripts
    if ($nick isvoice $chan)  ||  ($nick ishop $chan)  ||  ($nick isop $chan) {
      if (%pcw. [ $+ [ $chan ] ] == $null) {
        notice $nick no world has been set, type !setworld to set one
      }
      else {
        notice $nick The Pest Control World is7 %pcw. [ $+ [ $chan ] ]
      }
    elseif (%pc. [ $+ [ $chan ] ] == off) {
      notice $nick Pest control is off for this channel. typ !pc on to turn it on.
    }
  }
}
on *:text:!delworld*:#: {
  if (%pc. [ $+ [ $chan ] ] == on) {
    timer 1 1 Notice $nick deleting world %pcw. [ $+ [ $chan ] ] ...
    timer 1 2 unset %pcw. [ $+ [ $chan ] ]
    timer 1 3 notice $nick world deleted.
  }
}