rendered paste bodyon *:EXIT:{
unset %nlhe.#*
}
alias nlhe.msg {
if (($me !ison $1) || (!$2)) return
var %delay = $iif(%nlhe.msgdelay != $null,%nlhe.msgdelay,1000)
inc %nlhe. [ $+ [ $1 ] $+ .msgtime ] %delay
.timer -do $+ $iif(%delay < 300,h,m) 1 [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ] dec % $+ nlhe. $+ $1 $+ .msgtime %delay $chr(124) msg $1 $iif(c isincs $gettok($chan($1).mode,1,32),$!strip( $2- ),$2-)
}
alias nlhe.notice {
if (($2 !ison $1) || (!$3)) return
var %delay = $iif(%nlhe.msgdelay != $null,%nlhe.msgdelay,1000)
inc %nlhe. [ $+ [ $1 ] $+ .msgtime ] %delay
.timer -do $+ $iif(%delay < 300,h,m) 1 [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ] dec % $+ nlhe. $+ $1 $+ .msgtime %delay $chr(124) $iif($2 == $me,echo -act notice,.notice $2) $1 > $3-
}
menu channel {
NLHE
.$iif($nlhe.menutest($chan),$iif([ %nlhe. [ $+ [ $chan ] $+ .regging ] ] || [ %nlhe. [ $+ [ $chan ] $+ .running ] ],re) $+ start NLHE game registration in $chan):{ nlhe.start $chan }
.$iif([ %nlhe. [ $+ [ $chan ] $+ .regging ] ],commence NLHE game in $chan):{ nlhe.begin $chan }
.$iif([ %nlhe. [ $+ [ $chan ] $+ .regging ] ] || [ %nlhe. [ $+ [ $chan ] $+ .running ] ],stop NLHE game in $chan):{ nlhe.stop $chan }
.-
.$submenu($nlhe.setdefaults($1))
}
alias nlhe.menutest {
if (([ %nlhe. [ $+ [ $1 ] $+ .regging ] ]) || ([ %nlhe. [ $+ [ $1 ] $+ .running ] ])) {
if ([ %nlhe. [ $+ [ $1 ] $+ .cid ] ] == $cid) {
return 1
}
}
if (([ %nlhe. [ $+ [ $1 ] $+ .regging ] ] == $null) && ([ %nlhe. [ $+ [ $1 ] $+ .running ] ] == $null)) {
return 1
}
}
alias nlhe.setdefaults {
if ((!%nlhe.startblind) || (%nlhe.startblind < 2) || (2 \\ %nlhe.startblind)) { set %nlhe.startblind 50 }
if ((!%nlhe.startmoney) || (%nlhe.startmoney < 2) || (1 \\ %nlhe.startmoney)) { set %nlhe.startmoney 10000 }
if ((!%nlhe.timeblinds) || (%nlhe.timeblinds < 1) || (1 \\ %nlhe.timeblinds)) { set %nlhe.timeblinds 5 }
if ((!%nlhe.timetoact) || (%nlhe.timetoact < 15) || (1 \\ %nlhe.timetoact)) { set %nlhe.timetoact 60 }
if ((%nlhe.msgdelay == $null) || (%nlhe.msgdelay < 0) || (%nlhe.msgdelay > 3000) || (1 \\ %nlhe.msgdelay)) { set %nlhe.msgdelay 1000 }
var %p1 = starting money = %nlhe.startmoney
var %p2 = starting big blind = %nlhe.startblind
var %p3 = interval of raising the blinds = %nlhe.timeblinds mins
var %p4 = players' time to act = %nlhe.timetoact secs
var %p5 = message delay = %nlhe.msgdelay $+ ms
if ($1 == begin) return %p1 :{ nlhe.setdefaults sm }
if ($1 == 1) return %p2 :{ nlhe.setdefaults sb }
if ($1 == 2) return %p3 :{ nlhe.setdefaults tb }
if ($1 == 3) return %p4 :{ nlhe.setdefaults ta }
if ($1 == 4) return %p5 :{ nlhe.setdefaults md }
if ($1 == 5) return -
if ($1 == end) return $style(2) v1.02 created by Dav, 2007:{ }
if ($1 == sm) {
var %q = $input($chr(32),eo,Enter the starting money,%nlhe.startmoney)
if ((%q > 1) && (1 // %q)) set %nlhe.startmoney $calc(%q)
}
if ($1 == sb) {
var %q = $input(Enter an even number:,eo,Enter the starting big blind,%nlhe.startblind)
if ((%q > 1) && (2 // %q)) set %nlhe.startblind $calc(%q)
}
if ($1 == tb) {
var %q = $input(Enter the number of minutes between 1 and 120:,eo,Enter the time between raising of the blinds,%nlhe.timeblinds)
if ((%q > 0) && (1 // %q) && (%q <= 120)) {
set %nlhe.timeblinds $calc(%q)
var %tname = nlhe. $+ $active $+ .blinds
if (($timer(%tname).type == offline) && ([ %nlhe. [ $+ [ $active ] $+ .cid ] ] == $cid)) {
.timer $+ %tname off
.timer $+ %tname -o 0 $calc(%nlhe.timeblinds * 60) nlhe.raiseblinds $active
}
}
}
if ($1 == ta) {
var %q = $input(Enter the number of seconds between 15 and 300:,eo,Enter the time players have to act before they will automatically be sat out,%nlhe.timetoact)
if ((%q > 14) && (1 // %q) && (%q <= 300)) set %nlhe.timetoact $calc(%q)
}
if ($1 == md) {
var %q = $remove($input(Enter a number between 0 and 3000:,eo,Enter the message delay in ms,%nlhe.msgdelay $+ ms),ms,$chr(32))
if ((%q >= 0) && (1 // %q) && (%q <= 3000)) set %nlhe.msgdelay $calc(%q)
}
}
on *:INPUT:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .regging ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if (($1 == add) && (!$2)) {
nlhe.add $chan $nick
}
if ($1 == remove) {
if (!$2) {
nlhe.remove $chan $nick
}
}
}
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { nlhe.sitout $chan $nick in }
if (($1 == call) && (!$2)) {
nlhe.action $chan $nick call
}
if (($1 == raise) && ($2)) {
if (($iif($2 == to,$3,$2) < 1) || (1 \\ $iif($2 == to,$3,$2))) {
nlhe.notice $chan $nick Illegal raise. Use whole numbers only.
return
}
nlhe.action $chan $nick raise $2-
}
if (($1 == bet) && ($2)) {
if (($2 < 1) || (1 \\ $2)) {
nlhe.notice $chan $nick Illegal bet. Use whole numbers only.
return
}
nlhe.action $chan $nick bet $2
}
if (($1 == fold) && (!$2)) {
nlhe.action $chan $nick fold
}
if (($1 == check) && (!$2)) {
nlhe.action $chan $nick check
}
if (($1- == allin) || ($1- == all in)) {
nlhe.allin $chan $nick
}
}
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if (($1 == remove) && ($2)) {
nlhe.removequitter $chan $2
}
if (($1 == add) && ($3)) {
nlhe.addnew $chan $2 $3
}
if (($1-2 == sit out) && (!$3)) {
nlhe.sitout $chan $nick out
}
if (($1-2 == sit in) && (!$3)) {
nlhe.sitout $chan $nick in
}
if (($1 == back) && (!$2)) {
nlhe.sitout $chan $nick in
}
}
}
on *:TEXT:add:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .regging ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
nlhe.add $chan $nick
}
}
on *:TEXT:remove*:#:{
if ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid) {
if ([ %nlhe. [ $+ [ $chan ] $+ .regging ] ]) {
nlhe.remove $chan $nick
}
elseif ($2) {
if ($2 !ison $chan) {
nlhe.removequitter $chan $2
}
}
}
}
on *:TEXT:nlhe start:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .regging ] ] == $null) && ([ %nlhe. [ $+ [ $chan ] $+ .running ] ] == $null)) {
nlhe.start $chan $nick
}
}
on *:TEXT:nlhe stop:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .regging ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .regging ] ] == $nick)) {
nlhe.stop $chan
}
}
on *:TEXT:begin:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .regging ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .regging ] ] != 1) && ($istok([ %nlhe. [ $+ [ $chan ] $+ .players ] ],$nick,32)) && (!$istok([ %nlhe. [ $+ [ $chan ] $+ .regging.begin ] ],$nick,32)) && ($numtok([ %nlhe. [ $+ [ $chan ] $+ .players ] ],32) > 1)) {
set %nlhe. [ $+ [ $chan ] $+ .regging.begin ] $addtok([ %nlhe. [ $+ [ $chan ] $+ .regging.begin ] ],$nick,32)
var %nump = $numtok([ %nlhe. [ $+ [ $chan ] $+ .players ] ],32)
var %numb = $numtok([ %nlhe. [ $+ [ $chan ] $+ .regging.begin ] ],32)
if ($calc(%numb / %nump) > 0.5) {
nlhe.begin $chan
}
else {
nlhe.msg $chan The game will begin when more than half of the players agree to begin.
}
}
}
on *:TEXT:call:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.action $chan $nick call
}
}
on *:TEXT:raise *:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if (($iif($2 == to,$3,$2) < 1) || (1 \\ $iif($2 == to,$3,$2))) {
nlhe.notice $chan $nick Illegal raise. Use whole numbers only.
return
}
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.action $chan $nick raise $2-
}
}
on *:TEXT:bet *:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if (($2 < 1) || (1 \\ $2)) {
nlhe.notice $chan $nick Illegal bet. Use whole numbers only.
return
}
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.action $chan $nick bet $2
}
}
on *:TEXT:fold:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.action $chan $nick fold
}
}
on *:TEXT:check:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.action $chan $nick check
}
}
on *:TEXT:all in:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.allin $chan $nick
}
}
on *:TEXT:allin:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .turn ] ] == $nick) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
if ([ %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] ]) { unset %nlhe. [ $+ [ $chan ] $+ . $+ [ $nick ] $+ .sitout ] }
nlhe.allin $chan $nick
}
}
on *:TEXT:sit out:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
nlhe.sitout $chan $nick out
}
}
on *:TEXT:sit in:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
nlhe.sitout $chan $nick in
}
}
on *:TEXT:back:#:{
if (([ %nlhe. [ $+ [ $chan ] $+ .running ] ]) && ([ %nlhe. [ $+ [ $chan ] $+ .cid ] ] == $cid)) {
nlhe.sitout $chan $nick in
}
}
alias nlhe.start {
if (($me ison $1) && (%nlhe.startmoney > 1) && (%nlhe.startblind > 1) && (1 // %nlhe.startmoney) && (2 // %nlhe.startblind)) {
var %msgt = [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ]
unset %nlhe. [ $+ [ $1 ] $+ .* ]
hfree -w nlhe. $+ $1
.timernlhe. $+ $1 $+ .blinds off
.timernlhe. $+ $1 $+ .turn* off
if (%msgt) { set %nlhe. [ $+ [ $1 ] $+ .msgtime ] %msgt }
set %nlhe. [ $+ [ $1 ] $+ .regging ] $iif($2,$2,1)
unset %nlhe. [ $+ [ $1 ] $+ .regging.begin ]
set %nlhe. [ $+ [ $1 ] $+ .cid ] $cid
nlhe.msg $chan A No Limit Hold'em poker game has been started in this chan. Type 'add' or 'remove' to register.
}
}
alias nlhe.stop {
if (($me ison $1) && (([ %nlhe. [ $+ [ $1 ] $+ .regging ] ]) || ([ %nlhe. [ $+ [ $1 ] $+ .running ] ]))) {
var %msgt = [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ]
unset %nlhe. [ $+ [ $1 ] $+ .* ]
hfree -w nlhe. $+ $1
.timernlhe. $+ $1 $+ .blinds off
.timernlhe. $+ $1 $+ .turn* off
if (%msgt) { set %nlhe. [ $+ [ $1 ] $+ .msgtime ] %msgt }
nlhe.msg $chan The No Limit Hold'em poker game has been stopped.
}
}
alias nlhe.begin {
if (($me ison $1) && ([ %nlhe. [ $+ [ $1 ] $+ .cid ] ] == $cid) && ([ %nlhe. [ $+ [ $1 ] $+ .regging ] ]) && ($numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32) > 1)) {
unset %nlhe. [ $+ [ $1 ] $+ .regging ]
unset %nlhe. [ $+ [ $1 ] $+ .regging.begin ]
set %nlhe. [ $+ [ $1 ] $+ .running ] 1
set %nlhe. [ $+ [ $1 ] $+ .blind ] %nlhe.startblind
var %i = 1
while ($gettok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],%i,32)) {
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $ifmatch ] ] %nlhe.startmoney
inc %i
}
.timernlhe. $+ $1 $+ .blinds -o 0 $calc($iif(1 // %nlhe.timeblinds && %nlhe.timeblinds > 0,%nlhe.timeblinds,10) * 60) nlhe.raiseblinds $1
nlhe.msg $chan The No Limit Hold'em poker game has commenced.
set %nlhe. [ $+ [ $1 ] $+ .button ] $gettok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],-1,32)
nlhe.nextround $1
}
}
alias nlhe.add {
if (($2 ison $1) && (!$istok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],$2,32)) && ([ %nlhe. [ $+ [ $1 ] $+ .regging ] ])) {
if (($2 == blind) || ($2 == nextblind) || (allin*pot* iswm $2) || (playerspot* iswm $2) || (betpot* iswm $2) || ($2 == bb) || ($2 == allallin) || ($2 == cid) || ($2 == deck) || ($2 == msgtime) || ($2 == sb) || ($2 == raiser) || ($2 == bet) || ($2 == players) || ($2 == running) || ($2 == regging) || ($2 == stage) || ($2 == turn) || ($2 == button)) {
nlhe.msg $1 $+ $2 $+ : illegal nickname.
}
elseif ($numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32) > 9) {
nlhe.notice $1 $2 Player limit has already been reached
}
else {
set %nlhe. [ $+ [ $1 ] $+ .players ] [ %nlhe. [ $+ [ $1 ] $+ .players ] ] $2
nlhe.notice $1 $2 Added. $iif([ %nlhe. [ $+ [ $1 ] $+ .regging ] ] != 1,Wait for other players to join and if you want to start the game type: 'begin'.)
nlhe.msg $1 Current players: $+ [ %nlhe. [ $+ [ $1 ] $+ .players ] ] $+ .
}
}
}
alias nlhe.addnew {
if (($2 ison $1) && (1 // $3) && ($3 > 1) && (!$istok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],$2,32)) && ([ %nlhe. [ $+ [ $1 ] $+ .running ] ])) {
if (($2 == blind) || ($2 == nextblind) || (allin*pot* iswm $2) || (playerspot* iswm $2) || (betpot* iswm $2) || ($2 == bb) || ($2 == allallin) || ($2 == cid) || ($2 == deck) || ($2 == msgtime) || ($2 == sb) || ($2 == raiser) || ($2 == bet) || ($2 == players) || ($2 == running) || ($2 == regging) || ($2 == stage) || ($2 == turn) || ($2 == button)) {
return
}
elseif ($numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32) > 9) {
return
}
else {
set %nlhe. [ $+ [ $1 ] $+ .players ] [ %nlhe. [ $+ [ $1 ] $+ .players ] ] $2
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] $3
nlhe.notice $1 $2 Added you with $ $+ $3 $+ .
nlhe.msg $1 $+ $2 $+ has been manually added to the game by the host with $ $+ $3 $+ .
}
}
}
alias nlhe.remove {
if (($2 ison $1) && ($istok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],$2,32)) && ([ %nlhe. [ $+ [ $1 ] $+ .regging ] ])) {
set %nlhe. [ $+ [ $1 ] $+ .players ] $remtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],$2,1,32)
nlhe.notice $1 $2 Removed.
nlhe.msg $1 Current players: $+ $iif([ %nlhe. [ $+ [ $1 ] $+ .players ] ],[ %nlhe. [ $+ [ $1 ] $+ .players ] ],(none)) $+ .
}
}
alias nlhe.removequitter {
if (($istok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],$2,32)) && ([ %nlhe. [ $+ [ $1 ] $+ .running ] ])) {
if ([ %nlhe. [ $+ [ $1 ] $+ .turn ] ] != $2) {
var %i = ""
while ((%i < 10) || (!%i)) {
var %cp = [ %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] ]
if (%cp) {
set %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] $remtok(%cp,$2,1,32)
}
inc %i
}
unset %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ]
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] 0
nlhe.msg $1 $+ $2 $+ has been forcibly removed from the game.
}
}
}
alias nlhe.sitout {
if ($3) {
if (($istok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],$2,32)) && ([ %nlhe. [ $+ [ $1 ] $+ .running ] ])) {
var %curr = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .sitout ] ]
if (($3 == out) && (!%curr)) {
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .sitout ] 1
if ([ %nlhe. [ $+ [ $1 ] $+ .turn ] ] == $2) {
nlhe.action $1 $2 fold
}
nlhe.msg $1 $+ $2 is sitting out. $+
nlhe.notice $1 $2 04You are sitting out. Type 'back' if you have returned.
}
if (($3 == in) && (%curr)) {
nlhe.msg $1 $+ $2 is back in the game. $+
nlhe.notice $1 $2 04You are back in the game.
unset %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .sitout ]
}
}
}
}
alias nlhe.nxtblind {
if ($1 isnum 2-) {
var %o = $1, %osb = $round($calc(%o / 2),0), %n
if (%o >= 1000) {
var %div = 1 $+ $str(0,$calc($len(%o) - 3))
%o = %o / %div
%osb = %osb / %div
}
if (%o isnum 2-8) {
%n = $round($calc((%o + %osb) / 2),0)
}
elseif (%o isnum 10-108) {
%n = $calc($round($calc((%o + %osb) / 10),0) * 5)
}
elseif (%o isnum 110-282) {
%n = $calc($round($calc((%o + %osb) / 50),0) * 25)
}
elseif (%o isnum 284-) {
%n = $calc($round($calc((%o + %osb) / 200),0) * 100)
}
if (%div) {
%n = %n * %div
}
if (%n) {
var %nbb = %n * 2
}
return %nbb
}
}
alias nlhe.raiseblinds {
if ($1) {
if (([ %nlhe. [ $+ [ $1 ] $+ .running ] ]) && ($me ison $1)) {
var %cb = [ %nlhe. [ $+ [ $1 ] $+ .blind ] ]
set %nlhe. [ $+ [ $1 ] $+ .nextblind ] $nlhe.nxtblind(%cb)
}
else {
.timernlhe. $+ $1 $+ .blinds off
}
}
}
alias nlhe.nextp {
if ($3) {
var %allplist = [ %nlhe. [ $+ [ $1 ] $+ .players ] ], %plist = [ %nlhe. [ $+ [ $1 ] $+ .players $+ [ $2 ] ] ], %nump = $numtok(%allplist,32), %i = $findtok(%allplist,$3,1,32)
if ((%nump < 2) || (!%i)) { return $3 }
inc %i
if (%i > %nump) { %i = 1 }
while (%i != $findtok(%allplist,$3,1,32)) {
var %c = $gettok(%allplist,%i,32)
if (([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] ] ] <= 0) || (!$findtok(%plist,%c,1,32))) {
goto inc
}
return %c
:inc
inc %i
if (%i > %nump) { %i = 1 }
}
return $3
}
}
alias nlhe.prevp {
if ($3) {
var %allplist = [ %nlhe. [ $+ [ $1 ] $+ .players ] ], %plist = [ %nlhe. [ $+ [ $1 ] $+ .players $+ [ $2 ] ] ], %nump = $numtok(%allplist,32), %i = $findtok(%allplist,$3,1,32)
if ((%nump < 2) || (!%i)) { return $3 }
dec %i
if (%i < 1) { %i = %nump }
while (%i != $findtok(%allplist,$3,1,32)) {
var %c = $gettok(%allplist,%i,32)
if (([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] ] ] <= 0) || (!$findtok(%plist,%c,1,32))) {
goto dec
}
return %c
:dec
dec %i
if (%i < 1) { %i = %nump }
}
return $3
}
}
alias nlhe.cindex {
return $mid(23456789TJQKA,$1,1)
}
alias nlhe.rcindex {
return $pos(23456789TJQKA,$left($1,1),1)
}
alias nlhe.wordindex {
var %c = $left($1,1)
if (($len($1) > 1) && ($left($1,1) == $right($1,1))) { var %plur = 1 }
if (%c == 2) { return Deuce $+ $iif(%plur,s) }
if (%c == 3) { return Three $+ $iif(%plur,s) }
if (%c == 4) { return Four $+ $iif(%plur,s) }
if (%c == 5) { return Five $+ $iif(%plur,s) }
if (%c == 6) { return Six $+ $iif(%plur,es) }
if (%c == 7) { return Seven $+ $iif(%plur,s) }
if (%c == 8) { return Eight $+ $iif(%plur,s) }
if (%c == 9) { return Nine $+ $iif(%plur,s) }
if (%c == T) { return Ten $+ $iif(%plur,s) }
if (%c == J) { return Jack $+ $iif(%plur,s) }
if (%c == Q) { return Queen $+ $iif(%plur,s) }
if (%c == K) { return King $+ $iif(%plur,s) }
if (%c == A) { return Ace $+ $iif(%plur,s) }
}
alias nlhe.sortrank {
tokenize 32 $1-
var %k = 13, %1 = $left($1,1), %2 = $left($2,1), %3 = $left($3,1), %4 = $left($4,1), %5 = $left($5,1), %6 = $left($6,1), %7 = $left($7,1), %cards = %1 %2 %3 %4 %5 %6 %7, %remaining = %cards, %count = 1
while (%k > 0) {
if ($matchtok(%remaining,$nlhe.cindex(%k),0,32)) {
var %result = %result $gettok($1-,$findtok(%cards,$nlhe.cindex(%k),%count,32),32)
%remaining = $remtok(%remaining,$nlhe.cindex(%k),1,32)
if ($prop == single) dec %k
else inc %count
}
else {
dec %k
var %count = 1
}
}
return %result
}
alias nlhe.ranking {
tokenize 32 $1-
var %1 = $left($1,1), %2 = $left($2,1), %3 = $left($3,1), %4 = $left($4,1), %5 = $left($5,1), %6 = $left($6,1), %7 = $left($7,1)
var %suits = $right($1,1) $+ $right($2,1) $+ $right($3,1) $+ $right($4,1) $+ $right($5,1) $+ $right($6,1) $+ $right($7,1)
var %cards = %1 %2 %3 %4 %5 %6 %7, %hand
;
; STRAIGHT FLUSH
;
var %sorted = $nlhe.sortrank($1-)
if ($count(%suits,c) >= 5) { var %flushsuit = c }
if ($count(%suits,d) >= 5) { var %flushsuit = d }
if ($count(%suits,h) >= 5) { var %flushsuit = h }
if ($count(%suits,s) >= 5) { var %flushsuit = s }
if (%flushsuit) {
var %flushcards
if ($right($gettok(%sorted,1,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,1,32),1) }
if ($right($gettok(%sorted,2,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,2,32),1) }
if ($right($gettok(%sorted,3,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,3,32),1) }
if ($right($gettok(%sorted,4,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,4,32),1) }
if ($right($gettok(%sorted,5,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,5,32),1) }
if ($right($gettok(%sorted,6,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,6,32),1) }
if ($right($gettok(%sorted,7,32),1) = %flushsuit) { %flushcards = %flushcards $left($gettok(%sorted,7,32),1) }
%sorted = $nlhe.sortrank(%flushcards).single
if ((A K Q J T isin %sorted) || (K Q J T 9 isin %sorted) || (Q J T 9 8 isin %sorted) || (J T 9 8 7 isin %sorted) || (T 9 8 7 6 isin %sorted) || (9 8 7 6 5 isin %sorted) || (8 7 6 5 4 isin %sorted) || (7 6 5 4 3 isin %sorted) || (6 5 4 3 2 isin %sorted) || ((A isin %sorted) && (5 4 3 2 isin %sorted))) {
var %hand.strenght = 9, %kicker = $left($ifmatch,1)
goto vl
}
else {
%flushcards = ""
}
}
%sorted = ""
;
; QUADS
;
var %i = 0
while (%i <= 13) {
inc %i
if ($matchtok(%cards,$nlhe.cindex(%i),0,32) == 4) {
var %hand = $str($nlhe.cindex(%i),4), %hand.strenght = 8, %remaining = $1-
if (%1 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$1,1,32) }
if (%2 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$2,1,32) }
if (%3 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$3,1,32) }
if (%4 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$4,1,32) }
if (%5 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$5,1,32) }
if (%6 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$6,1,32) }
if (%7 = $nlhe.cindex(%i)) { %remaining = $remtok(%remaining,$7,1,32) }
var %j = 13
while (%j > 0) {
if ($matchtok(%remaining,$nlhe.cindex(%j),0,32)) {
var %kicker = $nlhe.cindex(%j)
goto vl
}
dec %j
}
}
}
;
; FULL HOUSE
;
var %sorted = $nlhe.sortrank(%cards), %i = 13
while (%i > 0) {
if ($matchtok(%sorted,$nlhe.cindex(%i),0,32) == 3) {
var %hand = $str($nlhe.cindex(%i),3), %remaining = %sorted
while ($findtok(%remaining,$nlhe.cindex(%i),0,32)) { %remaining = $remtok(%remaining,$nlhe.cindex(%i),1,32) }
var %j = 13
while (%j > 0) {
if ($matchtok(%remaining,$nlhe.cindex(%j),0,32) >= 2) {
var %kicker = $str($nlhe.cindex(%j),2), %hand.strenght = 7
goto vl
}
dec %j
}
if (!%hand.strenght) {
var %sorted = "", %hand = ""
}
}
dec %i
}
;
; FLUSH
;
if ($count(%suits,c) >= 5) { var %flushsuit = c }
if ($count(%suits,d) >= 5) { var %flushsuit = d }
if ($count(%suits,h) >= 5) { var %flushsuit = h }
if ($count(%suits,s) >= 5) { var %flushsuit = s }
if (%flushsuit) {
var %hand.strenght = 6, %flushcards
if ($right($1,1) = %flushsuit) { %flushcards = %flushcards %1 }
if ($right($2,1) = %flushsuit) { %flushcards = %flushcards %2 }
if ($right($3,1) = %flushsuit) { %flushcards = %flushcards %3 }
if ($right($4,1) = %flushsuit) { %flushcards = %flushcards %4 }
if ($right($5,1) = %flushsuit) { %flushcards = %flushcards %5 }
if ($right($6,1) = %flushsuit) { %flushcards = %flushcards %6 }
if ($right($7,1) = %flushsuit) { %flushcards = %flushcards %7 }
%hand = $remove($gettok($nlhe.sortrank(%flushcards),1-5,32),$chr(32))
goto vl
}
;
; STRAIGHT
;
var %sorted = $nlhe.sortrank(%cards).single
if ((A K Q J T isin %sorted) || (K Q J T 9 isin %sorted) || (Q J T 9 8 isin %sorted) || (J T 9 8 7 isin %sorted) || (T 9 8 7 6 isin %sorted) || (9 8 7 6 5 isin %sorted) || (8 7 6 5 4 isin %sorted) || (7 6 5 4 3 isin %sorted) || (6 5 4 3 2 isin %sorted) || ((A isin %sorted) && (5 4 3 2 isin %sorted))) {
var %hand.strenght = 5, %kicker = $left($ifmatch,1)
goto vl
}
;
; TRIPS
;
var %sorted = $nlhe.sortrank(%cards), %i = 13
while (%i > 0) {
if ($matchtok(%sorted,$nlhe.cindex(%i),0,32) == 3) {
var %hand = $str($nlhe.cindex(%i),3), %hand.strenght = 4, %remaining = %sorted
while ($findtok(%remaining,$nlhe.cindex(%i),0,32)) { %remaining = $remtok(%remaining,$nlhe.cindex(%i),1,32) }
var %kicker = $gettok(%remaining,1,32) $+ $gettok(%remaining,2,32)
goto vl
}
dec %i
}
;
; TWO PAIR
;
var %i = 13, %remaining = %sorted
while (%i > 0) {
if ($matchtok(%sorted,$nlhe.cindex(%i),0,32) == 2) {
var %hand = $str($nlhe.cindex(%i),2)
while ($findtok(%remaining,$nlhe.cindex(%i),0,32)) { %remaining = $remtok(%remaining,$nlhe.cindex(%i),1,32) }
var %j = 13
while (%j > 0) {
if ($matchtok(%remaining,$nlhe.cindex(%j),0,32) == 2) {
var %hand = %hand $+ $str($nlhe.cindex(%j),2), %hand.strenght = 3
while ($findtok(%remaining,$nlhe.cindex(%j),0,32)) { %remaining = $remtok(%remaining,$nlhe.cindex(%j),1,32) }
var %kicker = $gettok(%remaining,1,32)
goto vl
}
dec %j
}
;
; PAIR
;
var %hand.strenght = 2, %kicker = $gettok(%remaining,1,32) $+ $gettok(%remaining,2,32) $+ $gettok(%remaining,3,32)
goto vl
}
dec %i
}
;
; HIGH CARD
;
var %hand.strenght = 1, %kicker = $remove($gettok(%sorted,1-5,32),$chr(32))
:vl
var %ret = %hand.strenght
if (%hand) { %ret = $instok(%ret,%hand,2,46) }
if (%kicker) { %ret = $instok(%ret,%kicker,3,46) }
return %ret
}
alias nlhe.showdown {
tokenize 32 $1-
var %i = 0, %winner
while (%i < $0) {
inc %i
var %p [ $+ [ %i ] ] [ $ $+ [ %i ] ]
var %pp [ $+ [ %i ] ] 0
}
var %j = 10, %k = 9
while (%j > 0) {
if (%p [ $+ [ %j ] ]) {
while (%k > 0) {
if ($nlhe.value(%p [ $+ [ %j ] ],%p [ $+ [ %k ] ]) == 1) dec %pp [ $+ [ %k ] ]
elseif ($nlhe.value(%p [ $+ [ %j ] ],%p [ $+ [ %k ] ]) == 2) dec %pp [ $+ [ %j ] ]
dec %k
}
}
dec %j
%k = %j - 1
}
var %j = 10
while (%j > 0) {
if (%pp [ $+ [ %j ] ] == 0) {
%winner = %j %winner
}
dec %j
}
return %winner
}
alias nlhe.value {
var %1.rank = $gettok($1,1,46), %2.rank = $gettok($2,1,46), %1.hand = $gettok($1,2,46), %2.hand = $gettok($2,2,46), %1.kicker = $gettok($1,$iif($gettok($1,3,46),3,2),46), %2.kicker = $gettok($2,$iif($gettok($2,3,46),3,2),46)
if (%1.rank > %2.rank) return 1
elseif (%1.rank == %2.rank) {
if (%1.rank == 9) {
if ($nlhe.rcindex(%1.kicker) > $nlhe.rcindex(%2.kicker)) return 1
elseif ($nlhe.rcindex(%1.kicker) == $nlhe.rcindex(%2.kicker)) return 3
else return 2
}
if ((%1.rank == 8) || (%1.rank == 7)) {
if ($nlhe.rcindex(%1.hand) > $nlhe.rcindex(%2.hand)) return 1
elseif ($nlhe.rcindex(%1.hand) == $nlhe.rcindex(%2.hand)) {
if ($nlhe.rcindex(%1.kicker) > $nlhe.rcindex(%2.kicker)) return 1
elseif ($nlhe.rcindex(%1.kicker) == $nlhe.rcindex(%2.kicker)) return 3
else return 2
}
else return 2
}
if ((%1.rank == 6) || (%1.rank == 1)) {
if ($nlhe.rcindex($mid(%1.hand,1,1)) == $nlhe.rcindex($mid(%2.hand,1,1))) {
if ($nlhe.rcindex($mid(%1.hand,2,1)) == $nlhe.rcindex($mid(%2.hand,2,1))) {
if ($nlhe.rcindex($mid(%1.hand,3,1)) == $nlhe.rcindex($mid(%2.hand,3,1))) {
if ($nlhe.rcindex($mid(%1.hand,4,1)) == $nlhe.rcindex($mid(%2.hand,4,1))) {
if ($nlhe.rcindex($mid(%1.hand,5,1)) == $nlhe.rcindex($mid(%2.hand,5,1))) {
return 3
}
elseif ($nlhe.rcindex($mid(%1.hand,5,1)) > $nlhe.rcindex($mid(%2.hand,5,1))) return 1
else return 2
}
elseif ($nlhe.rcindex($mid(%1.hand,4,1)) > $nlhe.rcindex($mid(%2.hand,4,1))) return 1
else return 2
}
elseif ($nlhe.rcindex($mid(%1.hand,3,1)) > $nlhe.rcindex($mid(%2.hand,3,1))) return 1
else return 2
}
elseif ($nlhe.rcindex($mid(%1.hand,2,1)) > $nlhe.rcindex($mid(%2.hand,2,1))) return 1
else return 2
}
elseif ($nlhe.rcindex($mid(%1.hand,1,1)) > $nlhe.rcindex($mid(%2.hand,1,1))) return 1
else return 2
}
if (%1.rank == 5) {
if ($nlhe.rcindex(%1.kicker) > $nlhe.rcindex(%2.kicker)) return 1
elseif ($nlhe.rcindex(%1.kicker) == $nlhe.rcindex(%2.kicker)) return 3
else return 2
}
if (%1.rank == 4) {
if ($nlhe.rcindex(%1.hand) > $nlhe.rcindex(%2.hand)) return 1
elseif ($nlhe.rcindex(%1.hand) == $nlhe.rcindex(%2.hand)) {
if ($nlhe.rcindex(%1.kicker) > $nlhe.rcindex(%2.kicker)) return 1
elseif ($nlhe.rcindex(%1.kicker) == $nlhe.rcindex(%2.kicker)) {
if ($nlhe.rcindex($mid(%1.kicker,2,1)) > $nlhe.rcindex($mid(%2.kicker,2,1))) return 1
elseif ($nlhe.rcindex($mid(%1.kicker,2,1)) == $nlhe.rcindex($mid(%2.kicker,2,1))) {
return 3
}
else return 2
}
else return 2
}
else return 2
}
if (%1.rank == 3) {
if ($nlhe.rcindex(%1.hand) > $nlhe.rcindex(%2.hand)) return 1
elseif ($nlhe.rcindex(%1.hand) == $nlhe.rcindex(%2.hand)) {
if ($nlhe.rcindex($mid(%1.hand,3,1)) > $nlhe.rcindex($mid(%2.hand,3,1))) return 1
elseif ($nlhe.rcindex($mid(%1.hand,3,1)) == $nlhe.rcindex($mid(%2.hand,3,1))) {
if ($nlhe.rcindex(%1.kicker) > $nlhe.rcindex(%2.kicker)) return 1
elseif ($nlhe.rcindex(%1.kicker) == $nlhe.rcindex(%2.kicker)) {
return 3
}
else return 2
}
else return 2
}
else return 2
}
if (%1.rank == 2) {
if ($nlhe.rcindex(%1.hand) > $nlhe.rcindex(%2.hand)) return 1
elseif ($nlhe.rcindex(%1.hand) == $nlhe.rcindex(%2.hand)) {
if ($nlhe.rcindex(%1.kicker) > $nlhe.rcindex(%2.kicker)) return 1
elseif ($nlhe.rcindex(%1.kicker) == $nlhe.rcindex(%2.kicker)) {
if ($nlhe.rcindex($mid(%1.kicker,2,1)) > $nlhe.rcindex($mid(%2.kicker,2,1))) return 1
elseif ($nlhe.rcindex($mid(%1.kicker,2,1)) == $nlhe.rcindex($mid(%2.kicker,2,1))) {
if ($nlhe.rcindex($mid(%1.kicker,3,1)) > $nlhe.rcindex($mid(%2.kicker,3,1))) return 1
elseif ($nlhe.rcindex($mid(%1.kicker,3,1)) == $nlhe.rcindex($mid(%2.kicker,3,1))) {
return 3
}
else return 2
}
else return 2
}
else return 2
}
else return 2
}
}
else return 2
}
alias nlhe.valuewords {
var %rank = $gettok($1,1,46), %hand = $gettok($1,2,46), %kicker = $gettok($1,$iif($gettok($1,3,46),3,2),46), %line
if (!%hand) return
if ((%rank == 9) || (%rank == 5)) {
%line = Straight $+ $iif(%rank == 9,$chr(32) $+ Flush) $+ $chr(44)
var %to = $nlhe.wordindex(%kicker)
if (%kicker == 5) {
var %from = Ace
}
else {
var %from = $nlhe.wordindex($nlhe.cindex($calc($nlhe.rcindex(%kicker) - 4)))
}
if ((%rank == 9) && (%kicker == A)) {
return Royal Flush
}
return %line %from to %to
}
if (%rank == 8) {
return Four Of A Kind $+ $chr(44) $nlhe.wordindex(%hand) + %kicker kicker
}
if (%rank == 7) {
return Full House $+ $chr(44) $nlhe.wordindex(%hand) full of $nlhe.wordindex(%kicker)
}
if (%rank == 6) {
return Flush $+ $chr(44) $nlhe.wordindex($left(%kicker,1)) high ( $+ %kicker $+ )
}
if (%rank == 4) {
return Three Of A Kind $+ $chr(44) $nlhe.wordindex(%hand) + %kicker kickers
}
if (%rank == 3) {
return Two Pair $+ $chr(44) $nlhe.wordindex($left(%hand,2)) over $nlhe.wordindex($right(%hand,2)) + %kicker kicker
}
if (%rank == 2) {
return Pair of $nlhe.wordindex(%hand) $+ + %kicker kickers
}
if (%rank == 1) {
return $+ $nlhe.wordindex($left(%kicker,1)) High ( $+ %kicker $+ )
}
}
alias nlhe.action {
if ([ %nlhe. [ $+ [ $1 ] $+ .running ] ]) {
var %amount, %currentmoney = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] ]
if (([ %nlhe. [ $+ [ $1 ] $+ .allinpot ] ]) && ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot ] ] >= [ %nlhe. [ $+ [ $1 ] $+ .allinamountpot ] ])) {
var %i = 0
while (%i < 10) {
inc %i
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %currentpot = pot $+ %i
goto foundpot
}
elseif ((!%cbett) && (!%currentpot)) {
var %currentpot = pot $+ %i
goto foundpot
}
elseif ((%cinvv == %cbett) && (%cbett) && ([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ] == $null)) {
var %currentpot = pot $+ %i
}
}
}
if (!%currentpot) { var %currentpot = pot }
:foundpot
var %i = $iif($remove(%currentpot,pot),$remove(%currentpot,pot),0)
while (%i < 10) {
inc %i
if ([ %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] ] == $null) {
var %nextpot = pot $+ %i
goto foundnextpot
}
}
:foundnextpot
if ($3 == sb) {
%amount = [ %nlhe. [ $+ [ $1 ] $+ .blind ] ]
%amount = $round($calc(%amount / 2),0)
if (%currentmoney < %amount) {
var %tp = %currentmoney
}
else {
var %tp = %amount
}
set %nlhe. [ $+ [ $1 ] $+ .pot ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot ] %tp
dec %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] %tp
.timer -m 1 1 nlhe.action $1 [ %nlhe. [ $+ [ $1 ] $+ .bb ] ] bb
if (%tp == %currentmoney) {
set %nlhe. [ $+ [ $1 ] $+ .betpot ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] raise
set %nlhe. [ $+ [ $1 ] $+ .raiser ] $2
set %nlhe. [ $+ [ $1 ] $+ .allinamountpot ] %tp
set %nlhe. [ $+ [ $1 ] $+ .allinpot ] $2
nlhe.msg $1 $+ $2 $+ goes all in in the small blind for $ $+ %tp $+ .
return
}
else {
nlhe.msg $1 $+ $2 $+ posts the small blind of $ $+ %tp $+ .
}
}
if ($3 == bb) {
if ([ %nlhe. [ $+ [ $1 ] $+ .allinamountpot ] ]) {
var %sbamount = $ifmatch, %amount = [ %nlhe. [ $+ [ $1 ] $+ .blind ] ], %tp = $calc(%amount - %sbamount)
if (%tp) {
set %nlhe. [ $+ [ $1 ] $+ .betpot1 ] %tp
}
if (%currentmoney < %amount) {
nlhe.msg $1 $+ $2 $+ posts $ $+ %currentmoney $+ of the big blind.
}
else {
nlhe.msg $1 $+ $2 $+ posts the big blind of $ $+ %amount $+ .
}
.timer -m 1 1 nlhe.action $1 $2 call silent
return
}
%amount = [ %nlhe. [ $+ [ $1 ] $+ .blind ] ]
if (%currentmoney < %amount) {
var %tp = %currentmoney
}
else {
var %tp = %amount
}
if (%tp == %currentmoney) {
var %mpot = [ %nlhe. [ $+ [ $1 ] $+ .pot ] ], %sblind = [ %nlhe. [ $+ [ $1 ] $+ .sb ] ]
if ((%mpot > %tp) && ($nlhe.nextp($1,pot,%sblind) != %sblind)) {
set %nlhe. [ $+ [ $1 ] $+ .pot ] $calc(%tp * 2)
set %nlhe. [ $+ [ $1 ] $+ .pot1 ] $calc(%mpot - %tp)
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %sblind ] $+ .investedpot ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %sblind ] $+ .investedpot1 ] $calc(%mpot - %tp)
set %nlhe. [ $+ [ $1 ] $+ .playerspot1 ] [ %nlhe. [ $+ [ $1 ] $+ .sb ] ]
dec %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] %tp
}
else {
inc %nlhe. [ $+ [ $1 ] $+ .pot ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot ] %tp
dec %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] %tp
}
set %nlhe. [ $+ [ $1 ] $+ .betpot ] %tp
if ($nlhe.nextp($1,pot,%sblind) != %sblind) {
var %betnewpot = $calc(%nlhe. [ $+ [ $1 ] $+ .blind ] - %tp)
if (%betnewpot) { set %nlhe. [ $+ [ $1 ] $+ .betpot1 ] %betnewpot }
}
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] raise
set %nlhe. [ $+ [ $1 ] $+ .raiser ] $2
set %nlhe. [ $+ [ $1 ] $+ .allinamountpot ] %tp
set %nlhe. [ $+ [ $1 ] $+ .allinpot ] $2
nlhe.msg $1 $+ $2 $+ goes all in in the big blind for $ $+ %tp $+ .
.timer -m 1 1 nlhe.nextturn $1
return
}
else {
inc %nlhe. [ $+ [ $1 ] $+ .pot ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot ] %tp
dec %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] %tp
set %nlhe. [ $+ [ $1 ] $+ .betpot ] %amount
nlhe.msg $1 $+ $2 $+ posts the big blind of $ $+ %amount $+ .
.timer -m 1 1 nlhe.nextturn $1
}
}
if ($3 == call) {
if ($5 != $null) {
var %currentpot = $4, %tb = [ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ], %ti = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] ]
%tb = $iif([ %nlhe. [ $+ [ $1 ] $+ .allin $+ [ %currentpot ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamount $+ [ %currentpot ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ])
if (%currentmoney < $5) {
var %tp = %currentmoney
}
else {
var %tp = $5
}
var %tx = $calc(%tp + %ti)
if (%tp != $5) {
; TO CALL ALL IN
var %i = 1, %plist = [ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] ], %allinamount = %tx
while ($gettok(%plist,%i,32)) {
var %c = $ifmatch, %invv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .invested $+ [ %currentpot ] ] ]
if ((%c != $2) && (%invv >= %tx)) {
var %split = $calc(%split + (%invv - %tx))
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .invested $+ [ %currentpot ] ] %tx
if (%c != $2) {
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .invested $+ [ %nextpot ] ] $calc(%invv - %allinamount)
set %nlhe. [ $+ [ $1 ] $+ .players $+ [ %nextpot ] ] $addtok([ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %nextpot ] ] ],%c,32)
}
}
inc %i
}
var %cpamount = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %currentpot ] ] ]
set %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] $addtok([ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] ],$2,32)
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %currentpot ] ] $calc(%cpamount + %tp - %split)
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %nextpot ] ] %split
if ([ %nlhe. [ $+ [ $1 ] $+ .allinamount $+ [ %currentpot ] ] ]) {
set %nlhe. [ $+ [ $1 ] $+ .allinamount $+ [ %nextpot ] ] $calc(%tb - %tx)
}
if ([ %nlhe. [ $+ [ $1 ] $+ .allin $+ [ %currentpot ] ] ]) {
set %nlhe. [ $+ [ $1 ] $+ .allin $+ [ %nextpot ] ] $ifmatch
}
set %nlhe. [ $+ [ $1 ] $+ .allinamount $+ [ %currentpot ] ] %tx
set %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] %tx
set %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %nextpot ] ] $calc(%tb - %tx)
}
else {
set %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] $addtok([ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] ],$2,32)
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ %currentpot ] ] %tp
}
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] %tp
dec %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] %tp
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] call
if (([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] != $2) && ($7 != silent)) {
nlhe.msg $1 $+ $2 $+ calls +$ $+ %tp $+ $+ $iif($4 != pot,$chr(32) $+ into side pot $remove($4,pot) $+ .,.)
}
if ($6) {
if ([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] != $2) {
.timer -m 1 1 nlhe.nextturn $1
}
else {
.timer -m 1 1 nlhe.action $1 $2 bet [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .raiseamount ] ]
}
}
}
else {
var %xbet = [ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ], %xinv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] ]
if (%xinv == $null) { %xinv = 0 }
if ((%xbet != $null) && (%xinv < %xbet)) {
var %i = $remove(%currentpot,pot), %amount = 0
if (!%i) { %i = "" }
while ((%i < 10) || (!%i)) {
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %amount = $calc(%amount + %cbett - %cinvv)
var %lastamount = %i
if (%amount >= %currentmoney) { %i = 11 }
}
inc %i
}
var %i = $remove(%currentpot,pot), %amount = 0
if (!%i) { %i = "" }
while ((%i < 10) || (!%i)) {
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %amount = $calc(%amount + %cbett - %cinvv)
.timer -h 1 $calc(10 * %i + 1) nlhe.action $1 $2 call pot $+ %i $calc(%cbett - %cinvv) $iif(%lastamount = %i,1,0) $iif($4 == silent,silent)
if (%amount >= %currentmoney) { %i = 11 }
}
inc %i
}
if (!%amount) {
var %amount = $calc(%xbet - %xinv)
.timer -m 1 1 nlhe.action $1 $2 call %currentpot %amount 1
}
}
elseif ([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] == $2) {
.timer -m 1 1 nlhe.action $1 $2 bet [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .raiseamount ] ]
}
else {
nlhe.notice $1 $2 There is nothing to call.
}
}
}
if ($3 == bet) {
if (([ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ]) && ([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] != $2)) {
nlhe.notice $1 $2 You can't bet here.
return
}
elseif ([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] == $null) {
if (($4 < [ %nlhe. [ $+ [ $1 ] $+ .blind ] ]) && ($4 < %currentmoney)) {
nlhe.notice $1 $2 You must at bet at least the big blind: $ $+ [ %nlhe. [ $+ [ $1 ] $+ .blind ] ] $+ .
return
}
}
if (%currentmoney < $4) {
var %tp = %currentmoney
}
else {
var %tp = $4
}
set %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] $addtok([ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %currentpot ] ] ],$2,32)
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ %currentpot ] ] %tp
inc %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] %tp
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] %tp
dec %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] %tp
unset %nlhe. [ $+ [ $1 ] $+ .*.action ]
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] raise
if ([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] != $2) {
nlhe.msg $1 $+ $2 $+ bets $ $+ %tp $+ $+ $iif(%currentpot != pot,$chr(32) $+ into side pot $remove(%currentpot,pot) $+ .,.)
}
set %nlhe. [ $+ [ $1 ] $+ .raiser ] $2
.timer -m 1 1 nlhe.nextturn $1
}
if ($3 == raise) {
var %xbet = [ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ], %xmoney = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] ], %xinv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] ]
if (%xinv == $null) { %xinv = 0 }
var %i = $remove(%currentpot,pot), %amount = 0
if (!%i) { %i = "" }
while ((%i < 10) || (!%i)) {
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %totalbet = $calc(%totalbet + %cbett)
var %totalinv = $calc(%totalinv + %cinvv)
var %amount = $calc(%amount + %cbett - %cinvv)
if (%amount >= %currentmoney) { %i = 11 }
}
inc %i
}
if (!%amount) {
var %amount = $calc(%xbet - %xinv)
var %totalbet = %xbet
var %totalinv = %xinv
}
if (!%totalbet) {
nlhe.notice $1 $2 You can't raise here.
return
}
var %xraise = $iif($4 == to,$5,$calc($4 + %totalbet))
if (%xraise) {
if ($calc(%xmoney + %totalinv) < %xraise) {
var %xraise = $calc(%xmoney + %totalinv)
}
var %prevraiser = [ %nlhe. [ $+ [ $1 ] $+ .raiser ] ]
if (%prevraiser != $2) {
var %prevraise = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %prevraiser ] $+ .raiseamount ] ]
}
if (%amount >= %xmoney) {
nlhe.notice $1 $2 You don't have enough money to raise.
return
}
if (($calc(%xraise - %totalbet) < $calc($iif(%prevraise,%prevraise,%totalbet))) && ($calc(%xraise - %totalinv) < %xmoney)) {
nlhe.notice $1 $2 Illegal raise. You must at least double the bet.
return
}
unset %nlhe. [ $+ [ $1 ] $+ .*.action ]
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] raise
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .raiseamount ] $calc(%xraise - %totalbet)
set %nlhe. [ $+ [ $1 ] $+ .raiser ] $2
nlhe.msg $1 $+ $2 $+ raises $iif(%currentpot != pot,the side pot $remove(%currentpot,pot) bet) from $ $+ %totalbet $+ to $ $+ %xraise $+ .
.timer -m 1 1 nlhe.action $1 $2 call
}
}
if ($3 == fold) {
var %i = ""
while ((%i < 10) || (!%i)) {
var %cp = [ %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] ]
if (%cp) {
set %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] $remtok(%cp,$2,1,32)
}
inc %i
}
unset %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ]
nlhe.msg $1 $+ $2 $+ folds.
.timer -m 1 1 nlhe.nextturn $1
}
if ($3 == check) {
var %inv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] ], %bet = [ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ]
if ((%inv != $null) && (%bet != $null) && (%inv == %bet) && ([ %nlhe. [ $+ [ $1 ] $+ .stage ] ] == preflop) && ([ %nlhe. [ $+ [ $1 ] $+ .bb ] ] == $2)) {
nlhe.msg $1 $+ $2 $+ checks.
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] check
.timer -m 1 1 nlhe.nextturn $1
}
elseif (!%bet) {
nlhe.msg $1 $+ $2 $+ checks.
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .action ] check
.timer -m 1 1 nlhe.nextturn $1
}
else {
nlhe.notice $1 $2 You can't check here.
}
}
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] ] <= 0) {
if ([ %nlhe. [ $+ [ $1 ] $+ .allinamount $+ [ %currentpot ] ] ] == $null) {
set %nlhe. [ $+ [ $1 ] $+ .allinamount $+ [ %currentpot ] ] $iif(%tx,%tx,[ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ])
}
set %nlhe. [ $+ [ $1 ] $+ .allin $+ [ %currentpot ] ] $addtok([ %nlhe. [ $+ [ $1 ] $+ .allin $+ [ %currentpot ] ] ],$2,32)
nlhe.msg $1 $+ $2 $+ is all in.
}
}
}
alias nlhe.allin {
if ([ %nlhe. [ $+ [ $1 ] $+ .running ] ]) {
var %amount, %currentmoney = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] ]
if (([ %nlhe. [ $+ [ $1 ] $+ .allinpot ] ]) && ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot ] ] >= [ %nlhe. [ $+ [ $1 ] $+ .allinamountpot ] ])) {
var %i = 0
while (%i < 10) {
inc %i
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %currentpot = pot $+ %i
goto foundpot
}
elseif ((!%cbett) && (!%currentpot)) {
var %currentpot = pot $+ %i
goto foundpot
}
elseif ((%cinvv == %cbett) && (%cbett) && ([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ] == $null)) {
var %currentpot = pot $+ %i
}
}
}
if (!%currentpot) { var %currentpot = pot }
:foundpot
var %i = $iif($remove(%currentpot,pot),$remove(%currentpot,pot),0)
while (%i < 10) {
inc %i
if ([ %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] ] == $null) {
var %nextpot = pot $+ %i
goto foundnextpot
}
}
:foundnextpot
if (([ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ]) && ([ %nlhe. [ $+ [ $1 ] $+ .raiser ] ] != $2)) {
}
else {
nlhe.action $1 $2 bet %currentmoney
return
}
var %xbet = [ %nlhe. [ $+ [ $1 ] $+ .bet $+ [ %currentpot ] ] ], %xmoney = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] ] ], %xinv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .invested $+ [ %currentpot ] ] ]
if (%xinv == $null) { %xinv = 0 }
var %i = $remove(%currentpot,pot), %amount = 0
if (!%i) { %i = "" }
while ((%i < 10) || (!%i)) {
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ $2 ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %totalbet = $calc(%totalbet + %cbett)
var %totalinv = $calc(%totalinv + %cinvv)
var %amount = $calc(%amount + %cbett - %cinvv)
if (%amount >= %currentmoney) { %i = 11 }
}
inc %i
}
if (!%amount) {
var %amount = $calc(%xbet - %xinv)
var %totalbet = %xbet
var %totalinv = %xinv
}
if (!%totalbet) {
nlhe.action $1 $2 bet %currentmoney
return
}
elseif (%amount >= %currentmoney) {
nlhe.action $1 $2 call
return
}
else {
nlhe.action $1 $2 raise %currentmoney
return
}
nlhe.action $1 $2 call
}
}
alias nlhe.takecard {
var %deck = $hget(nlhe. $+ $1,deck)
if (%deck) {
; var %r = $rand(1,$numtok(%deck,32))
var %r = 1
hadd nlhe. $+ $1 deck $deltok(%deck,%r,32)
return $gettok(%deck,%r,32)
}
}
alias nlhe.colorcards {
var %j = 1
while ($gettok($1-,%j,32)) {
var %ccard = $ifmatch, %color
if ($right(%ccard,1) == c) { %color = 03 }
if ($right(%ccard,1) == d) { %color = 12 }
if ($right(%ccard,1) == h) { %color = 04 }
if ($right(%ccard,1) == s) { %color = "" }
var %output = %output %color $+ $+ $left(%ccard,1) $+ $+ $right(%ccard,1) $+ $iif(%color,)
inc %j
}
return %output
}
alias nlhe.nextround {
if ([ %nlhe. [ $+ [ $1 ] $+ .running ] ]) {
unset %nlhe. [ $+ [ $1 ] $+ .allinpot* ]
unset %nlhe. [ $+ [ $1 ] $+ .allinamountpot* ]
unset %nlhe. [ $+ [ $1 ] $+ .board ]
unset %nlhe. [ $+ [ $1 ] $+ .pot* ]
unset %nlhe. [ $+ [ $1 ] $+ .playerspot* ]
unset %nlhe. [ $+ [ $1 ] $+ .allallin ]
var %cb = [ %nlhe. [ $+ [ $1 ] $+ .blind ] ], %nb = [ %nlhe. [ $+ [ $1 ] $+ .nextblind ] ]
if (%nb > %cb) {
set %nlhe. [ $+ [ $1 ] $+ .blind ] %nb
nlhe.msg $1 The blinds are going up. They are now at: $+ $round($calc(%nb / 2),0) $+ / $+ %nb $+ .
var %allplist = [ %nlhe. [ $+ [ $1 ] $+ .players ] ], %nump = $numtok(%allplist,32), %i = 1, %totalm = 0
while ($gettok(%allplist,%i,32)) {
var %c = $ifmatch
inc %totalm [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] ] ]
inc %i
}
var %avg = $round($calc(%totalm / %nump),0)
var %tnb = $nlhe.nxtblind(%nb)
if ($calc(%avg / %tnb) < 10) {
nlhe.msg $1 The blinds have reached their maximum.
.timernlhe. $+ $1 $+ .blinds off
}
else {
%tnb = $nlhe.nxtblind(%tnb)
if ($calc(%avg / %tnb) < 10) {
var %tname = nlhe. $+ $1 $+ .blinds
if ($timer(%tname)) {
var %cdelay = $round($calc($timer(%tname).delay / 60),0)
var %cstat = $timer(%tname).type
if (%cstat == offline) {
.timer $+ %tname off
.timer $+ %tname 0 $calc(%cdelay * 120) nlhe.raiseblinds $1
nlhe.msg $1 $+ $calc(%cdelay * 2) minutes remain until the blinds reach their maximum.
}
else {
nlhe.msg $1 The blinds will be raised once more, because the number of players has decreased.
nlhe.msg $1 $+ %cdelay minutes remain until the blinds reach their maximum.
}
}
}
}
}
set %nlhe. [ $+ [ $1 ] $+ .playerspot ] [ %nlhe. [ $+ [ $1 ] $+ .players ] ]
set %nlhe. [ $+ [ $1 ] $+ .button ] $nlhe.nextp($1,pot,[ %nlhe. [ $+ [ $1 ] $+ .button ] ])
if ($numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32) == 2) {
set %nlhe. [ $+ [ $1 ] $+ .sb ] [ %nlhe. [ $+ [ $1 ] $+ .button ] ]
set %nlhe. [ $+ [ $1 ] $+ .bb ] $nlhe.nextp($1,pot,[ %nlhe. [ $+ [ $1 ] $+ .sb ] ])
}
else {
set %nlhe. [ $+ [ $1 ] $+ .sb ] $nlhe.nextp($1,pot,[ %nlhe. [ $+ [ $1 ] $+ .button ] ])
set %nlhe. [ $+ [ $1 ] $+ .bb ] $nlhe.nextp($1,pot,[ %nlhe. [ $+ [ $1 ] $+ .sb ] ])
}
var %dck = 2c 3c 4c 5c 6c 7c 8c 9c Tc Jc Qc Kc Ac 2d 3d 4d 5d 6d 7d 8d 9d Td Jd Qd Kd Ad 2h 3h 4h 5h 6h 7h 8h 9h Th Jh Qh Kh Ah 2s 3s 4s 5s 6s 7s 8s 9s Ts Js Qs Ks As
while (%dck) {
var %rd = $rand(1,$numtok(%dck,32))
var %sdck = %sdck $gettok(%dck,%rd,32)
var %dck = $deltok(%dck,%rd,32)
}
hadd -m nlhe. $+ $1 deck %sdck
var %oldmsgdelay = %nlhe.msgdelay
set %nlhe.msgdelay 5000
nlhe.msg $1 Players
set %nlhe.msgdelay %oldmsgdelay
var %i = 0
while (%i < $numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32)) {
inc %i
var %c = $gettok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],%i,32), %prefix = ___
var %clist = %clist [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] ] ]
hadd nlhe. $+ $1 %c $nlhe.takecard($1) $nlhe.takecard($1)
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot1 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot2 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot3 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot4 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot5 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot6 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot7 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot8 ] 0
set %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .investedpot9 ] 0
if (%c == [ %nlhe. [ $+ [ $1 ] $+ .sb ] ]) { %prefix = SB: }
if (%c == [ %nlhe. [ $+ [ $1 ] $+ .bb ] ]) { %prefix = BB: }
if (%c == [ %nlhe. [ $+ [ $1 ] $+ .button ] ]) { %prefix = DB: }
nlhe.msg $1 $+ %prefix $chr(36) $+ ! $+ [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] ] ] %c $+ $iif([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %c ] $+ .sitout ] ],$chr(32) $+ - sitting out) $+
nlhe.notice $1 %c Your cards are: $nlhe.colorcards($hget(nlhe. $+ $1,%c))
}
set %nlhe. [ $+ [ $1 ] $+ .turn ] [ %nlhe. [ $+ [ $1 ] $+ .bb ] ]
set %nlhe. [ $+ [ $1 ] $+ .stage ] preflop
nlhe.action $1 [ %nlhe. [ $+ [ $1 ] $+ .sb ] ] sb
}
}
alias nlhe.nextturn {
if ([ %nlhe. [ $+ [ $1 ] $+ .running ] ]) {
.timernlhe. $+ $1 $+ .turn* off
var %current = [ %nlhe. [ $+ [ $1 ] $+ .turn ] ], %next = $nlhe.nextp($1,pot,%current)
set %nlhe. [ $+ [ $1 ] $+ .turn ] %next
if ($numtok([ %nlhe. [ $+ [ $1 ] $+ .playerspot ] ],32) < 2) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
if (%current == %next) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
if ($nlhe.nextp($1,pot,%next) == %next) {
var %xbet = [ %nlhe. [ $+ [ $1 ] $+ .betpot ] ], %xmoney = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] ] ], %xinv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] $+ .investedpot ] ]
if (%xinv == $null) { %xinv = 0 }
var %i = ""
while ((%i < 10) || (!%i)) {
var %cinvv = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] $+ .investedpot $+ [ %i ] ] ]
var %cbett = $iif([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .allinamountpot $+ [ %i ] ] ],[ %nlhe. [ $+ [ $1 ] $+ .betpot $+ [ %i ] ] ])
if (%cinvv < %cbett) {
var %totalbet = $calc(%totalbet + %cbett)
var %totalinv = $calc(%totalinv + %cinvv)
var %amount = $calc(%amount + %cbett - %cinvv)
}
inc %i
}
if (!%amount) {
var %amount = $calc(%xbet - %xinv)
}
if (!%amount) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
}
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] $+ .action ] ] == raise) {
var %loopcheck = $nlhe.nextp($1,pot,%next), %nextst = 1
while (%loopcheck != %next) {
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %loopcheck ] $+ .action ] ] == call) {
var %nextst = 1
}
else {
var %nextst = 0
goto loopout
}
%loopcheck = $nlhe.nextp($1,pot,%loopcheck)
}
if (%nextst) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
}
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] $+ .action ] ] == call) {
var %loopcheck = $nlhe.nextp($1,pot,%next), %nextst = 1
while (%loopcheck != %next) {
if (([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %loopcheck ] $+ .action ] ] == call) || ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %loopcheck ] $+ .action ] ] == raise)) {
var %nextst = 1
}
else {
var %nextst = 0
goto loopout
}
%loopcheck = $nlhe.nextp($1,pot,%loopcheck)
}
if (%nextst) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
}
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] $+ .action ] ] == check) {
var %loopcheck = $nlhe.nextp($1,pot,%next), %nextst = 1
while (%loopcheck != %next) {
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %loopcheck ] $+ .action ] ] == check) {
var %nextst = 1
}
else {
var %nextst = 0
goto loopout
}
%loopcheck = $nlhe.nextp($1,pot,%loopcheck)
}
if (%nextst) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
}
:loopout
if ([ %nlhe. [ $+ [ $1 ] $+ .stage ] ] == preflop) {
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %current ] $+ .action ] ] == check) {
unset %nlhe. [ $+ [ $1 ] $+ .turn ]
nlhe.nextstage $1
return
}
}
var %sitout = [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %next ] $+ .sitout ] ]
if (%sitout) {
var %allplayers = [ %nlhe. [ $+ [ $1 ] $+ .players ] ], %p = 1, %sit = 0
while ($gettok(%allplayers,%p,32)) {
var %player = $ifmatch
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %player ] $+ .sitout ] ]) { inc %sit }
inc %p
}
if (%sit == $numtok(%allplayers,32)) {
nlhe.msg $1 Everyone's sitting out...
nlhe.notice $1 %next It's your turn.
}
else {
.timer -dom 1 [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ] nlhe.action $1 %next fold
}
}
else {
var %msgt = [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ]
%msgt = $round($calc(%msgt / 1000),0)
var %tta = $calc($iif(1 // %nlhe.timetoact && %nlhe.timetoact > 9,%nlhe.timetoact,60) + %msgt)
if (([ %nlhe. [ $+ [ $1 ] $+ . $+ [ $nlhe.nextp($1,pot,%next) ] $+ .sitout ] ]) && ($numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32) == 2)) {
nlhe.msg $1 Waiting for $nlhe.nextp($1,pot,%next) to return...
}
else {
.timernlhe. $+ $1 $+ .turn2 -do 1 $calc(%tta -12) nlhe.notice $1 %next 04You have 10 seconds left to act. $chr(124) nlhe.msg $1 $+ %next has 10 seconds left to act...
.timernlhe. $+ $1 $+ .turn -do 1 %tta nlhe.msg $1 $+ %next took longer than $calc(%tta - %msgt) seconds to act. $chr(124) nlhe.sitout $1 %next out
nlhe.notice $1 %next It's your turn.
}
}
}
}
alias nlhe.nextstage {
unset %nlhe. [ $+ [ $1 ] $+ .raiser ]
unset %nlhe. [ $+ [ $1 ] $+ .betpot* ]
unset %nlhe. [ $+ [ $1 ] $+ .*.action ]
unset %nlhe. [ $+ [ $1 ] $+ .*.raiseamount ]
var %i = ""
while ((%i < 10) || (!%i)) {
var %allplayers = [ %nlhe. [ $+ [ $1 ] $+ .playerspot $+ [ %i ] ] ]
if (([ %nlhe. [ $+ [ $1 ] $+ .allinpot $+ [ %i ] ] ] == $null) && (%allplayers)) {
var %j = 1
while ($gettok(%allplayers,%j,32)) {
set %nlhe. [ $+ [ $1 ] $+ . $+ [ $ifmatch ] $+ .investedpot $+ [ %i ] ] 0
inc %j
}
}
inc %i
}
if ($numtok([ %nlhe. [ $+ [ $1 ] $+ .playerspot ] ],32) < 2) {
nlhe.distributepots $1
}
else {
set %nlhe. [ $+ [ $1 ] $+ .turn ] $nlhe.prevp($1,pot,$nlhe.nextp($1,pot,[ %nlhe. [ $+ [ $1 ] $+ .button ] ]))
var %current = [ %nlhe. [ $+ [ $1 ] $+ .turn ] ], %next = $nlhe.nextp($1,pot,%current)
var %cstage = [ %nlhe. [ $+ [ $1 ] $+ .stage ] ]
if (%cstage == preflop) {
set %nlhe. [ $+ [ $1 ] $+ .stage ] flop
set %nlhe. [ $+ [ $1 ] $+ .board ] $nlhe.takecard($1) $nlhe.takecard($1) $nlhe.takecard($1)
}
if (%cstage == flop) {
set %nlhe. [ $+ [ $1 ] $+ .stage ] turn
set %nlhe. [ $+ [ $1 ] $+ .board ] [ %nlhe. [ $+ [ $1 ] $+ .board ] ] $nlhe.takecard($1)
}
if (%cstage == turn) {
set %nlhe. [ $+ [ $1 ] $+ .stage ] river
set %nlhe. [ $+ [ $1 ] $+ .board ] [ %nlhe. [ $+ [ $1 ] $+ .board ] ] $nlhe.takecard($1)
}
if (%cstage == river) {
nlhe.distributepots $1
return
}
var %ai = [ %nlhe. [ $+ [ $1 ] $+ .allallin ] ]
if ((%current == %next) && (!%ai)) {
set %nlhe. [ $+ [ $1 ] $+ .allallin ] 1
%ai = 1
var %allplayers = [ %nlhe. [ $+ [ $1 ] $+ .playerspot ] ], %p = 1
while ($gettok(%allplayers,%p,32)) {
var %player = $ifmatch, %cards = $hget(nlhe. $+ $1,%player)
nlhe.msg $1 $+ %player $+ shows: $nlhe.colorcards(%cards) $+ .
inc %p
}
nlhe.msg $1 Here we go...
}
if (!%ai) {
var %i = ""
while ((%i < 10) || (!%i)) {
var %pot = pot $+ %i
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %pot ] ] ]) {
nlhe.msg $1 The $iif(%i,side pot %i,pot) contains: $ $+ [ %nlhe. [ $+ [ $1 ] $+ . $+ [ %pot ] ] ] $+ . Players in the pot: $+ $sorttok([ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %pot ] ] ],32) $+ .
}
inc %i
}
}
else {
var %oldmsgdelay = %nlhe.msgdelay
set %nlhe.msgdelay 10000
}
nlhe.msg $1 The board is: $nlhe.colorcards([ %nlhe. [ $+ [ $1 ] $+ .board ] ])
if (%oldmsgdelay != $null) {
set %nlhe.msgdelay %oldmsgdelay
}
.timer -m 1 1 nlhe.nextturn $1
}
}
alias nlhe.distributepots {
var %i = "", %board = [ %nlhe. [ $+ [ $1 ] $+ .board ] ], %p = 1
var %allplayers = [ %nlhe. [ $+ [ $1 ] $+ .playerspot ] ]
if ($numtok(%allplayers,32) == 1) {
while ((%i < 10) || (!%i)) {
var %pot = pot $+ %i
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %pot ] ] ]) {
var %cpotamount = $ifmatch
nlhe.msg $1 $+ %allplayers $+ wins the $iif($remove(%pot,pot),side pot $remove(%pot,pot),pot) of $ $+ %cpotamount $+ .
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ %allplayers ] ] %cpotamount
}
inc %i
}
}
else {
while ($gettok(%allplayers,%p,32)) {
var %player = $ifmatch, %cards = $hget(nlhe. $+ $1,%player)
var %value. [ $+ [ %player ] ] $nlhe.ranking(%board %cards)
if (($gettok([ %value. [ $+ [ %player ] ] ],1,46) > 3) || ($gettok([ %value. [ $+ [ %player ] ] ],1,46) == 2)) {
var %fora = 1
}
else {
var %fora = 0
}
nlhe.msg $1 $+ %player $+ has $nlhe.colorcards(%cards) for $+ $iif(%fora,$chr(32) $+ a) $+ : $nlhe.valuewords([ %value. [ $+ [ %player ] ] ]) $+ .
inc %p
}
while ((%i < 10) || (!%i)) {
var %pot = pot $+ %i
var %decced = 0
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %pot ] ] ]) {
var %cpotamount = $ifmatch, %cplayers = [ %nlhe. [ $+ [ $1 ] $+ .players $+ [ %pot ] ] ]
var %j = 1
while ($gettok(%cplayers,%j,32)) {
var %cplayer = $ifmatch
var %values = %values [ %value. [ $+ [ %cplayer ] ] ]
inc %j
}
var %winners = $nlhe.showdown(%values)
if ($numtok(%winners,32) > 1) {
var %w = 1
while ($gettok(%winners,%w,32)) {
var %cwinner = $gettok(%cplayers,$ifmatch,32)
var %winamount = $calc(%cpotamount / $numtok(%winners,32))
if (!%decced) {
var %dec = $round($calc((%winamount - $int(%winamount)) * $numtok(%winners,32)),0)
if (%dec) {
var %winamount = $calc($int(%winamount) + %dec)
}
%decced = 1
}
else {
var %winamount = $int(%winamount)
}
nlhe.msg $1 $+ %cwinner $+ ties for the $iif($remove(%pot,pot),side pot $remove(%pot,pot),pot) and wins $ $+ %winamount $+ .
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ %cwinner ] ] %winamount
inc %w
}
}
else {
var %cwinner = $gettok(%cplayers,%winners,32)
nlhe.msg $1 $+ %cwinner $+ wins the $iif($remove(%pot,pot),side pot $remove(%pot,pot),pot) of $ $+ %cpotamount $+ .
inc %nlhe. [ $+ [ $1 ] $+ . $+ [ %cwinner ] ] %cpotamount
}
var %values = ""
}
inc %i
}
}
var %b = 1, %allp = [ %nlhe. [ $+ [ $1 ] $+ .players ] ]
while ($gettok(%allp,%b,32)) {
var %player = $ifmatch
if ([ %nlhe. [ $+ [ $1 ] $+ . $+ [ %player ] ] ] < 1) {
nlhe.msg $1 $+ %player $+ has gone busted! Bye bye.
if ([ %nlhe. [ $+ [ $1 ] $+ .button ] ] == %player) {
set %nlhe. [ $+ [ $1 ] $+ .button ] $nlhe.prevp($1,pot,%player)
}
set %nlhe. [ $+ [ $1 ] $+ .players ] $remtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],%player,1,32)
unset %nlhe. [ $+ [ $1 ] $+ . $+ [ %player ] $+ * ]
}
inc %b
}
if ($numtok([ %nlhe. [ $+ [ $1 ] $+ .players ] ],32) < 2) {
nlhe.msg $1 $+ [ %nlhe. [ $+ [ $1 ] $+ .players ] ] $+ has won the game!
var %msgt = [ %nlhe. [ $+ [ $1 ] $+ .msgtime ] ]
unset %nlhe. [ $+ [ $1 ] $+ .* ]
hfree -w nlhe. $+ $1
.timernlhe. $+ $1 $+ .blinds off
.timernlhe. $+ $1 $+ .turn* off
if (%msgt) { set %nlhe. [ $+ [ $1 ] $+ .msgtime ] %msgt }
return
}
nlhe.nextround $1
}