Gosub Setup
Gosub deal %Player1 2
;display ok %player1 got %darklotuscs1 and %darklotuscs2
Gosub deal %Player2 2
;display ok %player2 got %PCcs1 and %PCcs2
Gosub deal Flop 3
;display ok Flop was %flopCS1 %flopcs2 %flopcs3
Gosub Deal turn 1
Gosub deal river 1
;display ok Turn was %TurnCS1 and river %rivercs1
gosub test %player1
gosub test %player2
display ok Lotus score was %darklotusscore PC score was %PCscore
halt
sub test
set %comcards %flopcs1 , _ , %flopcs2 , _ , %flopcs3 , _ , %turncs1 , _ , %rivercs1
set %comcards2 %flopcard1 , _ , %flopcard2 , _ , %flopcard3 , _ , %turncard1 , _ , %rivercard1
set %comparecard1 %1 , card1 ; test1 is the face value of players card
set %comparecard2 %1 , card2 ; test1 is the face value of players card
set %prescore %1 , card1
set % . %1 , Score Highcard , #spc , % . %prescore
if % . %comparecard1 in %comcards2
{
set %prescore %1 , card1
set %score % . %prescore
set % . %1 , Score Pairof , _ , %score
}
if % . %comparecard2 in %comcards2
{
set %prescore %1 , card2
set %score % . %prescore
str count %comcards2 %score
if #strres = 2
set % . %1 , Trips , _ , %score
set % . %1 , Score Pairof , _ , %score
}
set % . %1 , Hand
return
Sub deal
set %tempplayer %1
for %x 1 %2
{
deal:
set %ran #random % 15
if %ran > 13 || %ran < 1
goto deal
deal2:
set %sran #random % 10
if %sran > 4 || %sran < 1
goto deal2
if %ran , %sran in %dealt
goto deal
set %dealt %dealt , _ , %ran , %sran
set %tempsuit %suit . %sran
set %tempcard %card . %ran
set % . %1 , card . %x %tempcard
set % . %1 , cardnum . %x %ran
set % . %1 , suit . %x %suit . %sran
set % . %1 , CS , %x %tempcard , _ , %tempsuit
}
return
Sub Setup
set %dealt _
set %player1 Darklotus
set %player2 PC
set %suit1 H
set %suit2 D
set %suit3 C
set %suit4 S
set %cards a123456789_10_jqk
set %cardsT ah_1h_2h_3h_4h_5h
set %card1 A
set %card2 2
set %card3 3
set %card4 4
set %card5 5
set %card6 6
set %card7 7
set %card8 8
set %card9 9
set %card10 10
set %card11 J
set %card12 Q
set %card13 K
return