blackjack 856 B

12345678910111213141516171819202122232425262728293031323334
  1. # blackjack
  2. gs 'stat'
  3. num = 1
  4. :markcard
  5. papkarand[num] = rand(0, 4)
  6. if papkarand[num] = 0:$papkacard[num] = 'a'
  7. if papkarand[num] = 1:$papkacard[num] = 'b'
  8. if papkarand[num] = 2:$papkacard[num] = 'c'
  9. if papkarand[num] = 3:$papkacard[num] = 'd'
  10. if papkarand[num] = 4:$papkacard[num] = 'j'
  11. if papkarand[num] = 4:
  12. numcard[num] = rand(1, 2)
  13. nomcard[num] = 10
  14. else
  15. numcard[num] = rand(2, 14)
  16. if numcard[num] < 10:nomcard[num] = numcard[num]
  17. if numcard[num] >= 10:nomcard[num] = 10
  18. end
  19. num += 1
  20. if num < 10:jump 'markcard'
  21. sumcard = nomcard[1]+nomcard[2]
  22. '<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>'
  23. 'denomination cards <<sumcard>>'
  24. act 'Remove card':gt $loc
  25. --- blackjack ---------------------------------