card.qsrc 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. # card
  2. menu_off = 1
  3. gs 'stat'
  4. act 'Put the cards away':gt $loc
  5. act 'Pull a card from the deck':
  6. *clr & cla
  7. you_slut += 1
  8. !!if you_slut < 10:end
  9. if you_slut >= 10 and you_slut < 20:
  10. pcs_horny += 1
  11. elseif you_slut >= 20 and you_slut < 30:
  12. pcs_horny += 2
  13. elseif you_slut >= 30 and you_slut < 40:
  14. pcs_horny += 3
  15. elseif you_slut >= 40 and you_slut < 50:
  16. pcs_horny += 4
  17. elseif you_slut >= 50 and you_slut < 60:
  18. pcs_horny += 5
  19. elseif you_slut >= 60 and you_slut < 70:
  20. pcs_horny += 6
  21. elseif you_slut >= 70 and you_slut < 80:
  22. pcs_horny += 7
  23. elseif you_slut >= 80 and you_slut < 90:
  24. pcs_horny += 8
  25. elseif you_slut >= 90 and you_slut < 100:
  26. pcs_horny += 9
  27. elseif you_slut >= 100:
  28. pcs_horny += 10
  29. end
  30. minut += 1
  31. gs 'stat'
  32. papkarand = rand(0, 4)
  33. if papkarand = 0:$papkacard = 'a'
  34. if papkarand = 1:$papkacard = 'b'
  35. if papkarand = 2:$papkacard = 'c'
  36. if papkarand = 3:$papkacard = 'd'
  37. if papkarand = 4:$papkacard = 'j'
  38. if papkarand = 4:
  39. numcard = rand(1, 2)
  40. nomcard = 10
  41. else
  42. numcard = rand(2, 14)
  43. if numcard < 10:nomcard = numcard
  44. if numcard >= 10:nomcard = 10
  45. end
  46. if card_deck = 0:
  47. '<center><img <<$set_imgh>> src="images/shared/accessories/cards/card/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
  48. elseif card_deck = 1:
  49. '<center><img <<$set_imgh>> src="images/shared/accessories/cards/card2/<<$papkacard>>/<<$papkacard>><<numcard>>.jpg"></center>'
  50. end
  51. 'Denomination card <<nomcard>>'
  52. act 'Put the card back into the deck':gt 'card'
  53. end
  54. if card_deck = 0:
  55. act 'Throw away your deck of vintage porn cards': vcard = 0 & vcard_trash = 1 & gt $loc
  56. elseif card_deck = 1:
  57. act 'Throw away your deck of new porn cards': card = 0 & gt $loc
  58. end
  59. --- card ---------------------------------