Mine

bind pub - !pcw pcwworld
bind pub - !world pcwworld
bind pub - !change changeworld

proc pcwworld {nick host handle chan text} {
  puthelp "NOTICE $nick :\00303[\00312The current PCW World is $world.\00303] \00312- \00303[\00312Set by $pcwnick $duration($ctime - $time) ago.\00303]
}

proc changeworld {nick host handle chan text} {
  if {[isop $nick $chan] || [ishop $nick $chan] == 1} {
  set world [set 2-]
  set pcwnick $nick
  set time $ctime
  puthelp "PRIVMSG $chan :\00303[\00312PC World Update\00303]\00312 The PCW World has been updated!
}