card 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960
  1. # card
  2. gs 'stat'
  3. act 'Pull the card':
  4. cls
  5. you_slut += 1
  6. !!if you_slut < 10:end
  7. if you_slut >= 10 and you_slut < 20:
  8. horny += 1
  9. elseif you_slut >= 20 and you_slut < 30:
  10. horny += 2
  11. elseif you_slut >= 30 and you_slut < 40:
  12. horny += 3
  13. elseif you_slut >= 40 and you_slut < 50:
  14. horny += 4
  15. elseif you_slut >= 50 and you_slut < 60:
  16. horny += 5
  17. elseif you_slut >= 60 and you_slut < 70:
  18. horny += 6
  19. elseif you_slut >= 70 and you_slut < 80:
  20. horny += 7
  21. elseif you_slut >= 80 and you_slut < 90:
  22. horny += 8
  23. elseif you_slut >= 90 and you_slut < 100:
  24. horny += 9
  25. elseif you_slut >= 100:
  26. horny += 10
  27. end
  28. minut += 1
  29. gs 'stat'
  30. papkarand = rand(0, 4)
  31. if papkarand = 0:$papkacard = 'a'
  32. if papkarand = 1:$papkacard = 'b'
  33. if papkarand = 2:$papkacard = 'c'
  34. if papkarand = 3:$papkacard = 'd'
  35. if papkarand = 4:$papkacard = 'j'
  36. if papkarand = 4:
  37. numcard = rand(1, 2)
  38. nomcard = 10
  39. else
  40. numcard = rand(2, 14)
  41. if numcard < 10:nomcard = numcard
  42. if numcard >= 10:nomcard = 10
  43. end
  44. '<center><img src="images/qwest/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
  45. 'Denomination card <<nomcard>>'
  46. act 'Put in the stocks':gt $curloc
  47. end
  48. act 'remove card':gt $loc
  49. !!act 'Playing cards':gt 'blackjack'
  50. --- card ---------------------------------