on *:TEXT:@pcw:#RSPC:{
  if ($nick !isreg $chan) msg $chan $c1(The current PC world is) $c2($pcw($chan)) $+ $c1($chr(44) set by) $c2($pcw($chan).nick) $+ $c1(.)
}
on *:TEXT:!setpcw *:#RSPC:{
  if ($nick !isreg $chan) hadd -m PCW $chan $2 $nick
}
alias -l pcw { return $gettok($hget(PCW,$1),$iif($prop,2,1),32) }