on $*:TEXT:/^[!@.](change40)/si:#PCPlace:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($2 isnum 2-144) {
      set %40world $2
      set %pc1nick $nick
      set %time $ctime
      /msg $chan 12The04 Pest Control 12world has been04 updated12 by:10 $nick 5-12 Type 04!PCW12 to view it.
    }
  }
}
on $*:TEXT:/^[!@.](change70)/si:#PCPlace:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($2 isnum 2-144) {
      set %70world $2
      set %pc2nick $nick
      set %time $ctime
      /msg $chan 12The04 Pest Control 12world has been04 updated12 by:10 $nick 5-12 Type 04!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 12The04 Pest Control 12world has been04 updated12 by:10 $nick 5-12 Type 04!PCW12 to view it.    }
  }
}
on $*:TEXT:/^[!@.](pcw|world)/si:#PCPlace:{
  Notice $nick 5]14|5[04 40+ 12World:10 %40world 5]14|5[04 70+ 12World:10 %70world 5]14|5[04 100+12 World:10 %100world 5]14|5[12 Set:10 $duration($calc($ctime - %time)) 12Ago. 5]14|5[
}