Someone

on *:TEXT:!setworld *:#: {
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) {
    set %pcworld. [ $+ [ $chan ] ] $2 
    set %pcwd. [ $+ [ $chan ] ] $ctime
    set %pcwnick. [ $+ [ $chan ] ] $nick
    .notice $nick 7World changed to4 %pcworld. [ $+ [ $chan ] ]
    msg $chan 7Pest Control 4World7 Has 4Changed7 - Type 4!world
  }
}

on *:TEXT:!setworld *:?: {
  if ($nick isop $3 || $nick ishop $3) {
    set %pcworld. [ $+ [ $3 ] ] $2
    set %pcwd. [ $+ [ $3 ] ] $ctime
    set %pcwnick. [ $+ [ $3 ] ] $nick
    .notice $nick 7World changed to4 %pcworld. [ $+ [ $3 ] ]
    msg $3 7Pest Control 4World7 Has 4Changed7 - Type 4!world
  }
}

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