Gpornmark 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119
  1. # Gpornmark
  2. !{ change log
  3. March 31, 2016
  4. added rice wine quest section
  5. minor corrections to dialog
  6. }
  7. gs 'stat'
  8. 'The stall has shelves with a variety of porn magazines. A salesman with shifty eyes is watching over the stall.<br>'
  9. act 'Leave':gt 'Grinok'
  10. if card < 2 :
  11. 'On the counter you see a brand new pack of playing cards.'
  12. '<i>(small sticker with the inscription of the hand: 699)</i><br>'
  13. if money >= 699:
  14. act 'Buy cards':
  15. minut += 5
  16. money -= 699
  17. card = 2
  18. TimesBuyPorno += 1
  19. delact 'Buy cards'
  20. gs 'stat'
  21. 'You tried not to look into the eyes of the seller as you counted out the money. You took the cards and quickly hid it.'
  22. act 'Leave':gt 'Grinok'
  23. end
  24. end
  25. end
  26. if pornMagazine > 1:
  27. 'You haven''t finished looking at the magazine you already have and you don''t really feel like hanging around the porn dealer.'
  28. elseif pornMagazine = 1:
  29. 'You''ve read your porn mag until it is falling apart and you think it is time to buy a new one.'
  30. if money >= 500:
  31. act 'Buy magazine':
  32. cls
  33. minut += 5
  34. money -= 500
  35. pornMagazine = 50
  36. TimesBuyPorno += 1
  37. gs 'stat'
  38. 'You tried not to look into the eyes of the seller as you counted out the money. You took the magazine and quickly hid it.'
  39. act 'Leave':gt 'Grinok'
  40. end
  41. end
  42. elseif porndeal = 1:
  43. if money >= 500:
  44. act 'Buy a porn mag for the Chinese boy':
  45. cls
  46. minut += 5
  47. money -= 500
  48. haveporn = 1
  49. gs 'stat'
  50. 'You tried not to look into the eyes of the seller as you counted out the money. You took the magazine and quickly hid it.'
  51. act 'Leave':gt 'Grinok'
  52. end
  53. end
  54. elseif pornMagazine = 0:
  55. 'You were stunned by the magazines with pictures of half-naked girls on the covers and men with erect members engaging in sex acts with women who are either half-naked or fully naked on the inside.'
  56. end
  57. if TimesBuyPorno = 0:
  58. 'The porn dealer noticed your interest and looked at you expectantly.'
  59. act 'Ask for the price':
  60. cls
  61. minut += 5
  62. manna = manna/2
  63. gs 'stat'
  64. 'Blushing profusely right to your hair roots, you went to the seller and stammering asked him the price for the magazines. The seller smiled at you and said, "All magazines are 500 <b>₽</b> each."'
  65. if money >= 500:
  66. act 'Buy magazine':
  67. cls
  68. minut += 5
  69. money -= 500
  70. pornMagazine = 50
  71. TimesBuyPorno += 1
  72. gs 'stat'
  73. 'You tried not to look into the eyes of the seller as you counted out the money. You took the magazine and quickly hid it.'
  74. act 'Leave':gt 'Grinok'
  75. end
  76. end
  77. act 'Leave':gt 'Grinok'
  78. end
  79. elseif TimesBuyPorno > 0:
  80. 'The seller came up to you and said, "Looking to buy a magazine? Only 500 <b>₽</b>."'
  81. end
  82. if TimeBuyPorno >= 5 and dildo = 0:
  83. '"Or do you want to buy something else?" he showed you a dildo. "Only 1000 <b>₽</b>."'
  84. if money >= 1000:
  85. act 'Buy dildo (1000 <b>₽</b>)':
  86. cla
  87. *clr
  88. minut += 15
  89. dildo = 1
  90. money -= 1000
  91. horny += 10
  92. if horny >= 50 and GorSlut < 3:
  93. 'You bought a dildo and hastily hid it, while your face betrayed your embarrassment.'
  94. else
  95. 'You bought a dildo calmly hid it.'
  96. end
  97. act 'Leave':gt 'Grinok'
  98. end
  99. end
  100. end
  101. --- Gpornmark ---------------------------------