blackjack.qsrc 936 B

123456789101112131415161718192021222324252627282930313233343536
  1. # blackjack
  2. menu_off = 1
  3. gs 'stat'
  4. num = 1
  5. :markcard
  6. papkarand[num] = rand(0, 4)
  7. if papkarand[num] = 0:$papkacard[num] = 'a'
  8. if papkarand[num] = 1:$papkacard[num] = 'b'
  9. if papkarand[num] = 2:$papkacard[num] = 'c'
  10. if papkarand[num] = 3:$papkacard[num] = 'd'
  11. if papkarand[num] = 4:$papkacard[num] = 'j'
  12. if papkarand[num] = 4:
  13. numcard[num] = rand(1, 2)
  14. nomcard[num] = 10
  15. else
  16. numcard[num] = rand(2, 14)
  17. if numcard[num] < 10:nomcard[num] = numcard[num]
  18. if numcard[num] >= 10:nomcard[num] = 10
  19. end
  20. num += 1
  21. if num < 10:jump 'markcard'
  22. sumcard = nomcard[1]+nomcard[2]
  23. '<center><img <<$set_imgh>> src="images/shared/accessories/cards/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg"><img <<$set_imgh>> src="images/shared/accessories/cards/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg"></center>'
  24. 'denomination cards <<sumcard>>'
  25. act 'Remove card':gt $loc
  26. --- blackjack ---------------------------------