pav_pharmacy.qsrc 96 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810
  1. # pav_pharmacy
  2. $location_type = 'public_indoors'
  3. !! LudaQW['KnowsSexActive'] is for her quest with Olu
  4. !! LudaQW['knows_sex'] is just to check whether she knows for sure whether or not you are sexually active
  5. !! pharmacy['arrive'] is to determine what kind of dialogue you get from who''s behind the counter
  6. !! pharmacy['first_purchase'] = 1 will skip the prologue dialogue when buying multiple items in a row
  7. if $ARGS[0] = 'start':
  8. CLOSE ALL
  9. *clr & cla
  10. $loc = 'pav_pharmacy'
  11. $loc_arg = 'start'
  12. $menu_loc = 'pav_pharmacy'
  13. $menu_arg = 'start'
  14. $loc_s = 'pav_pharmacy'
  15. $args_s = 'start'
  16. menu_off = 0
  17. if sound = 0:PLAY 'sound/shop.mp3',30
  18. gs 'stat'
  19. if gatabletkiday ! daystart: gap_bc_count = 0
  20. if galubriday ! daystart: gap_lub_count = 0
  21. if gapregday ! daystart: gap_preg_count = 0
  22. if gaprezikday ! daystart: gap_condom_count = 0
  23. if gabotsmlday ! daystart: gap_botsml_count = 0
  24. if gabotmedday ! daystart: gap_botmed_count = 0
  25. if ((hour >= 9 and hour < 13) or (hour >= 14 and hour <= 18)) and week < 6:
  26. LudaQW['work_hours'] = 1
  27. else
  28. LudaQW['work_hours'] = 0
  29. end
  30. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  31. if LudaQW['work_hours'] = 1:
  32. if LudaQW['free_condoms'] = 0 and $ARGS[1] = '':gt'pav_pharmacy','luda_free_condoms'
  33. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  34. if pharmacy_timers['birth_control'] > 0 and pharmacy_timers['birth_control'] < daystart - 30 and LudaQW['birth_control_worry'] = 0 and LudaQW['bc_shot_know'] = 0:gt'pav_pharmacy','luda_birth_control_worry'
  35. else
  36. if pav_pharma_day ! daystart: pav_pharma_day = daystart & pav_pharma_picrand = rand(1,4)
  37. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_worker_'+pav_pharma_picrand+'.jpg"></center>'
  38. end
  39. *nl
  40. act 'Leave the pharmacy': gt 'pav_commercial'
  41. if $ARGS[1] = 'return':
  42. '"Do you need anything else?"'
  43. else
  44. if LudaQW['work_hours'] = 0:
  45. 'The woman behind the counter in a white coat greets you, "Hello, what you need?"'
  46. else
  47. 'Aunt Luda is sitting behind the counter and greets you as you walk in.'
  48. '"Hi <<$pcs_nickname>>, are you looking for something?"'
  49. !! if rand(0,1) = 1:
  50. !! '"Hi <<$pcs_firstname>>! How are you?"'
  51. !! else
  52. !! 'She''s busy with a customer right now but acknowledges you with a glance.'
  53. !! end
  54. end
  55. end
  56. act 'Buy something': gt 'pav_pharmacy', 'cart'
  57. end
  58. if $ARGS[0] = 'cart':
  59. *clr & cla
  60. $loc_s = 'pav_pharmacy'
  61. $args_s = 'cart'
  62. if hour < 8 or hour > 20:
  63. 'The pharmacy is currently closed.'
  64. act 'Leave':gt 'pav_commercial'
  65. exit
  66. end
  67. gs 'item_cart', 'shoppping_aisle', 'chemist'
  68. gs 'stat'
  69. gs 'themes', 'indoors'
  70. if LudaQW['work_hours'] = 1:
  71. $backimage= 'images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg'
  72. else
  73. $backimage= 'images/locations/pavlovsk/pharmacy/apteka_worker_'+pav_pharma_picrand+'.jpg'
  74. end
  75. act 'Exit shopping cart':gt 'pav_pharmacy', 'start'
  76. end
  77. if $ARGS[0] = 'buy_condoms':
  78. if pharmacy_timers['condom_timer'] = daystart or LudaQW['birth_control_timer'] = daystart:
  79. gt $loc_s, $args_s
  80. else
  81. pharmacy_timers['condom_timer'] = daystart
  82. end
  83. $ludaQW['pharm_purchase'] = 'condoms'
  84. menu_off = 1
  85. minut += 2
  86. *clr & cla
  87. if LudaQW['KnowsSexActive'] < 10: LudaQW['KnowsSexActive'] += 1
  88. gs 'stat'
  89. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  90. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  91. act'Meekly ask':
  92. cla & *nl
  93. act 'Continue shopping': gt $loc_s, $args_s
  94. if pharmacy['first_purchase'] = 0:
  95. pharmacy['first_purchase'] = 1
  96. 'You awkwardly avoid eye contact, letting your gaze "wander" the shelves behind her, pretending to be looking for anything <i>except</i> condoms. You gulp, feeling your cheeks redden.'
  97. end
  98. !! '"Hi <<$pcs_nickname>>, are you looking for something?"'
  99. if pharmacy['morning_after'] > 0 and LudaQW['condom_scold'] < pharmacy['morning_after']:
  100. LudaQW['condom_scold'] = pharmacy['morning_after']
  101. '"I need some <i>stuff</i>, Aunt Luda," you say in a low voice, trying to be discreet.'
  102. if fame['pav_slut'] > 150:
  103. '"<<$pcs_nickname>>..."'
  104. 'She gives you a flat stare. "Be straight with me. We both know what this is about. If you''re going to be sexually active, especially if you''re going to go so far to end up as a town bicycle, you can''t be embarrassed about buying ''stuff.'' Now, speak clearly. Are you looking fror something?"'
  105. 'You take a deep breath, feeling like you''re a child again, being forced to apologize for breaking something.'
  106. '"I need some condoms Aunt Luda," you mumble, looking down. Luda smiles at you and plops a box immediately onto the counter. <i>How did she know I wanted condoms?</i>'
  107. '"See? Was that so hard?" She continues to smile at you as she casually adds it to your purchase. "Now, was there anything else you needed?"'
  108. else
  109. '"What do you mean stuff?" she asks innocently. "We have all kinds of stuff. Do you mean lip balm? Or anti-itch cream? Or birth control? Or by chance, maybe some anal lub-"'
  110. '"Condoms!" you hiss, looking around the room to see if anybody is watching. "I need condoms Aunt Luda."'
  111. 'Luda chuckles and pulls out a box of condoms that she was clearly holding right behind the counter.'
  112. '"Glad to see you''re being safer about it this time," she says, adding it to your purchase. "Now, was there anything else you needed?"'
  113. end
  114. gs 'pav_pharmacy', 'dont_tell'
  115. elseif LudaQW['condoms'] = 0 and LudaQW['knows_sex'] ! 1:
  116. LudaQW['condoms'] = 1
  117. LudaQW['knows_sex'] = 1
  118. '"I need some <i>stuff</i>, Aunt Luda," you say in a low voice, trying to be discreet.'
  119. if fame['pav_slut'] > 150:
  120. if LudaQW['condom_give_day'] - daystart < 7:
  121. '"You''ve used up my gift already?" Luda laughs in surprise, which only serves to make you blush even harder. "Everyone in Pavlovsk calls you a <<$gnikname>>, but it hasn''t even been a week yet darling."'
  122. else
  123. '"Used up my gift already?" Luda asks, which only serves to make you blush even harder. "I''m not surprised, given what I hear about you around town. Everyone in Pavlovsk seems to think of you as a <<$gnikname>>."'
  124. end
  125. '"Well... but I..." Deeply embarrassed that your aunt —and apparently everyone else in town— knows about your promiscuous behavior, you''re not really sure what to say. She chuckles and gives you a reassuring smile.'
  126. '"Don''t worry <<$pcs_nickname>>, I''m just teasing," she giggles, putting a box of condoms on the counter and adding it to your purchase. "I''m not here to judge. Goodness knows, I''d be one to talk."'
  127. 'She pulls a box of condoms from behind the counter and places into a paper bag, sliding it across the counter towards you.'
  128. if pharmacyfirstbirthcontrol = 0:
  129. '"We also have birth control pills if you''d like to start going bareback."'
  130. gs 'pav_pharmacy', 'birth_control_addon'
  131. end
  132. else
  133. if LudaQW['condom_give_day'] - daystart < 7:
  134. '"You''ve used up my gift already?" Luda laughs in surprise, which only serves to make you blush even harder. "Darling, it hasn''t even been a week!"'
  135. else
  136. '"Used up my gift already?" Luda asks, which only serves to make you blush even harder. "I''m glad it went to good use."'
  137. end
  138. 'She pulls a box of condoms from behind the counter and adds it to your purchase.'
  139. if pharmacyfirstbirthcontrol = 0:
  140. '"We also have birth control pills if you''d like to start going bareback."'
  141. gs 'pav_pharmacy', 'birth_control_addon'
  142. end
  143. end
  144. gs 'pav_pharmacy', 'dont_tell'
  145. else
  146. '"Aunt Luda," you whisper quickly, feeling your face heat up even as you try to rush through the words. "I need some more condoms."'
  147. if pcs_inhib < 50:
  148. '"You''re going through them quite fast," she chuckles slipping a box of condoms into a paper bag and you feel your blush intensify.'
  149. !!'"Thank you, Aunt..." you mumble, taking the bag and stuffing it into your purse.'
  150. else
  151. '"You''re going through them quite fast." Your aunt smiles at you as she slips a box of condoms into a paper bag. You blush, but smile back anyways, shrugging non-committally as she adds it to your purchase.'
  152. !!'"Thank you, Aunt Luda."'
  153. end
  154. end
  155. end
  156. act'Openly ask':
  157. minut += 1
  158. cla & *nl
  159. if LudaQW['condoms'] = 0:
  160. LudaQW['condoms'] = 1
  161. '"Hi Aunt Luda. Can I buy some condoms?"'
  162. if LudaQW['knows_sex'] = 0:
  163. LudaQW['knows_sex'] = 1
  164. if LudaQW['condom_give_day'] - daystart < 7:
  165. '"You''ve used up my gift already?" Luda laughs in surprise. "Darling, it hasn''t even been a week!"'
  166. 'You shrug casually.'
  167. '"Turns out I really like having sex."'
  168. '"It runs in the family," she chuckles, smiling at you fondly and reaching for a box of rubbers and puts them into a bag. "Maybe we all carry a slut gene or something."'
  169. else
  170. '"Used up my gift already?" Luda smiles. "I''m glad it went to good use."'
  171. end
  172. act 'Continue shopping': gt $loc_s, $args_s
  173. if pharmacyfirstbirthcontrol = 0:
  174. '"We also have birth control pills if you''d like to start going bareback."'
  175. gs 'pav_pharmacy', 'birth_control_addon'
  176. end
  177. elseif pharmacyfirstbirthcontrol = 1:
  178. '"Are you seeing someone new?" Luda asks curiously as she gets a box of rubbers and places in in a bag. "Or just being careful? I thought you were already on birth control."'
  179. if birth_control['using_bc'] > 0:
  180. if birth_control['think_safe'] = 0:
  181. '"Still waiting for it to kick in," you smile ruefully.'
  182. '"Oh! Silly me!" Luda rolls her eyes in self-deprecating fashion. "Of course. And I call myself a pharmacist! Well good on you for keeping safe in the mean time!"'
  183. act 'Continue shopping': gt $loc_s, $args_s
  184. else
  185. act'Someone new':
  186. cla & *nl
  187. '"Someone new," you smile. "Haven''t gotten around to making sure they''re clean yet."'
  188. '"Well I hope you do it soon." Her eyes twinkle mischeviously and she leans in with a hand cupped around her mouth. "I prefer bareback too."'
  189. act 'Continue shopping': gt $loc_s, $args_s
  190. end
  191. act'Hookups':
  192. cla & *nl
  193. '"I''ve been having a lot of one night stands lately," you tell her.'
  194. '"Ahh. Glad to know my niece is popular <i>and</i> smart," she winks, adding the condoms to your purchase.'
  195. act 'Continue shopping': gt $loc_s, $args_s
  196. end
  197. act'Just being safe':
  198. cla & *nl
  199. '"Just being safe," you shrug. "Birth control can fail. Condoms can too. Better if I use both, isn''t it?"'
  200. '"Good girl." She smiles at you proudly and adds the condoms to your purchase.'
  201. act 'Continue shopping': gt $loc_s, $args_s
  202. end
  203. end
  204. else
  205. gs'pav_pharmacy', 'luda_stopped_bc'
  206. end
  207. elseif pharmacyfirstbirthcontrol = 0:
  208. '"Of course, darling." She rummages around the counter and comes up with a box of rubbers. "We also have birth control pills if you prefer bareback. As long as you know your partner is clean, of course."'
  209. gs 'pav_pharmacy', 'birth_control_addon'
  210. else
  211. '"Of course, darling!" Luda rummages around under the counter and comes up with a box of rubbers and slides them across to you.'
  212. '"Keep coming back," she winks.'
  213. act 'Continue shopping': gt $loc_s, $args_s
  214. end
  215. else
  216. '"Hi Aunt Luda, I need some more condoms."'
  217. '"You''re going through them quite fast," she chuckles reaching below the counter and pulling up a box of condoms.'
  218. act'Just being safe':
  219. cla & *nl
  220. '"Just being safe," you shrug, taking the box from her. "Thanks, Aunt Luda."'
  221. '"Any time, darling!"'
  222. act 'Continue shopping': gt $loc_s, $args_s
  223. end
  224. act'I''m having a lot of sex':
  225. cla & *nl
  226. '"I''m not sure if this is a contributing factor," you say, pretending to think. "But it might be because I''m having a lot of sex."'
  227. '"And a lot of fun too, I hope," she laughs. "I''m just glad you''re staying safe, darling."'
  228. act 'Continue shopping': gt $loc_s, $args_s
  229. end
  230. end
  231. end
  232. end
  233. if $ARGS[0] = 'buy_birth_control':
  234. if pharmacy_timers['birth_control'] = daystart or LudaQW['birth_control_timer'] = daystart:
  235. gt $loc_s, $args_s
  236. else
  237. pharmacy_timers['birth_control'] = daystart
  238. end
  239. menu_off = 1
  240. *clr & cla
  241. if LudaQW['birth_control_worry'] >= 2:gt 'pav_pharmacy', 'luda_birth_control_start_again_meek'
  242. if LudaQW['birth_control_worry'] = 1: LudaQW['birth_control_worry'] = 0
  243. $ludaQW['pharm_purchase'] = 'bc_pills'
  244. gs 'stat'
  245. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  246. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  247. if pharmacy['first_purchase'] = 0:
  248. pharmacy['first_purchase'] = 1
  249. 'You awkwardly avoid eye contact, letting your gaze "wander" around the pharmacy, pretending you don''t know what you''re here for. Finally, you take a deep breath, feeling your cheeks redden.'
  250. end
  251. !! '"Hi <<$pcs_nickname>>, are you looking for something?"'
  252. act'Meekly ask':
  253. cla & *clr
  254. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  255. if pharmacyfirstbirthcontrol = 0:
  256. pharmacyfirstbirthcontrol = 1
  257. minut += 2
  258. if pharmacy['morning_after'] > 2 or pharmacyfirstpregtest > 0:
  259. '"Erm... yes aunt. I need some <i>stuff</i>," you say looking meaningfully at the birth control pills.'
  260. '"Well it''s about time," Luda says, rolling her eyes dramatically, swiftly grabbing a package and placing it on top of the counter. "I was wondering how many accidents you''d go through before you would wise up and do the safe thing."'
  261. act 'Continue shopping': gt $loc_s, $args_s
  262. elseif fame['pav_slut'] > 150:
  263. LudaQW['knows_sex'] = 1
  264. '"Erm... yes aunt. I need some <i>stuff</i>," you say, looking to the side, avoiding eye contact.'
  265. '"What you mean is birth control pills so you can start having fun without fear," she says with a smile. You look at her surprised. "I''m not deaf <<$pcs_nickname>>. I can hear just about everyone in Pavlovsk calling you a <<$gnikname>>."'
  266. act'Stammer':
  267. cla & *clr
  268. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  269. '"Well- but I-" You''re not really sure what to say and you''re deeply embarrassed that your aunt, and apparently everyone else in town, knows about your promiscuous behavior. She chuckles and gives you a reassuring smile.'
  270. '"Don''t worry <<$pcs_nickname>>, I''m just teasing," she giggles, putting a box of pills into a bag. "I''m not here to judge. It runs in the family; maybe we all carry a slut gene or something."'
  271. act 'Continue shopping': gt $loc_s, $args_s
  272. if LudaQW['condoms'] = 0:
  273. '"Since you seem to have a lot of partners, did you want some condoms too? To protect you from STD''s of course. You can never tell who''s clean and who isn''t these days."'
  274. gs 'pav_pharmacy', 'condom_addon'
  275. end
  276. gs 'pav_pharmacy', 'dont_tell'
  277. end
  278. act'Don''t like condoms':
  279. cla & *clr
  280. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  281. '"I don''t like using condoms..." you mumble. The admission somehow manages to make your face grow even hotter.'
  282. '"Neither do I," Luda giggles, putting a box of pills into a bag. "I think it runs in the family."'
  283. act 'Continue shopping': gt $loc_s, $args_s
  284. gs 'pav_pharmacy', 'dont_tell'
  285. end
  286. act'I''m just being safe':
  287. cla & *clr
  288. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  289. '"I''m just being safe," you mumble, feeling your face somehow grow even hotter. "I still use condoms, but I don''t want to rely only on them."'
  290. '"I''m glad my niece is being smart," she nods, putting a box of pills into a bag. "It''s good to protect yourself from STD''s too. You never know who''s clean these days. Since that''s the case, would you get some more condoms while you''re here?"'
  291. act 'No thanks': gt $loc_s, $args_s
  292. gs 'pav_pharmacy', 'condom_addon'
  293. gs 'pav_pharmacy', 'dont_tell'
  294. end
  295. else
  296. 'You take a deep breath.'
  297. '"Erm... yes aunt. I need some <i>stuff</i>," you say, looking meaningfully at the birth control pills.'
  298. '"Used up my gift already?" Luda asks, smiling impishly. "Or did you just decide you prefer it bareback?"'
  299. act'Ran out':
  300. LudaQW['knows_sex'] = 1
  301. cla & *clr
  302. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  303. if LudaQW['condom_give_day'] - daystart < 7:
  304. '"I ran out," you admit and Luda barks a loud laugh of surprise.'
  305. '"Darling, it hasn''t even been a week!"'
  306. 'Your blush deepens.'
  307. '"Oh don''t be embarrassed. I''m not slut shaming you, darling. It runs in the family," she chuckles, smiling at you fondly and reaching for a box of pills and puts it into a bag.'
  308. else
  309. '"I ran out," you admit, blushing deeply.'
  310. end
  311. *nl
  312. 'Luda takes a small glance backwards as she adds the pills to your purchase.'
  313. '"Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  314. act 'No thanks': gt $loc_s, $args_s
  315. gs 'pav_pharmacy', 'condom_addon'
  316. gs 'pav_pharmacy', 'dont_tell'
  317. end
  318. act'Don''t like condoms':
  319. LudaQW['knows_sex'] = 1
  320. cla & *clr
  321. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  322. '"I don''t like using condoms," you blush. "They don''t feel good."'
  323. '"Maybe I should''ve given you pills from the start," she chuckles, ringing up your purchase. "I know you don''t like them, but can I interest you in some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  324. act 'No thanks': gt $loc_s, $args_s
  325. gs 'pav_pharmacy', 'condom_addon'
  326. gs 'pav_pharmacy', 'dont_tell'
  327. end
  328. act'Want to try bareback':
  329. LudaQW['knows_sex'] = 1
  330. cla & *clr
  331. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  332. '"I want to see what it''s like without a rubber," you admit, blushing. "But I don''t want to get pregnant either."'
  333. '"Oh, it''s <i>wonderful</i> darling," Luda gushes and your blush deepens. "If you''re anything like the other girls in our family, you''ll love it. Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  334. act 'No thanks': gt $loc_s, $args_s
  335. gs 'pav_pharmacy', 'condom_addon'
  336. gs 'pav_pharmacy', 'dont_tell'
  337. end
  338. act'Prefer bareback':
  339. LudaQW['knows_sex'] = 1
  340. cla & *clr
  341. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  342. '"It''s not the same with a rubber," you admit.'
  343. '"I agree," she smirks and your blush deepens. "I started to suspect it runs in the family when your sister started the pill for the same reason. Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  344. act 'No thanks': gt $loc_s, $args_s
  345. gs 'pav_pharmacy', 'condom_addon'
  346. gs 'pav_pharmacy', 'dont_tell'
  347. end
  348. act'Being safe':
  349. LudaQW['knows_sex'] = 1
  350. cla & *clr
  351. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  352. if age < 20:
  353. '"I''m still using condoms," you blush. "But the pill will provide an extra safety net. I''d really like to avoid becoming a teen mom."'
  354. '"I would like that too," she smirks, ringing up your purchase. "Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  355. else
  356. '"I''m still using condoms," you blush. "But the pill will provide an extra safety net. I''m not ready to become a mom."'
  357. '"Good," she smiles, ringing up your purchase. "You should enjoy your youth without the responsibility of parenthood. Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  358. end
  359. act 'No thanks': gt $loc_s, $args_s
  360. gs 'pav_pharmacy', 'condom_addon'
  361. gs 'pav_pharmacy', 'dont_tell'
  362. end
  363. if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
  364. act'Found out I like creampies':
  365. cla & *clr
  366. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  367. '"I... I found out I like it when guys finish inside," you confess. "It feels really good."'
  368. 'Luda raises an eyebrow and you feel a blush spread through your cheeks. '
  369. '"I hope you used my other gift then when you found out?" she asks.'
  370. if stat['morning_after_pill'] > 0:
  371. '"I did," you nod, blush intensifying as you do.'
  372. '"Good," she says, ringing up your purchase. "You''d be a fool if you didn''t."'
  373. *nl
  374. '"Remember to take these every day," she advises, adding the pills to your purchase. "It doesn''t work unless it''s every single day. In fact, they''ll make it more likely for you to get pregnant instead. Which is very bad news for a girl who likes creampies."'
  375. act 'Continue shopping': gt $loc_s, $args_s
  376. else
  377. act'Uh oh':
  378. cla & *nl
  379. 'Your stomach drops and you feel the blood drain from your face.'
  380. '"I, uhh... I forgot...?" you say, cringing.'
  381. '"<<$pcs_firstname>>!" she says, putting her hands on her hips. "What is the matter with you? How could you forget! This is why I gave it to you in the first place!"'
  382. 'Luda shakes her head, making clicking noises with her tongue to herself as she rings up your purchase.'
  383. *nl
  384. '"<i>Don''t</i> forget to take these," she warns, handing over the pills. "Every day young lady, or they won''t work. In fact, they''ll make it more likely for you to get pregnant instead."'
  385. '"Yes, Aunt Luda..." you say meekly.'
  386. act 'Continue shopping': gt $loc_s, $args_s
  387. end
  388. act'It was a safe day':
  389. cla & *nl
  390. '"Er... it was a safe day," you mumble out.'
  391. '"<<$pcs_firstname>>!" she says, putting her hands on her hips. "The calendar method? Really?"'
  392. 'Your blush deepens as Luda huffs exasperatedly and she slaps a box of pills down on the counter.'
  393. *nl
  394. '"That''s a highly irresponsible method of birth control!" She sighs as she starts scanning the box. "At least you''re getting off of that and onto these Just remember: you take these <i>every</i> day young lady, or they won''t work. In fact, they''ll make it more likely for you to get pregnant instead."'
  395. '"Yes, Aunt Luda..." you say meekly.'
  396. act 'Continue shopping': gt $loc_s, $args_s
  397. end
  398. end
  399. end
  400. end
  401. if LudaQW['knows_sex'] = 0:
  402. act'It''s for my cycle':
  403. cla & *clr
  404. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  405. if stat['think_virgin'] = 1:
  406. '"I just want to regulate my cycle Aunt Luda," you protest, blushing deeply. "I''m not having sex."'
  407. else
  408. '"I just want to regulate my cycle Aunt Luda," you lie, blushing deeply. "I''m not having sex."'
  409. end
  410. 'She smiles at you with a suspicious twist at the corner of her mouth as she adds the pills to your purchase.'
  411. '"Well, I can''t prove otherwise, so I suppose I''ll just have to take you at your word..."'
  412. act 'Continue shopping': gt $loc_s, $args_s
  413. end
  414. end
  415. end
  416. else
  417. if pcs_inhib < 50:
  418. '"I need some more birth control pills, Aunt Luda," you mumble.'
  419. '"You''re remembering to take them every day, right?" she asks, ringing you up and putting the pills into a bag. You nod without speaking, avoiding her gaze as she hands you your purchase. "Good. Also, a little trick if you want to stop having periods: skip your placebo pills and just go straight to the next active pill. The hormones will build up enough that you''ll no longer menstruate. You''ll probably still have some cramps, but at least you shouldn''t need tampons either."'
  420. '"Thank you, Aunt..." you say, blushing as she adds the pills to your purchase.'
  421. else
  422. '"I need some more birth control pills, Aunt Luda." You manage to say it with a straight face, though you still feel your cheeks heat up.'
  423. '"You''re remembering to take them every day, right?" she asks, ringing you up and putting the pills into a bag.'
  424. '"Yes, Aunt Luda."'
  425. '"Good. Also, a little trick if you want to stop having periods: skip your placebo pills and just go straight to the next active pill. The hormones will build up enough that you''ll no longer menstruate. You''ll probably still have some cramps, but at least you shouldn''t need tampons either."'
  426. '"Okay, thanks for the advice," you nod meekly.'
  427. end
  428. act 'Continue shopping': gt $loc_s, $args_s
  429. end
  430. end
  431. act'Openly ask':
  432. cla & *clr
  433. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  434. if pharmacyfirstbirthcontrol = 0:
  435. pharmacyfirstbirthcontrol = 1
  436. minut += 2
  437. if pharmacy['morning_after'] > 2 or pharmacyfirstpregtest > 0:
  438. '"Hi Aunt Luda. Can I buy some birth control pills?"'
  439. '"Well it''s about time," Luda says, rolling her eyes dramatically, swiftly grabbing a package and placing it on top of the counter. "I was wondering how many accidents you''d go through before you would wise up and do the safe thing."'
  440. elseif LudaQW['condoms'] = 0:
  441. '"Hi Aunt Luda. Can I buy some birth control pills?"'
  442. '"Did you use up my gift already?" Luda asks, smiling impishly. "Or did you just decide you prefer it bareback?"'
  443. act'Ran out':
  444. LudaQW['knows_sex'] = 1
  445. cla & *clr
  446. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  447. '"I ran out," you admit. "Thank you for your gift by the way."'
  448. if LudaQW['condom_give_day'] - daystart < 7:
  449. '"I ran out," you admit and Luda laughs in surprise.'
  450. '"Darling, it hasn''t even been a week!"'
  451. 'You shrug casually.'
  452. '"Turns out I really like having sex."'
  453. '"It runs in the family," she chuckles, smiling at you fondly and reaching for a box of rubbers and puts them into a bag. "Maybe we all carry a slut gene or something."'
  454. else
  455. '"I ran out," you admit. "But the pill seems like less hassle.'
  456. end
  457. '"I''m glad it went to good use," she chuckles, ringing up your purchase. "Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  458. act 'No thanks': gt $loc_s, $args_s
  459. gs 'pav_pharmacy', 'condom_addon'
  460. end
  461. act'Hate condoms':
  462. LudaQW['knows_sex'] = 1
  463. cla & *clr
  464. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  465. '"I''m sick of using condoms," you say, grimacing. "It''s just too much of a hassle. I appreciate the gift, but maybe you should''ve given me a box of pills instead."'
  466. '"I suppose that would have been a little easier," she chuckles, ringing up your purchase. "I know you don''t like them, but can I interest you in some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  467. act 'No thanks': gt $loc_s, $args_s
  468. gs 'pav_pharmacy', 'condom_addon'
  469. end
  470. act'Want to try bareback':
  471. LudaQW['knows_sex'] = 1
  472. cla & *clr
  473. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  474. '"I want to see what it''s like without a rubber," you admit, smiling. "But I don''t want the risk that comes with it. Not without birth control at least."'
  475. '"Oh, it''s <i>wonderful</i> darling," Luda gushes. "If you''re anything like the other girls in our family, you''ll love it. Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  476. act 'No thanks': gt $loc_s, $args_s
  477. gs 'pav_pharmacy', 'condom_addon'
  478. gs 'pav_pharmacy', 'dont_tell'
  479. end
  480. act'Prefer bareback':
  481. LudaQW['knows_sex'] = 1
  482. cla & *clr
  483. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  484. '"Bareback," you admit, smiling. "It''s not the same with a rubber. I can''t feel him inside me. I appreciate the gift, but maybe you should''ve given me a box of pills instead."'
  485. '"I probably should have," she chuckles. "I should have guessed it runs in the family when your sister started the pill for the same reason. Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  486. act 'No thanks': gt $loc_s, $args_s
  487. gs 'pav_pharmacy', 'condom_addon'
  488. end
  489. act'Being safe':
  490. LudaQW['knows_sex'] = 1
  491. cla & *clr
  492. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  493. if age < 20:
  494. '"I''m still using condoms," you shrug. "But the pill will provide an extra safety net. I''d really like to avoid becoming a teen mom."'
  495. '"I would like that too," she smirks, ringing up your purchase. "Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  496. else
  497. '"I''m still using condoms," you shrug. "But the pill will provide an extra safety net. I''m not ready to become a mom."'
  498. '"Good," she smiles, ringing up your purchase. "You should enjoy your youth without the responsibility of parenthood. Did you want some more condoms while you''re here? It takes a few weeks for the pill to become effective."'
  499. end
  500. act 'No thanks': gt $loc_s, $args_s
  501. gs 'pav_pharmacy', 'condom_addon'
  502. end
  503. if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
  504. act'Found out I like creampies':
  505. cla & *clr
  506. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  507. '"Actually I... found out I like creampies," you confess, with a wide smile. "It feels really good."'
  508. '"I hope you used my other gift upon discovery?" she asks.'
  509. if stat['morning_after_pill'] > 0:
  510. '"I did," you nod. "It really helped me enjoy the creampie without worry."'
  511. '"Well," she says, returning your smile as she rings up your purchase. "That''s what the gift was for. So you could experiment without fear. So I''m happy it came in handy."'
  512. *nl
  513. '"Remember to take these every day," she advises, handing over the pills. "It doesn''t work unless it''s every single day. In fact, they''ll make it more likely for you to get pregnant instead. Which is very bad news for a girl who likes creampies."'
  514. '"Thank you, Aunt Luda," you say.'
  515. act 'Continue shopping': gt $loc_s, $args_s
  516. else
  517. act'Uh oh':
  518. cla & *nl
  519. '"Uhh..." You put up your hands and awkwardly smile at her. "Actually... I forgot to...?"'
  520. '"<<$pcs_firstname>>!" she says, putting her hands on her hips. "What is the matter with you? How could you forget! This is why I gave it to you in the first place!"'
  521. 'Luda shakes her head, making clicking noises with her tongue to herself as she rings up your purchase.'
  522. *nl
  523. '"Well <i>don''t</i> forget to take these," she warns, handing over the pills. "Every day young lady, or they won''t work. In fact, they''ll make it more likely for you to get pregnant instead."'
  524. '"Yes, Aunt Luda," you say with another cringing smile.'
  525. act 'Continue shopping': gt $loc_s, $args_s
  526. end
  527. act'It was a safe day':
  528. cla & *nl
  529. '"It was a safe day," you tell her with a calm smile.'
  530. '"<<$pcs_firstname>>!" she says, putting her hands on her hips. "The calendar method? Really?"'
  531. 'Luda shakes her head, huffing loudly as she grabs a box of pills and slaps them down on the counter.'
  532. *nl
  533. '"That''s a highly irresponsible method of birth control!" She sighs as she starts scanning the box. "At least you''re getting off of that and onto these Just remember: you take these <i>every</i> day young lady, or they won''t work. In fact, they''ll make it more likely for you to get pregnant instead."'
  534. act 'Continue shopping': gt $loc_s, $args_s
  535. end
  536. end
  537. end
  538. end
  539. act'It''s for my cycle':
  540. cla & *clr
  541. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  542. if LudaQW['knows_sex'] = 0:
  543. '"I just want to regulate my cycle Aunt Luda," you protest. "I''m not having sex."'
  544. else
  545. '"I just want to regulate my cycle Aunt Luda," you lie shamelessly. "I''m not having sex."'
  546. end
  547. 'She smiles at you with a suspicious twist at the corner of her mouth.'
  548. '"Well, I can''t prove otherwise, so I suppose I''ll just have to take you at your word..."'
  549. act 'Continue shopping': gt $loc_s, $args_s
  550. end
  551. !! gs 'pav_pharmacy', 'condom_addon_start'
  552. end
  553. else
  554. '"Can I have some more birth control pills please?"'
  555. '"Of course darling," she says, ringing you up and passing the pills across the counter to you. "You''re remembering to take them every day, right?"'
  556. '"Yes, Aunt Luda."'
  557. '"Good. Also, a little trick if you want to stop having periods: skip your placebo pills and just go straight to the next active pill. The hormones will build up enough that you''ll no longer menstruate."'
  558. act 'Continue shopping': gt $loc_s, $args_s
  559. end
  560. end
  561. end
  562. if $ARGS[0] = 'buy_preg_test':
  563. if pharmacy_timers['preg_test'] = daystart:
  564. gt $loc_s, $args_s
  565. else
  566. pharmacy_timers['preg_test'] = daystart
  567. end
  568. menu_off = 1
  569. *clr & cla
  570. if LudaQW['KnowsSexActive'] < 10: LudaQW['KnowsSexActive'] = 10
  571. LudaQW['knows_sex'] = 1
  572. gs 'stat'
  573. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  574. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  575. 'You awkwardly avoid eye contact, your stomach a bundle of nerves, stressing you out with what you have to ask her for.'
  576. if pharmacyfirstpregtest = 0:
  577. pharmacyfirstpregtest = 1
  578. if preziktype = 0:
  579. mc_inventory['equipped_condoms'] += 5
  580. elseif preziktype = 1 or preziktype = 2:
  581. mc_inventory['normal_condoms'] += 5
  582. end
  583. minut += 2
  584. mc_inventory['normal_condoms'] += 5
  585. if fame['pav_slut'] > 150:
  586. '"Aunt Luda... I need... I need a pregnancy test."'
  587. 'You glance up expecting an explosive reaction of surprise but are surprised yourself when you see her looking at you with what appeared to be disappointed resignation.'
  588. '"I was wondering if this might happen," she sighs. When she notices your surprised look she adds, "I''m not deaf <<$pcs_nickname>>. I can hear just about everyone in Pavlovsk calling you a <<$gnikname>>. I had just hoped you were being safe."'
  589. '"Well... but I..." Deeply embarrassed that your aunt —and apparently everyone else in town— knows about your promiscuous behavior, you''re not really sure what to say, but she gives you a rueful smile.'
  590. '"Don''t worry, <<$pcs_nickname>>. I''m not here to judge. Accidents happen. Goodness knows, your sister is living proof of that." She puts the test into a bag, sliding it across the counter towards you.'
  591. else
  592. '"Aunt Luda... I need... I need a pregnancy test."'
  593. 'Her eyes go wide.'
  594. '"<<$pcs_nickname>>! What happened??"'
  595. '"I know, Aunt," you say, deeply embarrassed. "I just... made a mistake..."'
  596. '"I guess we all make those," she sighs, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that. Literally."'
  597. !! if rape_day+3 > daystart:
  598. !! act'I was raped':gt 'pav_pharmacy', 'buy_morning_after_raped'
  599. !! end
  600. end
  601. act'Don''t tell <<$npc_nickname[''A29'']>>':
  602. cla & *clr
  603. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  604. LudaQW['dont_tell'] = 1
  605. if momslut >= 1:
  606. '"Please don''t tell <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
  607. 'Your aunt gives you a odd smile. "You might be surprised dear, but anyways I promise this is our little secret."'
  608. 'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to get an earful from her is all."'
  609. 'Luda nods and hands over the package. "It''s our secret for now, though if that test comes back positive, there''s nothing that will stop her from noticing when your belly starts to grow. Either way, take these."'
  610. else
  611. '"You might be surprised dear," your aunt says with an odd smile. "But anyways I promise this is our little secret. At least, if that test is negative. If it comes back positive, there''s nothing that will stop her from noticing when your belly starts to grow. Either way, take these."'
  612. end
  613. 'Luda pushes a box of condoms across the counter towards you.'
  614. '"I won''t charge you for these, but <i>please</i> use them. Let''s not let this happen again, shall we?"'
  615. mc_inventory['normal_condoms'] += 10
  616. act 'Continue shopping': gt $loc_s, $args_s
  617. end
  618. else
  619. minut += rand(2, 5)
  620. act'Meekly ask':
  621. cla & *nl
  622. '"I need... I need another pregnancy test, Aunt Luda" you stammer.'
  623. '"<<$pcs_nickname>>..." she says, looking disappointed. "When are you going to learn?"'
  624. 'You look down, avoiding her gaze as she rings you up.'
  625. '"I''m not trying to lecture you, but really! Be careful!" she says as she runs the barcode across the scanner. "Or soon there''s going to be more than just sperm swimming around in your belly."'
  626. act 'Continue shopping': gt $loc_s, $args_s
  627. end
  628. act'Openly ask':
  629. cla & *nl
  630. '"I need another pregnancy test, Aunt Luda," you say shamelessly.'
  631. '"<<$pcs_nickname>>..." she says, looking disappointed. "When are you going to learn?"'
  632. '"It''s just a mistake auntie," you say with a shrug, causing Luda to shake her head.'
  633. '"I''m not trying to lecture you, but really! Be careful!" she says as she runs the barcode across the scanner. "Or soon there''s going to be more than just sperm swimming around in your belly."'
  634. act 'Continue shopping': gt $loc_s, $args_s
  635. end
  636. end
  637. end
  638. if $ARGS[0] = 'buy_lube':
  639. if pharmacy_timers['lube'] = daystart:
  640. gt $loc_s, $args_s
  641. else
  642. pharmacy_timers['lube'] = daystart
  643. end
  644. menu_off = 1
  645. *clr & cla
  646. if LudaQW['KnowsSexActive'] < 10: LudaQW['KnowsSexActive'] += 1
  647. gs 'stat'
  648. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  649. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  650. if pharmacy['first_purchase'] = 0:
  651. pharmacy['first_purchase'] = 1
  652. 'You awkwardly avoid eye contact, letting your gaze "wander" around the pharmacy, pretending you don''t know what you''re here for. Finally, you take a deep breath, feeling your cheeks redden.'
  653. end
  654. if pharmacyfirstlube = 0:
  655. pharmacyfirstlube = 1
  656. minut += 2
  657. if fame['pav_slut'] > 150:
  658. '"Erm... yes aunt. I need some <i>stuff</i>," putting extra emphasis on the word, while looking at the lube.'
  659. '"I was wondering if you were going to ask me for this," she says with a smile. When she notices your surprised look she adds, "When everyone in Pavlovsk is calling you a <<$gnikname>>, it was only a matter of time before you started letting boys go in the back door."'
  660. '"Well... but I..." Deeply embarrassed that your aunt —and apparently everyone else in town— knows about your promiscuous behavior, you''re not really sure what to say. She chuckles and gives you a reassuring smile.'
  661. '"Don''t worry <<$pcs_nickname>>, I''m just teasing," she giggles. The register beeps loudly as she runs the tube of lubricant across the scanner. "I''m not here to judge. Goodness knows, I''d be one to talk. I go through two of these a month!"'
  662. else
  663. '"Erm... yes aunt. I need some <i>stuff</i>," putting extra emphasis on the word, while looking at the lube.'
  664. '"Trying to get around your mother''s rules by using your ass, <<$pcs_nickname>>?" she asks, smirking.'
  665. 'Your face manages to heat up even more.'
  666. '"I, uhh..."'
  667. '"Don''t worry," she chuckles. The register beeps loudly as she runs the tube of lubricant across the scanner. "Your sister asked me for the same thing when she was your age. A little earlier, in fact."'
  668. end
  669. else
  670. if pcs_inhib < 50:
  671. '"Hi Aunt Luda, I need some more lube," You tell her slightly blushing.'
  672. '"If you''re going through it fast, you might want to tell the boys to give your poor butt a rest once in awhile," she chuckles. You blush harder, avoiding her gaze as she runs the tube of lubricant across the scanner and the register beeps loudly.'
  673. else
  674. '"Hi Aunt Luda, I need some more lube."'
  675. '"If you''re going through it fast, you might want to tell the boys to give your poor butt a rest once in awhile," she chuckles.'
  676. 'You roll your eyes at her teasing. "As long as I have this my butt will be just fine."'
  677. end
  678. end
  679. act 'Continue shopping': gt $loc_s, $args_s
  680. end
  681. if $ARGS[0] = 'buy_morning_after':
  682. if pharmacy_timers['morning_after'] = daystart:
  683. gt $loc_s, $args_s
  684. else
  685. pharmacy_timers['morning_after'] = daystart
  686. end
  687. menu_off = 1
  688. *clr & cla
  689. if LudaQW['KnowsSexActive'] < 10: LudaQW['KnowsSexActive'] += 2
  690. gs 'stat'
  691. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  692. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  693. if pharmacy['first_purchase'] = 0:
  694. pharmacy['first_purchase'] = 1
  695. 'You awkwardly avoid eye contact, letting your gaze "wander" around the pharmacy, pretending you don''t know what you''re here for.'
  696. end
  697. act'Meekly ask':
  698. cla
  699. if pharmacy['morning_after'] = 0:
  700. pharmacy['morning_after'] += 1
  701. minut += 2
  702. '"Aunt Luda..." You take a deep breath. "I need some Plan B..."'
  703. if fame['pav_slut'] > 150:
  704. '"I was wondering if this was going to happen," she sighs, shaking her head. You look at her confused and she gives you a flat stare. "Come on, <<$pcs_nickname>>. Everyone in Pavlovsk calls you a <<$gnikname>>. You think I haven''t heard?"'
  705. else
  706. '"<<$pcs_nickname>>!" Her eyes go wide with shock. "What happened?" she says, immediately scurrying over towards the birth control products.'
  707. end
  708. else
  709. if pcs_inhib < 50:
  710. '"Aunt Luda," you whisper. "I need another plan B pill."'
  711. '"Again?!" she asks, aghast. Your face heats up in a crimson blush.'
  712. else
  713. '"Hi Aunt Luda," you say, feeling your face already begin to heat up. "I need another plan B pill."'
  714. '"Again?!" she asks, aghast. Your only response is to give a sort of sorry shrug.'
  715. end
  716. '"How many times are you going to make the same mistake <<$pcs_nickname>>?" She shakes her head as she scans the box with a loud beep. "You need to buy some birth control already. It really isn''t that hard to just take a pill every day you know."'
  717. end
  718. act'It''s for emergencies':gt 'pav_pharmacy', 'morning_after_emergency_embarrassed'
  719. act'I made a mistake':gt 'pav_pharmacy', 'morning_after_mistake_embarrassed'
  720. act'He didn''t pull out':gt 'pav_pharmacy', 'morning_after_no_pullout_meek'
  721. act'He didn''t pull out (annoyed)':gt 'pav_pharmacy', 'morning_after_no_pullout_annoyed'
  722. if stat['last_broken_condom'] >= daystart - 3:
  723. act'The condom broke':gs 'pav_pharmacy', 'buy_morning_after_condom_broke_meek'
  724. end
  725. if birth_control['condom_stealth'] >= daystart - 3:
  726. act'I got stealthed':gs 'pav_pharmacy', 'morning_after_stealth_meek'
  727. end
  728. !! if rape_day+3 > daystart:
  729. !! act'I was raped':gt 'pav_pharmacy', 'buy_morning_after_raped'
  730. !! end
  731. end
  732. act'Openly ask':
  733. cla
  734. if pharmacy['morning_after'] = 0:
  735. pharmacy['morning_after'] += 1
  736. minut += 2
  737. '"I need a Plan B pill Aunt Luda," you say casually.'
  738. if fame['pav_slut'] > 150:
  739. '"I was wondering when this was going to happen," she sighs, shaking her head. You look at her confused and she gives you a flat stare. "Come on, <<$pcs_nickname>>. I hear your name and ''<<$gnikname>>'' in the same sentence practically every other day. It''s not hard to put the pieces together."'
  740. '"I guess I have been getting around a lot," you smile sheepishly. Luda rolls her eyes.'
  741. '"Based on what I''ve heard, that''s putting it lightly." She slaps the package down on the counter.'
  742. else
  743. '"<<$pcs_nickname>>!" Her eyes go wide with shock. "What happened?" she says, immediately scurrying over towards the birth control products.'
  744. end
  745. act'It''s for emergencies':gt 'pav_pharmacy', 'morning_after_emergency_open'
  746. act'I made a mistake':gt 'pav_pharmacy', 'morning_after_mistake_open'
  747. act'He didn''t pull out (annoyed)':gt 'pav_pharmacy', 'morning_after_no_pullout_annoyed'
  748. if stat['last_broken_condom'] >= daystart - 3:
  749. act'The condom broke':gs 'pav_pharmacy', 'buy_morning_after_condom_broke_meek'
  750. end
  751. if birth_control['condom_stealth'] >= daystart - 3:
  752. act'I got stealthed':gs 'pav_pharmacy', 'morning_after_stealth_open'
  753. end
  754. else
  755. minut += rand(2, 5)
  756. '"Hi Aunt Luda," you say casually. "I need another Plan B pill."'
  757. if pcs_inhib < 50:
  758. '"Again?!" she asks, aghast. Your face heats up in a crimson blush.'
  759. else
  760. '"Again?!" she asks, aghast. Your only response is to give a sort of sorry shrug.'
  761. end
  762. '"How many times are you going to make the same mistake <<$pcs_nickname>>?" She shakes her head as she scans the box with a loud beep. "You need to buy some birth control already. It really isn''t that hard to just take a pill every day you know."'
  763. act 'Continue shopping': gt $loc_s, $args_s
  764. if stat['last_broken_condom'] >= daystart - 3:
  765. act'The condom broke':gt 'pav_pharmacy', 'buy_morning_after_condom_broke_open'
  766. end
  767. if birth_control['condom_stealth'] >= daystart - 3:
  768. act'I got stealthed':gs 'pav_pharmacy', 'morning_after_stealth_open'
  769. end
  770. end
  771. end
  772. end
  773. if $ARGS[0] = 'morning_after_emergency_embarrassed':
  774. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  775. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  776. if pharmacy['morning_after'] > 1: pharmacy['morning_after'] -= 1
  777. if pharmacyfirstbirthcontrol = 0:
  778. '"Nothing happened!" you say, quickly rushing to reassure her. "I- I uhmm... I just want it for emergencies... Just in case, you know?"'
  779. '"And what about the one you already have?" Luda says with a raised eyebrow. "The one I gave you for an emergency?"'
  780. if stat['morning_after_pill'] >= 1:
  781. act'Uhh...':
  782. cla & *nl
  783. '"I... uhh..." you stammer.'
  784. '"''Nothing happened'' my fat ass," Luda rolls her eyes to the heavens and grabs the pill you requested off of a shelf behind her. "You already used it didn''t you?"'
  785. '"Erm..." You blush brightly, deeply embarrassed."'
  786. '"You could at least be honest with me," she sighs. "Better to be honest about something bad you did than lie about it and let it get worse. <i>Especially</i> with this sort of thing."'
  787. '"Yes Aunt," you mumble guiltily.'
  788. '"Why don''t you buy some birth control pills while you''re here?" Luda insists. "Then you don''t have to worry about this kind of thing. It takes several weeks to become effective so the sooner you start, the better."'
  789. gs 'pav_pharmacy', 'birth_control_addon'
  790. end
  791. else
  792. act'"I forgot"':
  793. cla & *nl
  794. '"Oh!"'
  795. 'You blink in surprise before reaching into your bag and rummage around.'
  796. '"It''s... right here," you mumble sheepishly. "I... forgot you gave it to me."'
  797. '"Well that''s a little worrisome," she responds dryly as she pulls a box off a shelf behind her. "All the morning after pills in the world don''t matter if you forget they''re there."'
  798. '"Yes Aunt," you sigh.'
  799. '"Why don''t you buy some birth control pills while you''re here?" Luda insists. "Then you don''t have to worry about this kind of thing. It takes several weeks to become effective so the sooner you start, the better."'
  800. gs 'pav_pharmacy', 'birth_control_addon'
  801. end
  802. act'Disaster planning':
  803. cla & *nl
  804. '"I still have it here," you say, smiling sheepishly as you pull it out of your bag to show her. "I''m just being a little paranoid and planning for disaster."'
  805. '"Well at least that puts my fears that you were lying to me to rest," she chuckles. "You''re clearly taking your personal safety very seriously. But to be extra safe, why don''t you buy some birth control pills while you''re here? Then you don''t have to worry about this kind of thing at all. It takes several weeks to become effective so the sooner you start, the better."'
  806. gs 'pav_pharmacy', 'birth_control_addon'
  807. end
  808. end
  809. !! 'Luda heaves a mighty sigh.'
  810. !! '"My goodness! You need to lead with that next time, <<$pcs_firstname>>! I nearly had a heart attack!"'
  811. !! '"Sorry," you cringe as she rings up the pill, shaking her head.'
  812. !! '"If you really want to be safe, you should start on the pill. I can give you a box right now for you to start. It takes several weeks to become effective so the sooner you start, the better."'
  813. !! gs 'pav_pharmacy', 'birth_control_addon'
  814. else
  815. if birth_control['think_safe'] ! 1 and pillcon2 > 0:
  816. '"Nothing happened!" you say, quickly rushing to reassure her. "I- I uhmm... I just want it for emergencies... Just in case something happens before the pill fully kicks in?"'
  817. else
  818. '"Nothing happened!" you say, quickly rushing to reassure her. "I- I uhmm... I just want it for emergencies... Like if I forget my birth control or something..."'
  819. end
  820. 'Luda heaves a mighty sigh.'
  821. '"My goodness! You need to lead with that next time, <<$pcs_firstname>>! I nearly had a heart attack!"'
  822. '"Sorry," you cringe as she rings you up, shaking her head.'
  823. act 'Continue shopping': gt $loc_s, $args_s
  824. end
  825. end
  826. if $ARGS[0] = 'morning_after_emergency_open':
  827. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  828. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  829. if pharmacy['morning_after'] > 1: pharmacy['morning_after'] -= 1
  830. if pharmacyfirstbirthcontrol = 0:
  831. '"Nothing happened Aunt Luda," you say with a relaxed smile. "I just want one for emergencies. In case a condom breaks or something."'
  832. 'Luda heaves a mighty sigh.'
  833. '"My goodness! You need to lead with that next time, <<$pcs_firstname>>! I nearly had a heart attack!"'
  834. '"Sorry," you say with an only slightly guilty grin.'
  835. '"If you really want to be safe, you should start on the pill. I can give you a box right now for you to start. The sooner the better, it takes several weeks for it to become effective."'
  836. gs 'pav_pharmacy', 'birth_control_addon'
  837. else
  838. if birth_control['think_safe'] ! 1 and pillcon2 > 0:
  839. '"Nothing happened Aunt Luda," you say with a relaxed smile. "I just want one for emergencies. In case a condom breaks before my birth control kicks in."'
  840. else
  841. '"Nothing happened Aunt Luda," you say with a relaxed smile. "I just want one for emergencies. In case I get drunk and forget to take my birth control or something."'
  842. end
  843. 'Luda heaves a mighty sigh.'
  844. '"My goodness! You need to lead with that next time, <<$pcs_firstname>>! I nearly had a heart attack!"'
  845. '"Sorry," you grin back.'
  846. act 'Continue shopping': gt $loc_s, $args_s
  847. end
  848. end
  849. if $ARGS[0] = 'morning_after_mistake_embarrassed':
  850. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  851. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  852. if fame['pav_slut'] > 150:
  853. '"I''m normally careful!" you protest, cheeks burning with embarrassment that even Luda knows about your promiscuous behavior. "I just... made a mistake this time..."'
  854. '"I guess we all make those," she sighs again, walking across the back of the counter, taking a small box off the shelf and brings it back. "Goodness knows, your sister''s quite living proof of that. Literally."'
  855. else
  856. '"I know, Aunt," you blush in embarrassment. "I just... made a mistake..."'
  857. if pharmacy['morning_after'] > 3:
  858. '"One or two mistakes is understandable but at some point you need to start taking responsibility for yourself," Luda chides, eyeballing you as she takes a small box off the shelf. "I may be ageing but I can still count."'
  859. else
  860. '"I guess we all make those," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that. Literally."'
  861. end
  862. end
  863. gs 'pav_pharmacy', 'buy_morning_after_end'
  864. gs 'pav_pharmacy', 'morning_after_warning'
  865. end
  866. if $ARGS[0] = 'morning_after_no_pullout_meek':
  867. cla & *clr
  868. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  869. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  870. '"He uhh... forgot to pull out?" you say with chagrin.'
  871. '"Tsk~! Honestly!" your aunt chides as she pulls the morning after pills down from a shelf. "You should have better common sense than to just trust a boy will pull out because you asked him to."'
  872. 'Luda seems a little mad at you as she adds it to your purchase.'
  873. gs 'pav_pharmacy', 'morning_after_warning'
  874. end
  875. if $ARGS[0] = 'morning_after_no_pullout_annoyed':
  876. cla & *clr
  877. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  878. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  879. '"He told me he was going to pull out, but he didn''t," you sigh bitterly, letting your annoyance show.'
  880. '"Tsk~! Honestly!" your aunt chides as she pulls the morning after pills down from a shelf. "You should have better common sense than to just trust a boy to pull out because you asked him to."'
  881. 'Luda seems a little mad at you as she adds it to your purchase.'
  882. gs 'pav_pharmacy', 'morning_after_warning'
  883. end
  884. if $ARGS[0] = 'morning_after_mistake_open':
  885. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  886. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  887. if fame['pav_slut'] > 150:
  888. '"I''m normally careful!" you protest, a little annoyed that she''s making assumptions about you. "I just made a mistake this time."'
  889. '"I guess we all make those," she sighs as she adds it to your purchase.'
  890. else
  891. '"I just made a mistake," you shrug. "Surely a girl''s allowed one or two of those, isn''t she?"'
  892. if pharmacy['morning_after'] > 3:
  893. '"You''ve had more than one or two," Luda says, eyeballing you as she takes a small box off the shelf. "I may be ageing but my memory isn''t that bad."'
  894. else
  895. '"One mistake can still have lasting consequences," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that. Literally."'
  896. end
  897. end
  898. gs 'pav_pharmacy', 'buy_morning_after_end'
  899. gs 'pav_pharmacy', 'morning_after_warning'
  900. end
  901. if $ARGS[0] = 'morning_after_stealth_meek':
  902. cla & *clr
  903. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  904. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  905. '"The guy I was with stealthed me," you say embarrassedly. "He was, erm, ''behind'' me and I asked him to put on a condom. He lied and said he did before he, uhh... ''finished'' in me..."'
  906. '"Oh darling," Luda says, shaking her head sympathetically. "Men are pigs. That''s why you can''t let down your guard around them. If you want them to use a condom, you need to put it on them yourself. Can''t trust them otherwise. It only takes one."'
  907. 'Luda adds the pill to your purchase.'
  908. '"But how did you not notice?" she asks, puzzled. "Couldn''t you feel the difference? It''s the reason why your mother and I don''t use condoms."'
  909. act 'Continue shopping': gt $loc_s, $args_s
  910. end
  911. if $ARGS[0] = 'morning_after_stealth_open':
  912. cla & *clr
  913. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  914. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  915. '"It''s not my fault!" you say. "The guy stealthed me! He mounted me from behind and lied when I told him to put on a condom. Bastard even had the nerve to come inside me after!"'
  916. '"Oh darling," Luda says, shaking her head sympathetically. "Men are pigs. That''s why you can''t let down your guard around them. If you want them to use a condom, you need to put it on them yourself. Can''t trust them otherwise. It only takes one."'
  917. 'Luda adds the pill to your purchase.'
  918. '"But how did you not notice?" she asks, puzzled. "Couldn''t you feel the difference? It''s the reason why your mother and I don''t use condoms."'
  919. act 'Continue shopping': gt $loc_s, $args_s
  920. end
  921. if $ARGS[0] = 'buy_morning_after_condom_broke_meek':
  922. cla & *nl
  923. if LudaQW['broken_condoms'] = 0:
  924. '"The condom broke," you mumble embarrassedly.'
  925. '"Well, I suppose that''s not your fault," Luda sighs as she adds the pill to your purchase. "But that''s why it''s better to double up your protection."'
  926. else
  927. '"The condom broke again," you mumble embarrassedly.'
  928. if LudaQW['broken_condoms'] <= 5:
  929. '"You must have some bad luck," Luda says, shaking her head as she adds the pill to your purchase. "Are you sure you don''t want to start the pill?"'
  930. else
  931. '"This is just getting ridiculous," Luda huffs in exasperation as she adds the pill to your purchase. "Just start the bloody pill already <<$pcs_firstname>>!"'
  932. end
  933. end
  934. LudaQW['broken_condoms'] += 1
  935. act 'Continue shopping': gt $loc_s, $args_s
  936. end
  937. if $ARGS[0] = 'buy_morning_after_condom_broke_open':
  938. cla & *nl
  939. if LudaQW['broken_condoms'] = 0:
  940. '"It''s not my fault," you shrug. "Condom broke."'
  941. '"Well, I suppose that''s does happen from time to time," Luda sighs as she adds the pill to your purchase. "But that''s why it''s better to double up your protection."'
  942. else
  943. '"The condom broke again," you shrug.'
  944. if LudaQW['broken_condoms'] <= 5:
  945. '"You must have some bad luck," Luda says, shaking her head as she adds the pill to your purchase. "Are you sure you don''t want to start the pill?"'
  946. else
  947. '"This is just getting ridiculous," Luda huffs in exasperation as she adds the pill to your purchase. "Just start the bloody pill already <<$pcs_firstname>>!"'
  948. end
  949. end
  950. LudaQW['broken_condoms'] += 1
  951. act 'Continue shopping': gt $loc_s, $args_s
  952. end
  953. if $ARGS[0] = 'buy_morning_after_raped':
  954. cla & *clr
  955. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  956. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  957. if fame['pav_slut'] > 150:
  958. '"Well... but I..." You''re not really sure what to say now and your words become a blubbering mess. You''re deeply embarrassed that even Luda knows about your promiscuous behavior.'
  959. '"I guess it runs in the family," she sighs again. "Maybe we all carry a slut gene or something. I''d hoped you were being safe, but I suppose we all slip up sometimes." Luda walks across the back of the counter, taking a small box off the shelf and brings it back. "Goodness knows, your sister''s living proof of that." You nod shamefully.'
  960. else
  961. 'You blush in embarrassment. "I know, aunt... I just... made a mistake."'
  962. '"Well, we''re all guilty of making those sometimes," she says, taking a small box off the shelf. "Goodness knows, your sister''s living proof of that." She hands you the box.'
  963. '"Take this as soon as possible. It''s most effective the sooner you take it. And maybe you should also buy some birth control pills <<$pcs_nickname>> while you''re here? Then this just has to be a one time thing."'
  964. 'You nod shamefully.'
  965. end
  966. '"Please don''t tell <<$npc_nickname[''A29'']>>. She wouldn''t understand."'
  967. if momslut >= 1:
  968. 'Your aunt gives you a odd look. "You might be surprised dear."'
  969. 'You sigh a little. "Yes I know all about <<$npc_nickname[''A29'']>>. I just don''t want to hear about it from her is all."'
  970. 'Luda nods. "Well, even so, I''m sure she''d prefer hearing that you''re taking this than to find out you''re not. But I promise, this will be our little secret."'
  971. else
  972. 'Luda nods. "Well, even so, I''m sure she''d prefer hearing you''re having sex and taking this than to find out you''re pregnant. But I promise, this will be our little secret."'
  973. end
  974. end
  975. if $ARGS[0] = 'buy_morning_after_end':
  976. act 'Continue shopping': gt $loc_s, $args_s
  977. act'Don''t tell <<$npc_nickname[''A29'']>>':
  978. cla & *clr
  979. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  980. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  981. if LudaQW['momslut_know'] = 1:
  982. '"Please don''t tell <<$npc_nickname[''A29'']>>," you say.'
  983. '"It''ll be our secret," Luda winks.'
  984. elseif momslut >= 1:
  985. LudaQW['momslut_know'] = 1
  986. '"Please don''t tell <<$npc_nickname[''A29'']>>," you say.'
  987. '"You might be surprised dear," Luda says with a wry smile and you sigh tiredly.'
  988. '"Yes Aunt, I know all about <<$npc_nickname[''A29'']>>''s... habits. I just don''t want to hear about it from her is all."'
  989. 'Luda nods. "Even so, I''m sure she''d prefer hearing that you''re taking this than to see you get pregnant. But I promise, this will be our little secret."'
  990. else
  991. '"Please don''t tell <<$npc_nickname[''A29'']>>," you say. "She wouldn''t understand."'
  992. '"You might be surprised dear," Luda says with a wry smile and you cock your head in confusion.'
  993. *nl
  994. '<i>What''s that supposed to mean?</i>'
  995. *nl
  996. '"Well, even so," she continues. "I''m sure she''d prefer hearing you''re having sex and taking this than to see you get pregnant. But I promise, this will be our little secret."'
  997. end
  998. act 'Continue shopping': gt $loc_s, $args_s
  999. end
  1000. end
  1001. if $ARGS[0] = 'morning_after_warning':
  1002. if pharmacy['morning_after'] = 1:
  1003. '"Take it as soon as possible," she warns. "It''s most effective the sooner after your ''accident.'' And maybe you should also buy some birth control pills <<$pcs_nickname>> while you''re here? Then this just has to be a one time thing."'
  1004. else
  1005. '"You know the drill. Take it as soon as possible. And perhaps I might interest you in some birth control pills while you''re here?" she adds sarcastically.'
  1006. end
  1007. if birth_control['using_bc'] > 0:
  1008. '"I''m already on the pill aunt, I''m just waiting for it to kick in."'
  1009. '"I can''t wait until it does," Luda sighs, rolling her eyes to the heavens.'
  1010. gs 'pav_pharmacy', 'buy_morning_after_end'
  1011. else
  1012. act'No thanks':
  1013. cla & *nl
  1014. '"I''ll be okay Aunt," you say.'
  1015. '"Not if this is any indication," Luda replies dryly.'
  1016. gs 'pav_pharmacy', 'buy_morning_after_end'
  1017. end
  1018. act'I prefer condoms':
  1019. if preziktype = 0:
  1020. mc_inventory['equipped_condoms'] += 5
  1021. elseif preziktype = 1 or preziktype = 2:
  1022. mc_inventory['normal_condoms'] += 5
  1023. end
  1024. cla & *nl
  1025. '"I actually prefer using condoms," you say.'
  1026. '"Then <i>use</i> them for goodness sake!" Luda says, pulling a box of rubbers from behind the counter and exasperatedly throwing them at you. "That''s on the house as long as you don''t come back here to buy another pill."'
  1027. gs 'pav_pharmacy', 'buy_morning_after_end'
  1028. end
  1029. if money - cart_tally < 1870 and karta - cart_tally < 1870:
  1030. act'I don''t have the money':
  1031. cla & *nl
  1032. '"I would, Aunt Luda," you say. "I just don''t have the money right now..."'
  1033. if pharmacy['bc_pills_free'] = 0:
  1034. mc_inventory['contraceptive_pill'] += 1
  1035. 'Luda sighs deeply and pulls out a small box and slides it across the counter to you.'
  1036. '"I guess I can give you some this one time..." she says. "But make sure you don''t miss a single day or they might not work!" She wags her finger at you. "And you better buy some next month or you''ll be in trouble."'
  1037. else
  1038. '"That''s what you said last time," she says dryly. "I''m not giving you another month''s worth for free. If you''re going to be having sex, the least you can do is take responsibility for your own body."'
  1039. end
  1040. gs 'pav_pharmacy', 'buy_morning_after_end'
  1041. end
  1042. else
  1043. act'Buy birth control':
  1044. LudaQW['birth_control_timer'] = daystart
  1045. pharmacy_timers['birth_control'] = daystart
  1046. pharmacyfirstbirthcontrol = 1
  1047. gs 'item_cart', 'simple_add', arrpos('$var_curr_aisle', 'contraceptive_pill') + 1
  1048. cla & *nl
  1049. '"You''re right Aunt Luda," you nod apologetically. "I should stop being dumb and taking chances."'
  1050. 'She sighs in relief and retrieves a box of pills for you.'
  1051. '"At least you have more sense than your mother did at your age."'
  1052. gs 'pav_pharmacy', 'buy_morning_after_end'
  1053. end
  1054. end
  1055. end
  1056. end
  1057. if $ARGS[0] = 'morning_after_no_money':
  1058. if money - cart_tally < 740 and karta - cart_tally < 740:
  1059. act'Ask Luda for a morning after pill (meekly)':
  1060. cla & *clr
  1061. gs 'stat'
  1062. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1063. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1064. if pharmacy['morning_after_free'] < 10:
  1065. pharmacy['morning_after_free'] += 1
  1066. else
  1067. end
  1068. end
  1069. act'Ask Luda for a morning after pill (openly)':
  1070. cla & *clr
  1071. gs 'stat'
  1072. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1073. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1074. if pharmacy['morning_after_free'] < 10:
  1075. pharmacy['morning_after_free'] += 1
  1076. else
  1077. end
  1078. end
  1079. !!{ else
  1080. !! lie that you don''t have enough money
  1081. act'Ask Luda for a morning after pill (meekly)':
  1082. cla & *clr
  1083. gs 'stat'
  1084. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1085. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1086. if pharmacy['morning_after_free'] < 10:
  1087. pharmacy['morning_after_free'] += 1
  1088. else
  1089. end
  1090. end
  1091. act'Ask Luda for a morning after pill (openly)':
  1092. cla & *clr
  1093. gs 'stat'
  1094. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1095. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1096. if pharmacy['morning_after_free'] < 10:
  1097. pharmacy['morning_after_free'] += 1
  1098. else
  1099. end
  1100. end}
  1101. end
  1102. end
  1103. if $ARGS[0] = 'ointment':
  1104. if mosol > 0:
  1105. if pharmacy_timers['morning_after'] = daystart:
  1106. gt $loc_s, $args_s
  1107. else
  1108. pharmacy_timers['morning_after'] = daystart
  1109. end
  1110. cla
  1111. $backimage = ''
  1112. act'Meekly ask':
  1113. cla & *clr
  1114. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1115. '"I need, uh, some... ointment for something..." You stand there twiddling your thumbs as Aunt Luda glances you up and down before her lips twist into a smirk.'
  1116. '"Been going commando lately?" she asks. You feel your face instantly heat up and she gives a bark of laughter. "Yes, I know the feeling. I can tell just by the way you''re standing. Goodness knows it took me a while to get used to it when I was your age. I loved the look of my ass in jeans without panty lines."'
  1117. if PCloskirt = 0:
  1118. 'She pulls a small tube of something off a shelf. "But don''t worry," she says, scanning it at the register with a loud beep. "You''ll get used to it eventually. Rub this into your pussy twice every day and that will help alleviate the itch. If you want to give yourself a break, try skirts for a little while," she adds with a wink.'
  1119. else
  1120. 'She pulls a small tube of something off a shelf. "But don''t worry," she says, scanning it at the register with a loud beep. "You''ll get used to it eventually. Rub this into your pussy twice every day and that will help alleviate the itch. Keep wearing skirts too. That''ll help a lot," she adds with a wink.'
  1121. end
  1122. '"Aunt Luda!" you hiss, causing her to laugh again.'
  1123. act 'Continue shopping': gt $loc_s, $args_s
  1124. end
  1125. act'Openly ask':
  1126. cla & *clr
  1127. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1128. '"Hi Aunt Luda," you say, leaning over the counter. "I haven''t been wearing panties lately and my pants are <i>really</i> starting to make my pussy itch. Do you have something for that?"'
  1129. '"I''ve got just the thing," she says, pulling a small tube of something off a shelf . "I used to do the same thing when I was your age, so I have a pretty good understanding of what you''re going through right now."'
  1130. '"No panty lines at least," you shrug as she comes back to the counter.'
  1131. if PCloskirt = 0:
  1132. '"<i>Exactly</i>," Luda grins as she scans it at the register with a loud beep. "Rub that into your pussy twice a day, once in the morning and once at night and it will go away in a few days. And be sure to give yourself a break now and then," she smiles. "Try skirts for a change. They''re <i>very</i> freeing."'
  1133. else
  1134. '"<i>Exactly</i>," Luda grins as she scans it at the register with a loud beep. "Rub that into your pussy twice a day, once in the morning and once at night and it will go away in a few days. In the mean time, keep wearing skirts," she smiles. "The breeze is nice and it''s good to air it out when it''s irritated."'
  1135. end
  1136. '"Thanks for the advice Aunt Luda."'
  1137. '"Any time darling."'
  1138. act 'Continue shopping': gt $loc_s, $args_s
  1139. end
  1140. else
  1141. gt $loc_s, $args_s
  1142. end
  1143. end
  1144. if $ARGS[0] = 'dont_tell':
  1145. if LudaQW['dont_tell'] = 0:
  1146. act'Don''t tell <<$npc_nickname[''A29'']>>':
  1147. LudaQW['dont_tell'] = 1
  1148. cla & *clr
  1149. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1150. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1151. if LudaQW['momslut_know'] = 1:
  1152. '"Please don''t tell <<$npc_nickname[''A29'']>>," you say.'
  1153. '"It''ll be our secret," Luda winks.'
  1154. elseif momslut >= 1:
  1155. LudaQW['momslut_know'] = 1
  1156. '"Please don''t tell <<$npc_nickname[''A29'']>>," you say.'
  1157. '"You might be surprised, darling," Luda says with a wry smile and you sigh tiredly.'
  1158. '"Yes Aunt, I know all about <<$npc_nickname[''A29'']>>''s... habits. I just don''t want to get an earful from her."'
  1159. 'Luda nods. "Even so, I''m sure she''d prefer hearing that you''re being safe. But I promise, this will be our little secret."'
  1160. else
  1161. '"Please don''t tell <<$npc_nickname[''A29'']>>," you say. "She wouldn''t understand."'
  1162. '"You might be surprised, darling," Luda says with a wry smile and you cock your head in confusion.'
  1163. *nl
  1164. '<i>What''s that supposed to mean?</i>'
  1165. *nl
  1166. '"Well, even so," she continues. "I''m sure she''d prefer hearing you''re having sex and being safe about it than to hear otherwise. But I promise, this will be our little secret."'
  1167. 'She gives you a wink.'
  1168. end
  1169. act 'Continue shopping': gt $loc_s, $args_s
  1170. end
  1171. end
  1172. end
  1173. if $ARGS[0] = 'luda_free_condoms':
  1174. LudaQW['free_condoms'] = 1
  1175. gs 'pav_pharmacy', 'luda_free_condoms_give'
  1176. cla & *clr
  1177. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1178. 'As you enter the pharmacy, your Aunt Luda glances up from the register and smiles at you.'
  1179. '"<<$pcs_nickname>>! I''ve been wondering when I''d see you. I have a gift for you."'
  1180. '"A gift?" you ask as she comes out with a small paper bag.'
  1181. if fame['pav_slut'] > 150:
  1182. LudaQW['knows_sex'] = 1
  1183. '"I''ve been hearing on the grapevine that you''re very popular with the boys," she says. "And while I don''t disapprove, I am also not ready for my sister to become a grandmother. It would make me feel old."'
  1184. act'Deny it':
  1185. cla & *nl
  1186. '"Uhh, I don''t know what you''ve been hearing but-"'
  1187. '"Oh hush, darling," she cuts you off wearing an impish smile and hands you the bag. "There''s no need to be embarrassed. It runs in the family. We must have some kind of slut gene. But, that being the case, I wanted you to have these."'
  1188. 'You open it and look inside, revealing a box containing 10 condoms and a morning after pill.'
  1189. '"Have fun," she says, giving you a meaningful look. "But be <i>safe</i> while you do it."'
  1190. act 'Finish':gt $loc_s, $args_s
  1191. end
  1192. act'Is it that obvious?':
  1193. cla & *nl
  1194. '"Is it really that obvious?" you ask, blushing.'
  1195. '"It runs in the family," she grins back, handing you the bag. "We must have some kind of slut gene. But, that being the case, I wanted you to have these."'
  1196. 'You open it and look inside, revealing a box containing 10 condoms and a morning after pill.'
  1197. '"Have fun," she says, giving you a meaningful look. "But be <i>safe</i> while you do it."'
  1198. act 'Continue shopping': gt $loc_s, $args_s
  1199. end
  1200. act'Reassure her':
  1201. cla & *nl
  1202. '"Aunt," you say. "I promise you, I''m already being safe. You don''t have to worry about becoming a grandaunt yet."'
  1203. '"<i>Ooh!</i> Don''t even say that word!" Luda shivers, but grins at you. "Just hearing it makes me feel like I''m growing wrinkles. I''m glad to hear you''re being smart, but like I said, this is a gift."'
  1204. 'She hands you the bag and you look inside, revealing a box containing 10 condoms and a morning after pill.'
  1205. '"Add it to your stash," she winks. "Plus a little something for emergencies."'
  1206. act 'Continue shopping': gt $loc_s, $args_s
  1207. end
  1208. else
  1209. '"And a little something for emergencies too," she says, coming out from behind the counter holding a small paper bag. "You''re getting to be that age when boys and girls stop looking at each other and start <i>doing</i> each other instead."'
  1210. act'Ew!':
  1211. cla & *nl
  1212. '"Ew!" you grimace. "Aunt Luda! Don''t talk like that! It''s gross!"'
  1213. '"Just being realistic," she grins back. "And being a realist, the last thing I want to happen is to become a grandaunt at my age. I would feel positively ancient! So, here''s your gift!"'
  1214. 'She hands you the bag and you look inside, revealing a box containing 10 condoms and a morning after pill.'
  1215. '"Just in case," she winks.'
  1216. act 'Continue shopping': gt $loc_s, $args_s
  1217. end
  1218. act'Blush':
  1219. cla & *nl
  1220. 'Your cheeks flush and her smile breaks into a full blown grin.'
  1221. '"So I wanted to give you something ahead of time," Luda continues. "Make sure you stay safe. If I became a grandaunt at my age, I would feel positively ancient!"'
  1222. 'She hands you the bag and you look inside, revealing a box containing 10 condoms and a morning after pill.'
  1223. '"Just in case," she winks.'
  1224. !!{ act'Tell her you don''t need them':
  1225. cla & *nl
  1226. '"I appreciate the thought Aunt Luda, but I don''t need these," you say, pushing them back towards her.'
  1227. '"I know that''s what they say, <<$pcs_nickname>>," she says shaking her head. "But no matter how much boys insist that they''re going to pull out in time, they never-"'
  1228. act'Saving yourself for marriage':
  1229. cla & *clr
  1230. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1231. '"No! That''s not what I meant!" you interrupt her, cringing in disgust. "I''m not going to have sex Aunt Luda. I''m going to save my virginity for marriage."'
  1232. '"Oh, darling..." She smiles sadly at you. "You say that now, but... Not everything goes to plan. I''m afraid you''re living proof of that dear."'
  1233. act'Insist you don''t need them':
  1234. LudaQW['free_condoms'] = 2
  1235. cla & *nl
  1236. '"I''m not going to be like my mother," you shake your head. "I appreciate your thought Aunt Luda, but I don''t need your present."'
  1237. 'She sighs, but gives you another small smile and takes the bag back from you.'
  1238. '"Well, if you insist. But if you ever change your mind, these will be right here waiting for you."'
  1239. end
  1240. act'Just in case...':
  1241. end
  1242. end
  1243. act'':
  1244. end
  1245. act 'Finish':gt $loc_s, $args_s
  1246. end}
  1247. act 'Continue shopping': gt $loc_s, $args_s
  1248. end
  1249. act'Thank her':
  1250. cla & *nl
  1251. if stat['think_virgin'] = 1:'"Thank you Aunt Luda," you smile. "I don''t know if I''ll need them any time soon, but I appreciate the thought nonetheless."'
  1252. '"Just being realistic," she grins back. "And being a realist, the last thing I want to happen is to become a grandaunt at my age. I would feel positively ancient! So, here''s your gift!"'
  1253. 'She hands you the bag and you look inside, revealing a box containing 10 condoms and a morning after pill.'
  1254. '"Just in case," she winks.'
  1255. act 'Continue shopping': gt $loc_s, $args_s
  1256. end
  1257. if stat['think_virgin'] ! 1:
  1258. act'Admit you''ve been having sex':
  1259. LudaQW['knows_sex'] = 1
  1260. cla & *nl
  1261. '"Well, I can''t deny that," you say, giving her a rueful smile.'
  1262. '"<<$pcs_nickname>>!" Luda says, smiling back at you in surprise. "I guess my gift is coming a little late, but I hope you''ll still have use for it anyways. If I became a grandaunt at my age, I would feel positively ancient!"'
  1263. 'She hands you the bag and you look inside, revealing a box containing 10 condoms and a morning after pill.'
  1264. '"Have fun," she winks before giving you a meaningful look.'
  1265. act 'Continue shopping': gt $loc_s, $args_s
  1266. end
  1267. act'Could have used this earlier':
  1268. LudaQW['knows_sex'] = 1
  1269. cla & *nl
  1270. if virgin_stats['day_lost'] > daystart - 7:
  1271. '"It would have been nice to have had this a few days ago..." you say, giving her a rueful smile.'
  1272. else
  1273. '"It would have been nice to have had earlier..." you say, giving her a rueful smile.'
  1274. end
  1275. '"<<$pcs_nickname>>!" Luda says, smiling back at you in surprise. "I guess my gift is coming a little late, but I hope you''ll still have use for it anyways. If I became a grandaunt at my age, I would feel positively ancient!"'
  1276. 'She hands you the bag and you look inside, revealing a box containing 10 condoms and a morning after pill.'
  1277. '"Have fun," she winks before giving you a meaningful look.'
  1278. act 'Continue shopping': gt $loc_s, $args_s
  1279. end
  1280. end
  1281. end
  1282. end
  1283. if $ARGS[0] = 'luda_free_condoms_give':
  1284. LudaQW['condom_give_day'] = daystart
  1285. if preziktype = 0:
  1286. mc_inventory['equipped_condoms'] += 10
  1287. elseif preziktype = 1 or preziktype = 2:
  1288. mc_inventory['normal_condoms'] += 10
  1289. end
  1290. mc_inventory['morning_after_pill'] += 1
  1291. end
  1292. !!{if $ARGS[0] = 'luda_change_mind':
  1293. if LudaQW['free_condoms'] = 2:
  1294. act'Ask your Aunt for her present':
  1295. cla & *clr
  1296. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1297. LudaQW['free_condoms'] = 1
  1298. '"Aunt Luda..." you say.'
  1299. '"Yes, darling?"'
  1300. act'Embarrassed':
  1301. cla
  1302. '"I... I need your present after all..." you stammer.'
  1303. 'Luda gives you a gleaming smile in return as she reaches under the counter and produces the same paper bag you gave back to her.'
  1304. '"What made you change your mind?"'
  1305. act'There''s this boy...':
  1306. end
  1307. act'':
  1308. end
  1309. end
  1310. act'Open':
  1311. end
  1312. end
  1313. end
  1314. end}
  1315. if $ARGS[0] = 'luda_birth_control_worry':
  1316. LudaQW['birth_control_timer'] = daystart
  1317. LudaQW['birth_control_worry'] = 1
  1318. cla & *clr
  1319. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1320. 'As you enter the pharmacy, your Aunt Luda glances up from the register, looking at you with concern. Puzzled, you walk up to her as she waves you over.'
  1321. '"<<$pcs_nickname>>! I''m glad I saw you. You haven''t bought any birth control pills from me in over a month! Is everything alright? Did you forget to keep taking them?"'
  1322. act'Oh shit!':
  1323. cla & *clr
  1324. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1325. 'The color drains from your face as you gasp, covering your mouth with your hand in shock.'
  1326. '"Oh shit! I totally forgot!"'
  1327. '"<<$pcs_firstname>>!" Luda scolds you. "This is very important! You buy some more right now! And get some condoms too, so you don''t get pregnant while the hormones build back up!"'
  1328. if birth_control['using_bc'] > 0:
  1329. act 'Just joking':
  1330. *clr & cla
  1331. 'You burst into a fit of giggles as you look at aunt Luda.'
  1332. '"What <<$pcs_nickname>>? This is no laughing matter!" She responds looking quite cross.'
  1333. '"Oh Luda, I''m sorry but I just couldn''t resist. I''m just pulling your leg. I have some spare at home and don''t forget I can also get them here from your assistant."'
  1334. '"<<$pcs_nickname>> don''t do that to me, you nearly gave me a heart attack"'
  1335. 'She then breaks out into a huge grin and give you a friendly soft punch on the arm. "You can be an evil little niece sometimes, you know that?"'
  1336. act'Continue': gt $loc_s, $args_s
  1337. end
  1338. end
  1339. end
  1340. if birth_control['using_bc'] > 0:
  1341. act'I have a stockpile':
  1342. cla & *nl
  1343. '"Don''t worry Aunt Luda," you laugh. "Just have a big stockpile. I haven''t needed to buy any in a while and I''ve still got more."'
  1344. 'Relief floods through your aunt''s face and she presses her hand to her breast as she takes deep breaths.'
  1345. '"Oh thank goodness! I nearly had a heart attack!"'
  1346. '"Sorry," you smile back apologetically.'
  1347. LudaQW['birth_control_worry'] = 1
  1348. act'Continue': gt $loc_s, $args_s
  1349. end
  1350. act'Buying elsewhere':
  1351. cla & *nl
  1352. '"Don''t worry Aunt Luda," you laugh. "I''m still on the pill, I''ve just been shopping elsewhere."'
  1353. 'Relief floods through your aunt''s face and she presses her hand to her breast as she takes deep breaths.'
  1354. '"Oh thank goodness! I nearly had a heart attack!" she says, grinning back at you. "Where are you buying these days?"'
  1355. act'The city':
  1356. cla & *nl
  1357. '"I''ve been in the city a lot lately," you tell her. "I shop at the pharmacy there sometimes."'
  1358. '"Ahh," Luda nods. "That explains it."'
  1359. LudaQW['birth_control_worry'] = 1
  1360. act'Continue': gt $loc_s, $args_s
  1361. end
  1362. act'The market':
  1363. cla & *nl
  1364. '"I''ve been buying them from the market," you tell her. "It''s really easy to find a discount there!"'
  1365. '"Hmm," Luda frowns. "You really shouldn''t buy medicine off the street, darling. You never know if you''re getting some kind of cheap knock off, or worse, something completely different than what they''re advertising."'
  1366. LudaQW['birth_control_worry'] = 1
  1367. act'Continue': gt $loc_s, $args_s
  1368. end
  1369. act'Continue': gt $loc_s, $args_s
  1370. end
  1371. act 'I get them here from your assistant':
  1372. cla & *nl
  1373. '"No need to worry Luda, I''ve been buying them here when your assistant was serving."'
  1374. 'With a look of relief on her face Luda replies. "Oh! Okay, yes that''d explain it. I was just concerned in case you''d forgotten and it''s important to keep taking them without a break."'
  1375. '"Thanks for your concern Luda but no need to worry." You say to her with a smile.'
  1376. LudaQW['birth_control_worry'] = 1
  1377. act'Continue': gt $loc_s, $args_s
  1378. end
  1379. else
  1380. gs 'pav_pharmacy', 'luda_stopped_bc'
  1381. end
  1382. if tabletkishot > 0:
  1383. act'I switched to the shot':
  1384. cla & *nl
  1385. '"Don''t worry Aunt Luda," you laugh. "I just switched to the shot. It''s easier and more reliable than the pill."'
  1386. 'Relief floods through your aunt''s face and she presses her hand to her breast as she takes deep breaths.'
  1387. '"Oh thank goodness! I nearly had a heart attack!"'
  1388. '"Sorry," you smile back apologetically.'
  1389. LudaQW['bc_shot_know'] = 1
  1390. act'Continue': gt $loc_s, $args_s
  1391. end
  1392. end
  1393. end
  1394. if $ARGS[0] = 'luda_birth_control_worry2':
  1395. act'Still using condoms':
  1396. cla
  1397. '"Don''t worry Aunt Luda," you smile. "I''m still using condoms."'
  1398. '"Well, as long as you''re doing that much..." she says with clear relief.'
  1399. act'Continue': gt $loc_s, $args_s
  1400. end
  1401. act'Switching to the calendar method':
  1402. cla
  1403. '"I''m switching to the calendar method," you smile. "I''ve already started keeping track of my cycle."'
  1404. '"Trying to track your cycle is very unreliable as birth control," Luda frets insistently. "Please, won''t you at least use condoms?"'
  1405. '"I''ll be careful Aunt Luda, I promise."'
  1406. '"But even the most careful of us still make mistakes," she says with obvious concern.'
  1407. act'Continue': gt $loc_s, $args_s
  1408. end
  1409. act'I''m being careful':
  1410. cla
  1411. '"Don''t worry Aunt Luda," you smile. "I''m being careful."'
  1412. '"Careful with a condom?" Luda asks insistently.'
  1413. '"Just careful. I''ll be fine, I promise."'
  1414. '"But even the most careful of us still make mistakes," she says with obvious concern.'
  1415. act'Continue': gt $loc_s, $args_s
  1416. end
  1417. end
  1418. if $ARGS[0] = 'luda_stopped_bc':
  1419. act'I stopped on purpose':
  1420. LudaQW['birth_control_worry'] = 1
  1421. cla & *clr
  1422. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1423. '"I stopped taking the pill Aunt Luda," you say, shaking your head.'
  1424. '"Why would you do that?" Luda asks, looking worried.'
  1425. *nl
  1426. act'Messing with my hormones':
  1427. cla
  1428. '"I don''t like that it messes with my hormones," you explain. "I don''t think it''s smart to screw around with my body like that."'
  1429. '"I understand <<$pcs_firstname>>, but it''s better than being pregnant! Especially at your age."'
  1430. *nl
  1431. gs'pav_pharmacy', 'luda_birth_control_worry2'
  1432. end
  1433. act'Killing my sex drive':
  1434. cla
  1435. '"It''s totally killing my sex drive!" you moan loudly. "The whole reason I started it was so I could have sex without worry but it''s messing my hormones up so badly that I don''t even want to have sex anymore!"'
  1436. '"Oh dear!" Luda looks taken aback, but nods understandingly right after. "That is a common problem with women who use this kind of birth control. I suppose I understand if you don''t want to use the pill anymore. But you''re still being safe, right? No unprotected sex?"'
  1437. *nl
  1438. gs'pav_pharmacy', 'luda_birth_control_worry2'
  1439. end
  1440. if pcs_lovers - pcs_girlfriends > 0:
  1441. act'Trying for a baby with my boyfriend':
  1442. LudaQW['birth_control_worry'] = 3
  1443. cla
  1444. '"I''m trying for a baby with my boyfriend," you smile, unable to contain your overwhelming desire for motherhood. Luda goes pale instead.'
  1445. if age < 20:
  1446. '"<<$pcs_firstname>>! You''re still a teenager! That can''t be wise! You still have your whole life ahead of you! It''s too early to make this kind of decision!"'
  1447. else
  1448. '"<<$pcs_firstname>>! That can''t be wise at your age! You still have your whole life ahead of you! It''s too early to make this kind of decision!"'
  1449. end
  1450. '"He loves me!" you snap back at her. "He''s going to make a great father and I want to have his baby!"'
  1451. '"<<$pcs_firstname>>!"'
  1452. act'You can''t tell my mother':
  1453. cla & *nl
  1454. '"Don''t even think about running off to tell my mother about this," you say, pointing accusingly at her. "This is between me and my boyfriend, it''s our decision!"'
  1455. '"<<$pcs_firstname>>..." Luda says again, looking pleadingly at you.'
  1456. '"I mean it!" you snarl.'
  1457. '"I... I won''t..." your aunt reluctantly agrees. "But please, I hope you''ll see reason soon... Before it''s too late..."'
  1458. act'Continue': gt $loc_s, $args_s
  1459. end
  1460. end
  1461. else
  1462. act'Trying for a baby':
  1463. LudaQW['birth_control_worry'] = 2
  1464. cla
  1465. '"I want to have a baby," you smile, unable to contain your overwhelming desire for motherhood. Luda goes pale instead.'
  1466. if age < 20:
  1467. '"<<$pcs_firstname>>! You''re still a teenager! That can''t be wise! You still have your whole life ahead of you! Do you even have someone to take care of it with you?"'
  1468. else
  1469. '"<<$pcs_firstname>>! That can''t be wise at your age! You still have your whole life ahead of you! Do you even have someone to take care of it with you?"'
  1470. end
  1471. '"No," you say stubbornly. "I don''t need someone else, I want to be a mother and I''m not going to wait!"'
  1472. '"<<$pcs_firstname>>!"'
  1473. act'You can''t tell my mother':
  1474. cla & *nl
  1475. '"Don''t even think about running off to tell my mother about this," you say, pointing accusingly at her. "This is my decision and my body, I can do what I want."'
  1476. '"<<$pcs_firstname>>..." Luda says again, looking pleadingly at you.'
  1477. '"I mean it!" you snarl.'
  1478. '"I... I won''t..." your aunt reluctantly agrees. "But please, I hope you''ll see reason soon... Before it''s too late..."'
  1479. act'Continue': gt $loc_s, $args_s
  1480. end
  1481. end
  1482. end
  1483. end
  1484. end
  1485. if $ARGS[0] = 'luda_birth_control_start_again_meek':
  1486. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1487. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1488. 'You hesitantly approach the counter, feeling incredibly embarrassed by your past actions and what you have to do next.'
  1489. 'Luda can see it on your face and looks at you with concern.'
  1490. '"Yes, <<$pcs_firstname>>? Is everything all right?"'
  1491. 'You take a deep breath.'
  1492. *nl
  1493. '"Aunt Luda, I... need some birth control pills."'
  1494. 'Her eyes go wide with shock and she rushes to grab them as if worried that if she isn''t fast enough you''ll change your mind.'
  1495. if LudaQW['birth_control_worry'] = 2:
  1496. '"What happened to your... plans...?" she asks hesitantly.'
  1497. '"I thought better of it," you mumble back, unable to look her in the eye after what you said before.'
  1498. *nl
  1499. 'When you finally turn your gaze back towards her, Luda is looking at you with love and compassion.'
  1500. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1501. 'You nod back gratefully, taking the box of pills from her."'
  1502. act'Continue': gt $loc_s, $args_s
  1503. elseif LudaQW['birth_control_worry'] = 3:
  1504. '"What happened to you and your... boyfriend...?" she asks hesitantly.'
  1505. act'Changed my mind':
  1506. cla & *nl
  1507. '"I thought better of it," you mumble back, unable to look her in the eye after what you said before.'
  1508. *nl
  1509. 'When you finally turn your gaze back towards her, Luda is looking at you with love and compassion.'
  1510. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1511. 'You nod back gratefully, taking the box of pills from her."'
  1512. act'Continue': gt $loc_s, $args_s
  1513. end
  1514. act'We broke up':
  1515. cla & *nl
  1516. '"We broke up," you mumble back, blinking back tears, unable to look her in the eye after what you said before.'
  1517. *nl
  1518. 'When you finally turn your gaze back towards her, Luda is looking at you with love and compassion.'
  1519. '"I really thought he loved me," you sniff. "I thought he was the one."'
  1520. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1521. 'You nod back gratefully, taking the box of pills from her."'
  1522. act'Continue': gt $loc_s, $args_s
  1523. end
  1524. end
  1525. LudaQW['birth_control_worry'] = 0
  1526. end
  1527. if $ARGS[0] = 'luda_birth_control_start_again_open':
  1528. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1529. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1530. 'You take a deep breath and woman up, approaching the counter without hesitation but feeling incredibly embarrassed by your past actions and what you have to do next.'
  1531. 'Luda can see it on your face and looks at you with concern.'
  1532. '"Yes, <<$pcs_firstname>>? Is everything all right?"'
  1533. *nl
  1534. '"Aunt Luda," you say firmly. "I would like some birth control pills."'
  1535. 'Her eyes go wide with shock and relief and she rushes to grab them as if worried that if she isn''t fast enough you''ll change your mind.'
  1536. if LudaQW['birth_control_worry'] = 2:
  1537. '"What happened to your... plans...?" she asks hesitantly.'
  1538. '"I realized I was being stupid," you reply, sighing. "You were right Aunt Luda. I wasn''t ready."'
  1539. *nl
  1540. 'Luda smiles back at you with compassion.'
  1541. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1542. 'You nod back gratefully, taking the box of pills from her."'
  1543. act'Continue': gt $loc_s, $args_s
  1544. elseif LudaQW['birth_control_worry'] = 3:
  1545. '"What happened to you and your... boyfriend...?" she asks hesitantly.'
  1546. act'I was being dumb':
  1547. cla & *nl
  1548. '"I realized I was being stupid," you reply, sighing. "You were right Aunt Luda. I wasn''t ready."'
  1549. *nl
  1550. 'Luda smiles back at you with compassion.'
  1551. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1552. 'You nod back gratefully, taking the box of pills from her."'
  1553. end
  1554. act'We broke up':
  1555. cla & *nl
  1556. '"We broke up," you say. Your face goes rigid, trying your best not to let the pain show, but Luda gives you a soft, knowing look.'
  1557. act'He was an asshole':
  1558. cla & *clr
  1559. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1560. '"He was an asshole," you grumble, your expression finally breaking into a twist of in pain and anger. "I can''t believe I thought I wanted him to be the father of my child."'
  1561. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1562. 'You nod back gratefully, taking the box of pills from her."'
  1563. act'Continue': gt $loc_s, $args_s
  1564. end
  1565. act'I thought he loved me':
  1566. cla & *clr
  1567. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1568. '"I really thought he loved me," you say, voice warbling as you struggle to hold back tears. "I thought he was the one."'
  1569. '"It''s okay, darling," she smiles. "We all make mistakes. As long as you''ve learned from this one."'
  1570. 'You nod back gratefully, taking the box of pills from her."'
  1571. act'Continue': gt $loc_s, $args_s
  1572. end
  1573. end
  1574. end
  1575. LudaQW['birth_control_worry'] = 0
  1576. end
  1577. if $ARGS[0] = 'condom_addon_start1':
  1578. if LudaQW['condoms'] = 0:
  1579. '"Since you seem to have a lot of partners, did you want some more condoms? To protect you from STD''s of course. You can never tell who''s clean and who isn''t these days."'
  1580. gs 'pav_pharmacy', 'condom_addon'
  1581. end
  1582. end
  1583. if $ARGS[0] = 'condom_addon_start':
  1584. if LudaQW['condoms'] = 0:
  1585. '"We also have condoms if you are worried about STD''s. You can never tell who''s clean and who isn''t these days."'
  1586. gs 'pav_pharmacy', 'condom_addon'
  1587. end
  1588. end
  1589. if $ARGS[0] = 'condom_addon':
  1590. if money - cart_tally >= 300 or karta - cart_tally >= 300:
  1591. act'Might as well':
  1592. LudaQW['condoms'] = 1
  1593. LudaQW['knows_sex'] = 1
  1594. if preziktype = 0:
  1595. gs 'item_cart', 'simple_add', arrpos('$var_curr_aisle', 'equipped_condoms') + 1
  1596. elseif preziktype = 1 or preziktype = 2:
  1597. gs 'item_cart', 'simple_add', arrpos('$var_curr_aisle', 'normal_condoms') + 1
  1598. end
  1599. cla & *clr
  1600. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1601. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1602. '"I might as well," you nod. "Just to be safe."'
  1603. '"It always pays to be safe," Luda says, nodding once and adding a box of condoms to your purchase.'
  1604. act 'Continue shopping': gt $loc_s, $args_s
  1605. end
  1606. end
  1607. if LudaQW['knows_sex'] = 0 and $ludaQW['pharm_purchase'] = 'bc_pills':
  1608. act'It''s for my cycle':
  1609. cla & *clr
  1610. '<center><B><font color="maroon">Pharmacy</font></B></center>'
  1611. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/pharmacy/apteka_aunt_1.jpg"></center>'
  1612. '"It''s just for my cycle Aunt Luda," you protest. She smiles at you with a suspicious twist at the corner of her mouth. "I''m not having sex."'
  1613. '"Well, I can''t prove otherwise, so I suppose I''ll just have to take you at your word..."'
  1614. act 'Continue shopping': gt $loc_s, $args_s
  1615. end
  1616. end
  1617. $ludaQW['pharm_purchase'] = 'bc_pills'
  1618. end
  1619. if $ARGS[0] = 'birth_control_addon':
  1620. act 'Finish your purchase': gt $loc_s, $args_s
  1621. if $ludaQW['pharm_purchase'] ! 'condoms':
  1622. act'Prefer condoms':
  1623. cla
  1624. act'Just preference':
  1625. cla & *nl
  1626. '"Thanks for the offer, but I''d rather stick to condoms."'
  1627. '"If you say so..." Your aunt looks back at you with skepticism. "But even your mother is on the pill now."'
  1628. act 'Continue shopping': gt $loc_s, $args_s
  1629. end
  1630. act'Safer':
  1631. cla & *nl
  1632. '"Thanks for the offer, but I''d rather stick to condoms. It''s easy to forget a pill. Not quite as easy to forget to put on a condom."'
  1633. '"Easier than you think," Your aunt looks back at you with skepticism. "Good protection is about layers though. You should really be using both..."'
  1634. act 'Continue shopping': gt $loc_s, $args_s
  1635. end
  1636. act'Cheaper':
  1637. cla & *nl
  1638. '"Thanks for the offer, but I''d rather stick to condoms. They''re cheaper."'
  1639. '"Depends how often you use them," your aunt says with a wry smirk. "The pill might be less expensive in the long run..."'
  1640. act 'Continue shopping': gt $loc_s, $args_s
  1641. end
  1642. act'No hormones':
  1643. cla & *nl
  1644. '"Thanks for the offer, but I''d rather stick to condoms. I don''t want to mess with my hormones like that."'
  1645. '"I suppose I understand that reason better than some," your aunt sighs ruefully. "But even your mother is on the pill now."'
  1646. act 'Continue shopping': gt $loc_s, $args_s
  1647. end
  1648. end
  1649. elseif $ludaQW['pharm_purchase'] ! 'bc_pills':
  1650. if money - cart_tally < 1870 and karta - cart_tally < 1870:
  1651. act'I don''t have the money':
  1652. cla & *nl
  1653. '"I don''t have the money," you shrug, smiling wistfully.'
  1654. '"Well at least you''re being safe in the mean time," she says, handing them over.'
  1655. '"Thanks, Aunt Luda."'
  1656. '"Any time, darling!"'
  1657. act 'Continue shopping': gt $loc_s, $args_s
  1658. end
  1659. act'Can only afford condoms':
  1660. cla & *nl
  1661. '"I don''t have the money," you shrug, smiling wistfully. "Condoms are cheap and they''re all I can afford right now."'
  1662. '"Well at least you''re being safe in the mean time," she says, handing them over.'
  1663. '"Thanks, Aunt Luda."'
  1664. '"Any time, darling!"'
  1665. act 'Continue shopping': gt $loc_s, $args_s
  1666. end
  1667. else
  1668. act'Not a bad idea (buy birth control)':
  1669. cla & *nl
  1670. pharmacyfirstbirthcontrol = 1
  1671. gs 'item_cart', 'simple_add', arrpos('$var_curr_aisle', 'contraceptive_pill') + 1
  1672. '"That''s... not a bad idea. I guess I could while I''m here."'
  1673. '"Good choice," Luda says, nodding once and adding on pills to your purchase. "It pays to be safe."'
  1674. act 'Continue shopping': gt $loc_s, $args_s
  1675. end
  1676. act'Might as well be safe (buy birth control)':
  1677. cla & *nl
  1678. pharmacyfirstbirthcontrol = 1
  1679. gs 'item_cart', 'simple_add', arrpos('$var_curr_aisle', 'contraceptive_pill') + 1
  1680. '"I guess I might as well. Just to be safe."'
  1681. '"It always pays to be safe," Luda says, nodding once and adding on pills to your purchase.'
  1682. act 'Continue shopping': gt $loc_s, $args_s
  1683. end
  1684. end
  1685. end
  1686. $ludaQW['pharm_purchase'] = ''
  1687. end
  1688. --- pav_pharmacy ---------------------------------