| 123456789101112131415161718192021222324252627282930313233 |
- # 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'
- sumcard = nomcard[1]+nomcard[2]
- '<center><img src="images/qwest/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg"><img src="images/qwest/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg"></center>'
- 'denomination cards <<sumcard>>'
- act 'Remove card':gt $loc
- --- blackjack ---------------------------------
|
