on $*:TEXT:/^!change(40|70|100)/Si:#:{
  if ($nick isreg $chan) { HALT }
  set $+(%,w,$remove($1,!change)) $2
  msg $chan 14[03PCW14] Novice world:03 %w40 $+ 14. Intermediate:03 %w70 $+ 14. Advanced World:03 %w100 $+ 14.
  timerpc off
  timerpc 0 30 msg #pcplace 14[03PCW14] Novice world:03 %w40 $+ 14. Intermediate:03 %w70 $+ 14. Advanced World:03 %w100 $+ 14.
}
on $*:TEXT:/^!(pcw|w)/Si:#PCPlace:{ notice $nick 14[03PCW14] Novice world:03 %w40 $+ 14. Intermediate:03 %w70 $+ 14. Advanced World:03 %w100 $+ 14. }