Mine

on *:TEXT:!change *:#channel: {
    if ($nick isop $chan || $nick ishop $chan) {
      if (%world != $$2-) {
        set %world $$2-
        set %nick $nick
        set %time $ctime
        amsg 12|| NEW WORLD SET BY $nick ||
      }
    }
    elseif ($$2- == %world) { notice $nick $$2- is already the PC world! | halt }
  }
}
on *:TEXT:!pcw:#channel: {
    notice $nick 4[12Pest-Control4]10 %world 4[12Set by %nick $duration($calc($ctime - %time)) ago $+ 4] [12This command has been used %times times.4]
    inc %times 1
}
on *:TEXT:!world:#channel: {
    notice $nick 4[12Pest-Control4]10 %world 4[12Set by %nick $duration($calc($ctime - %time)) ago $+ 4] [12This command has been used %times times.4]
    inc %times 1 
}