# blackjack
gs'stat'
num=1
:markcard
papkarand[num]=rand(0,4)
if papkarand[num]=0:$papkacard[num]='a'
if papkarand[num]=1:$papkacard[num]='b'
if papkarand[num]=2:$papkacard[num]='c'
if papkarand[num]=3:$papkacard[num]='d'
if papkarand[num]=4:$papkacard[num]='j'

if papkarand[num]=4:
numcard[num]=rand(1,2)
nomcard[num]=10
else
numcard[num]=rand(2,14)
if numcard[num]<10:nomcard[num]=numcard[num]
if numcard[num]>=10:nomcard[num]=10
end
num+=1
if num<10:jump'markcard'

'<center><img src="qwest/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg" ><img src="qwest/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg" ></center>'


sumcard=nomcard[1]+nomcard[2]
'denomination cards <<sumcard>>'

act'remove card':gt $loc

--- blackjack ---------------------------------