1
0

gaptek 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353
  1. # gaptek
  2. cla
  3. clr
  4. *clr
  5. CLOSE ALL
  6. if sound = 0:PLAY 'sound/shop.mp3',30
  7. gs 'stat'
  8. gs 'outdoors'
  9. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  10. '<center><img src="images/etogame/aptek.JPG"></center>'
  11. act 'Leave the pharmacy':gt 'pavCommercial'
  12. if hour < 8 or hour > 20:
  13. 'The pharmacy is currently closed. There''s a sign on the door, that says it''s open between 8:00 and 20:00 every day.'
  14. exit
  15. end
  16. !! for original start we can just use stockitem, for alt start there are other plot elements involved
  17. if StoryLine = 0:
  18. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  19. *pl '<center><table align="center">' + _
  20. FUNC ('$stock_item', 5, 'condoms', 100, 'prezik', $CURLOC) + _
  21. FUNC ('$stock_item', 1, 'pregnancy test', 200, 'pregtest', $CURLOC) + _
  22. FUNC ('$stock_item', 28, 'birth control pills', 500, 'tabletki', $CURLOC) + _
  23. FUNC ('$single_stock_item', 1, 'enema kit', 500, 'klisma', $CURLOC) + _
  24. FUNC ('$stock_item', 10, 'antibiotics', 500, 'lekarstvo', $CURLOC) + _
  25. FUNC ('$stock_item', 20, 'vitamin tablets', 500, 'vitamin', $CURLOC) + _
  26. FUNC ('$stock_item', 10, 'soothing ointment for chafed skin', 600, 'mosolmaz', $CURLOC) + _
  27. FUNC ('$stock_item', 25, 'lip balm', 100, 'lipbalm', $CURLOC) + _
  28. FUNC ('$stock_item', 1, 'weight loss pill', 2000, 'fatdel', $CURLOC) + _
  29. FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC) + _
  30. FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC) +
  31. '</table></center>'
  32. else
  33. 'Condoms - 100 <b>₽</b>'
  34. 'Pregnancy test - 200 <b>₽</b>'
  35. 'Lubricant - 300 <b>₽</b>'
  36. 'Birth control pills - 500 <b>₽</b>'
  37. if klisma = 0:'Enema kit - 500 <b>₽</b>'
  38. 'Antibiotics - 500 <b>₽</b>'
  39. 'Vitamin drinks - 500 <b>₽</b>'
  40. 'Soothing ointment for chafed skin - 600 <b>₽</b>'
  41. 'Moisturizing lip balm - 1000 <b>₽</b>'
  42. 'Fat burners - 1500 <b>₽</b>'
  43. if KandidNapr = 1:'Cure for yeast infection - 1,500 <b>₽</b>'
  44. 'Aunt Luda is sitting behind the counter, as usual. She gives you a friendly nod when she sees you: "Hi <<$name>>! How are you?"'
  45. end
  46. if motherQW >= 2:
  47. act 'Ask about the ''garden''':
  48. cla
  49. cls
  50. gaptekfirst = 1
  51. gs 'stat'
  52. '<center><b><font color="maroon">Pharmacy</font></b></center>'
  53. '<center><img src="images/etogame/aptek.JPG"></center>'
  54. if motherQW = 2 and ((gaogorod + gaogorodrand) < 40):
  55. if gaptekfirst = 0:
  56. gaptekfirst = 1
  57. minut += 5
  58. 'You pretend to look at the goods positioned on the shelves, while you consider how to best approach your aunt. Your aunt notices you staring at the shelves, and comes from behind the counter when she''s done helping her last customer.'
  59. '"Hi <<$name>>, are you looking for something?"'
  60. 'You take a deep breath and say: "Erm... yes aunt. My mother needs some things for her ''garden''?" putting extra emphasis on the word.'
  61. 'Your aunt pretends to be confused, and teases you: "<<$nickname>>, are you sure you''re in the right store? This is a pharmacy, not a gardening center!"'
  62. 'You''re slightly confused now, and try again: "I know, aunt... my mom said I should say ''garden''."'
  63. 'She just laughs: "Just teasing, <<$nickname>>. Your mother has such green thumbs, she comes here all the time! Come on, I''ll show you what we have." She takes you by the hand and takes you to the counter holding the contraceptives.'
  64. '"Here you go. All of your gardening needs, right here. What can I get you?"'
  65. else
  66. minut += rand(5, 15)
  67. if gaprezikday ! daystart or gatabletkiday ! daystart:
  68. 'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
  69. '"Hi aunt Luda, my mom needs a few more items for her garden."'
  70. '"Your mom, huh? Sure, sure... it''s right here, take your pick!" she chuckles, as you try to hide your blush.'
  71. 'You intently stare at the items, avoiding her gaze as you mutter: "Thank you, Aunt..."'
  72. '"No problem, <<$nickname>>. But seriously, tell Natasha she shouldn''t spend so much time gardening. We keep running low on stock."'
  73. else
  74. minut += RAND(5,15)
  75. 'You linger around the pharmacy, waiting for your aunt to become available. However, as time passes the pharmacy only becomes more and more crowded, and your aunt has a long line of customers to deal with. You decide you''ve wasted enough time, and to try again later.'
  76. end
  77. end
  78. elseif motherQW = 2 and ((gaogorod + gaogorodrand) >= 40):
  79. gt'motherQW','motherQW_3'
  80. elseif motherQW >= 3 and galubri = 0:
  81. if gaprezikday ! day or gatabletkiday ! day:
  82. minut += RAND(5,15)
  83. oluuosegunrand = RAND(1,10)
  84. gs'stat'
  85. if oluuosegunrand = 10 and oluuosegunday ! day:
  86. gt'motherQW','olu'
  87. elseif oluuosegunrand < 10 or oluuosegunday = day:
  88. 'You wait for your turn and move to the counter, discretely nodding at the counter with the contraceptives. Your aunt gives you a small smile and asks what she can do for you today.'
  89. end
  90. elseif gaprezikday = day and gatabletkiday = day:
  91. minut += RAND(5,15)
  92. 'You wait for your turn and move up to the counter, discretely nodding at the counter with the contraceptives. She apologizes: "I''m sorry <<$name>>, those are all sold out." With some malice in her voice, she whispers: "Your stud will have to wait until tomorrow, unless you plan on entertaining him in some other way." Giving you a lewd grin, she ushers you away from the counter so she can help the next customer.'
  93. end
  94. elseif motherQW >= 3 and galubri = 1:
  95. if gaprezikday ! day or gatabletkiday ! day or galubriday ! day:
  96. minut += RAND(5,15)
  97. oluuosegunrand = RAND(1,10)
  98. if oluuosegunrand = 10 and oluuosegunday ! day:
  99. gt'motherQW','olu'
  100. elseif oluuosegunrand < 10 or oluuosegunday = day:
  101. 'You wait for your turn and move to the counter, discretely nodding at the counter with the contraceptives. Your aunt gives you a small smile and asks what she can do for you today.'
  102. end
  103. elseif gaprezikday = day and gatabletkiday = day and galubriday = day:
  104. minut += RAND(5,15)
  105. 'You wait for your turn and move up to the counter, discretely nodding at the counter with the contraceptives. She apologizes: "I''m sorry <<$name>>, those are all sold out." With some malice in her voice, she whispers: "Your stud will have to wait until tomorrow, unless you plan on entertaining him in some other way." Giving you a lewd grin, she ushers you away from the counter so she can help the next customer.'
  106. end
  107. end
  108. act 'Move away from the counter':gt $curloc
  109. end
  110. end
  111. if StoryLine = 1:
  112. if money >= 100 and motherQW >= 2 and gaptekfirst = 1 and gaprezikday ! daystart:
  113. act 'Buy condoms (100 <b>₽</b>) <<iif(prezik > 0, ''[left:<b>'' + prezik + ''</b>]'', '''')>>':
  114. cla
  115. *clr
  116. portion = input("How many packages you want to buy? (One package contains 5 condoms)")
  117. if portion <= 0:portion = 1
  118. if portion > 2 and motherQW < 3:portion = 2 & 'You tell yourself: "Two packages should be enough". You shouldn''t buy too many at once, otherwise your aunt might get suspicious.'
  119. if portion > 5 and motherQW >= 3:portion = 5 & 'Your aunt laughs and shakes her head. "I''m sorry <<$name>>, I can only give you five. With the amounts you''re buying, the condom factory can barely keep up delivering new stock."'
  120. if portion * 100 <= money:
  121. prezik += portion * 5
  122. minut += 5
  123. money -= portion * 100
  124. gaprezikday = daystart
  125. '<center><img src="images/etogame/kassa.jpg"></center>'
  126. 'You pay for the condoms and quickly put them in your pocket, before anyone sees you buy them.'
  127. if motherQW < 3:gaogorod += portion
  128. else
  129. 'You can''t afford the condoms.'
  130. end
  131. act 'Move away from the counter':gt 'gaptek', 'start'
  132. end
  133. end
  134. if money >= 200 and motherQW >= 2 and gaptekfirst = 1:
  135. act 'Buy pregnancy tests (200 <b>₽</b>) <<iif(pregtest > 0, ''[left:<b>'' + pregtest + ''</b>]'', '''')>>':
  136. cla
  137. *clr
  138. portion = input("How many packages do you want to buy? (One package contains two testers)")
  139. if portion <= 0:portion = 1
  140. if portion * 200 <= money:
  141. pregtest += portion * 2
  142. minut += 5
  143. money -= portion * 200
  144. '<center><img src="images/etogame/kassa.jpg"></center>'
  145. 'You pay for the pregnancy tests and quickly put them in your pocket, before anyone sees you buy them.'
  146. else
  147. 'You can''t afford to buy the pregnancy tests, and have to put them back on the counter.'
  148. end
  149. act 'Move away from the counter':gt 'gaptek', 'start'
  150. end
  151. end
  152. !! you can only buy lube here if your aunt arranged for it and you haven''t bought any today yet
  153. if money >= 300 and galubri = 1 and motherQW >= 2 and gaptekfirst = 1 and galubriday ! daystart:
  154. act 'Buy <b>lubricant</b> (300 <b>₽</b>) <<iif(lubri > 0, ''[left:<b>'' + lubri + ''</b>]'', '''')>>':
  155. cla
  156. *clr
  157. portion = input ("How many tubes do you want to buy? (One tube lasts for 5 uses)")
  158. if portion <= 0:portion = 1
  159. if portion > 3:portion = 3 & 'Your aunt shakes her head wearily: "Wow <<$nickname>>, you little vixen! You really love this stuff huh? I''m sorry but I can only sell you three, I need to keep a few in stock for other customers too. We don''t want the whole town to wonder where their supply of lubricant went."'
  160. if portion * 300 <= money:
  161. lubri += portion * 5
  162. minut += 5
  163. money -= portion * 300
  164. galubriday = daystart
  165. '<center><img src="images/etogame/kassa.jpg"></center>'
  166. 'You pay for the lubricant and quickly put the tubes in your pocket, before anyone sees you buy them.'
  167. else
  168. 'You can''t afford to buy the lubricant.'
  169. end
  170. act 'Move away from the counter':gt 'gaptek', 'start'
  171. end
  172. end
  173. if money >= 500:
  174. if gatabletkiday ! daystart:
  175. act 'Buy birth control pills (500 <b>₽</b>) <<iif(tabletki > 0, ''[left:<b>'' + tabletki + ''</b>]'', '''')>>':
  176. cla
  177. *clr
  178. portion = input ("How many packages do you want to buy?")
  179. if portion < 0 or (portion > 1 and motherQW < 3):portion = 1 & 'You quietly think to yourself, while you put most of the packages back on the shelf: "Just the one should be enough. It''s probably better if I don''t buy too many at once, otherwise aunt Luda might become suspicious."'
  180. if portion * 500 <= money:
  181. tabletki += portion * 28
  182. minut += 5
  183. money -= portion * 500
  184. gatabletkiday = daystart
  185. '<center><img src="images/etogame/kassa.jpg"></center>'
  186. 'You pay for the birth control pills and quickly put the strips in your pocket, before anyone sees you buy them.'
  187. else
  188. 'You can''t afford to buy birth control pills.'
  189. end
  190. act 'Move away from the counter':gt 'gaptek', 'start'
  191. end
  192. end
  193. if klisma = 0 and motherQW >= 2 and gaptekfirst = 1:
  194. act 'Buy the enema kit (500 <b>₽</b>)':
  195. cla
  196. *clr
  197. klisma = 1
  198. minut += 5
  199. money -= 500
  200. '<center><img src="images/etogame/kassa.jpg"></center>'
  201. 'You pay for the enema kit and quickly ask your aunt to put it in a paper bag, before the other customers see it.'
  202. act 'Move away from the counter':gt 'gaptek', 'start'
  203. end
  204. end
  205. act 'Buy antibiotics (500 <b>₽</b>) <<iif(lekarstvo > 0, ''[left:<b>'' + lekarstvo + ''</b>]'', '''')>>':
  206. cla
  207. *clr
  208. portion = input("How many packages do you want to buy? (One package contains 10 pills)")
  209. if portion <= 0:portion = 1
  210. if portion * 500 <= money:
  211. money -= portion * 500
  212. lekarstvo += portion * 10
  213. '<center><img src="images/etogame/kassa.jpg"></center>'
  214. 'You buy some antibiotics, and put the pills in your pocket.'
  215. else
  216. 'You can''t afford to buy the antibiotics.'
  217. end
  218. act 'Move away from the counter':gt 'gaptek', 'start'
  219. end
  220. act 'Buy vitamin tablets (500 <b>₽</b>) <<iif(vitamin > 0, ''[left:<b>'' + vitamin + ''</b>]'', '''')>>':
  221. cla
  222. *clr
  223. portion = input("How many packages do you want to buy? (One package contains 20 tablets)")
  224. if portion <= 0:portion = 1
  225. if portion * 500 <= money:
  226. vitamin += portion * 20
  227. money -= portion * 500
  228. '<center><img src="images/etogame/kassa.jpg"></center>'
  229. 'You purchase the vitamin tablets and put them in your pocket.'
  230. else
  231. 'You can''t afford the vitamin tablets.'
  232. end
  233. act 'Move away from the counter':gt 'gaptek', 'start'
  234. end
  235. end
  236. if money >= 600:
  237. act 'Buy soothing ointment (600 <b>₽</b>) <<iif(mosolmaz > 0, ''[left:<b>'' + mosolmaz + ''</b>]'', '''')>>':
  238. cla
  239. *clr
  240. portion = input("How many packages do you want to buy? (One package contains 10 treatments)")
  241. if portion <= 0:portion = 1
  242. if money >= portion * 600:
  243. money -= portion * 600
  244. mosolmaz += portion * 10
  245. '<center><img src="images/etogame/kassa.jpg"></center>'
  246. 'You buy some ointment packages and quickly put them in your pocket. The next time your pussy feels sore, these should help.'
  247. else
  248. 'You can''t afford the ointment.'
  249. end
  250. act 'Move away from the counter':gt 'gaptek', 'start'
  251. end
  252. end
  253. if money >= 1000:
  254. act 'Buy moisturizing lip balm (1,000 <b>₽</b>) <<iif(lipbalm > 0, ''[left:<b>'' + lipbalm + ''</b>]'', '''')>>':
  255. cla
  256. *clr
  257. portion = input("How many lip balms do you want to buy? (One lip balm is good enough for 25 uses)")
  258. if portion <= 0:portion = 1
  259. if portion * 1000 <= money:
  260. lipbalm += portion * 25
  261. money -= portion * 1000
  262. '<center><img src="images/etogame/kassa.jpg"></center>'
  263. 'You buy the lip balm and put it in your pocket.'
  264. else
  265. 'You can''t afford the lip balm.'
  266. end
  267. act 'Move away from the counter':gt 'gaptek', 'start'
  268. end
  269. end
  270. if money >= 1500:
  271. act 'Buy fat burners (1,500 <b>₽</b>) <<iif(fatdel > 0, ''[left:<b>'' + fatdel + ''</b>]'', '''')>>':
  272. cla
  273. *clr
  274. portion = input("How many fat burners do you want to buy?")
  275. if portion <= 0:portion = 1
  276. if portion * 1500 <= money:
  277. fatdel += portion
  278. money -= portion * 1500
  279. '<center><img src="images/etogame/kassa.jpg"></center>'
  280. 'You buy some fat burning capsules and read the box; you have to take these with some water.'
  281. else
  282. 'You can''t afford the fat burning capsules. Looks like you''ll have to work for it if you want to lose some weight.'
  283. end
  284. act 'Move away from the counter':gt 'gaptek', 'start'
  285. end
  286. if KandidNapr = 1:
  287. act 'Buy s cure for your yeast infection (1,500 <b>₽</b>)':
  288. cla
  289. *clr
  290. money -= 1500
  291. Kandidoz = 0
  292. '<center><img src="images/etogame/kassa.jpg"></center>'
  293. 'You put the money on the counter and immediately open the package and swallow the tablet. A while later, you feel better.'
  294. act 'Move away from the counter':gt 'gaptek', 'start'
  295. end
  296. end
  297. end
  298. end
  299. --- gaptek ---------------------------------