Code:
[@Main]
Double-For-Pet is a dice game that gives you the chance.\
Of obtaining 2 random pets, the cost to roll the dice is \
500,000 Gold. All you have to do is roll a double and \
Depending on what double you roll, this will dictate the strength\
Of your pet, do you want to try?\
<Yes/@Double> - <No/@main> - <Close/@exit>\
[@double]
#IF
CHECKSLAVECOUNT = 0
#ACT
GOTO @Double-1
#ELSEACT
GOTO @NOPET
[@NOPET]
Sorry,you already have pets.\
<Close/@exit>\
[@Double-1]
#IF
Checkgold 500000
#ACT
TAKE GOLD 500000
movr d0 6
movr d1 6
inc d0 1
inc d1 1
playdice 2 @DoublePlay
#SAY
OK, bets placed! Lets play some dice! <./@lowplay> \
#ELSESAY
You don't have enough gold to play. Please come back when you do. \ \
<Exit/@exit>
[@DoublePlay]
#IF
equal d0 1
equal d1 1
#ACT
GOTO @draw1
BREAK
#IF
equal d0 2
equal d1 2
#ACT
GOTO @draw2
BREAK
#IF
equal d0 3
equal d1 3
#ACT
GOTO @draw3
BREAK
#IF
equal d0 4
equal d1 4
#ACT
GOTO @draw4
BREAK
#IF
equal d0 5
equal d1 5
#ACT
GOTO @draw5
BREAK
#IF
equal d0 6
equal d1 6
#ACT
GOTO @draw6
BREAK
#ELSEACT
GOTO @Youlose
[@draw1]
#ACT
RECALLMOB Oma
#SAY
It's a Double! \ \
<$USERNAME> rolled: <$STR(D0)> \
<$USERNAME> rolled: <$STR(D1)> \ \
Here, take these pets. Play again?\ \
<Yes/@double> || <No/@exit>
[@draw2]
#ACT
RECALLMOB Oma
#SAY
It's a Double! \ \
<$USERNAME> rolled: <$STR(D0)> \
<$USERNAME> rolled: <$STR(D1)> \ \
Here, take these pets. Play again?\ \
<Yes/@double> || <No/@exit>
[@draw3]
#ACT
RECALLMOB Oma
#SAY
It's a Double! \ \
<$USERNAME> rolled: <$STR(D0)> \
<$USERNAME> rolled: <$STR(D1)> \ \
Here, take these pets. Play again?\ \
<Yes/@double> || <No/@exit>
[@draw4]
#ACT
RECALLMOB Oma
#SAY
It's a Double! \ \
<$USERNAME> rolled: <$STR(D0)> \
<$USERNAME> rolled: <$STR(D1)> \ \
Here, take these pets. Play again?\ \
<Yes/@double> || <No/@exit>
[@draw5]
#ACT
RECALLMOB Oma
#SAY
It's a Double! \ \
<$USERNAME> rolled: <$STR(D0)> \
<$USERNAME> rolled: <$STR(D1)> \ \
Here, take these pets. Play again?\ \
<Yes/@double> || <No/@exit>
[@draw6]
#ACT
RECALLMOB Oma
#SAY
It's a Double! \ \
<$USERNAME> rolled: <$STR(D0)> \
<$USERNAME> rolled: <$STR(D1)> \ \
Here, take these pets. Play again?\ \
<Yes/@double> || <No/@exit>
[@Youlose]
Unlucky, better luck next time <$USERNAME>.\ \
<Close/@exit>
Its a merchant aswell.
Any help appreciated,
Thanks.
