card 730 B

123456789101112131415161718192021222324252627282930313233343536
  1. # card
  2. gs 'stat'
  3. act 'Pull the card':
  4. cls
  5. dynamic $d_slut_horny
  6. minut += 1
  7. gs 'stat'
  8. papkarand = rand(0, 4)
  9. if papkarand = 0:$papkacard = 'a'
  10. if papkarand = 1:$papkacard = 'b'
  11. if papkarand = 2:$papkacard = 'c'
  12. if papkarand = 3:$papkacard = 'd'
  13. if papkarand = 4:$papkacard = 'j'
  14. if papkarand = 4:
  15. numcard = rand(1, 2)
  16. nomcard = 10
  17. else
  18. numcard = rand(2, 14)
  19. if numcard < 10:nomcard = numcard
  20. if numcard >= 10:nomcard = 10
  21. end
  22. '<center><img src="images/qwest/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
  23. 'Denomination card <<nomcard>>'
  24. act 'Put in the stocks':gt $curloc
  25. end
  26. act 'remove card':gt $loc
  27. !!act 'Playing cards':gt 'blackjack'
  28. --- card ---------------------------------