fool

alias load {
  /load -rs NLHE.IRC.Poker.mrc
  msg $chan Poker Loaded!
}
ON *:TEXT:start:#LG-Casino: {
  mode # -m
  timer 1 120 mode $chan +m
  notice $chan Starting in 2 minutes!
  nlhe.start $chan $nick
  timer 1 121 nlhe.begin $chan
}
ON *:TEXT:turn:#LG-Casino: { msg $chan Wakey Wakey! %nlhe.#LGPoker.turn it is your move. }
ON *:TEXT:end:#LG-Casino: {
devoiceall $chan
nlhe.stop $chan
}
ON *:TEXT:add:#LG-Casino: { mode $chan +v $nick }
ON *:TEXT:remove:#LG-Casino: { mode $chan -v $nick }
alias devoiceall {
set %cnick 1
unset %cnicks
while (%cnick <= $nick($chan,0)) {
if ($nick($chan,%cnick) isvoice $chan) {
  set %cnicks %cnicks $nick($chan,%cnick)
}
inc %cnick
}
$iif($numtok(%cnicks,32) > 0, mode $chan -vvvvvvvv $gettok(%cnicks,1-8,32))
$iif($numtok(%cnicks,32) > 8, mode $chan -vvvvvvvv $gettok(%cnicks,9-16,32))
$iif($numtok(%cnicks,32) > 16, mode $chan -vvvvvvvv $gettok(%cnicks,17-24,32))
$iif($numtok(%cnicks,32) > 24, mode $chan -vvvvvvvv $gettok(%cnicks,25-32,32))
$iif($numtok(%cnicks,32) > 32, mode $chan -vvvvvvvv $gettok(%cnicks,33-40,32))
$iif($numtok(%cnicks,32) > 40, mode $chan -vvvvvvvv $gettok(%cnicks,41-48,32))
$iif($numtok(%cnicks,32) > 48, mode $chan -vvvvvvvv $gettok(%cnicks,49-56,32))
$iif($numtok(%cnicks,32) > 56, mode $chan -vvvvvvvv $gettok(%cnicks,57-64,32))
$iif($numtok(%cnicks,32) > 64, mode $chan -vvvvvvvv $gettok(%cnicks,65-72,32))
$iif($numtok(%cnicks,32) > 72, mode $chan -vvvvvvvv $gettok(%cnicks,73-80,32))
}