on $*:TEXT:/^[!@.]s(et)?(pcw|w(orld)?)/Si:#talks,#thleaders:{ 
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-145) { 
    writeini Pcw.ini W #thpc $2 $nick $ctime 
    msg #thpc,#thpk 4The PCW has been updated, type !world or !pcw to view it 
  } 
} 
on $*:TEXT:/^[!@.](pcw|w(orld)?)/Si:#thpc,#thpk:{ 
  if ($readini(Pcw.ini,-n,W,$chan)) { 
    tokenize 32 $ifmatch 
    notice $nick 12The current world is $1 set by $2 $+ , $duration($calc( $ctime - $3 )) ago 
  } 
}