1
0

card.qsrc 2.0 KB

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