Mine

on *:TEXT:!Setopcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %opcw1 [ $+ [ $chan ] ] $2
    set %pcotime1 [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcodate1 [ $+ [ $chan ] ] $date
    set %pcoseter1 [ $+ [ $chan ] ] $nick
    msg $chan 9,1 The 4,1 Official 9,1World has changed! Type 4,1!Pcw 9,1to view it!
    else notice $nick Sorry, you need Op or Half-Op to set a PCW!
  }
}
on *:TEXT:!Setnpcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %npcw1 [ $+ [ $chan ] ] $2
    set %pcntime1 [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcndate1 [ $+ [ $chan ] ] $date
    set %pcnseter1 [ $+ [ $chan ] ] $nick
    msg $chan 9,1 The 4,1 40+ 9,1World has changed! Type 4,1!Pcw 9,1to view it!
    else notice $nick Sorry, you need Op or Half-Op to set a PCW!
  }
}
on *:TEXT:!Setipcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %ipcw1 [ $+ [ $chan ] ] $2
    set %pcitime1 [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcidate1 [ $+ [ $chan ] ] $date
    set %pciseter1 [ $+ [ $chan ] ] $nick
    msg $chan 9,1 The 4,1 70+ 9,1World has changed! Type 4,1!Pcw 9,1to view it!
    else notice $nick Sorry, you need Op or Half-Op to set a PCW!
  }
}
on *:TEXT:!Setapcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %apcw1 [ $+ [ $chan ] ] $2
    set %pcatime1 [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcadate1 [ $+ [ $chan ] ] $date
    set %pcaseter1 [ $+ [ $chan ] ] $nick
    msg $chan 9,1 The 4,1 100+ 9,1World has changed! Type 4,1!Pcw 9,1to view it!
    else notice $nick Sorry, you need Op or Half-Op to set a PCW!
  }
}
on *:TEXT:!Pcw*:#: {
  if (%pcw [ $+ [ $chan ] ] == $null) notice $nick There is no PCW set for this channel!
  else notice $nick 9,1The current PCW for4,1 $chan 9,1Official world is4,1 %opcw1 [ $+ [ $chan ] ] 9,1set by4,1 %pcoseter1 [ $+ [ $chan ] ] 9,1at4,1 %pcotime1 [ $+ [ $chan ] ] %pcodate1 [ $+ [ $chan ] ]   9,1- Novice4,1 %npcw1 [ $+ [ $chan ] ] 9,1set by4,1 %pcnseter1 [ $+ [ $chan ] ] 9,1at4,1 %pcntime1 [ $+ [ $chan ] ] %pcndate1 [ $+ [ $chan ] ] 9,1- Intermediate4,1 %ipcw1 [ $+ [ $chan ] ] 9,1set by4,1 %pciseter1 [ $+ [ $chan ] ] 9,1at4,1 %pcitime1 [ $+ [ $chan ] ] %pcidate1 [ $+ [ $chan ] ] 9,1- Advanced4,1 %apcw1 [ $+ [ $chan ] ] 9,1set by4,1 %pcaseter1 [ $+ [ $chan ] ] 9,1at4,1 %pcadate1 [ $+ [ $chan ] ] %pcatime1 [ $+ [ $chan ] ] 9,1 $+ !
} 

on *:TEXT:!sethelp*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    notice $nick 9,1* !setopcw <world> sets the official world.
    notice $nick 9,1* !setnpcw <world> sets the Novice world.
    notice $nick 9,1* !setipcw <world> sets the Intermediate world.
    notice $nick 9,1* !setapcw <world> sets the Advanced world.
  }