iSub

on *:TEXT:!setpcw *:#:{
  if ($chan != #rspc) || (!$2) || ($2 !isnum) || ($nick isreg $chan) { halt }
  else { 
    set %pcw $2
    set %changer $nick
    set %pcw.time $ctime
    msg $chan 2The PC world has been updated by4 %changer $+ 2! Type 4!pcw 2or 4!world2.
  }
}
on *:TEXT:?pcw:#:{
  if ($left($1,1) !isin !@) { halt }
  inc %pc.used 1
  var %pcw.target $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($chan != #rspc) { %pcw.target 04 $+ $nick 02- Please join04 #RSPC 02for PC Worlds. | halt }
  else { %pcw.target 02The current Pest Control world is04 %pcw $+ 02, changed by04 %changer 02(Set 04 $duration($calc($ctime - %pcw.time)) 02ago) (Command Used -4 %pc.used $+ 2 times.) }
}
on *:TEXT:?world:#:{ 
  if ($left($1,1) !isin !@) { halt }
  inc %pc.used 1
  var %world.target $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($chan != #rspc) { %world.target 04 $+ $nick 02- Please join04 #RSPC 02for PC Worlds. | halt }
  else { %world.target 02The current Pest Control world is04 %pcw $+ 02, changed by04 %changer 02(Set 04 $+ $duration($calc($ctime - %pcw.time)) 02ago) (Command Used -4 %pc.used $+ 2 times.) }
}