rendered paste body
alias load {
/load -rs NLHE.IRC.Poker.mrc
msg $chan Poker Loaded!
}
ON *:JOIN:#LGPoker: {
notice $nick If a game is in progress, wait patiently and watch =D {
notice $nick To join in wait for the registering time and say add, the commands are in the Topic as well as being displayed whilst you read this.
}
}
ON *:TEXT:start:#LGPoker: {
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:#LGPoker: { msg $chan Wakey Wakey! %nlhe.#LGPoker.turn it is your move. }
ON *:TEXT:end:#LGPoker: {
devoiceall $chan
nlhe.stop $chan
}
}
ON *:TEXT:add:#LGPoker: { mode $chan +v $nick }
ON *:TEXT:remove:#LGPoker: { 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))
}