Zoluren Hold 'Em Poker for Genie Client

#debug 10

var C1 Two of Diamonds
var C2 Three of Diamonds
var C3 Four of Diamonds
var C4 Five of Diamonds
var C5 Six of Diamonds
var C6 Seven of Diamonds
var C7 Eight of Diamonds
var C8 Nine of Diamonds
var C9 Ten of Diamonds
var C10 Jack of Diamonds
var C11 Queen of Diamonds
var C12 King of Diamonds
var C13 Ace of Diamonds
var C14 Two of Hearts
var C15 Three of Hearts
var C16 Four of Hearts
var C17 Five of Hearts
var C18 Six of Hearts
var C19 Seven of Hearts
var C20 Eight of Hearts
var C21 Nine of Hearts
var C22 Ten of Hearts
var C23 Jack of Hearts
var C24 Queen of Hearts
var C25 King of Hearts
var C26 Ace of Hearts
var C27 Two of Spades
var C28 Three of Spades
var C29 Four of Spades
var C30 Five of Spades
var C31 Six of Spades
var C32 Seven of Spades
var C33 Eight of Spades
var C34 Nine of Spades
var C35 Ten of Spades
var C36 Jack of Spades
var C37 Queen of Spades
var C38 King of Spades
var C39 Ace of Spades
var C40 Two of Clubs
var C41 Three of Clubs
var C42 Four of Clubs
var C43 Five of Clubs
var C44 Six of Clubs
var C45 Seven of Clubs
var C46 Eight of Clubs
var C47 Nine of Clubs
var C48 Ten of Clubs
var C49 Jack of Clubs
var C50 Queen of Clubs
var C51 King of Clubs
var C52 Ace of Clubs
var 1inplay 0
var 2inplay 0
var 3inplay 0
var 4inplay 0
var 5inplay 0
var 6inplay 0
var 7inplay 0
var 8inplay 0
var 9inplay 0
var 10inplay 0
var 11inplay 0
var 12inplay 0
var 13inplay 0
var 14inplay 0
var 15inplay 0
var 16inplay 0
var 17inplay 0
var 18inplay 0
var 19inplay 0
var 20inplay 0
var 21inplay 0
var 22inplay 0
var 23inplay 0
var 24inplay 0
var 25inplay 0
var 26inplay 0
var 27inplay 0
var 28inplay 0
var 29inplay 0
var 30inplay 0
var 31inplay 0
var 32inplay 0
var 33inplay 0
var 34inplay 0
var 35inplay 0
var 36inplay 0
var 37inplay 0
var 38inplay 0
var 39inplay 0
var 40inplay 0
var 41inplay 0
var 42inplay 0
var 43inplay 0
var 44inplay 0
var 45inplay 0
var 46inplay 0
var 47inplay 0
var 48inplay 0
var 49inplay 0
var 50inplay 0
var 51inplay 0
var 52inplay 0
var PLAYER1 %1
var PLAYER2 %2
var PLAYER3 %3
var PLAYER4 %4
var PLAYER5 %5
var DEALTPLAYER1 0
var DEALTPLAYER2 0
var DEALTPLAYER3 0
var DEALTPLAYER4 0
var DEALTPLAYER5 0
var CURRENTCARD 0
math PNUMBER set 0
math CARD set 0
math TABLE set 0

echo
if_1 then echo Player One is %PLAYER1
if_2 then echo Player Two is %PLAYER2
if_3 then echo Player Three is %PLAYER3
if_4 then echo Player Four is %PLAYER4
if_5 then echo Player Five is %PLAYER5
echo

START:
if_5 then
	{
	put act shuffles the deck and deals the cards to %PLAYER1, %PLAYER2, %PLAYER3, %PLAYER4, and %PLAYER5.
	goto PULLCARD
	}
if_4 then
	{
	put act shuffles the deck and deals the cards to %PLAYER1, %PLAYER2, %PLAYER3, and %PLAYER4.
	goto PULLCARD
	}
if_3 then
	{
	put act shuffles the deck and deals the cards to %PLAYER1, %PLAYER2, and %PLAYER3.
	goto PULLCARD
	}
if_2 then
	{
	put act shuffles the deck and deals the cards to %PLAYER1 and %PLAYER2.
	goto PULLCARD
	}
ECHO
ECHO
ECHO
ECHO You need more than one player!
ECHO
ECHO
ECHO
exit


PULLCARD:
if %CARD = 52 then goto END2
random 1 52
if %%rinplay = 1 then
	{
	goto PULLCARD
	}
var CURRENTCARD %C%r
var %rinplay 1
math CARD add 1
gosub CHECK

DEALCARD:
pause 1.5
math PNUMBER add 1
put #echo >Familiar %CURRENTCARD goes to %PLAYER%PNUMBER
put whisper %PLAYER%PNUMBER You have the %CURRENTCARD.
math DEALTPLAYER%PNUMBER add 1
gosub PLAYERCOUNT
goto PULLCARD

PLAYERCOUNT:
if_5 then
	{
	if %PNUMBER = 5 then math PNUMBER set 0
	return
	}
if_4 then
	{
	if %PNUMBER = 4 then math PNUMBER set 0
	return
	}
if_3 then
	{
	if %PNUMBER = 3 then math PNUMBER set 0
	return
	}
if_2 then
	{
	if %PNUMBER = 2 then math PNUMBER set 0
	return
	}
return

CHECK:
if_5 then
	{
	if %DEALTPLAYER5 = 2 then goto DEALTABLE
	return
	}
if_4 then
	{
	if %DEALTPLAYER4 = 2 then goto DEALTABLE
	return
	}
if_3 then
	{
	if %DEALTPLAYER3 = 2 then goto DEALTABLE
	return
	}
if_2 then
	{
	if %DEALTPLAYER2 = 2 then goto DEALTABLE
	return
	}
return

DEALTABLE:
pause 2
echo
echo Type "#parse DEAL" or click below to deal another card to the table.
echo
put #link DEAL #parse DEAL
echo
waitfor DEAL
math TABLE add 1
put #echo >Familiar %CURRENTCARD is in the hole.
put act lays the %CURRENTCARD down for all to see.
if %TABLE = 5 then goto END
goto PULLCARD

END:
echo
echo Dealer's job done!
echo
exit

END2:
echo
echo Somehow, you ran out of cards.
echo
exit