Someone

on $*:TEXT:/^!(setpcw|change|update)*/Si:#: { 
if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) {
 set %world $2- | set %worldsettime $ctime 
 set %worldsetnick $nick 
 msg $chan 12The 4PC12 world has been changed to7 [14 $2- 7] 12by7 $nick $+
/timerpcw 0 30 msg $chan The current PCW is %world. Set $duration($calc($ctime - %worldsettime)) ago by %worldsetnick
} 
}

on $*:TEXT:/^[!@](pcw|world):#: {
set %pcw.msg $iif($left($1,1) == @,msg $chan,notice $nick)
 %pcw.msg 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. }