on *:TEXT:!setpcw*:#herkle: {
  if ($nick isop #herkle) {
    unset %pcw
    set %pcw $2
    var %chans = #clvoid,#thevoid
    msg %chans 4There is a new 7PC world 4type 12!pcw4 or 12!world4 to find out.
  }
  else {
    notice $nick 4Sorry only OPs May use this command.
  }
}

on *:TEXT:!pcw*:#clvoid: {
  if (($nick isvoice #clvoid) || ($nick ishop #clvoid) || ($nick isop #clvoid)) {
    notice $nick 2The current 4PC World 2is12 %pcw $+ .
  }
}
on *:TEXT:!world*:#clvoid: {
  if (($nick isvoice #clvoid) || ($nick ishop #clvoid) || ($nick isop #clvoid)) {
    notice $nick 2The current 4PC World 2is12 %pcw $+ .
  }
}

on *:JOIN:#clvoid: {
  notice $nick Welcome3 $nick 5to 2#clvoid
  notice $nick 5To see our rules type 2!cvrules
  notice $nick 5To see our commands type 2!commands
}

on *:JOIN:#cl: {
  notice $nick Welcome3 $nick 5to 2#CL
  notice $nick 5To see our rules type 2!clrules
  notice $nick 5To see our commands type 2!commands
}

on *:TEXT:!commands*:#: {
  notice $nick 2Commands:
  notice $nick 5!cvrules - to see #clvoid's rules
  notice $nick 5!clrules - to see #cl's rules
  notice $nick 5!pcw - to see the current PC world (in #clvoid)
  notice $nick 5!world - to see the current PC world (in #clvoid)
  if (($nick isop #clvoid) || ($nick ishop #clvoid)) {
    notice $nick 7The Hop's 2and4 Op's Commands
    notice $nick 5!tb - to timeban a nick
    notice $nick 5!autov - to auto voice a nick
    notice $nick 5!deautov - to take away that nicks auto voice
  }
  if ($nick isop #herkle) {
    notice $nick 12The TV World Changers Commands
    notice $nick 5!setpcw - this command is used only in #tvworldchange
  }
  notice $nick 2End of Commands.
}

on *:TEXT:!cvrules*:#CLVoid: {
  notice $nick 2CLvoid Rules:
  notice $nick 2 1. 5Dont abuse your right to this chan
  notice $nick 2 2. 5Dont spam
  notice $nick 2 3. 5Dont ask for op/hop
  notice $nick 2 4. 5Dont go on another pc chan while in #thevoid
  notice $nick 2 5. 5Dont leak worlds
  notice $nick 2 6. 5No fighting will be tollerated
  notice $nick 2 7. 5Respect all Op's and Hop's
  notice $nick 2 8. 5Do not advertise in this chan
  notice $nick 2End of CL void Rules.
}

on *:TEXT:!clrules*:#cl: {
  notice $nick 2CL's Rules:
  notice $nick 2 1. 5No Spamming
  notice $nick 2 2. 5No Fighting
  notice $nick 2 3. 5No Swearing
  notice $nick 2 4. 5Respect all Op's and Hop's
  if (($nick isop #cl) || ($nick ishop #cl)) {
    notice $nick 2 5. 5Do not abuse you power
  }
  notice $nick 2End of CL's Rules.
}

on *:TEXT:!autov*:#: {
  if (($nick isop #) || ($nick ishop #)) {
    write $+($chan,autovoice.txt) $address($2,1)
    mode # +v $2
  }
}

on *:JOIN:#: {
  if ($address($nick,1) iswm $read($+($chan,autovoice.txt))) {
    mode # +v $nick
  }
}

on *:TEXT:!deautov*:#: {
  if (($nick isop #) || ($nick ishop #)) {
    write -ds $+ $address($2,1) $+($chan,autovoice.txt)
  }
}