Someone

on *:TEXT:!setworld *:#:{ if (%pcchan. [ $+ [ $chan ] ] == $null) { HALT }
  if ($2 >= 2) && ($2 <= 138) {
  }
  if ($nick isop $chan || $nick ishop $chan) {
    set %pcworld. [ $+ [ $chan ] ] $2 
    set %pcwd. [ $+ [ $chan ] ] $ctime
    set %pcwnick. [ $+ [ $chan ] ] $nick
    notice $nick 6World changed to4 %pcworld. [ $+ [ $chan ] ]
    msg $chan 6Pest Control 4World6 Has 4Changed6 - Type [4!world6|4!pcw6]
  }
}

on *:TEXT:!setworld *:?: { if (%pcchan. [ $+ [ $3 ] ] == $null) { HALT }
  if ($2 >= 2) && ($2 <= 138) {
    if ($nick isop $3 || $nick ishop $3) {
      set %pcworld. [ $+ [ $3 ] ] $2
      set %pcwd. [ $+ [ $3 ] ] $ctime
      set %pcwnick. [ $+ [ $3 ] ] $nick
      notice $nick 6World changed to4 %pcworld. [ $+ [ $3 ] ]
      msg $3 6Pest Control 4World6 Has 4Changed6 - Type [4!world6|4!pcw6]
    }
  }
}

on *:TEXT:!world:#: { if (%pcchan. [ $+ [ $chan ] ] == $null) { HALT }
  if (%pcworld. [ $+ [ $chan ] ] == $null) { halt }
  { 
    notice $nick 6The Pest Control World is:4 %pcworld. [ $+ [ $chan ] ] 6Duration:4 $duration($calc($ctime - %pcwd. [ $+ [ $chan ] ] )) 6Set by:4 %pcwnick. [ $+ [ $chan ] ]
  }
}

on *:TEXT:!pcw:#: { if (%pcchan. [ $+ [ $chan ] ] == $null) { HALT }
  if (%pcworld. [ $+ [ $chan ] ] == $null) { halt }
  { 
    notice $nick 6The Pest Control World is:4 %pcworld. [ $+ [ $chan ] ] 6Duration:4 $duration($calc($ctime - %pcwd. [ $+ [ $chan ] ] )) 6Set by:4 %pcwnick. [ $+ [ $chan ] ]
  }
}

on *:TEXT:!set pc *:#: { if ($nick isop $chan) {
    if ($3 == on) && (%pcchan. [ $+ [ $chan ] ] == on) {
      notice $nick 6The 4Pest Control6 Setting is already enabled.
      halt
    }
    if ($3 == on) && (%pcchan. [ $+ [ $chan ] ] == $null) {
      set %pcchan. [ $+ [ $chan ] ] on
      notice $nick 6The 4Pest Control6 now 4ON6 for channel4 $chan $+ 6.
      halt
    }
    if ($3 == off) && (%pcchan. [ $+ [ $chan ] ] == $null) {
      notice $nick 6The 4Pest Control6 Setting is already 4OFF6 for channel4 $chan $+ 6.
      halt
    }
    if ($3 == off) && (%pcchan. [ $+ [ $chan ] ] == on) {
      unset %pcchan. [ $+ [ $chan ] ] 
      notice $nick 6The 4Pest Control6 now 4OFF6 for channel4 $chan $+ 6.
      halt
    }
  }
}

on *:TEXT:!clear pc:#: { if ($nick isop $chan || $nick ishop $chan) {
    unset %pcworld. [ $+ [ $chan ] ]
    unset set %pcwd. [ $+ [ $chan ] ] 
    notice $nick The current world has been 7deleted.
  }
}