on $*:TEXT:/^[!@.](change40)/si:#PCPlace:{
  if ($nick isop $chan) || ($nick ishop $chan) || (nick == [-Capo-]) {
    if ($2 isnum 2-144) {
      set %40world $2
      set %pc1nick $nick
      set %time $ctime
      /msg $chan 12The Pest Control world has been updated by:14 $nick 5-12 Type 14!PCW12 to view it.
    }
  }
}
on $*:TEXT:/^[!@.](change70)/si:#PCPlace:{
  if ($nick isop $chan) || ($nick ishop $chan) || (nick == [-Capo-]) {
    if ($2 isnum 2-144) {
      set %70world $2
      set %pc2nick $nick
      set %time $ctime
      /msg $chan 12The Pest Control world has been updated by:14 $nick 5-12 Type 14!PCW12 to view it.
    }
  }
}
on $*:TEXT:/^[!@.](change100)/si:#PCPlace:{
  if ($nick isop $chan) || ($nick ishop $chan) || (nick == [-Capo-]) {
    if ($2 isnum 2-144) {
      set %100world $2
      set %pc3nick $nick
      set %time $ctime
      /msg $chan 12The Pest Control world has been updated by:14 $nick 5-12 Type 14!PCW12 to view it.
    }
  }
}
on $*:TEXT:/^[!@.](pcw|world)/si:#PCPlace:{
  Notice $nick 5]14|5[14 40+ World:14 %40world 5]14|5[14 70+ World:14 %70world 5]14|5[14 100+ World:14 %100world 5]14|5[12 Set:14 $duration($calc($ctime - %time)) 12Ago. 5]14|5[
}