on *:TEXT:!setworld *:#: { if ($nick isop $chan || $nick ishop $chan) { 
set %world. [ $+ [ $chan ] ] $2- 
set %worldsettime. [ $+ [ $chan ] ] $ctime 
 msg $chan The world has been changed to  $+ $2- $+  by $nick $+ . } }

on *:TEXT:!pcw:#: { notice $nick The current world is %world. [ $+ [ $chan ] ] set $duration($calc($ctime - %worldsettime. [ $+ [ $chan ] ] )) ago. The world had been View %times. [ $+ [ $chan ] ] times 
 inc %times. [ $+ [ $chan ] ] 
}

on *:TEXT:!world:#: { notice $nick The current world is %world. [ $+ [ $chan ] ] set $duration($calc($ctime - %worldsettime. [ $+ [ $chan ] ] )) ago. The world had been View %times. [ $+ [ $chan ] ] times 
 inc %times. [ $+ [ $chan ] ] 
}