1
0

gaptek 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307
  1. # gaptek
  2. $location_type = 'public_indoors'
  3. if $ARGS[0] = 'start' or gaptek_loc = 1 or $message ! '':
  4. cls
  5. CLOSE ALL
  6. if sound = 0:PLAY 'sound/shop.mp3',30
  7. gs 'stat'
  8. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  9. !'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/aptek.jpg"></center>'
  10. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_1.jpg"></center>'
  11. act 'Leave the pharmacy':gt 'pavCommercial'
  12. if Olu_pay > 0:
  13. minut += RAND(5,10)
  14. money += Olu_pay * RAND(500,700)
  15. Olu_pay = 0
  16. 'You go back to the pharmacy, and wait for a slow moment so you can talk to your aunt undisturbed.'
  17. 'Your aunt smiles happily as she gives you a small envelope. "Thank you so much <<$pcs_firstname>>, this is the only way I can get some sleep. I really appreciate it. Here, please accept this money, you''ve earned it."'
  18. act 'Thank her and leave the pharmacy':gt'pavCommercial'
  19. exit
  20. end
  21. if hour < 8 or hour > 20:
  22. '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.'
  23. exit
  24. end
  25. '<center>'
  26. if $message ! '':
  27. $message
  28. killvar '$message'
  29. '"Do you need anything else?"'
  30. else
  31. if StoryLine = 0:
  32. 'The woman behind the counter in a white coat greets you, "Hello, what you need?"'
  33. else
  34. 'Aunt Luda is sitting behind the counter, as usual. She gives you a friendly nod when she sees you: "Hi <<$pcs_firstname>>! How are you?"'
  35. end
  36. end
  37. '</center>'
  38. *pl '<center><table align="center" width=80%>'
  39. *P FUNC ('$stock_item', 5, 'condoms', 100, 'prezik', $CURLOC, $ARGS[0], StoryLine, 'Aunt will tell mom!')
  40. *P FUNC ('$stock_item', 1, 'pregnancy test', 200, 'pregtest', $CURLOC, $ARGS[0], StoryLine, 'Aunt will tell mom!')
  41. *P FUNC ('$stock_item', 1, 'birth control pills', 500, 'tabletki', $CURLOC, $ARGS[0], StoryLine, 'Aunt will tell mom!')
  42. *P FUNC ('$stock_item', 5, 'lubricant', 300, 'lubri', $CURLOC, $ARGS[0], StoryLine, 'Aunt will tell mom!')
  43. *P FUNC ('$stock_item', 10, 'antibiotics', 500, 'lekarstvo', $CURLOC, $ARGS[0])
  44. *P FUNC ('$stock_item', 20, 'vitamin drinks', 500, 'vitamin', $CURLOC, $ARGS[0])
  45. *P FUNC ('$stock_item', 16, 'painkillers', 500, 'painkiller', $CURLOC, $ARGS[0])
  46. *P FUNC ('$stock_item', 10, 'ointments for chafing', 600, 'mosolmaz', $CURLOC, $ARGS[0])
  47. *P FUNC ('$stock_item', 25, 'lip balm', 100, 'lipbalm', $CURLOC, $ARGS[0])
  48. *P FUNC ('$stock_item', 1, 'weight loss pill', 2000, 'fatdel', $CURLOC, $ARGS[0])
  49. *P FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC, $ARGS[0])
  50. *P FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC, $ARGS[0])
  51. *P FUNC ('$single_stock_item', 1, 'breast pump', 800, 'breastpump', $CURLOC, $ARGS[0])
  52. *P FUNC ('$single_stock_item', 1, 'enema kit', 500, 'klisma', $CURLOC, $ARGS[0], StoryLine, 'You should be stealthy')
  53. *P '</table></center>'
  54. !! for original start we can just use stockitem, for alt start there are other plot elements involved
  55. !strip polt-related item, other use new system
  56. if KandidNapr = 1:'Cure for yeast infection - 1,500 <b>₽</b>'
  57. if npc_QW['A29'] >= 2:
  58. act 'Ask about the "garden"':
  59. cls
  60. gaptekfirst = 1
  61. gs 'stat'
  62. '<center><b><font color="maroon">Pharmacy</font></b></center>'
  63. !'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/aptek.jpg"></center>'
  64. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_1.jpg"></center>'
  65. if npc_QW['A29'] = 2 and gaogorod < 40:
  66. if gaptekfirst = 0:
  67. gaptekfirst = 1
  68. minut += 5
  69. '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.'
  70. '"Hi <<$pcs_nickname>>, are you looking for something?"'
  71. 'You take a deep breath and say: "Erm... yes aunt. My mother needs some things for her ''garden''?" putting extra emphasis on the word.'
  72. 'Your aunt pretends to be confused, and teases you: "<<$pcs_nickname>>, are you sure you''re in the right store? This is a pharmacy, not a gardening center!"'
  73. 'You''re slightly confused now, and try again: "I know, aunt... my mom said I should say ''garden''."'
  74. 'She just laughs: "Just teasing, <<$pcs_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.'
  75. '"Here you go. All of your gardening needs, right here. What can I get you?"'
  76. gs 'gaptek', 'garden'
  77. else
  78. minut += rand(5, 15)
  79. if gaprezikday ! daystart or gatabletkiday ! daystart:
  80. 'You wait until the last customer leaves the pharmacy, and quickly dart over to the counter.'
  81. '"Hi aunt Luda, my mom needs a few more items for her garden."'
  82. '"Your mom, huh? Sure, sure... it''s right here, take your pick!" she chuckles, as you try to hide your blush.'
  83. 'You intently stare at the items, avoiding her gaze as you mutter: "Thank you, Aunt..."'
  84. '"No problem, <<$pcs_nickname>>. But seriously, tell Natasha she shouldn''t spend so much time gardening. We keep running low on stock."'
  85. gs 'gaptek', 'garden'
  86. else
  87. minut += RAND(5,15)
  88. '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.'
  89. end
  90. end
  91. elseif npc_QW['A29'] = 2:
  92. gt 'motherQW','motherQW_3'
  93. elseif npc_QW['A29'] >= 3 and galubri = 0:
  94. if gaprezikday ! daystart or gatabletkiday ! daystart:
  95. minut += RAND(5,15)
  96. gs'stat'
  97. if RAND(0,5) = 0 and oluuosegunday ! daystart:
  98. gt 'motherQW','olu'
  99. else
  100. '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.'
  101. gs 'gaptek', 'garden'
  102. end
  103. elseif gaprezikday = daystart and gatabletkiday = daystart:
  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 <<$pcs_nickname>>, 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. elseif npc_QW['A29'] >= 3 and galubri = 1:
  108. if gaprezikday ! daystart or gatabletkiday ! daystart or galubriday ! daystart:
  109. minut += RAND(5,15)
  110. if RAND(0,5) = 0 and oluuosegunday ! daystart and tetyafirst < 3:
  111. gt 'motherQW','olu'
  112. else
  113. '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.'
  114. gs 'gaptek', 'garden'
  115. end
  116. elseif gaprezikday = daystart and gatabletkiday = daystart and galubriday = daystart:
  117. minut += RAND(5,15)
  118. 'You wait for your turn and move up to the counter, discretely nodding at the counter with the contraceptives. She apologizes: "I''m sorry <<$pcs_nickname>>, 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.'
  119. end
  120. end
  121. act 'Move away from the counter':gt 'gaptek', 'start'
  122. end
  123. if money >= 500:
  124. if gatabletkiday ! daystart and npc_QW['A29'] >= 2:
  125. act 'Buy birth control pills (500 <b>₽</b>) <<iif(tabletki > 0, ''[left:<b>'' + tabletki + ''</b>]'', '''')>>':
  126. cla
  127. *clr
  128. portion = input ("How many packages do you want to buy?")
  129. if portion <= 0:
  130. cla
  131. 'You change your mind and feel flustered,'
  132. act 'Move away from the counter':gt 'gaptek', 'start'
  133. exit
  134. elseif portion > 1 and npc_QW['A29'] < 3:
  135. portion = 1
  136. '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."'
  137. end
  138. if portion * 500 <= money:
  139. tabletki += portion
  140. minut += 5
  141. money -= portion * 500
  142. gatabletkiday = daystart
  143. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  144. 'You pay for the birth control pills and quickly put the strips in your pocket, before anyone sees you buy them.'
  145. else
  146. 'You can''t afford to buy birth control pills.'
  147. end
  148. act 'Move away from the counter':gt 'gaptek', 'start'
  149. end
  150. end
  151. if klisma = 0 and npc_QW['A29'] >= 2 and gaptekfirst = 1:
  152. act 'Buy the enema kit (500 <b>₽</b>)':
  153. cla
  154. *clr
  155. klisma = 1
  156. minut += 5
  157. money -= 500
  158. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  159. 'You pay for the enema kit and quickly ask your aunt to put it in a paper bag, before the other customers see it.'
  160. act 'Move away from the counter':gt 'gaptek', 'start'
  161. end
  162. end
  163. if KandidNapr = 1:
  164. act 'Buy tablets for your yeast infection (1,500 <b>₽</b>)':
  165. cla
  166. *clr
  167. money -= 1500
  168. Kandidoz = 0
  169. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  170. 'You put the money on the counter and immediately open the package and swallow the tablet. A while later, you feel better.'
  171. act 'Move away from the counter':gt 'gaptek', 'start'
  172. end
  173. end
  174. end
  175. end
  176. end
  177. if $ARGS[0] = 'garden':
  178. 'Condoms - 100 ₽'
  179. 'Pregnancy test - 200 ₽'
  180. if npc_QW['A29'] >= 2: 'Lubricant - 300 ₽'
  181. if money >= 100 and npc_QW['A29'] >= 2 and gaptekfirst = 1 and gaprezikday ! daystart:
  182. act 'Buy condoms (100 <b>₽</b>) <<iif(prezik > 0, ''[left:<b>'' + prezik + ''</b>]'', '''')>>':
  183. cla
  184. *clr
  185. portion = input("How many packages you want to buy? (One package contains 5 condoms)")
  186. if portion <= 0:
  187. cla
  188. 'You change your mind and feel flustered,'
  189. act 'Move away from the counter':gt 'gaptek', 'start'
  190. exit
  191. end
  192. if portion > 2 and npc_QW['A29'] < 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.'
  193. if portion > 5 and npc_QW['A29'] >= 3:portion = 5 & 'Your aunt laughs and shakes her head. "I''m sorry <<$pcs_nickname>>, I can only give you five. With the amounts you''re buying, the condom factory can barely keep up delivering new stock."'
  194. if portion * 100 <= money:
  195. prezik += portion * 5
  196. minut += 5
  197. money -= portion * 100
  198. gaprezikday = daystart
  199. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  200. 'You pay for the condoms and quickly put them in your pocket, before anyone sees you buy them.'
  201. if npc_QW['A29'] < 3:gaogorod += portion
  202. else
  203. 'You can''t afford the condoms.'
  204. end
  205. act 'Move away from the counter':gt 'gaptek', 'start'
  206. end
  207. end
  208. if money >= 200 and npc_QW['A29'] >= 2 and gaptekfirst = 1:
  209. act 'Buy pregnancy tests (200 <b>₽</b>) <<iif(pregtest > 0, ''[left:<b>'' + pregtest + ''</b>]'', '''')>>':
  210. cla
  211. *clr
  212. portion = input("How many packages do you want to buy? (One package contains two testers)")
  213. if portion <= 0:
  214. cla
  215. 'You change your mind and feel flustered,'
  216. act 'Move away from the counter':gt 'gaptek', 'start'
  217. exit
  218. end
  219. if portion * 200 <= money:
  220. pregtest += portion * 2
  221. minut += 5
  222. money -= portion * 200
  223. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  224. 'You pay for the pregnancy tests and quickly put them in your pocket, before anyone sees you buy them.'
  225. if npc_QW['A29'] < 3:gaogorod += portion
  226. else
  227. 'You can''t afford to buy the pregnancy tests, and have to put them back on the counter.'
  228. end
  229. act 'Move away from the counter':gt 'gaptek', 'start'
  230. end
  231. end
  232. !! you can only buy lube here if your aunt arranged for it and you haven''t bought any today yet
  233. if money >= 300 and galubri = 1 and npc_QW['A29'] >= 2 and gaptekfirst = 1 and galubriday ! daystart:
  234. act 'Buy <b>lubricant</b> (300 <b>₽</b>) <<iif(lubri > 0, ''[left:<b>'' + lubri + ''</b>]'', '''')>>':
  235. cla
  236. *clr
  237. portion = input ("How many tubes do you want to buy? (One tube lasts for 5 uses)")
  238. if portion <= 0:
  239. cla
  240. 'You change your mind and feel flustered,'
  241. act 'Move away from the counter':gt 'gaptek', 'start'
  242. exit
  243. end
  244. if portion > 3:portion = 3 & 'Your aunt shakes her head wearily: "Wow <<$pcs_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."'
  245. if portion * 300 <= money:
  246. lubri += portion * 5
  247. minut += 5
  248. money -= portion * 300
  249. galubriday = daystart
  250. '<center><img <<$set_imgh>> src="images/locations/shared/store/kassa.jpg"></center>'
  251. 'You pay for the lubricant and quickly put the tubes in your pocket, before anyone sees you buy them.'
  252. if npc_QW['A29'] < 3:gaogorod += portion
  253. else
  254. 'You can''t afford to buy the lubricant.'
  255. end
  256. act 'Move away from the counter':gt 'gaptek', 'start'
  257. end
  258. end
  259. end
  260. --- gaptek ---------------------------------