1
0

Gpornmark 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101
  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.'
  9. act 'Leave':gt 'Grinok'
  10. if pornMagazine > 1:
  11. 'You haven''t finished looking at the magazine you already have and you don''t really feel like hanging around the porn dealer.'
  12. elseif pornMagazine = 1:
  13. 'You''ve read your porn mag until it is falling apart and you think it is time to buy a new one.'
  14. if money >= 500:
  15. act 'Buy':
  16. cls
  17. minut += 5
  18. money -= 500
  19. pornMagazine = 50
  20. TimesBuyPorno += 1
  21. gs 'stat'
  22. '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.'
  23. act 'Leave':gt 'Grinok'
  24. end
  25. end
  26. elseif porndeal = 1:
  27. if money >= 500:
  28. act 'Buy a porn mag for the Chinese boy':
  29. cls
  30. minut += 5
  31. money -= 500
  32. haveporn = 1
  33. gs 'stat'
  34. '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.'
  35. act 'Leave':gt 'Grinok'
  36. end
  37. end
  38. elseif pornMagazine = 0:
  39. '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.'
  40. end
  41. if TimesBuyPorno = 0:
  42. 'The porn dealer noticed your interest and looked at you expectantly.'
  43. act 'Ask for the price':
  44. cls
  45. minut += 5
  46. manna = manna/2
  47. gs 'stat'
  48. '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."'
  49. if money >= 500:
  50. act 'Buy':
  51. cls
  52. minut += 5
  53. money -= 500
  54. pornMagazine = 50
  55. TimesBuyPorno += 1
  56. gs 'stat'
  57. '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.'
  58. act 'Leave':gt 'Grinok'
  59. end
  60. end
  61. act 'Leave':gt 'Grinok'
  62. end
  63. elseif TimesBuyPorno > 0:
  64. 'The seller came up to you and said, "Looking to buy a magazine? Only 500 <b>₽</b>."'
  65. end
  66. if TimeBuyPorno >= 5 and dildo = 0:
  67. '"Or do you want to buy something else?" he showed you a dildo. "Only 1000 <b>₽</b>."'
  68. if money >= 1000:
  69. act 'Buy dildo (1000 <b>₽</b>)':
  70. cla
  71. *clr
  72. minut += 15
  73. dildo = 1
  74. money -= 1000
  75. horny += 10
  76. if horny >= 50 and GorSlut < 3:
  77. 'You bought a dildo and hastily hid it, while your face betrayed your embarrassment.'
  78. else
  79. 'You bought a dildo calmly hid it.'
  80. end
  81. act 'Leave':gt 'Grinok'
  82. end
  83. end
  84. end
  85. --- Gpornmark ---------------------------------