alias c1 { return $+($chr(3),02,$1-) } 
alias c2 { return $+($chr(3),10,$1-) } 
alias c3 { return $+($chr(3),04,$1-) } 

on $*:text:/^!set(world|pcw)*/Si:#: {
  if ($2 isnum 2-138) && ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    set %pc.world. [ $+ [ $chan ] ] $2
    set %pc.time. [ $+ [ $chan ] ] $ctime
    set %pc.nick. [ $+ [ $chan ] ] $nick
    msg $chan $c1 A new $c2 pcw $c1 has been set. Type $c2 !world $c1 or $c2 !pcw $c1 to type it 
  }
  elseif ($2 !isnum 2-138) {
    notice $nick $c4 Please specify a $c3 real world
  }
  elseif ($nick !ishop $chan) || ($nick !isop $chan) {
    notice $nick $c4 You must be a $c3 halfop  or higher
  }
}
on $*:text:/^!(pcw|world)/Si:#: {
  if ($nick !isreg $chan) {
    notice $nick $c1 The pcw is $c2 %pc.world. [ $+ [ $chan ] ] $c1 Set by $c2 %pc.nick. [ $+ [ $chan ] ] $c1 at $c2 $duration($calc($ctime - %pc.time. [ $+ [ $chan ] ])) $c1 ago
  }
  else { 
    notice $nick $c4 You must be a $c3 voice or higher $c4 to see the $c3 pcw
  }
}