1
0

zoomagazine.qsrc 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206
  1. # zoomagazine
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. gs 'stat'
  7. gs 'themes', 'indoors'
  8. '<center><b><font color="maroon">Pet Emporium</font></b></center>'
  9. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/shop.jpg"</center>'
  10. if saveparQW = 1 and saveparQWfailed = 0:
  11. minut += 5
  12. 'When you enter the pet store you can see the owner talking to some customers'
  13. 'In normal circumstances you would have simply waited your turn but you had no time now.'
  14. 'You notice a little ladder standing next to the men and decide to create a distraction.'
  15. 'You start climbing the ladder pretending you need something from the top shelves'
  16. 'The men take a small look but mostly ignore you. But then you lift up your skirt a little and that got their attention.'
  17. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet2.jpg"</center>'
  18. 'The men, who were having a lively conversation suddenly went quiet.'
  19. 'You took your chances and asked the owner if you could talk to him in private.'
  20. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet8.jpg"</center>'
  21. 'he wrapped up his conversation with the men and took you to the back office'
  22. act 'Continue':
  23. cls
  24. minut += 5
  25. ' - "So little girl, what is the big emergency"'
  26. ' - "Well, a few months ago I have bought a parrot from this shop. everything was fine at first but the last couple of weeks he has been saying some things he should not be saying."'
  27. ' - "Oh, what kind of things would that be?"'
  28. ' -"Just remarks about my body and my sister''s activities."'
  29. '-"If you want me to help you, you will have to give me some more details, what exactly has he been saying ?"'
  30. 'Your face turns red and with some reluctance you tell him the parrot has been saying you have a great body.'
  31. '-"Ok I might have a solution for this, but I will have to determine if the parrot has been lying or not. So you will have to show me that body of yours."'
  32. 'You realise the owner might just be an old pervert but it is your only chance to save your bird.'
  33. act 'Berate him for wasting your time and leave the store':
  34. saveparQWfailed = 1
  35. minut += 3
  36. gt 'torgcentr'
  37. end
  38. act 'Show your body':
  39. gs 'npcgeneratec', '0'
  40. gs 'boyStat', $npclastgenerated
  41. cls
  42. minut += 5
  43. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet1.jpg"</center>'
  44. 'You slide up your top and show off your <a href="exec:gs ''obj_din'', ''show_tits''"><<$titsize>></a> breasts.'
  45. '-"hmm, he was definitely not lying about your top half, ok show me the rest."'
  46. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet9.jpg"</center>'
  47. 'You take off your pants and show your fully exposed body to the owner.'
  48. '-"So he was not lying at all, now I know what the solution is".'
  49. 'The owner goes back to the counter and starts mixing up a few different liquids in a vial.'
  50. '-"Ok it is almost done, just two more ingredients needed..."'
  51. act 'Continue':
  52. cls
  53. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet4.jpg"</center>'
  54. 'The owner comes over to you and starts rubbing your breasts'
  55. '"Wait what are you doing" you say. " How is this going to get me the final ingredients."'
  56. '"just trust me" the man says before lightly licking your nipple.'
  57. 'Then he grabs you by the waist and places you on top of the counter.'
  58. 'He places his head between your legs and starts licking.'
  59. 'He slid his tongue into your wet pussy, this already caused a light shiver, before dragging his tongue lightly against your clit, causing you to purr.'
  60. 'Once you were wet enough he took a tissue and collected some of your juices.'
  61. '" That''s the first ingredient, on to the next."'
  62. gs 'arousal', 'cuni', 15
  63. act 'Continue':
  64. cls
  65. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet5.jpg"</center>'
  66. 'The man unbuttons his pants and takes out his erect <<dick>> cm dick.'
  67. '"Now sit on your knees and suck this cock if you want to get to the last ingredient"'
  68. 'You are almost certain you are being conned now, but the pussy licking you received moments before made you so horny that you couldn''t stop now.'
  69. 'You do as you were told and take the dick in your mouth'
  70. 'You start pleasuring him to the best of your abilities.'
  71. 'After a few minutes he gestures you to get up and turn around'
  72. gs 'arousal', 'bj', 15
  73. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet6.jpg"</center>'
  74. gs 'dinsex','vaginal_sex'
  75. act 'Continue':
  76. cls & cla
  77. minut += 5
  78. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pet shop/pet7.jpg"</center>'
  79. 'After a few minutes the owner pulled out and turned you around, he started stroking his dick and came all over your face.'
  80. 'He took another tissue and wiped some of the cum off.'
  81. 'He went to the counter and mixed both your juices in the vial.'
  82. '"Here you go miss, one parrot inhibitor potion for you , on the house"'
  83. 'You take the potion, place it in your pocket and leave the store'
  84. gs 'arousal','end'
  85. gs 'cum_call','face', $npclastgenerated
  86. guy += 1
  87. saveparQW = 2
  88. act 'Leave the store': minut += 3 & gt 'torgcentr'
  89. end
  90. end
  91. end
  92. end
  93. end
  94. exit
  95. end
  96. 'Dog - 3000 <b>₽</b>'
  97. 'Rabbit - 2000 <b>₽</b>'
  98. 'Parrot - 3000 <b>₽</b>'
  99. act 'Leave': minut += 3 & gt 'torgcentr'
  100. if money >= 3000 and sobaka = 0:
  101. act 'Buy a dog (3000 <b>₽</b>)':
  102. cla
  103. *clr
  104. '<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"></center>'
  105. if home_owned[1] > 0:
  106. act 'Hello, I would like to get a dog':
  107. cla
  108. *clr
  109. '<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"></center>'
  110. '<center><b>Sorry, but we only have male dogs.</b></center>'
  111. act 'Buy a dog':
  112. cla
  113. *clr
  114. minut += 10
  115. sobaka += 1
  116. money -= 3000
  117. '<center><img <<$set_imgh>> src="images/beast/zoo/dog1.jpg" width = 600 height = 500 ></center>'
  118. '<center><b>You bought a Dalmatian dog.</b></center>'
  119. $namesob = input ('I''ll call the dog ...')
  120. if $namesob = '':$namesob = 'Spot'
  121. gs 'npcgeneratec', 0, $namesob, rand(1,4)
  122. gs 'npcpreservec', $npclastgenerated
  123. $petID = $npclastsaved
  124. $npc_firstname[$npclastsaved] = $namesob
  125. $npc_nickname[$npclastsaved] = $namesob
  126. $npc_lastname[$npclastsaved] = $namesob
  127. $npc_usedname[$npclastsaved] = $namesob
  128. $npc_notes[$npclastsaved] = 'Your dog you purchased from the pet shop.'
  129. npc_spermpot[$npclastsaved] = -1
  130. $npc_thdick[$npclastsaved] = 'knotted'
  131. npc_dick[$npclastsaved] = 7
  132. npc_sexskill[$npclastsaved] = 0
  133. act 'Move away from the counter':gt 'zoomagazine', 'start'
  134. end
  135. end
  136. else
  137. 'You need to have your own place before you can buy a dog'
  138. end
  139. act 'Move away from the counter': minut += 5 & gt 'zoomagazine', 'start'
  140. end
  141. end
  142. if money >= 2000 and krolik = 0:
  143. act 'Buy a rabbit (2000 <b>₽</b>)':
  144. cla
  145. *clr
  146. if home_owned[1] > 0:
  147. minut += 10
  148. krolik += 1
  149. money -= 2000
  150. '<center><img <<$set_imgh>> src="images/beast/zoo/x_2b1d398b.jpg"></center>'
  151. '<center><b>You bought a rabbit.</b></center>'
  152. $namekrol = input ("I call rabbit ...")
  153. if $namekrol = '':$namekrol = 'Bugs'
  154. else
  155. 'You need to have your own place before you can buy a rabbit.'
  156. end
  157. act 'Move away from the counter': gt 'zoomagazine', 'start'
  158. end
  159. end
  160. if money >= 3000 and popugai = 0:
  161. act 'Buy a parrot (3000 <b>₽</b>)':
  162. cla
  163. *clr
  164. if home_owned[1] > 0:
  165. minut += 10
  166. popugai += 1
  167. money -= 3000
  168. '<center><img <<$set_imgh>> src="images/beast/zoo/parrot1.jpg"></center>'
  169. '<center><b>You bought a parrot.</b></center>'
  170. $namepopu = input ("I call parrot ...")
  171. if $namepopu = '':$namepopu = 'Polly'
  172. else
  173. 'You need to have your own place before you can buy a parrot.'
  174. end
  175. act 'Move away from the counter': gt 'zoomagazine', 'start'
  176. end
  177. end
  178. if money >= 3000 and popugai2 = 0 and home_owned[2] = 1 :
  179. act 'Buy a parrot for your parent''s apartment (3000 <b>₽</b>)':
  180. cla
  181. *clr
  182. minut += 10
  183. popugai2 += 1
  184. sispopconf = 0
  185. parbuydate = daystart
  186. money -= 3000
  187. '<center><img <<$set_imgh>> src="images/beast/zoo/parrot1.jpg"></center>'
  188. '<center><b>You bought a parrot.</b></center>'
  189. $namepopu2 = input ("I call parrot ...")
  190. if $namepopu2 = '':$namepopu2 = 'Polly'
  191. act 'Move away from the counter': gt 'zoomagazine', 'start'
  192. end
  193. end
  194. end
  195. --- zoomagazine ---------------------------------