card.qsrc 1.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071
  1. # card
  2. gs 'stat'
  3. act 'Pull a card from the deck':
  4. cls
  5. you_slut += 1
  6. !!if you_slut < 10:end
  7. if you_slut >= 10 and you_slut < 20:
  8. pcs_horny += 1
  9. elseif you_slut >= 20 and you_slut < 30:
  10. pcs_horny += 2
  11. elseif you_slut >= 30 and you_slut < 40:
  12. pcs_horny += 3
  13. elseif you_slut >= 40 and you_slut < 50:
  14. pcs_horny += 4
  15. elseif you_slut >= 50 and you_slut < 60:
  16. pcs_horny += 5
  17. elseif you_slut >= 60 and you_slut < 70:
  18. pcs_horny += 6
  19. elseif you_slut >= 70 and you_slut < 80:
  20. pcs_horny += 7
  21. elseif you_slut >= 80 and you_slut < 90:
  22. pcs_horny += 8
  23. elseif you_slut >= 90 and you_slut < 100:
  24. pcs_horny += 9
  25. elseif you_slut >= 100:
  26. pcs_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. if card_deck = 0:
  45. '<center><img <<$set_imgh>> src="images/shared/accessories/cards/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
  46. elseif card_deck = 1:
  47. '<center><img <<$set_imgh>> src="images/shared/accessories/cards/card2/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
  48. end
  49. 'Denomination card <<nomcard>>'
  50. act 'Put the card back into the deck':gt 'card'
  51. end
  52. act 'Put the cards away':gt $loc
  53. if card_deck = 0:
  54. act 'Throw away your deck of vintage porn cards': vcard = 0 & vcard_trash = 1 & gt $loc
  55. elseif card_deck = 1:
  56. act 'Throw away your deck of new porn cards': card = 0 & gt $loc
  57. end
  58. !!act 'Playing cards':gt 'blackjack'
  59. --- card ---------------------------------