on $*:text:/^[.!@#&,]set(world|pcw)/Si:?:{
  if ($nick ishop %pc.chan) || ($nick isop %pc.chan) || ($ulevel >= 20) {
    set %pcw $2-
    set %pcw.time $ctime
    msg %pc.chan 14The 07PC World14 has been 07Changed.14 Please use 07!pcw14 to find the new world.
    msg $nick 14The 07PC World14 has been changed to:07 %pcw
  }
}

on $*:text:/^[.!@#&,](world|pcw)/Si:#:{
  if ($chan == %pc.chan) {
    if ($nick !isreg $chan) { .notice $nick 14PC World is currently07 %pcw 14Set07 $duration($calc($ctime - %pcw.time)) 14ago }
  }
}

on $*:text:/^[.!@#&,](add|rem)w(o(r)?)?ldch(an)?g(e)?/Si:#:{
  if ($chan == %pc.chan) {
    if ($nick isop $chan) { $iif($regml(1) == add,guser 20 $$2,ruser $$2 $+ !) | notice $nick 07 $+ $2 14has been 07 $+ $iif($regml(1) == add,added to,removed from) 14worldchanger status }
  }
}

alias setchan { set %pc.chan $1 | echo -a PC Channel is set to: %pc.chan }