zoomagazine.qsrc 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167
  1. # zoomagazine
  2. if $ARGS[0] = 'start':
  3. cla & *clr
  4. $loc = 'zoomagazine'
  5. $metka = 'start'
  6. $menu_loc = 'zoomagazine'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. gs 'stat'
  10. gs 'themes', 'indoors'
  11. '<center><b><font color="maroon">Pet Emporium</font></b></center>'
  12. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/shop.jpg"</center>'
  13. if ParrotQW['Level'] = 1 and ParrotQW['Failed'] = 0:
  14. menu_off = 1
  15. minut += 5
  16. cla & *clr
  17. gs 'stat'
  18. 'When you enter the pet store you see the owner talking to some customers.'
  19. 'In normal circumstances you would have simply waited your turn but you were in a hurry now.'
  20. 'You notice a little ladder standing next to the men and decide to create a distraction.'
  21. 'You start climbing the ladder, pretending you need something from the top shelves'
  22. 'The men take a small look but mostly ignore you. But when you lift up your skirt a little, that sure gets their attention.'
  23. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet2.jpg"</center>'
  24. 'The men, who were having a lively conversation suddenly go quiet.'
  25. 'You take your chances and ask the owner if you could talk to him in private.'
  26. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet8.jpg"</center>'
  27. 'He wraps up his conversation with the other men and takes you to the back office.'
  28. act 'Continue':
  29. cla & *clr
  30. minut += 5
  31. gs 'stat'
  32. '"So little girl, what''s the big emergency" the pet shop owner asks you.'
  33. '"Well, a few months ago I bought a parrot from this shop. everything was fine at first but the last couple of weeks he has been saying some things he really should not be saying." you begin to explain.'
  34. 'The owner smirks, "Oh, what kind of things would that be?"'
  35. '"Just remarks about my body and my sister''s activities." you continue on.'
  36. '"If you want me to help you, you will have to give me some more details, what exactly has he been saying?" the owner curiously asks.'
  37. 'Your face turns red and, with some reluctance, you tell him the parrot has been saying you have a great body.'
  38. 'Smiling, the owner replies, "Okay, I might have a solution for this, but I will have to determine if the parrot was lying or not. So, in a nutshell, you will have to show me that body of yours."'
  39. 'You realize the owner is probably just an old pervert trying to get some, but this is your only chance to save your bird.'
  40. act 'Berate him for wasting your time and leave the store':
  41. ParrotQW['Failed'] = 1
  42. minut += 3
  43. gt 'torgcentr'
  44. end
  45. act 'Show your body':
  46. gs 'npcgeneratec', '0'
  47. gs 'boyStat', $npclastgenerated
  48. cla & *clr
  49. minut += 5
  50. gs 'stat'
  51. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet1.jpg"</center>'
  52. 'You slide up your top and show off your <a href="exec:gs ''obj_din'', ''show_tits''"><<$titsize>></a> breasts.'
  53. 'The owner licks his lips, "Hmm, he was definitely not lying about your top half. Ok, show me the rest."'
  54. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet9.jpg"</center>'
  55. 'You take off your pants and show your fully nude body to the owner.'
  56. 'The owner is widely grinning, "So he was not lying at all. I now know what the solution is".'
  57. 'The owner goes back to the counter and starts mixing up a few different liquids in a vial.'
  58. 'He hands you over the vial, "Okay, it is almost done, just two more ingredients needed..."'
  59. act 'Continue':
  60. cla & *clr
  61. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet4.jpg"</center>'
  62. 'The owner comes over to you and starts rubbing your breasts.'
  63. '"Wait, what are you doing?" you ask. "How is this going to get me the final ingredients?"'
  64. '"Just trust me!" the man says before lightly licking your nipple.'
  65. 'He then grabs you by the waist and sits you on top of the counter.'
  66. 'He proceeds to place his head between your legs and starts licking you.'
  67. 'Sliding his tongue into your wet pussy, he elicits a light shiver from you as he licks your pussy, before dragging his tongue lightly against your clit, causing you to purr with pleasure.'
  68. 'Once you are wet enough he takes a tissue and collects some of your juices, "That''s the first ingredient, on to the next."'
  69. gs 'arousal', 'cuni', 15
  70. act 'Continue':
  71. cla & *clr
  72. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet5.jpg"</center>'
  73. 'The man unbuttons his pants and takes out his erect <<dick>> cm penis, "Now, I need you to sit on your knees and suck this cock if you want to get to the last ingredient."'
  74. 'You are almost certain you are being conned now, but the pussy licking you received just moments ago made you so horny that you couldn''t stop now, even if you wanted.'
  75. 'You do as you are told and take the dick in your mouth'
  76. 'You start pleasuring him to the best of your abilities.'
  77. 'A few minutes into it, the man gestures you to get up and turn around.'
  78. gs 'arousal', 'bj', 15
  79. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet6.jpg"</center>'
  80. gs 'dinsex','vaginal_sex'
  81. act 'Continue':
  82. cla & *clr
  83. minut += 5
  84. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet7.jpg"</center>'
  85. 'After a few minutes the owner pulls his dick out of you and turns you around, stroking his dick as he orgasms all over your face.'
  86. 'He takes another tissue and wipes some of the cum off your face.'
  87. 'He the goes to the counter and mixes both your juices in the vial, "Here you go miss, one parrot inhibitor potion for you, on the house"'
  88. 'Taking the potion, you place it in your pocket and leave the store.'
  89. gs 'arousal','end'
  90. gs 'cum_call','face', $npclastgenerated
  91. guy += 1
  92. ParrotQW['Level'] = 2
  93. gs 'stat'
  94. act 'Leave the store': minut += 3 & gt 'torgcentr'
  95. end
  96. end
  97. end
  98. end
  99. end
  100. exit
  101. end
  102. 'Rabbit - 2000 <b>₽</b>'
  103. 'Parrot - 3000 <b>₽</b>'
  104. act 'Leave': minut += 3 & gt 'torgcentr'
  105. if money >= 2000 and krolik = 0:
  106. act 'Buy a rabbit (2000 <b>₽</b>)':
  107. cla & *clr
  108. menu_off = 1
  109. if home_owned[1] > 0:
  110. minut += 10
  111. krolik += 1
  112. money -= 2000
  113. '<center><img <<$set_imgh>> src="images/pets/x_2b1d398b.jpg"></center>'
  114. '<center><b>You bought a rabbit.</b></center>'
  115. $namekrol = input ("I call the rabbit ...")
  116. if $namekrol = '':$namekrol = 'Bugs'
  117. else
  118. 'You need to have your own place before you can buy a rabbit.'
  119. end
  120. act 'Move away from the counter': gt 'zoomagazine', 'start'
  121. end
  122. end
  123. if money >= 3000 and ParrotQW['Owned1'] = 0 and home_owned[2] = 0 :
  124. act 'Buy a parrot (3000 <b>₽</b>)':
  125. cla & *clr
  126. menu_off = 1
  127. if home_owned[1] > 0:
  128. minut += 10
  129. ParrotQW['Owned1'] += 1
  130. money -= 3000
  131. '<center><img <<$set_imgh>> src="images/pets/parrot1.jpg"></center>'
  132. '<center><b>You bought a parrot.</b></center>'
  133. $ParrotQW['Name1'] = input ("I call the parrot ...")
  134. if $ParrotQW['Name1'] = '':$ParrotQW['Name1'] = 'Polly'
  135. else
  136. 'You need to have your own place before you can buy a parrot.'
  137. end
  138. act 'Move away from the counter': gt 'zoomagazine', 'start'
  139. end
  140. end
  141. if money >= 3000 and ParrotQW['Owned2'] = 0 and home_owned[2] = 1 :
  142. act 'Buy a parrot for your parent''s apartment (3000 <b>₽</b>)':
  143. cla & *clr
  144. menu_off = 1
  145. minut += 10
  146. ParrotQW['Owned2'] += 1
  147. ParrotQW['SisKeepParrot'] = 0
  148. ParrotQW['BuyDate'] = daystart
  149. money -= 3000
  150. '<center><img <<$set_imgh>> src="images/pets/parrot1.jpg"></center>'
  151. '<center><b>You bought a parrot.</b></center>'
  152. $ParrotQW['Name2'] = input ("I call the parrot ...")
  153. if $ParrotQW['Name2'] = '':$ParrotQW['Name'] = 'Polly'
  154. act 'Move away from the counter': gt 'zoomagazine', 'start'
  155. end
  156. end
  157. end
  158. --- zoomagazine ---------------------------------