on $*:TEXT:/^[!@.](set|new)p?c?w(orld)? [0-9]{1,3}:?:{
  if ($nick isop #pc_unit) {
    if ($2 !isnum 2-144) notice $nick That's not a valid world. The world has to be between 2 and 144!
    else {
      hadd -m pc world $2
      hadd -m pc nick $nick
      hadd -m pc time $ctime
    }
  }
}
on $*:TEXT:/^[!@]p?c?w(orld)?:#pc_unit:{
  if ($nick !isreg $chan) {
    notice $nick The world is $hget(pc,world) $+ , set $duration($calc($ctime - $hget(pc,time))) ago by $hget(pc,nick) $+ .
  }
}