!world,!setworld

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