I won't give any script away, I will however help anyone make a script.
Giving away scripts helps no-one, especially the person who receives it. You learn nothing, working (like Geo is) to make a script and learning the way its done is beneficial to everyone, as is soon makes another person who can script.
What I did with BlackJack.. was..
Text File with 52 Cards in it.. like so
[Cards]
1=AC
2=2C
3=3C
4=4C...
11=JC
12=QC
13=KC
14=AD
15=2D
etc..
You get the jist.., then in the same file, I created a list of Card Values..
[Values]
1=1
2=2
3=3
4=4...
11=10
12=10
13=10
14=1
15=2
etc..
So.. in the text file, I had 52 numbers for Cards under [Cards] and 52 numbers for the values of those Cards under [Values]
Then I simply load up a card using..
Movr D0 51
Inc D0 1
LoadValue A1 [QuestDiary/Gamblers/CardVariables.txt] [Cards] %D0
LoadValue D1 [QuestDiary/Gamblers/CardVariables.txt] [Values] %D0
Now, I have a Card Stored in A1 and the Value of that Card in D1
Movr D0 51
Inc D0 1
LoadValue A9 [QuestDiary/Gamblers/CardVariables.txt] [Cards] %D0
LoadValue D9 [QuestDiary/Gamblers/CardVariables.txt] [Values] %D0
Inc D1 %D9
AddStr A1 " - "
AddStr A1 %A9
Now I have 2 Cards Stored...
A1 Contains the Cards i.e. "QD - A1"
D1 Contains the Values i.e. "11"
(Players Cards Sorted)
Do the same for A2 and D2 for the Dealer
Now you have 2 sets of cards, one for you and one for the Dealer..
Now, its time to do some Math..
#IF
Equal D1 11
!Equal D2 11
#ACT
Inc D1 10
Break
#SAY
You have BlackJack.. \
You Win...\
#IF
!Equal D1 11
Equal D2 11
#ACT
Inc D2 10
Break
#SAY
Dealer has BlackJack.. \
You Lost...\
#IF
Equal D1 11
Equal D2 11
#ACT
Inc D1 10
Inc D2 10
Break
#SAY
You Both Have BlackJack.. \
Push....\
#IF
#ACT
Goto @Loop
[@Loop]
<DRAW>
<STAND>
[@Draw]
#IF
#ACT
Add Another Card to the Variables D1 and A1
#IF
ELarge D1 22
#ACT
Break
#SAY
You have over 21!!! You Lost!!\
#IF
#ACT
Goto @Loop
[@Stand]
Show Players Cards and Value..
Goto @DealerLoop
[@DealerLoop]
#IF
ESmall D2 16
#ACT
Add Another Card to the Variables D1 and A1
#IF
ELarge D2 22
#ACT
Break
#SAY
Dealer has over 21!!! You Win!!\
#IF
ELarge D2 17
#ACT
Goto @CheckWinner
Break
#IF
#ACT
Goto @DealerLoop
[@CheckWinner]
#IF
Equal D1 %D2
#ACT
Break
#SAY
Push..
#IF
Large D1 %D2
#ACT
Break
#SAY
You Win
#IF
Large D2 %D1
#ACT
Break
#SAY
You Lose
Now.. You just need to change that lot into Mir Language, and add in the option of if either player gets an 11 they can count it as 1 or 11 and away you go..
P.S. You can use SQL instead of a text file if you want..
Any Q's?