on *:TEXT:!Setopcw*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %opcw [ $+ [ $chan ] ] $2
    set %pcotime [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcodate [ $+ [ $chan ] ] $date
    set %pcoseter [ $+ [ $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 %npcw [ $+ [ $chan ] ] $2
    set %pcntime [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcndate [ $+ [ $chan ] ] $date
    set %pcnseter [ $+ [ $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 %ipcw [ $+ [ $chan ] ] $2
    set %pcitime [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcidate [ $+ [ $chan ] ] $date
    set %pciseter [ $+ [ $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 %apcw [ $+ [ $chan ] ] $2
    set %pcatime [ $+ [ $chan ] ] $time(hh:mm:ss:TT)
    set %pcadate [ $+ [ $chan ] ] $date
    set %pcaseter [ $+ [ $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 %opcw [ $+ [ $chan ] ] 9,1set by4,1 %pcoseter [ $+ [ $chan ] ] 9,1at4,1 %pcotime [ $+ [ $chan ] ] %pcodate [ $+ [ $chan ] ]   9,1- Novice4,1 %npcw [ $+ [ $chan ] ] 9,1set by4,1 %pcnseter [ $+ [ $chan ] ] 9,1at4,1 %pcntime [ $+ [ $chan ] ] %pcndate [ $+ [ $chan ] ] 9,1- Intermediate4,1 %ipcw [ $+ [ $chan ] ] 9,1set by4,1 %pciseter [ $+ [ $chan ] ] 9,1at4,1 %pcitime [ $+ [ $chan ] ] %pcidate [ $+ [ $chan ] ] 9,1- Advanced4,1 %apcw [ $+ [ $chan ] ] 9,1set by4,1 %pcaseter [ $+ [ $chan ] ] 9,1at4,1 %pcadate [ $+ [ $chan ] ] %pcatime [ $+ [ $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.
  }
}