pav_clinic.qsrc 110 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720
  1. # pav_clinic
  2. if $ARGS[0] = '':
  3. CLOSE ALL
  4. clr
  5. gs 'shortgs', 'setloc', 'pav_clinic', ''
  6. $location_type = 'indoors'
  7. menu_off = 0
  8. frost = 0
  9. gs 'stat'
  10. gs 'themes', 'indoors'
  11. '<center><b><font color="maroon">Clinic</font></b></center>'
  12. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  13. if (lactation['active'] > 0 or thinkpreg = 1 or knowpreg = 1) and pcs_know_mward <= 0: 'A sign catches your attention. It reads <a href="exec: minut += 5 & gt ''pav_clinic'', ''maternity_ward''">"Maternity ward"</a>.'
  14. if pcs_ask_mward_help >= 1 and pcs_know_mward <= 0: '<br><br><a href="exec: minut += 5 & gt ''pav_clinic'', ''reception''">Ask</a> at reception for help with your breasts.'
  15. act 'Leave': minut += 5 & gt 'pav_commercial'
  16. if preg = 2:
  17. act 'Give birth':
  18. gs 'medical_din', 'give_birth'
  19. act 'Leave': gt 'pav_clinic'
  20. end
  21. end
  22. if hour >= 6 and hour <= 21:
  23. if gpoliuborka = 0:
  24. act 'Read the job listing':
  25. *clr & cla
  26. menu_off = 1
  27. minut += 5
  28. gpoliuborka = 1
  29. gs 'stat'
  30. 'You notice a piece of paper on the wall near the entrance to the clinic - it''s a job listing which reads: "Cleaner wanted! One hour per day, any time between 14:00 and 21:00. Payment: 100 <b>₽</b>."'
  31. act 'Move away': gt 'pav_clinic'
  32. end
  33. elseif gpoliuborka = 1 and hour >= 8 and hour <= 21:
  34. act 'Ask the head doctor about the job':
  35. *clr & cla
  36. menu_off = 1
  37. gpoliuborka = 2
  38. minut += 15
  39. gs 'stat'
  40. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  41. 'Since the door is opened, you assume you''re allowed to enter the head doctor''s office. When you knock on the wooden door frame, the doctor looks up from his work. He''s wearing a white coat, and looks at you sternly through his glasses. "Yes, can I help you?"'
  42. '"Hello sir," you answer. "I see you''re looking for a cleaner, and I would like to apply."'
  43. 'He looks at you, thinking for a second before he opens a desk drawer and pulls out a form. "I see. Fill this out, please."'
  44. 'You nod and fill out the form, indicating that you''re applying for the part-time cleaning job vacancy. He quickly checks to make sure you filled everything out correctly, then gives you a satisfied smile. "It looks like everything in order, Miss <<$pcs_lastname>>. Please follow me and I''ll show you where we keep our cleaning supplies."'
  45. 'You follow him to the maintenance closet, where he shows you the cleaning supplies you will need. He shakes your hand and wishes you a good day before returning to his office, assuming you will find your own way out.'
  46. act 'Leave': gt 'pav_clinic'
  47. end
  48. elseif gpoliuborka > 1 and hour >= 14 and hour <= 21 and gpolicleanday ! daystart:
  49. act 'Work as a cleaner for 100 <b>₽</b> (1:00)':
  50. *clr & cla
  51. menu_off = 1
  52. gpolicleanday = daystart
  53. minut += 60
  54. gs 'exp_gain', 'cleaning', rand(1,3)
  55. pcs_mood -= 15
  56. money += 100
  57. gs 'sweat', 'add', 10
  58. gs 'stat'
  59. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
  60. 'As instructed, you take a mop and a bucket from the maintenance closet and begin by cleaning the corridors throughout the clinic. Once you''re done with that, you enter the examination rooms and offices one by one, occasionally hearing a softly muttered curse from a doctor when you interrupt their work. Nevertheless, you work quickly and the doctors don''t give you any trouble while you clean the floors of the rooms.'
  61. act 'Finish cleaning': gt 'pav_clinic'
  62. ginrand = rand(0, 1)
  63. if Gspravka < 10 and ginrand = 0:
  64. 'When you clean the floor of the gynaecologist''s examination room, he leaves the room to let you do your work in peace. You''re alone now.'
  65. !! TODO: This check means that even when Sveta is 40 years old and moved out, if she can go to her parents home, mom wants a referral? Maybe it would be more sensible to check if that is her current home.
  66. if pcs_vag > 0 and motherKnowSpravka = 0 and func('homes_properties', 'has_access', 'parents_home'):
  67. act 'Forge a referral to give to your mother':
  68. *clr & cla
  69. Gspravka = 30
  70. GspravkaT = 1
  71. Gspassed = 1
  72. forge_referral = 1
  73. gs 'stat'
  74. 'You see a pile of unused referral forms and think to yourself: "I may not be a virgin any more, but <<$npc_nickname[''A29'']>> doesn''t need to know that!"'
  75. 'After you make sure no one is in the corridor, you quickly walk to the desk, take one of the empty referral forms and press his stamp onto it. You can do the rest later. You quickly hide it under your clothes and get back to cleaning after carefully putting everything back the way you found it.'
  76. 'Later, when you''re cleaning the office of a doctor who you know isn''t in today, you lock the door and carefully fill out the form. You take your time, doing your best to mimic your gynaecologist''s handwriting. You nod happily and mutter to yourself: "This looks good. <<$npc_nickname[''A29'']>> will have no clue it''s forged! That''ll get me off the hook for at least another month..."'
  77. act 'Finish cleaning': gt 'pav_clinic'
  78. end
  79. end
  80. end
  81. end
  82. end
  83. gs 'clinic_functions', 'set_dentist_act'
  84. gs 'clinic_functions', 'set_optometrist_acts'
  85. if (pcs_health < (pcs_vital * 10 + pcs_stren * 5) or pain['total'] > 10) and clinic['docheal'] ! daystart:
  86. act 'See a doctor about your health (1:00)':
  87. cla
  88. menu_off = 1
  89. minut += 60
  90. clinic['docheal'] = daystart
  91. gs 'medical_din','healthTreatment'
  92. gs 'stat'
  93. 'After a quick discussion about your health, the doctor gives you an injection of a combined painkiller, steroid and vitamin shot which not only helps the pain, but speeds your recovery too, permanently reducing your current pain and increasing your health. You immediately feel much better, and should recover health faster over the coming days.'
  94. act 'Leave': gt 'pav_clinic'
  95. end
  96. end
  97. gs 'schedule', 'A186'
  98. if locat['A186'] = 1 and therapistday ! daystart:
  99. if therapistQW['met'] = 0:
  100. act 'Approach the Nurses Desk': gt 'therapist', 'intro'
  101. elseif therapistQW['met'] = 1:
  102. act 'Visit the therapist (1:00)': gt 'therapist', 'start'
  103. end
  104. end
  105. if pcs_know_mward > 0: act 'Visit the maternity ward (0:05)': gt 'pav_clinic', 'maternity_ward'
  106. gs 'medical_din', 'birth_control'
  107. act 'Go to the sexual health clinic': gt 'pav_clinic', 'sexual_health'
  108. if sick >= 1:
  109. act 'Visit the doctor for your sickness':
  110. cla
  111. menu_off = 1
  112. minut += 15
  113. sick = 0
  114. gs 'stat'
  115. 'The doctor quickly examines you, and establishes that you''ve caught a cold. He prescribes you some pills and suggests you dress warmer when going outdoors so it doesn''t come back.'
  116. act 'Leave': gt $curloc
  117. end
  118. end
  119. if (fame['pav_slut'] >= 250 or fame['pav_prostitute'] >= 125 or guy > 10 or unprotfilm or whoreQW > 1 or bordelslutty > 0 or cumcondslip_aware > 0 or (daystart - daylastperiod > 42) or Triper > 2 or Gerpes >= 3 or Sifilis >= 21 or Kandidoz > 30) and gynodaystart ! daystart:
  120. act 'Visit your gynaecologist (1,000 <b>₽</b>)':
  121. *clr & cla
  122. menu_off = 1
  123. gynodaystart = daystart
  124. minut += 5
  125. gs 'stat'
  126. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  127. 'You decide to have a check-up with your gynaecologist. Given your sexual history, you can''t be too careful.'
  128. if docKnow = 0:
  129. if fame['pav_slut'] >= 250 and fame['pav_prostitute'] < 125:
  130. $gyn1 = 'He looks at you with some concern, but still has to ask. "Rumor in town says that you''re a prostitute?"'
  131. $gyn2 = '"Doctor, the whole town knows! And knows my body, if you know what I mean..." you laugh despite yourself.'
  132. elseif unprotfilm:
  133. $gyn1 = 'He looks at you with some concern, but still has to ask. "Are you by any chance <<$pfname>>?" He doesn''t say how he''s familiar with the name, but you can probably guess.'
  134. $gyn2 = '"I hope not, but who knows?"'
  135. elseif whoreQW > 1 or bordelslutty > 0 or fame['pav_prostitute'] >= 125:
  136. $gyn1 = 'He looks at you with some concern, but still has to ask. "Rumor in town says that you''re a prostitute?"'
  137. $gyn2 = '"I don''t think so. I only do business in St. Petersburg, but who knows?"'
  138. else
  139. $gyn1 = 'He looks at you with some concern, but still has to ask. "Why are you visiting me? Are you worried by something about your sexual history?"'
  140. $gyn2 = '"I hope not, but who knows?"'
  141. end
  142. 'He looks up from his desk when you enter his office and recognizes you immediately. "Ah, hello <<$pcs_nickname>>. Did you come for a check-up?"'
  143. 'You nod and take a seat. "Hello, Dr. Petrovich. Yes, I''m here for a check-up."'
  144. $gyn1
  145. 'You smile at him. "It''s true, Dr. Petrovich. I am."'
  146. 'He rubs his hand over his chin and continues. "Does your mother know?"'
  147. $gyn2
  148. 'The gynaecologist nods, and motions for you to stand up. "Very well, let''s see how you''re doing then. Undress for me, please."'
  149. elseif docKnow = 1:
  150. if fame['pav_slut'] >= 25 or unprotfilm or whoreQW > 1 or bordelslutty > 0 or fame['pav_prostitute'] >= 125:
  151. $gyn1 = 'He looks at you with some concern. "Are you still in the business?"'
  152. $gyn2 = 'In a way, you feel touched that he''s so concerned for his patients. You don''t mind answering his question. "Doctor, you know how it is... I do it because studies are expensive, because clothing is expensive. Because my family could also use the help financially. And most of all: because I love having sex. I might as well get paid to do it, right?"'
  153. else
  154. $gyn1 = 'He looks at you with some concern. "Are you still seeing a lot of men?"'
  155. $gyn2 = 'In a way, you feel touched that he''s so concerned for his patients. You don''t mind answering him, and you might as well be frank. "Doctor, I really just love having sex. I don''t even care about getting paid, it just seems like I can''t ever get enough dick. You understand, right?"'
  156. end
  157. 'He looks up from his desk when you enter his office and recognizes you immediately. "Ah, hello <<$pcs_nickname>>. Back for another check-up?"'
  158. 'You nod and take a seat. "Hello, Dr. Petrovich. Yes, I''m here for a check-up."'
  159. $gyn1
  160. '"Yes, doctor. I am," you tell him.'
  161. 'He rubs his hand over his chin and continues. "If I may be so bold... Why?"'
  162. $gyn2
  163. 'He smirks, but nods. "I understand. It''s not my place to judge anyway. Let''s see how you''re doing. Undress for me, please."'
  164. end
  165. act 'Take off your clothes':
  166. *clr & cla
  167. minut += 5
  168. gs 'stat'
  169. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
  170. 'You quickly take off your clothes and neatly fold them before putting them aside.'
  171. act 'Sit in the chair':
  172. *clr & cla
  173. minut += 5
  174. docKnow = 1
  175. gs 'stat'
  176. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
  177. 'Once you''re naked, you take a seat in the gynaecologist''s chair and spread your legs in the stirrups before the doctor gives you a thorough check-up. He spends a bit more time on your asshole than he probably should, but maybe he''s just being thorough.'
  178. $gpoli_sick = ''
  179. if cumcondslip > 0:
  180. $gpoli_sick = 'are suffering from toxic shock from a spent condom in your body. I removed it as soon as I found it. If you were feeling sick, it should slowly subside.'
  181. cumcondslip = 0
  182. gs 'cum_cleanup', 'cleanloc', 17
  183. end
  184. if preg > 0:
  185. thinkpreg = 1
  186. knowpreg = 1
  187. $gpoli_sick = 'are pregnant'
  188. end
  189. if venera > 0 or Kandidoz > 10:
  190. if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
  191. if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
  192. end
  193. if $gpoli_sick = '':
  194. 'The doctor smiles when he gives you the good news. "You''re perfectly healthy."'
  195. 'You feel very relieved, and thank him profusely. "Thank you doctor, that''s great news. Thanks again for the check-up."'
  196. 'He nods and waves his hand. "It''s all good. Just don''t forget to use protection. It''s still dangerous out there."'
  197. else
  198. 'The doctor frowns when he gives you the bad news. "I''m afraid I found something irregular. You <<$gpoli_sick>>."'
  199. if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
  200. end
  201. 'The doctor stands beside you while he helps you move your legs from the stirrups. "So... How are you going to repay me for the examination?" he asks with a confident smile.'
  202. if money >= 1000:
  203. act 'Offer him money':
  204. *clr & cla
  205. minut += 5
  206. gs 'stat'
  207. 'You smile, knowing this question would come. "I can pay. How much do I owe you?"'
  208. 'He returns your smile. "For you? 1,000 <b>₽</b>."'
  209. act 'Pay him (1,000 <b>₽</b>)':
  210. *clr & cla
  211. minut += 5
  212. money -= 1000
  213. 'You gladly pay him the 1,000 <b>₽</b> and thank him again.'
  214. 'He counts out the money and puts it away. "Anytime, <<$pcs_nickname>>. Make sure you tell your friends about me if they need a check-up!"'
  215. act 'Leave':gt $curloc
  216. end
  217. end
  218. end
  219. act 'Offer him your body':
  220. *clr & cla
  221. gs 'stat'
  222. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
  223. 'You slowly put your hands on his groin with a cheeky grin, and to your surprise feel that his cock is already fully erect. You massage it through his pants and when you notice no objections from him, you drop to your knees. He pulls his erection free from his pants, and you guide his stiff cock to your mouth with your hand. The look in his eyes is one you recognize from some of your customers - it''s the look of a man who''s going to demand a lot from you to get his money''s worth.'
  224. 'You lick the tip of his cock teasingly. It''s a nice cock for sure, and the thought of servicing it even turns you on a little. Just because you''re repaying him for something he did for you doesn''t mean you can''t enjoy yourself too...'
  225. 'You slowly envelop his cock with your mouth and start sucking the head. After a minute or two, you feel his hand at the back of your head. You want him ask him what he wants, but he forces you to stay where you are and slowly pushes his hips forward, making you take more and more of his rod inside your mouth.'
  226. gs 'arousal', 'bj', 5, 'sub'
  227. gs 'stat'
  228. act 'Give him a blowjob':
  229. if venera > 0:gt 'pav_clinic', 'gynoblow'
  230. *clr & cla
  231. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  232. gs 'stat'
  233. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  234. 'When you try to move your head, it has nowhere to go. The doctor''s erection is about halfway in your mouth now and his powerful arm is keeping you in place. You decide to give him what he wants and stop resisting, slowly feeling him thrust his cock further and further into your mouth. At first it''s easy, but his thick cock makes breathing more difficult the further it goes down.'
  235. 'At one point, it feels like he''s just fucking your throat carelessly and you nearly gag when he pushes his dick all the way down your throat and holds it there for a few seconds. When he pulls back, it''s fully coated with your saliva.'
  236. 'You gasp for breath while he pulls you up. "Should be slick enough. It''s time to go deeper," he says with a grin.'
  237. 'You wonder what he means by that as he turns you around and has you lean over against his chair. Once he''s certain you''re stable, he lets go of you and rubs the tip of his cock against your clitoris. It feels... quite nice, actually.'
  238. gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
  239. gs 'stat'
  240. act 'Continue':
  241. *clr & cla
  242. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
  243. 'You moan, feeling some of your wetness running down your leg as Dr. Petrovich keeps rubbing his cock against your clit. He sure knows his way around a woman''s body!'
  244. 'You close your eyes and just give in to the pleasure as you feel something push against your labia and your vaginal walls are stretched by his thick dick entering you. It''s still very slick from the blowjob you gave him earlier, and you can''t help but groan loudly when it slides in.'
  245. gs 'arousal', 'vaginal', 5, 'sub'
  246. gs 'stat'
  247. act 'Have sex with him':
  248. *clr & cla
  249. pcs_vag += 1
  250. gs 'boyStat', 'A68'
  251. cumprecheck = 1
  252. gs 'cum_manage'
  253. gs 'stat'
  254. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
  255. 'You feel like you''re in heat when he slowly starts thrusting his cock in and out of you. When he realizes you can take him easily, he steadily increases the pace and fucks you harder. You involuntarily moan with his thrusts, fully giving yourself to him.'
  256. 'Dr. Petrovich lightly slaps your ass a few times and you moan louder. He''s making you feel so good! After a few minutes, you can''t take it any more and try to stifle your moans so you don''t scream the whole clinic down while you have a thunderous orgasm. Your legs buckle under your weight and give way, but fortunately he pulled his dick out of you on time and catches you in his powerful arms. He carries you to a table and puts you down on top of it with your legs spread towards him.'
  257. 'He immediately guides his cock back into you while your body quivers, still not fully recovered from the orgasm you just had.'
  258. $orgasm_or = 'yes'
  259. gs 'arousal', 'vaginal', 5, 'sub'
  260. gs 'stat'
  261. act 'Sex on the table':
  262. *clr & cla
  263. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
  264. 'He picks up the pace again and fucks you hard and fast like before. Your body no longer listens to you, and you find yourself eagerly bucking your hips against his thrusts. You feel that tingle starting up inside you again... If he keeps this up, you''re going to cum all over his cock again.'
  265. 'The doctor smiles at you while he pulls his dick out. "I bet I could give you another type of orgasm, one that you maybe never had before. Wait here, I''ll be right back."'
  266. 'You kind of hear him say something, but at the same time you''re still too stuck in your own world to realize what he just said. When the high from your orgasm wears off, you look around the room. Where did he go?'
  267. 'Just as you''re about to get off the table, he returns with a jar of lubricant in his hand and a latex glove on one hand. He motions for you to turn around, which you obediently do.'
  268. 'Several of his gloved fingers dip inside the jar, and when he pulls it up you see the lubricant slowly dripping from them. He puts them against your tight sphincter and spreads some of the lube over it before thrusting three fingers in.'
  269. '"Ouch!" you cry out when you feel his fingers stretch out your asshole. It hurts a little, and you feel a bit uncomfortable when he pulls his fingers away and spreads more lubricant over his cock. Before you can object, you feel the thick head of his cock pushing past your sphincter, stretching you out even further.'
  270. gs 'arousal', 'vaginal', 5, 'sub'
  271. gs 'arousal', 'foreplay', 5, 'sub'
  272. gs 'arousal', 'anal_finger', 5, 'sub'
  273. minut -= 5
  274. gs 'stat'
  275. act 'Anal sex':
  276. *clr & cla
  277. pcs_ass += 1
  278. gs 'stat'
  279. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
  280. 'You want to pull away from him, but you''re trapped between Dr. Petrovich and a wall. He slowly moves his hips, letting you get used to the size of his thick rod inside your ass. Despite your best efforts you can''t relax your anus, only slowly getting used to the size of him.'
  281. 'When he starts to speed up, you nearly cry and groan loudly with every thrust.'
  282. '"This won''t do. You''re going to alert the entire clinic if you keep screaming like that!" he mutters and takes his dick out of your ass.'
  283. '"Come on, get on the floor," he orders after he throws his coat down. He spreads some more lubricant over his gloved fingers and smears it over your throbbing asshole.'
  284. gs 'arousal', 'anal', 5, 'sub'
  285. gs 'stat'
  286. act 'Sex on the floor':
  287. *clr & cla
  288. gs 'stat'
  289. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
  290. 'To your surprise, he ignores your ass and drives his dick back into your pussy instead. He fucks you with short, rough thrusts, almost as if he''s fucking the annoyance out of his system. It doesn''t feel very pleasant at first, but you soon moan and start enjoying the feeling again when your body relaxes.'
  291. 'When he notices you''re gasping faster, he quickly pulls his cock out of your pussy and rams it inside your asshole in one fluent motion. You cry out loud, partially from the pain and partially because you''re frustrated... You were so close! Despite the discomfort and pain you''re experiencing, you rub your clitoris, hoping it will take your mind off the pain and hopfully getting that orgasm you''re craving.'
  292. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  293. gs 'stat'
  294. act 'Anal':
  295. *clr & cla
  296. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
  297. 'Now that you''re so aroused, the anal sex doesn''t hurt quite as much. You furiously rub your clit while he roughly pounds your stretched asshole, slowly losing your mind when a second orgasm hits you. Dr. Petrovich must feel your anus contracting around his cock when you cum with it inside you.'
  298. 'He was close as well, and after you ride out your orgasm he gives it a few more thrusts before he pulls out and moves his hips towards your face. He grabs you by the hair and guides his cock towards your mouth, and you obediently open your mouth to let it in.'
  299. $orgasm_or = 'yes'
  300. gs 'arousal', 'anal', 5, 'sub', 'rough'
  301. gs 'stat'
  302. act 'Let him cum in your mouth':
  303. *clr & cla
  304. minut += 5
  305. pcs_horny += 5
  306. gs 'boyStat', 'A68'
  307. gs 'cum_call', 'mouth_swallow', $boy, 1
  308. gs 'stat'
  309. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  310. 'You feel too tired to object, even if you wanted to, and have no choice but to take his load in your mouth. You obediently show it to him before swallowing it and licking your lips. He moves his slowly softening dick towards your mouth once more, letting you suck and lick it clean.'
  311. 'He lets out a satisfied sigh and starts putting his clothes back on as if nothing happened.'
  312. act 'Get dressed':
  313. *clr & cla
  314. minut += 5
  315. pcs_horny += 5
  316. gs 'stat'
  317. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  318. 'You follow his example and also put your clothes back on.'
  319. 'When you''re both fully dressed again, he has a wide grin on his face. "Well now, one good turn deserves another. Considering your line of work, I suggest you come visit me at least once a week."'
  320. 'You happily agree with him. "That''s true. Thank you doctor, I''ll make sure to refer my friends to you if they ever need a check-up too."'
  321. gs 'arousal', 'end'
  322. gs 'stat'
  323. act 'Leave': gt $curloc
  324. end
  325. end
  326. end
  327. end
  328. end
  329. end
  330. end
  331. end
  332. end
  333. end
  334. end
  335. end
  336. end
  337. end
  338. if drugVars['cocaine_addict'] = 1 and mid($start_type,1,2) = 'sg':
  339. act 'Seek help for your weakness and pain':
  340. *clr & cla
  341. menu_off = 1
  342. minut += 5
  343. gs 'stat'
  344. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  345. if gpoli_doctorhavesex = 1:
  346. 'You go to the doctor for help with your addiction since you trust him enough to know he won''t tell your mother.'
  347. '"Hi <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich says with a smile.'
  348. '"Hello doctor. I''m feeling weak and I hurt all over," you reply.'
  349. '"Well, let''s take a look, shall we?" he replies as you get up to stand by the examination table.'
  350. else
  351. 'You go to the doctor for help with your addiction.'
  352. '"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" he asks asks as he walks into the examination room.'
  353. '"Hello sir. I''m feeling really weak and shaky and I hurt all over," you explain.'
  354. '"Let''s take a look, shall we?" he replies and gestures for you to stand next to the examination table.'
  355. end
  356. act 'Continue':
  357. *clr & cla
  358. minut += 5
  359. gs 'stat'
  360. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
  361. 'You tell the doctor about the white powder you''ve been sniffing while he checks your temperature, blood pressure and pulse.'
  362. '"Lift your shirt so we can have a listen," he tells you as he warms his stethoscope by breathing on it.'
  363. 'You lift your shirt and bra above your breasts as instructed and the doctor presses the stethoscope to various places on your chest. He places his left hand on your stomach to steady you as he listens to your heart and breathing, occasionally bringing the stethescope to his mouth to rewarm it. The hand on your stomach moves in small circles that slip steadily lower until his finger tips slip just below the waistband of your clothes. Unlike any other doctor you''ve seen before, Dr. Petrovich listens by pressing the stethescope against your breasts. Does that even work?'
  364. 'He also warms it more often now, and it feels moist and warm on your nipples. To your embarrassment, you can feel your nipples starting to get hard. You''re not quite sure, but you''re fairly sure Dr. Petrovich was just having fun for the last few minutes of the examination.'
  365. *nl
  366. 'He nods. "Well, so far everything is okay."'
  367. 'You notice that there''s a certain sparkle in his eyes when he looks at your <<$titsize>> breasts with interest. You feel embarrassed at your nipples hardening even further, and try to think of bad things.'
  368. 'To your relief, the tingle you started to feel in your pussy goes away.'
  369. '"Please undress and sit in that chair. I will be back momentarily," he tells you as he steps towards the door and leaves.'
  370. act 'Reluctantly take your clothes off':
  371. *clr & cla
  372. minut += 10
  373. gs 'stat'
  374. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
  375. 'You sigh. Is this guy even a doctor? He was way too eager with your breasts and you suspect he has other reasons to want you naked.'
  376. 'Nevertheless, you feel terrible and really need this check-up, so you reluctantly start taking your clothes off.'
  377. act 'Sit in the chair':
  378. *clr & cla
  379. minut += 5
  380. gs 'stat'
  381. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
  382. 'You quickly undress and climb into the chair. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it''s heated. You fidget nervously as you wait for the doctor to return.'
  383. 'After what seems like hours, the doctor comes back into the room. You notice his face seems redder than it was and his hair seems to be a little damp. He''s also taken off the apron-like smock he had on before. He continues with his examination, taking your hands and arms and massaging the joints and flexing them. He does the same with your feet and legs. To your surprise, he also examines your ass and pussy, easing his gloved fingers into your pussy and then your asshole. He even speads your lips apart and pushes the hood back to expose your clitoris, which he gently massages for a second before suddenly getting to his feet with a deep sigh, his eyes lingering on your exposed pussy for a moment too long before he seems to give himself a little shake.'
  384. $gpoli_sick = ''
  385. if cumcondslip > 0:
  386. $gpoli_sick = 'are suffering from toxic shock from a spent condom in your body. I removed it as soon as I found it. If you were feeling sick, it should slowly subside.'
  387. cumspclnt = 8
  388. gs 'cum_cleanup'
  389. end
  390. if preg > 0:
  391. thinkpreg = 1
  392. knowpreg = 1
  393. $gpoli_sick = 'are pregnant'
  394. end
  395. if venera > 0 or Kandidoz > 10:
  396. if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
  397. if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
  398. end
  399. if $gpoli_sick = '':
  400. '"Other than the fact that you''re addicted to cocaine, you''re otherwise completely healthy. Truth be told, you have a very mature body for a girl your age." You see the corners of his mouth twitch and think his pants look a little tighter in his crotch area than before. "But that''s not what you''re here for. Now please get dressed while I write a note for your mother. I''m not allowed to give you the cure to your addiction without her permission."'
  401. 'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you!'
  402. '"Wait!" you quickly blurt out. "Could you please just give me the shot without telling her? Please?"'
  403. 'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, but you''re not an adult. I need her permission to treat you, those are the rules."'
  404. else
  405. '"Well <<$pcs_nickname>>, you have a problem. You <<$gpoli_sick>> as well as being addicted to cocaine. I''ll have to write a note for your mother. I can''t treat you without her permission."'
  406. if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
  407. 'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you!'
  408. '"Wait!" you quickly blurt out. "Could you please just give me the cure without telling her? Please?"'
  409. 'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, but you''re not an adult. I need her permission to treat you. You''ve been a very bad girl, you know..."'
  410. end
  411. act 'Offer him money': gt 'pav_clinic', 'spravka_money_pale'
  412. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange_pale'
  413. end
  414. end
  415. end
  416. end
  417. end
  418. if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and Gspravka < 3 and motherKnowSpravka = 0 and func('homes_properties', 'has_access', 'parents_home'): act 'Go to the gynaecologist for a referral': gt 'pav_clinic', 'referral'
  419. else
  420. 'The clinic is closed. It''s open every day between 06:00 and 21:00.'
  421. end
  422. end
  423. if $ARGS[0] = 'sexual_health':
  424. *clr & cla
  425. menu_off = 1
  426. minut += 1
  427. gs 'stat'
  428. '<center><b>Sexual Health Clinic</b></center>'
  429. *nl
  430. '<center>STD Test - 1,000 <b>₽</b></center>'
  431. '<center>For treatments, see the nurse</center>'
  432. act 'Leave': gt 'pav_clinic'
  433. if money >= 1000:
  434. act 'Get tested for STDs (1,000 <b>₽</b>) (cash)':
  435. money -= 1000
  436. gs 'pav_clinic', 'std_test'
  437. end
  438. end
  439. if karta >= 1000:
  440. act 'Get tested for STDs (1,000 <b>₽</b>) (card)':
  441. karta -= 1000
  442. gs 'pav_clinic', 'std_test'
  443. end
  444. end
  445. gs 'clinic_functions', 'set_std_herpes_shot_act'
  446. gs 'clinic_functions', 'set_std_gonorrhea_shot_act'
  447. gs 'clinic_functions', 'set_std_syphilis_shot_act'
  448. end
  449. if $ARGS[0] = 'std_test':
  450. minut += 60
  451. gs 'stat'
  452. 'The doctor has you provide some blood and urine samples before examining you. He then sends you out to the waiting room while you wait for the test results to come back.'
  453. if venera > 0 or Kandidoz > 10:
  454. 'The doctor calls you back to his office after a while. "I''m afraid I have some bad news," he says with a frown.'
  455. gs 'pav_clinic', 'std_check'
  456. else
  457. 'The doctor is pleased to announce that you don''t have a sexually transmitted disease.'
  458. end
  459. act 'Leave': gt 'pav_clinic'
  460. end
  461. if $ARGS[0] = 'referral':
  462. menu_off = 1
  463. if pcs_vag = 0:
  464. *clr & cla
  465. minut = minut + 15
  466. gs 'stat'
  467. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
  468. 'You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it''s heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.'
  469. Gspravka = 30
  470. GspravkaT = 1
  471. Gspassed = 1
  472. 'He confirms that you''re still a virgin and tells you to get dressed while he prepares your referral. While you put your clothes back on, he fills out the form at his desk and stamps it before handing it to you. This should keep your mother happy for another month...'
  473. act 'Leave':gt $curloc
  474. else
  475. *clr & cla
  476. minut += 5
  477. gs 'stat'
  478. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  479. if stat['think_virgin'] = 1 and pcs_vag > 0:
  480. 'You quickly undress and climb into the chair, spreading your legs and resting them in the stirrups. The leather-like surface feels strangely warm on your bottom, and it takes you a second to realize that it''s heated. The gynaecologist examines your vagina carefully with a speculum, and silently mumbles something to himself.'
  481. act 'Have the check-up': gt 'pav_clinic', 'referral2'
  482. else
  483. 'You''re a bit nervous as you enter the gynaecologist''s office. Your mother expects you to get a referral from him that states you''re still a virgin, except there''s one small problem... you''re not a virgin any more! Maybe you can work something out with him?'
  484. if gpoliuborka = 2:
  485. '"Hello <<$pcs_nickname>>. What brings you in today?" Dr. Petrovich asks with a smile.'
  486. '"Hello, doctor. It''s time for my monthly check-up again. My mother needs a referral from you to make sure I''m still a virgin," you reply.'
  487. '"Ah, yes. For... school, right? Let''s take a look," he replies with a chuckle.'
  488. else
  489. '"Hello, young lady. I''m Dr. Petrovich. Do you have specific complaints, or are you simply here for a check-up?" the doctor asks as he walks into the examination room.'
  490. '"Hello sir. I''m here for my monthly referral. My mother needs one from you to establish I''m still a virgin. It''s for school," you explain.'
  491. '"For... school?" he asks, a little confused. "Okay, let''s take a look, shall we?" He gestures for you to stand next to the examination table.'
  492. end
  493. act 'Have the check-up':
  494. *clr & cla
  495. minut += 5
  496. gs 'stat'
  497. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
  498. 'The doctor breathes on his stethoscope to warm it up. "Lift your shirt, please."'
  499. 'He sees your hesitation, and reassures you. "I''m just doing some basic check-ups while you''re here. Now... your shirt, please?"'
  500. 'You expose your <<$titsize>> breasts to him when you lift your shirt up. You''re no medical professional, but you''re fairly certain that he''s not supposed to put the stethoscope on your breast like that!'
  501. 'You decide to humour him and just let him play with your breasts for several minutes, after which he happily nods. "Everything seems to be in order."'
  502. 'There''s an eager sparkle in his eyes when he looks at your bare breasts. "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."'
  503. act 'Undress':
  504. *clr & cla
  505. minut += 5
  506. gs 'stat'
  507. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
  508. 'You reluctantly take your clothes off, trying to put the moment off as long as you can. You know he''ll find out about your secret, but you don''t have any other option.'
  509. act 'Sit in the chair': gt 'pav_clinic', 'referral2'
  510. end
  511. end
  512. act 'Admit that you''re no longer a virgin':
  513. *clr & cla
  514. minut += 5
  515. gs 'stat'
  516. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  517. if gpoliuborka = 2:
  518. 'You pause for a second, and then decide to just confess. He''s going to find out anyway.'
  519. '"Doctor Petrovich, I have something to ask of you..." you hesitantly say. "You see, I... I''m no longer a virgin."'
  520. 'He nods understandingly. "I see." This likely isn''t the first time one of his patients has told him that.'
  521. 'You continue. "But... My mother thinks I''m still a virgin, and I''d really like to keep it that way. Could you please help me?"'
  522. 'He looks puzzled for a second, and his eyes widen when he realizes what you''re asking of him. "You mean... Fake your referral? That''s fraud! Do you have any idea how much trouble I could end up in if I do that?"'
  523. else
  524. 'You pause for a second, and then decide to just confess. He''s going to find out anyway.'
  525. '"Doctor Petrovich, I have something to ask of you..." you hesitantly say. "You see, I... I''m no longer a virgin."'
  526. 'He nods understandingly. "I see." This likely isn''t the first time one of his patients has told him that.'
  527. 'You continue. "But... My mother thinks I''m still a virgin, and I''d really like to keep it that way. Could you please help me?"'
  528. 'He nods again. "I see what you''re getting at. I might be able to help you, but I''m running a big risk by doing that. What''s in it for me?"'
  529. end
  530. act 'Offer him money': gt 'pav_clinic', 'spravka_money'
  531. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
  532. act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
  533. end
  534. end
  535. end
  536. end
  537. if $ARGS[0] = 'referral2':
  538. *clr & cla
  539. minut += 5
  540. gs 'stat'
  541. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
  542. 'Once you''re naked, you have a seat in the gynaecologist''s chair and spread your legs in the stirrups before the doctor gives you a thorough check-up. He spends a bit more time on your asshole than he probably should, but maybe he''s just being thorough.'
  543. $gpoli_sick = ''
  544. if preg > 0:
  545. thinkpreg = 1
  546. knowpreg = 1
  547. $gpoli_sick = 'are pregnant'
  548. end
  549. if venera > 0 or Kandidoz > 10:
  550. if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
  551. if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
  552. end
  553. if $gpoli_sick = '':
  554. '"Well, you''re completely healthy. However, you''re also no longer a virgin." You see the corners of his mouth twitch and his pants look a little tighter in his crotch area than before. "Please get dressed while I write out the referral for your mother."'
  555. if stat['think_virgin'] = 1:
  556. 'Your heart begins to race when you hear that. Your mother can''t find out! How could this have happened? You''ve never even had sex!'
  557. else
  558. 'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you if she finds out!'
  559. end
  560. '"Wait!" you quickly blurt out. "Could you please just write down that I''m still a virgin so I don''t get in trouble? Please?"'
  561. 'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, I can''t do that, that''s fraud! Do you have any idea how much trouble I could get into?"'
  562. else
  563. 'The doctor frowns when he gives you the results. "I''m afraid I have some bad news, <<$pcs_nickname>>. You <<$gpoli_sick>>.'
  564. if venera > 0 or Kandidoz > 10: gs 'pav_clinic', 'std_check'
  565. 'You''re also not a virgin any more, obviously."'
  566. if stat['think_virgin'] = 1:
  567. 'Your heart begins to race when you hear that. Your mother can''t find out! How could this have happened? You''ve never even had sex!'
  568. else
  569. 'Your heart begins to race when you hear that. Your mother can''t find out! She would kill you!'
  570. end
  571. '"Wait!" you quickly blurt out. "Could you please just write down that I''m still a virgin so I don''t get in trouble? Please?"'
  572. 'He looks at you sternly and shakes his head. "I''m sorry <<$pcs_nickname>>, but you''re not an adult. I need her permission to treat you. And I can''t lie on a referral, that''s fraud! Do you have any idea how much trouble I could get into?"'
  573. end
  574. act 'Offer him money': gt 'pav_clinic', 'spravka_money'
  575. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
  576. act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
  577. end
  578. if $ARGS[0] = 'gynoblow':
  579. *clr & cla
  580. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  581. if $ARGS[1] = 'referral_blow':
  582. Gspravka = 30
  583. GspravkaT = 1
  584. Gspassed = 1
  585. forge_referral = 1
  586. end
  587. gs 'stat'
  588. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  589. 'When you try to move your head, it has nowhere to go. The doctor''s erection is in front of you, about half-way in your mouth now. Behind you, his powerful arm is keeping you in place. You decide to give him what he wants and stop resisting, slowly feeling him thrust his cock further and further into your mouth. At first it''s easy, but his thick cock makes breathing more difficult the further it goes down.'
  590. 'At one point it feels like he''s just fucking your throat carelessly, and you nearly gag when he pushes his dick all the way down your throat and holds it there for a few seconds. When he pulls back, it''s fully coated with your saliva.'
  591. 'You gasp for breath while he pulls you up. "That''s it, take it all!"'
  592. 'He carries on roughly pleasuring himself with your mouth until you realize he''s about to cum.'
  593. gs 'arousal', 'bj', 10, 'sub', 'rough', 'deepthroat'
  594. gs 'stat'
  595. act 'Let him cum in your mouth':
  596. *clr & cla
  597. minut += 5
  598. pcs_horny += 5
  599. gs 'boyStat', 'A68'
  600. gs 'cum_call', 'mouth_swallow', $boy, 1
  601. gs 'stat'
  602. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  603. 'You feel too tired to object and have no choice but to take his load in your mouth. You obediently show it to him before swallowing it and licking your lips. He moves his slowly softening dick towards your mouth once more, letting you suck and lick it clean.'
  604. 'He lets out a satisfied sigh and starts putting his clothes back on as if nothing happened.'
  605. act 'Get dressed':
  606. *clr & cla
  607. minut += 5
  608. gs 'stat'
  609. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  610. 'You follow his example and also put your clothes back on.'
  611. 'When you''re both fully dressed again, he has a wide grin on his face. "Well now, one good turn deserves another. Considering your line of work, I suggest you come visit me at least once a week, but first go and see my colleague to get yourself cured."'
  612. 'You happily agree with him. "Thank you doctor! I''ll make sure to refer my friends to you if they ever need a check-up too."'
  613. gs 'arousal', 'end'
  614. gs 'stat'
  615. act 'Leave':gt 'pav_clinic'
  616. end
  617. end
  618. end
  619. if $ARGS[0] = 'badend':
  620. *clr & cla
  621. minut += 5
  622. gs 'stat'
  623. Gspravka = 30
  624. GspravkaT = 2
  625. if dildo_gyno_check = 1:dildo_gyno_fail = 1
  626. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
  627. 'You sigh, understanding that there''s nothing you can do to change his mind. Your gynaecologist takes an empty form from the pile and fills it out, stating that you''re not a virgin. He presses his stamp onto it and offers it to you with a disappointed look in his eyes.'
  628. 'Dejectedly, you take it from him and get ready to leave. How are you going to tell your mother?'
  629. if $loc = 'kuhrPar':
  630. act 'Leave': gt 'mother', 'referral'
  631. else
  632. act 'Leave': gt 'pav_clinic'
  633. end
  634. end
  635. if $ARGS[0] = 'spravka_arrange':
  636. *clr & cla
  637. minut += 5
  638. gs 'stat'
  639. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  640. if gpoliuborka = 2:
  641. 'You really need this, but you understand you''re not in a good position to negotiate. Nevertheless, you try to plead your case. "Please, Dr. Petrovich," you beg. "I don''t have any money to offer you, but I really need that referral! My mother would kill me! Please?"'
  642. 'He has a wolfish grin on his face as he gets up from his chair and walks over to you, putting his hands on your shoulders. "Well, if you really need it that badly... I think we can work out a deal. It''d just be between us, no one else has to know..." he says softly in a soothing voice.'
  643. 'You become hopeful, even though you feel a bit uncomfortable. "Erm... Okay, that''s great! What kind of deal are you thinking of?"'
  644. 'He continues in his soothing voice. "You see, my wife is away on a business trip and won''t be home for weeks. I''m a man with needs, and my job is very stressful as you can imagine. I need you to help me relax, relieve the tension, so to speak. Do you think you can help me with that?"'
  645. 'His grip on your shoulders intensifies a little, and he massages you while you think it over. You''re perfectly clear on what he wants from you, but is it really worth it?'
  646. else
  647. 'You really need this, but you understand you''re not in a good position to negotiate. Nevertheless, you try to plea your case and beg: "Please, Dr. Petrovich. I really need that referral! My mother would kill me! Please?"'
  648. 'He has a wolfish grin on his face as he gets up from his chair and walks over to you. "Well, if you really need it that badly... We all have needs. I bet we could work something out..." he says softly.'
  649. '"But... what if..." you softly mutter.'
  650. 'He playfully looks at you. "What if what?"'
  651. '"What if I have no money?" you continue.'
  652. 'He smiles jovially at you as he reaches out for you. He puts his hands on your shoulders and you automatically give in to him, slowly letting him push you down to your knees.'
  653. 'He smirks at you. "I understand why you''re no longer a virgin, you little minx! So eager to please..."'
  654. 'Your face is at the same level as his crotch, and he slowly undoes his pants and drops them to his ankles. His erect cock is pointing at you eagerly, a bead of precum slowly dripping down from it. You can tell he wants you badly.'
  655. gs 'willpower', 'bj', 'resist', 'hard'
  656. if will_cost <= pcs_willpwr:
  657. act 'Grab a referral form and run out of the room (<<will_cost>> Willpower)':
  658. *clr & cla
  659. Gspravka = 30
  660. GspravkaT = 1
  661. Gspassed = 1
  662. forge_referral = 1
  663. gs 'willpower', 'bj', 'resist', 'hard'
  664. gs 'willpower', 'pay', 'resist'
  665. gs 'stat'
  666. 'This is your chance! You quickly grab a nearly filled out form from his desk and run out of his examination room. Dr. Petrovich pulls up his pants again but doesn''t even follow you, knowing this would be way too awkward to explain to anyone else in the clinic. Looks like you win this one!'
  667. 'A while later, you fill out the rest of the form and nod to yourself. <i>This should get <<$npc_nickname[''A29'']>> off my back for another month...</i>'
  668. act 'Leave': gt 'pav_clinic'
  669. end
  670. else
  671. act 'Grab a referral form and run out of the room (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  672. end
  673. end
  674. act 'You really don''t want your mother to find out...':
  675. *clr & cla
  676. minut += 5
  677. gs 'stat'
  678. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
  679. 'You take another deep breath and slowly put your hands on his groin. To your surprise you feel that his cock is already fully erect. You massage it through his pants before dropping to your knees as he pulls his erection free from his pants.'
  680. 'You guide his stiff cock to your mouth with your hand and lick the tip teasingly before you slowly envelop his cock with your mouth and start sucking the head.'
  681. 'After a minute or two, you feel his hand at the back of your head. You want to raise your head and ask him what he wants, but he forces you to stay where you are and slowly pushes his hips forward, making you take more and more of his rod inside your mouth.'
  682. act 'Give him a blowjob':
  683. if venera > 0: gt 'pav_clinic', 'gynoblow', 'referral_blow'
  684. *clr & cla
  685. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  686. gs 'stat'
  687. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  688. 'You want to move back, but there''s nowhere to go. His stiff cock is in front of you, and his powerful hand on the back of your head pulling you in closer. The masculine smell of his throbbing cock fills your nose as you breathe and you have to admit, it excites you!'
  689. 'He begins to relax a little, letting you pull back until just the tip of his cock is between your lips before he pulls your head closer again, forcing his cock deeper each time. At first you''re okay, but at a certain point you can''t keep up any more and gag on his cock when he thrusts it in deep again. You can tell he''s enjoying this from the sadistic grin on his face. "Try breathing through your nose."'
  690. 'You do as he says, and it does indeed make things a bit easier as he starts fucking your mouth, your saliva drooling down his shaft and over his hairy balls. The air of the office is filled with wet slurps and snorts as he pounds his cock into your mouth deeper and deeper, sometimes making you gag involuntarily as the head of his cock slips down your throat. With a sudden thrust, you can feel his curly pubic hair against your lips as he forces his cock down your throat as far as it''ll go. You panic as you can''t breathe, but he just as suddenly pulls his dick out of your mouth again. Thankfully, you get a chance to catch your breath.'
  691. '"I think that got me lubed up properly," he says with a lusty voice. You can tell he''s very excited now, and aren''t sure you want to find out what happens next. Nevertheless, you''re too far in to back down now. "Come on, now it''s time to go deep."'
  692. '"What do you mean?" you start to ask, but get your answer almost immediately as Dr. Petrovich pulls you up from the floor and bends you over the chair. You can''t help but let out a moan as he rubs the head of his slippery cock against your engorged clitoris.'
  693. gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
  694. gs 'stat'
  695. act 'Continue':
  696. *clr & cla
  697. gs 'stat'
  698. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
  699. 'You can feel your arousal rising when his body touches yours. As Dr. Petrovich keeps massaging your clitoris with his cock, you can feel your juices start leaking from your swollen pussy and run down your quivering thighs. You can hear the wet squelching sounds as he plows his throbbing cock between your soaking wet pussy lips.'
  700. 'Your tender flesh resists for a moment, but then surrenders. You feel the walls of your vagina stretch open, letting the invader in as you let out a passionate groan.'
  701. gs 'arousal', 'vaginal', 5, 'sub'
  702. gs 'stat'
  703. act 'Let him fuck you':
  704. *clr & cla
  705. pcs_vag += 1
  706. gs 'boyStat', 'A68'
  707. cumprecheck = 1
  708. gs 'cum_manage'
  709. gs 'stat'
  710. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
  711. 'Your body feels like it''s getting hotter and hotter as beads of sweat form on your forehead. With every thrust Dr. Petrovich fucks you faster and harder, and you can feel your excitement growing too. You start involuntarily moaning as his hard hot member penetrates you ever deeper without giving you any pause.'
  712. 'You can no longer control yourself and have a thunderous orgasm as the doctor keeps fucking you relentlessly. Waves of bliss sear your nerves and your mouth opens in a silent scream as you''re consumed with pleasure.'
  713. 'He suddenly pulls his dick out of you and you almost fall to the floor, but he catches you with his powerful arms and lowers you onto a table where you feel his cock slide back into your quivering pussy.'
  714. $orgasm_or = 'yes'
  715. gs 'arousal', 'vaginal', 5, 'sub'
  716. gs 'stat'
  717. act 'Sex on the table':
  718. *clr & cla
  719. gs 'stat'
  720. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
  721. 'He picks up the pace again and fucks you hard and fast like before. Your body no longer listens to you, and you find yourself eagerly bucking your hips against his thrusts. You feel that tingle starting up inside you again... If he keeps this up, you''re going to cum all over his cock again.'
  722. 'The doctor smiles at you while he pulls his dick out. "I bet I could give you another type of orgasm, one that you maybe never had before. Wait here, I''ll be right back."'
  723. 'You kind of hear him say something, but at the same time you''re still too stuck in your own world to realize what he just said. When the high from your orgasm wears off, you look around the room. Where did he go?'
  724. 'Just as you''re about to get off the table, he returns with a jar of lubricant in his hand and a latex glove on one hand. He motions for you to turn around, which you obediently do.'
  725. 'Several of his gloved fingers dip inside the jar, and when he pulls it up you see the lubricant slowly dripping from them. He puts them against your tight sphincter and spreads some of the lube over it before thrusting three fingers in.'
  726. '"Ouch!" you cry out when you feel his fingers stretch out your asshole. It hurts a little, and you feel a bit uncomfortable when he pulls his fingers away and spreads more lubricant over his cock. Before you can object, you feel the thick head of his cock pushing past your sphincter, stretching you out even further.'
  727. gs 'arousal', 'vaginal', 5, 'sub'
  728. gs 'arousal', 'foreplay', 5, 'sub'
  729. gs 'arousal', 'anal_finger', 5, 'sub'
  730. minut -= 5
  731. gs 'stat'
  732. act 'Anal sex':
  733. *clr & cla
  734. pcs_ass += 1
  735. gs 'stat'
  736. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
  737. 'You want to pull away from him, but you''re trapped between Dr. Petrovich and a wall. He slowly moves his hips, letting you get used to the size of his thick rod inside your ass. Despite your best efforts you can''t relax your anus, only slowly getting used to the size of him.'
  738. 'When he starts to speed up, you nearly cry and groan loudly with every thrust.'
  739. '"This won''t do. You''re going to alert the entire clinic if you keep screaming like that!" he mutters and takes his dick out of your ass.'
  740. '"Come on, get on the floor," he orders after he throws his coat down. He spreads some more lubricant over his gloved fingers and smears it over your throbbing asshole.'
  741. gs 'arousal', 'anal', 5, 'sub'
  742. gs 'stat'
  743. act 'Sex on the floor':
  744. *clr & cla
  745. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
  746. 'To your surprise, he ignores your ass and drives his dick back into your pussy instead. He fucks you with short, rough thrusts, almost as if he''s fucking the annoyance out of his system. It doesn''t feel very pleasant at first, but you soon moan and start enjoying the feeling again when your body relaxes.'
  747. 'When he notices you''re gasping faster, he quickly pulls his cock out of your pussy and rams it inside your asshole in one fluent motion. You cry out loud, partially from the pain and partially because you''re frustrated... You were so close! Despite the discomfort and pain you''re experiencing, you rub your clitoris, hoping it will take your mind off the pain and hopfully getting that orgasm you''re craving.'
  748. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  749. gs 'stat'
  750. act 'Anal':
  751. *clr & cla
  752. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
  753. 'Now that you''re so aroused, the anal sex doesn''t hurt quite as much. You furiously rub your clit while he roughly pounds your stretched asshole, slowly losing your mind when a second orgasm hits you. Dr. Petrovich must feel your anus contracting around his cock when you cum with it inside you.'
  754. 'He was close as well, and after you ride out your orgasm he gives it a few more thrusts before he pulls out and moves his hips towards your face. He grabs you by the hair and guides his cock towards your mouth, and you obediently open your mouth to let it in.'
  755. $orgasm_or = 'yes'
  756. gs 'arousal', 'anal', 5, 'sub', 'rough'
  757. gs 'stat'
  758. act 'Let him cum in your mouth':
  759. *clr & cla
  760. minut += 5
  761. pcs_horny += 5
  762. gs 'boyStat', 'A68'
  763. gs 'cum_call', 'mouth_swallow', $boy, 1
  764. gs 'stat'
  765. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  766. 'You feel too tired to object, even if you wanted to, and have no choice but to take his load in your mouth. You obediently show it to him before swallowing it and licking your lips. He moves his slowly softening dick towards your mouth once more, letting you suck and lick it clean.'
  767. 'He lets out a satisfied sigh and starts putting his clothes back on as if nothing happened.'
  768. act 'Get dressed':
  769. *clr & cla
  770. minut += 5
  771. gs 'stat'
  772. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  773. 'You follow his example, and also put your clothes back on.'
  774. 'When you''re both fully dressed again, he has a wide grin on his face. "Well now, one good turn deserves another."'
  775. 'He takes place behind his desk and quickly writes out your referral, stating that you''re still a virgin. He offers it to you: "I believe this is yours. Now if you don''t mind, I have other patients to attend to."'
  776. 'You feel cheap for a moment, when you accept the referral. Nevertheless, you''re off the hook for another month... that''s worth something, right?'
  777. Gspravka = 30
  778. GspravkaT = 1
  779. Gspassed = 1
  780. forge_referral = 1
  781. gs 'arousal', 'end'
  782. gs 'stat'
  783. if $loc = 'kuhrPar':
  784. act 'Leave': gt 'mother', 'referral'
  785. else
  786. act 'Leave': gt 'pav_clinic'
  787. end
  788. end
  789. end
  790. end
  791. end
  792. end
  793. end
  794. end
  795. end
  796. end
  797. end
  798. gs 'willpower', 'bj', 'resist'
  799. if will_cost <= pcs_willpwr:
  800. act 'You can''t do that (<<will_cost>> Willpower)':
  801. cla
  802. gs 'willpower', 'bj', 'resist'
  803. gs 'willpower', 'pay', 'resist'
  804. gs 'stat'
  805. 'You frown. You really don''t want to have sex with him and decide to try one more time. "I can''t do that, doctor. Please, show some compassion... Could you give me a break, just this once? I just need some time to figure out how to tell my <<$npc_nickname[''A29'']>> about all this!"'
  806. 'His gaze is stone cold, without any sign of compassion. "So be it. Sorry <<$pcs_nickname>>, but that''s not how it works. I''m running a big enough risk as it is. If you''re not helping me, I''m not helping you."'
  807. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
  808. act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
  809. end
  810. else
  811. act 'You can''t do that (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  812. end
  813. end
  814. if $ARGS[0] = 'spravka_money':
  815. *clr & cla
  816. minut += 5
  817. gs 'stat'
  818. if gpoliuborka = 2:
  819. 'You don''t want to have sex with him. Sex is what got you into this mess in the first place!'
  820. 'You think fast. "I can pay!" you blurt out. "Would that referral be the same if I were to pay you for your time? I can pay you well!"'
  821. 'The doctor strokes his chin as he thinks. "I don''t know... I''m not here for the money. However, a private patient wouldn''t count as a minor, so I would have no obligation to tell your mother. The standard consultancy fee is 2,000 <b>₽</b>."'
  822. if money >= 2000:
  823. act 'Pay him the 2,000 <b>₽</b> (cash)':
  824. *clr & cla
  825. minut += 5
  826. money -= 2000
  827. gs 'stat'
  828. Gspravka = 30
  829. GspravkaT = 1
  830. Gspassed = 1
  831. forge_referral = 1
  832. '"Deal!" you reply without giving it much thought.'
  833. 'It''s not cheap, but this way you get another month to think of a solution before your mother finds out you''re no longer a virgin. Dr. Petrovich takes your money and fills out a form before stamping it and handing it over. You carefully put it in your pocket while thanking him.'
  834. act 'Leave':gt 'pav_clinic'
  835. end
  836. end
  837. if karta >= 2000:
  838. act 'Pay him the 2,000 <b>₽</b> (card)':
  839. *clr & cla
  840. minut += 5
  841. karta -= 2000
  842. gs 'stat'
  843. Gspravka = 30
  844. GspravkaT = 1
  845. Gspassed = 1
  846. forge_referral = 1
  847. '"Deal!" you reply without giving it much thought.'
  848. 'It''s not cheap, but this way you get another month to think of a solution before your mother finds out you are not a virgin. Dr. Petrovich produces a card reader and you make the payment before he fills out a form before stamping it and handing it over. You carefully put it in your pocket while thanking him.'
  849. act 'Leave': gt 'pav_clinic'
  850. end
  851. end
  852. act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
  853. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
  854. else
  855. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_5.jpg"></center>'
  856. '"Well, what if I give you money?" you suggest.'
  857. 'Dr. Petrovich seems insulted by this suggestion. "Enough! I''m a professional doctor who swore an oath! You can''t bribe me! It would go against everything I stand for!"'
  858. '"Please? I could really use your help... Please..." you beg as tears fill your eyes. "I don''t know what else to do..." you sob.'
  859. 'He shakes his head resolutely and eyes you up and down. "I would like to help a pretty young girl in need, but taking a bribe could get me struck off the Medical Register."'
  860. 'He lets those words linger in the air for a while, talking in a tone as if he''s not opposed to helping you. He''s resolute about not accepting money though, and is pausing to see if you''ll suggest something else instead.'
  861. act 'Just accept the referral as is': gt 'pav_clinic', 'badend'
  862. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange'
  863. end
  864. end
  865. if $ARGS[0] = 'spravka_money_pale':
  866. *clr & cla
  867. minut += 5
  868. gs 'stat'
  869. if gpoli_doctorhavesex = 0:
  870. '"Could you overlook my age if I were to pay you for your time?" you suggest.'
  871. 'He tries to reject you, but doesn''t sound very convincing. "I don''t know... I didn''t become a doctor for the money."'
  872. 'A gleam of greed appears in his eyes - you definitely have his attention. "However, a private patient wouldn''t count as a minor, so I would have no obligation to tell anyone anything. It would be like you were never here! The normal consultancy fee is 2,000 <b>₽</b>."'
  873. if money >= 2000:
  874. act 'Pay him the 2,000 <b>₽</b> (cash)':
  875. *clr & cla
  876. minut += 5
  877. money -= 2000
  878. pcs_horny += 5
  879. gs 'stat'
  880. 'The doctor carefully counts the money before preparing an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
  881. gs 'pav_clinic', 'spravka_money_pale2'
  882. end
  883. end
  884. if karta >= 2000:
  885. act 'Pay him the 2,000 <b>₽</b> (card)':
  886. *clr & cla
  887. minut += 5
  888. karta -= 2000
  889. pcs_horny += 5
  890. gs 'stat'
  891. 'The doctor picks up his card reader and you make the payment before he prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP". You swallow nervously as he fills a rather large looking needle with the unfamiliar chemical.'
  892. gs 'pav_clinic', 'spravka_money_pale2'
  893. end
  894. end
  895. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange_pale'
  896. else
  897. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_5.jpg"></center>'
  898. '"Well, what if I give you money? I can pay you!" you suggest in desperation.'
  899. 'Dr. Petrovich seems insulted by this suggestion. "Enough! I''m a medical professional who swore an oath! You can''t bribe me! That would go against everything I stand for!"'
  900. '"Please? I could really use your help... Please..." you beg as tears fill your eyes. "I don''t know what else to do!" you sob.'
  901. 'He shakes his head resolutely and eyes you up and down. "I would like to help a pretty young girl in need, but taking a bribe could get me struck off the Medical Register."'
  902. 'He lets those words linger in the air for a while, talking in a tone as if he''s not opposed to helping you. He''s resolute about not accepting money though, and is pausing to see if you''ll suggest something else.'
  903. act 'Try to negotiate': gt 'pav_clinic', 'spravka_arrange_pale'
  904. end
  905. end
  906. if $ARGS[0] = 'spravka_money_pale2':
  907. 'He tells you to bend over, but seems to have some problems finding the correct spot for the shot as you feel his hand squeezing your ass cheeks in several spots.'
  908. 'You''re afraid he might stick the needle in your asshole before he finally settles on a location and swabs it with some disinfectant.'
  909. 'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
  910. '"There, all done," he says with a satisfied tone. "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more or the cure won''t work."'
  911. act 'Leave': gt 'pav_clinic'
  912. end
  913. if $ARGS[0] = 'spravka_arrange_pale':
  914. *clr & cla
  915. minut += 5
  916. gs 'stat'
  917. if gpoli_doctorhavesex = 1:
  918. '"Can I, I mean... Can we, er... How... Is there something I can do for you? My mother really can''t find out!" you sob in desperation. You''re terrified at the thought of what your mother would do if she knew.'
  919. 'The doctor knows he has you cornered, and drives his point home. "Well, you really need this treatment. I think I can offer you a different option. It would stay between us, of course," he says as he puts his hand on your shoulder.'
  920. '"What do I have to do?" you ask. Deep down inside, you feel like you already know the answer.'
  921. 'He decides to be straight with you. "You see,my wife is away on a business trip as usual and won''t be home for weeks. I''m a man with needs and my job is very stressful as you can imagine. I need you to help me relax, relieve the tension, so to speak. So, I''m going to fuck you. I''m going to fuck you any way I want. If you do good, you''ll get your medicine and I won''t tell your mother. Deal?"'
  922. 'You knew it was coming, but you''re baffled by his audacity. He stares you down while several thoughts race through your mind. You really need this treatment, but is it worth it?'
  923. else
  924. '"Can I, I mean... Can we, er... How... Is there something I can do for you? My mother really can''t find out!" you sob in desperation. You''re terrified at the thought of what your mother would do if she knew.'
  925. 'The doctor knows he has you cornered. "We all need things, <<$pcs_nickname>>. If you help me with my needs, I can help you with yours."'
  926. 'He continues: "My wife is away on a business trip and won''t be home for weeks. I''m a man with needs and my job is very stressful as you can imagine. I need you to help me relax, relieve the tension, so to speak. What do you say?"'
  927. '"What do you..." you hesitate. You know exactly what he''s suggesting, but you can''t say it.'
  928. 'The doctor puts his hands on your hips and smiles at you confidently. "A beautiful girl like you always has other options."'
  929. 'He gropes your <<$titsize>> breasts for a while before he undoes his belt.'
  930. gs 'willpower', 'bj', 'resist'
  931. if will_cost <= pcs_willpwr:
  932. act 'Run out of the office (<<will_cost>> Willpower)':
  933. *clr & cla
  934. gs 'willpower', 'bj', 'resist'
  935. gs 'willpower', 'pay', 'resist'
  936. gs 'stat'
  937. 'In a panic, you grab your clothes and run out of the office. You know you can''t talk about this with anyone. If you say anything, Dr. Petrovich would tell your mother about your addiction. You quickly get dressed in an empty examination room, wondering how you''re going to get out of this mess now.'
  938. if $loc = 'kuhrPar':
  939. act 'Leave': gt 'mother', 'referral'
  940. else
  941. act 'Leave':gt 'pav_clinic'
  942. end
  943. end
  944. else
  945. act 'Run out of the office (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  946. end
  947. end
  948. act 'Do what you have to do':
  949. *clr & cla
  950. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
  951. 'You sigh and slowly slide down from the chair, kneeling in front of the doctor as he pulls out his semi-hard cock. You grasp it in your hand and reluctantly start licking it while rubbing your hand up and down the shaft. As his cock begins to get harder, you become fascinated by the changes to his manhood. You find yourself starting to get involved in pleasuring him... maybe this won''t be so bad after all. To your surprise, you think you might even be starting to enjoy the feel and taste of his hot flesh. You move your hand faster, still licking his now fully erect cock and his breathing slightly accelerates. You think maybe that''s it, maybe he''s about to come...'
  952. 'But, no. Instead the doctor lays his hand on the back of your head. You want to raise your head to see what he wants, but instead he pulls you towards his groin and your <<$pc_desc[''lips'']>> lips begin to stretch over his slippery cockhead.'
  953. gs 'arousal', 'hj', 5, 'sub'
  954. gs 'stat'
  955. act 'Give him a blowjob':
  956. if venera > 0: gt 'pav_clinic', 'gynoblow'
  957. *clr & cla
  958. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  959. gs 'stat'
  960. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  961. 'You want to move back, but there''s nowhere to go. His stiff cock is in front of you, and his powerful hand on the back of your head pulling you in closer. The masculine smell of his throbbing cock fills your nose as you breathe and you have to admit, it excites you!'
  962. 'He begins to relax a little, letting you pull back until just the tip of his cock is between your lips before he pulls your head closer again, forcing his cock deeper each time. At first you''re okay, but at a certain point you can''t keep up any more and gag on his cock when he thrusts it in deep again. You can tell he''s enjoying this from the sadistic grin on his face. "Try breathing through your nose."'
  963. 'You do as he says, and it does indeed make things a bit easier as he starts fucking your mouth, your saliva drooling down his shaft and over his hairy balls. The air of the office is filled with wet slurps and snorts as he pounds his cock into your mouth deeper and deeper, sometimes making you gag involuntarily as the head of his cock slips down your throat. With a sudden thrust, you can feel his curly pubic hair against your lips as he forces his cock down your throat as far as it''ll go. You panic as you can''t breathe, but he just as suddenly pulls his dick out of your mouth again. Thankfully, you get a chance to catch your breath.'
  964. '"I think that got me lubed up properly," he says with a lusty voice. You can tell he''s very excited now, and aren''t sure you want to find out what happens next. Nevertheless, you''re too far in to back down now. "Come on, now it''s time to go deep."'
  965. '"What do you mean?" you start to ask, but get your answer almost immediately as Dr. Petrovich pulls you up from the floor and bends you over the chair. You can''t help but let out a moan as he rubs the head of his slippery cock against your engorged clitoris.'
  966. gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
  967. gs 'stat'
  968. act 'Continue':
  969. *clr & cla
  970. gs 'stat'
  971. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
  972. 'You can feel your arousal rising when his body touches yours. As Dr. Petrovich keeps massaging your clitoris with his cock, you can feel your juices start leaking from your swollen pussy and run down your quivering thighs. You can hear the wet squelching sounds as he plows his throbbing cock between your soaking wet pussy lips.'
  973. 'Your tender flesh resists for a moment, but then surrenders. You feel the walls of your vagina stretch open, letting the invader in as you let out a passionate groan.'
  974. gs 'arousal', 'vaginal', 5, 'sub'
  975. gs 'stat'
  976. act 'Let him fuck you':
  977. *clr & cla
  978. pcs_vag += 1
  979. gs 'boyStat', 'A68'
  980. cumprecheck = 1
  981. gs 'cum_manage'
  982. gs 'stat'
  983. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
  984. 'Your body feels like it''s getting hotter and hotter as beads of sweat form on your forehead. With every thrust Dr. Petrovich fucks you faster and harder, and you can feel your excitement growing too. You start involuntarily moaning as his hard hot member penetrates you ever deeper without giving you any pause.'
  985. 'You can no longer control yourself and have a thunderous orgasm as the doctor keeps fucking you relentlessly. Waves of bliss sear your nerves and your mouth opens in a silent scream as you''re consumed with pleasure.'
  986. 'He suddenly pulls his dick out of you and you almost fall to the floor, but he catches you with his powerful arms and lowers you onto a table where you feel his cock slide back into your quivering pussy.'
  987. $orgasm_or = 'yes'
  988. gs 'arousal', 'vaginal', 5, 'sub'
  989. gs 'stat'
  990. act 'Sex on the table':
  991. *clr & cla
  992. gs 'stat'
  993. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
  994. 'He picks up the pace again and fucks you hard and fast like before. Your body no longer listens to you, and you find yourself eagerly bucking your hips against his thrusts. You feel that tingle starting up inside you again... If he keeps this up, you''re going to cum all over his cock again.'
  995. 'The doctor smiles at you while he pulls his dick out. "I bet I could give you another type of orgasm, one that you maybe never had before. Wait here, I''ll be right back."'
  996. 'You kind of hear him say something, but at the same time you''re still too stuck in your own world to realize what he just said. When the high from your orgasm wears off, you look around the room. Where did he go?'
  997. 'Just as you''re about to get off the table, he returns with a jar of lubricant in his hand and a latex glove on one hand. He motions for you to turn around, which you obediently do.'
  998. 'Several of his gloved fingers dip inside the jar, and when he pulls it up you see the lubricant slowly dripping from them. He puts them against your tight sphincter and spreads some of the lube over it before thrusting three fingers in.'
  999. '"Ouch!" you cry out when you feel his fingers stretch out your asshole. It hurts a little, and you feel a bit uncomfortable when he pulls his fingers away and spreads more lubricant over his cock. Before you can object, you feel the thick head of his cock pushing past your sphincter, stretching you out even further.'
  1000. gs 'arousal', 'vaginal', 5, 'sub'
  1001. gs 'arousal', 'foreplay', 5, 'sub'
  1002. gs 'arousal', 'anal_finger', 5, 'sub'
  1003. minut -= 5
  1004. gs 'stat'
  1005. act 'Anal sex':
  1006. *clr & cla
  1007. pcs_ass += 1
  1008. gs 'stat'
  1009. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
  1010. 'You want to pull away from him, but you''re trapped between Dr. Petrovich and a wall. He slowly moves his hips, letting you get used to the size of his thick rod inside your ass. Despite your best efforts you can''t relax your anus, only slowly getting used to the size of him.'
  1011. 'When he starts to speed up, you nearly cry and groan loudly with every thrust.'
  1012. '"This won''t do. You''re going to alert the entire clinic if you keep screaming like that!" he mutters and takes his dick out of your ass.'
  1013. '"Come on, get on the floor," he orders after he throws his coat down. He spreads some more lubricant over his gloved fingers and smears it over your throbbing asshole.'
  1014. gs 'arousal', 'anal', 5, 'sub'
  1015. gs 'stat'
  1016. act 'Sex on the floor':
  1017. *clr & cla
  1018. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
  1019. 'To your surprise, he ignores your ass and drives his dick back into your pussy instead. He fucks you with short, rough thrusts, almost as if he''s fucking the annoyance out of his system. It doesn''t feel very pleasant at first, but you soon moan and start enjoying the feeling again when your body relaxes.'
  1020. 'When he notices you''re gasping faster, he quickly pulls his cock out of your pussy and rams it inside your asshole in one fluent motion. You cry out loud, partially from the pain and partially because you''re frustrated... You were so close! Despite the discomfort and pain you''re experiencing, you rub your clitoris, hoping it will take your mind off the pain and hopfully getting that orgasm you''re craving.'
  1021. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  1022. gs 'stat'
  1023. act 'Anal':
  1024. *clr & cla
  1025. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
  1026. 'Now that you''re so aroused, the anal sex doesn''t hurt quite as much. You furiously rub your clit while he roughly pounds your stretched asshole, slowly losing your mind when a second orgasm hits you. Dr. Petrovich must feel your anus contracting around his cock when you cum with it inside you.'
  1027. 'He was close as well, and after you ride out your orgasm he gives it a few more thrusts before he pulls out and moves his hips towards your face. He grabs you by the hair and guides his cock towards your mouth, and you obediently open your mouth to let it in.'
  1028. $orgasm_or = 'yes'
  1029. gs 'arousal', 'anal', 5, 'sub', 'rough'
  1030. gs 'stat'
  1031. act 'Let him cum in your mouth':
  1032. *clr & cla
  1033. minut += 5
  1034. pcs_horny += 5
  1035. gs 'boyStat', 'A68'
  1036. gs 'cum_call', 'mouth_swallow', $boy, 1
  1037. gs 'stat'
  1038. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  1039. 'You feel too tired to object, even if you wanted to, and have no choice but to take his load in your mouth. You obediently show it to him before swallowing it and licking your lips. He moves his slowly softening dick towards your mouth once more, letting you suck and lick it clean.'
  1040. 'He lets out a satisfied sigh and starts putting his clothes back on as if nothing happened.'
  1041. act 'Get dressed':
  1042. *clr & cla
  1043. minut += 5
  1044. gs 'stat'
  1045. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  1046. 'You follow his example, and also put your clothes back on.'
  1047. 'When you''re both fully dressed, he has a wide grin on his face. "Well now, one good turn deserves another. Wait here, I''ll go get your shot."'
  1048. 'He prepares an injection from a bottle marked "0.45% Sodium Chloride Injection USP" and you swallow nervously as he fills a rather large looking syringe with the unfamiliar chemical.'
  1049. 'He tells you to bend over, but seems to have some problems finding the correct spot for the shot as you feel his hand squeezing your ass cheeks in several spots.'
  1050. 'You''re afraid he''s going to stick the needle in your used asshole before he finally decides on a spot on your ass cheek and he swabs it with disinfectant before aiming the syringe at it.'
  1051. 'You feel a sharp pinch, then the feeling of a cold liquid being injected into your ass cheek. It isn''t as bad as you thought it was going to be, but you''re still relieved when it''s over.'
  1052. '"There, all done," he says with a satisfied tone. "It could take up to 30 days for the symptoms to fully disappear. Just be sure not to snort any more or the cure won''t work."'
  1053. '"Thank you doctor," you quietly mumble as you straighten your clothes.'
  1054. gs 'arousal', 'end'
  1055. gs 'stat'
  1056. act 'Leave':gt 'pav_clinic'
  1057. end
  1058. end
  1059. end
  1060. end
  1061. end
  1062. end
  1063. end
  1064. end
  1065. end
  1066. end
  1067. end
  1068. if $ARGS[0] = 'maternity_ward':
  1069. pcs_know_mward = 1
  1070. $menu_arg = $ARGS[0]
  1071. menu_off = 0
  1072. *clr & cla
  1073. minut += 5
  1074. lact_ev['gpoli_temp_var'] = 0
  1075. gs 'stat'
  1076. if hour >= 6 and hour <= 20:
  1077. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/mward.jpg"></center>'
  1078. 'You''re in the maternity ward, which contains a lot of babies and nurses taking care of them.'
  1079. act 'Leave': gt 'pav_clinic'
  1080. if lactation['active'] > 0 and pcs_gpolimilkdonation = 3:
  1081. act 'Talk to the nurse (0:05)':
  1082. gs 'stat'
  1083. *clr & cla
  1084. menu_off = 1
  1085. minut += 5
  1086. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
  1087. '"Hello <<$pcs_firstname>>, how can I help you?" the nurse asks with a smile.'
  1088. act 'Leave': gt 'pav_clinic', 'maternity_ward'
  1089. act 'Donate your breast milk (0:15)':
  1090. *clr & cla
  1091. lact_ev['gpoli_milkedvolume'] = 0
  1092. pcs_gpoli_donationsessioncount = 0
  1093. !!if rand(0,100) = 95 and orphanfeed = 0:
  1094. !! orphanfeed = 1
  1095. !!end
  1096. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1097. 'You talk to the nurse and she leads you into the quiet room.'
  1098. !!if orphanfeed = 1:
  1099. !! 'It seems like there is a crib with a baby inside in this room, too.'
  1100. !!end
  1101. act 'Have your breasts pumped':
  1102. *clr & cla
  1103. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1104. 'You sit down and take off your top.'
  1105. if lactation['breastmv'] > lactation['breastmm']*8/10:
  1106. 'The nurse looks surprised at your engorged breasts.'
  1107. '"Oh dearie, those look painfully full! I hope the pumping will make you feel better."'
  1108. end
  1109. if pain['nipples'] >= 60:
  1110. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1111. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit more of the yellowish cream from it.'
  1112. 'She applies the cream to your nipples and they start hurting less as a soothing sensation tingles through your breasts.'
  1113. pain['nipples'] -= 20
  1114. else
  1115. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice as she rubs it in.'
  1116. end
  1117. lactation['nipple_cream_applied'] = 1
  1118. act 'Continue': gt 'pav_clinic', 'maternity_ward_donation'
  1119. end
  1120. end
  1121. act 'Check your file (0:05)':
  1122. *clr & cla
  1123. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/formular.jpg"></center>'
  1124. 'The nurse hands you a file on how much you have donated so far.'
  1125. '<br>----------------------------------------'
  1126. 'Analyzed milksample measurements'
  1127. 'Volume in ml: <<mward_donatesv/10>>ml'
  1128. 'Fat in %: <<mward_donatesf/10>>.<<mward_donatesf mod 10>>%'
  1129. 'Lactose in %: <<mward_donatess/10>>.<<mward_donatess mod 10>>%'
  1130. '<br>----------------------------------------'
  1131. if pcs_gpoli_totalmilkdonation_count > 0:
  1132. 'Total breast milk donation statistics'
  1133. if pcs_gpoli_totalmilkdonation < 100:
  1134. 'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.0<<pcs_gpoli_totalmilkdonation mod 1000>>l'
  1135. else
  1136. 'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.<<pcs_gpoli_totalmilkdonation mod 1000>>l'
  1137. end
  1138. 'Donation count: <<pcs_gpoli_totalmilkdonation_count>>'
  1139. 'Average milk volume per donation in ml: <<pcs_gpoli_totalmilkdonation/pcs_gpoli_totalmilkdonation_count>>'
  1140. 'Paid money: <<((pcs_gpoli_totalmilkdonation/50)*50)>><b>₽</b>'
  1141. '<br>----------------------------------------'
  1142. end
  1143. act 'Leave': gt 'pav_clinic', 'maternity_ward'
  1144. end
  1145. !!act 'Mammography (1:00)':
  1146. !!
  1147. !!end
  1148. end
  1149. end
  1150. if lactation['active'] > 0 and lactation['breastmv'] > lactation['breastmm']/8 and pcs_gpolimilkdonation <= 2:
  1151. '<br><br><center>One of the nurses looks at you suspiciously.<center>'
  1152. act 'Talk to the nurse (0:05)':
  1153. *clr & cla
  1154. menu_off = 1
  1155. minut += 5
  1156. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
  1157. if preg >= 0 and pregtimes > 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] > 0:
  1158. 'You walk up to the nurse. "Uhmmm... Hello?"'
  1159. '"Which one is yours?" she asks.'
  1160. '"Mine? I don''t understand..."'
  1161. 'The nurse looks at you, then down at your breasts and then back at you. "Well, you''re obviously lactating. Have you come to breastfeed your child?"'
  1162. elseif preg = 0 and pregtimes = 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] > 0:
  1163. 'You walk up to the nurse. "Uhmmm... Hello?"'
  1164. 'The nurse looks you up and down while raising an eyebrow. "You don''t look like you''ve ever had a child. How are you lactating?"'
  1165. 'You''re surprised by the sudden and precise analysis. "How... How do you know?"'
  1166. '"I''ve been working here for years. Trust me, I can tell by the smell. Now why are you lactating?" she asks again.'
  1167. elseif preg = 0 and pregtimes = 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] <= 0:
  1168. 'You walk up to the nurse. "Uhmmm... Hello?"'
  1169. 'The nurse looks you up and down while raising an eyebrow. "You don''t look like you''ve ever had a child. How are you lactating?"'
  1170. 'You''re confused by her comment and tilt your head. "Huh? What are you talking about?"'
  1171. 'The nurse points at your breasts, circling around the pen in her hand. "Your breasts... You obviously have milk in them. Trust me, I''ve been working here for years and know what lactating breasts look like."'
  1172. 'You look at her in shock, then down at your cleavage. "This can''t be! I''ve never been pregnant... I mean... Why should I be lactating?"'
  1173. 'The nurse eyes you up and down again while frowning before standing up. "Come with me and we''ll have this checked out."'
  1174. elseif preg >= 0 and pregtimes > 0 and pcs_gpolimilkdonation <= 0 and lactation['pc_aware'] <= 0:
  1175. 'You walk up to the nurse. "Uhmmm.. Hello?"'
  1176. '"Which one is yours?" she asks.'
  1177. '"Mine? I don''t understand..."'
  1178. 'The nurse looks at you, then down at your breasts and then back at you. "Well, you''re obviously lactating. Have you come to breastfeed your child?"'
  1179. *nl
  1180. 'You look at her, then down at your cleavage. "This can''t be! I mean... Why should I be lactating?"'
  1181. 'The nurse eyes you up and down again while frowning before standing up. "Come with me and we''ll have this checked out."'
  1182. elseif pcs_gpolimilkdonation <= 0:
  1183. 'You walk up to the nurse. "Uhmmm... Hello?"'
  1184. '"Which one is yours?" she asks.'
  1185. '"Mine? I don''t understand..."'
  1186. 'The nurse looks at you, then down at your breasts and then back at you. "Well, you''re obviously lactating. Have you come to breastfeed your child?"'
  1187. else
  1188. 'You walk up to the nurse. "Hello..."'
  1189. '"Ah, it''s you again," she says as she looks you up and down.'
  1190. if pcs_gpolimilkdonation = 1 and preg = 0 and pregtimes = 0 and lactation['pc_aware'] <= 0:
  1191. '"Changed your mind and want me to have you checked out?"'
  1192. elseif pcs_gpolimilkdonation = 1 and preg = 0 and pregtimes = 0 and lactation['pc_aware'] > 0:
  1193. '"Are you going to tell me how you''re lactating?"'
  1194. elseif pcs_gpolimilkdonation = 2:
  1195. '"Did you clear your mind up and want donate your breast milk?"'
  1196. else
  1197. '"What do you want?"'
  1198. end
  1199. end
  1200. if pcs_gpolimilkdonation < 1: pcs_gpolimilkdonation = 1
  1201. if pcs_gpolimilkdonation < 2:
  1202. if lactation['pc_aware'] <= 0:
  1203. act 'Accept her offer':
  1204. *clr & cla
  1205. minut += 10
  1206. pcs_gpolimilkdonation = 2
  1207. lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 5, 1))/100
  1208. lact_ev['gpoli_milkedvolume'] = 0
  1209. lactation['pc_aware'] = 1
  1210. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1211. 'The nurse leads you into a quiet room containing a chair, a table and a breast pump.'
  1212. 'The nurse invites you to sit down and you reluctantly pull up your shirt and present your breasts to her.'
  1213. 'She presses down on your areola and to your surprise, white drops start to develop on your nipples. The nurse gives them another squeeze and streams of white liquid suddenly squirt out of you.'
  1214. '"Oh my god!" you exclaim in shock.'
  1215. *nl
  1216. 'The nurse looks up at you with a caring expression. "No worries, this can happen from time to time."'
  1217. 'You''re still surprised and perplexed by what you''re seeing. "I''m lactating!"'
  1218. 'The nurse takes a small wet wipe and cleans your breasts, then signals that you can cover yourself up.'
  1219. '"We always need breast milk here. You should think about donating your milk. We will even compensate you for your efforts."'
  1220. 'She cleans her hands. "But I think you should leave for now, so you can get used to your new ability."'
  1221. 'She opens the door to let you out of the room.'
  1222. act 'Leave': gt 'pav_clinic'
  1223. end
  1224. else
  1225. act 'Explain yourself':
  1226. *clr & cla
  1227. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
  1228. if knowpreg = 0:
  1229. pcs_gpolimilkdonation = 2
  1230. if lactation['induced'] = 1:
  1231. '"Erm... I used a breast pump on myself..." you blush in embarresment.'
  1232. else
  1233. '"I don''t really know... It just started one day..." you explain, blushing from embarresment.'
  1234. end
  1235. 'The nurse nods at you professionally and pulls some papers together.'
  1236. '"Have you ever thought of donating your breast milk?" she asks.'
  1237. '"Donating?" you ask in response.'
  1238. '"Yes, donating. We pump your breasts and collect the milk to give to the mothers that aren''t able to breastfeed yet. We also offer a bit of money for your donation. Interested?"'
  1239. pcs_gpolimilkdonation = 2
  1240. act 'Give it a try (0:15)':
  1241. *clr & cla
  1242. minut += 15
  1243. pcs_gpolimilkdonation = 3
  1244. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1245. 'The nurse leads you into a room. It is quiet in here. There is a chair a table and a breast pump.'
  1246. 'You sit down and the nurse invites you to take off your top.'
  1247. if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
  1248. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
  1249. '"What''s that?" you ask.'
  1250. 'The nurse looks up at you. "This is nipple balm. It helps with sore nipples during pumping. Don''t you know this?"'
  1251. 'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1252. pain['nipples'] -= 20
  1253. '"Where do I get this stuff?" you ask.'
  1254. '"You can buy it in the pharmacy," she replies.'
  1255. pcs_knows_nipplecream = 1
  1256. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1257. elseif pain['nipples'] >= 60 and pcs_knows_nipplecream > 0:
  1258. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
  1259. 'The nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1260. pain['nipples'] -= 20
  1261. else
  1262. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
  1263. end
  1264. lactation['nipple_cream_applied'] = 1
  1265. '"Okay, I''m going to pump a sample first to check the quality and see if you''re able to donate enough. You won''t get paid this time."'
  1266. 'You nod and pull up your shirt as the nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force as it slowly starts working your nipples.'
  1267. lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 4, 15))/100
  1268. lactation['breastpumped'] = 1
  1269. pcs_orphanfeed = 0
  1270. if lact_ev['gpoli_milkedvolume'] >= 1000:
  1271. 'Your breasts are able to fill both small bottles easily and the nurse nods at you.'
  1272. '"You''re able to produce a good amount of milk. You could breastfeed a baby with no issue."'
  1273. elseif lact_ev['gpoli_milkedvolume'] >= 500 and lact_ev['gpoli_milkedvolume'] < 1000:
  1274. 'Your breasts aren''t able to fill both small bottles and the nurse raises an eyebrow at you.'
  1275. '"You''re able to produce enough milk for a 50ml donation, but you might have trouble breastfeeding a baby properly."'
  1276. else
  1277. 'You have trouble filling the bottles to the first mark and the nurse shakes her head.'
  1278. '"Mhmm... Your breasts don''t seem to produce enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation."'
  1279. end
  1280. 'The nurse detaches the pump and allows you to redress.'
  1281. if lact_ev['gpoli_milkedvolume'] > 500:
  1282. mward_donatesv = 500
  1283. else
  1284. mward_donatesv = lact_ev['gpoli_milkedvolume']
  1285. end
  1286. if pcs_mass['body'] > 30:
  1287. mward_donatesf = 60
  1288. elseif pcs_mass['body'] > 20:
  1289. mward_donatesf = 45
  1290. elseif pcs_mass['body'] > 15:
  1291. mward_donatesf = 20
  1292. else
  1293. mward_donatesf = 10
  1294. end
  1295. if pcs_energy > 30:
  1296. mward_donatess = rand(69,80)
  1297. elseif sick > 1:
  1298. mward_donatess = rand(0,45)
  1299. else
  1300. mward_donatess = rand(45,69)
  1301. end
  1302. act 'Leave': gt 'pav_clinic'
  1303. end
  1304. act 'Refuse to donate':
  1305. *clr & cla
  1306. 'You refuse to donate your breast milk. The nurse looks disappointed in you as you leave.'
  1307. act 'Leave': gt 'pav_clinic'
  1308. end
  1309. else
  1310. pcs_gpolimilkdonation = 2
  1311. '"I don''t have a kid here. I was just looking around," you explain.'
  1312. 'You look awkwardly at the nurse, who just nods at you professionally and pulls some papers together.'
  1313. '"Have you ever thought of donating your breast milk?" she asks.'
  1314. '"Donating?" you ask in response.'
  1315. '"Yes, donating. We pump your breasts and collect the milk to give to the mothers that aren''t able to breastfeed yet. We also offer a bit of money for your donation. Interested?"'
  1316. pcs_gpolimilkdonation = 2
  1317. act 'Give it a try (0:15)':
  1318. *clr & cla
  1319. minut += 15
  1320. pcs_gpolimilkdonation = 3
  1321. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1322. 'The nurse leads you into a quiet room containing a chair, a table and a breast pump.'
  1323. 'You sit down and the nurse invites you to take off your top.'
  1324. if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
  1325. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
  1326. '"What''s that?" you ask.'
  1327. 'The nurse looks up at you. "This is nipple balm. It helps with sore nipples during pumping. Don''t you know this?"'
  1328. 'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1329. pain['nipples'] -= 20
  1330. '"Where do I get this stuff?" you ask.'
  1331. '"You can buy it in the pharmacy," she replies.'
  1332. pcs_knows_nipplecream = 1
  1333. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1334. elseif pain['nipples'] >= 60 and pcs_knows_nipplecream > 0:
  1335. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
  1336. 'The nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1337. pain['nipples'] -= 20
  1338. else
  1339. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
  1340. end
  1341. lactation['nipple_cream_applied'] = 1
  1342. '"Okay, I''m going to pump a sample first to check the quality and see if you''re able to donate enough. You won''t get paid this time."'
  1343. 'You nod and pull up your shirt as the nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force as it slowly starts working your nipples.'
  1344. lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 4, 15))/100
  1345. lactation['breastpumped'] = 1
  1346. pcs_orphanfeed = 0
  1347. if lact_ev['gpoli_milkedvolume'] >= 1000:
  1348. 'Your breasts are able to fill both small bottles easily and the nurse nods at you.'
  1349. '"You''re able to produce a good amount of milk. You could breastfeed a baby with no issue."'
  1350. elseif lact_ev['gpoli_milkedvolume'] >= 500 and lact_ev['gpoli_milkedvolume'] < 1000:
  1351. 'Your breasts aren''t able to fill both small bottles and the nurse raises an eyebrow at you.'
  1352. '"You''re able to produce enough milk for a 50ml donation, but you might have trouble breastfeeding a baby properly."'
  1353. else
  1354. 'You have trouble filling the bottles to the first mark and the nurse shakes her head.'
  1355. '"Mhmm... Your breasts don''t seem to produce enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation."'
  1356. end
  1357. 'The nurse detaches the pump and allows you to redress.'
  1358. if lact_ev['gpoli_milkedvolume'] > 500:
  1359. mward_donatesv = 500
  1360. else
  1361. mward_donatesv = lact_ev['gpoli_milkedvolume']
  1362. end
  1363. if pcs_mass['body'] > 40:
  1364. mward_donatesf = 60
  1365. elseif pcs_mass['body'] > 20:
  1366. mward_donatesf = 45
  1367. elseif pcs_mass['body'] > 15:
  1368. mward_donatesf = 20
  1369. else
  1370. mward_donatesf = 10
  1371. end
  1372. if pcs_energy > 30:
  1373. mward_donatess = rand(69, 80)
  1374. elseif sick > 1:
  1375. mward_donatess = rand(0,45)
  1376. else
  1377. mward_donatess = rand(45, 69)
  1378. end
  1379. act 'Leave':gt 'pav_clinic'
  1380. end
  1381. act 'Refuse to donate':
  1382. *clr & cla
  1383. 'You refuse to donate your breast milk. The nurse looks disappointed in you as you leave.'
  1384. act 'Leave': gt 'pav_clinic'
  1385. end
  1386. end
  1387. end
  1388. end
  1389. elseif pcs_gpolimilkdonation = 2:
  1390. act 'Offer to donate your breast milk (0:15)':
  1391. *clr & cla
  1392. minut += 15
  1393. pcs_gpolimilkdonation = 3
  1394. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1395. 'The nurse smiles and gets up, leading you into a quiet room that contains a chair, a table and a breast pump.'
  1396. 'You sit down and the nurse invites you to take off your top.'
  1397. if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
  1398. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
  1399. '"What''s that?" you ask.'
  1400. 'The nurse looks up at you. "This is nipple balm. It helps with sore nipples during pumping. Don''t you know this?"'
  1401. 'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1402. pain['nipples'] -= 20
  1403. '"Where do I get this stuff?" you ask.'
  1404. '"You can buy it in the pharmacy," she replies.'
  1405. pcs_knows_nipplecream = 1
  1406. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1407. elseif pain['nipples'] >= 60:
  1408. 'The nurse looks at your sore nipples and frowns before she grabs a small tin and takes a bit of the yellowish cream from it.'
  1409. 'She applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1410. pain['nipples'] -= 20
  1411. elseif pcs_knows_nipplecream <= 0:
  1412. 'The nurse grabs a small tin and takes a bit of yellowish cream from it.'
  1413. '"What''s that?" you ask.'
  1414. 'The nurse looks up at you. "This is nipple balm. It helps during pumping and prevents nipple soreness. Don''t you know this?"'
  1415. 'You shake your head and watch as the nurse applies the cream to your nipples. It feels nice and your nipples start hurting less as a soothing sensation tingles through your breasts.'
  1416. '"Where do I get this stuff?" you ask.'
  1417. '"You can buy it in the pharmacy," she replies.'
  1418. pcs_knows_nipplecream = 1
  1419. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1420. else
  1421. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice as she rubs it in.'
  1422. end
  1423. lactation['nipple_cream_applied'] = 1
  1424. '"Okay, I''m going to pump a sample first to check the quality and see if you''re able to donate enough. You won''t get paid this time."'
  1425. 'You nod and pull up your shirt as the nurse takes the pumps and puts them on your breasts. She flicks a switch and you can feel your nipples being sucked in with force as it slowly starts working your nipples.'
  1426. lact_ev['gpoli_milkedvolume'] = (func('lact_lib','$get_breastmilk', 4, 15))/100
  1427. lactation['breastpumped'] = 1
  1428. pcs_orphanfeed = 0
  1429. if lact_ev['gpoli_milkedvolume'] >= 1000:
  1430. 'Your breasts are able to fill both small bottles easily and the nurse nods at you.'
  1431. '"You''re able to produce a good amount of milk. You could breastfeed a baby with no issue."'
  1432. elseif lact_ev['gpoli_milkedvolume'] >= 50 and lact_ev['gpoli_milkedvolume'] < 1000:
  1433. 'Your breasts aren''t able to fill both small bottles and the nurse raises an eyebrow at you.'
  1434. '"You''re able to produce enough milk for a 50ml donation, but you might have trouble breastfeeding a baby properly."'
  1435. else
  1436. 'You have trouble filling the bottles to the first mark and the nurse shakes her head.'
  1437. '"Mhmm... Your breasts don''t seem to produce enough milk. You can still come here and get yourself pumped, but we need at least 50ml for a valid donation."'
  1438. end
  1439. 'The nurse detaches the pump and allows you to redress.'
  1440. if lact_ev['gpoli_milkedvolume'] > 500:
  1441. mward_donatesv = 500
  1442. else
  1443. mward_donatesv = lact_ev['gpoli_milkedvolume']
  1444. end
  1445. if pcs_mass['body'] > 40:
  1446. mward_donatesf = 60
  1447. elseif pcs_mass['body'] > 20:
  1448. mward_donatesf = 45
  1449. elseif pcs_mass['body'] > 15:
  1450. mward_donatesf = 20
  1451. else
  1452. mward_donatesf = 10
  1453. end
  1454. if pcs_energy > 30:
  1455. mward_donatess = rand(69, 80)
  1456. elseif sick > 1:
  1457. mward_donatess = rand(0,45)
  1458. else
  1459. mward_donatess = rand(45, 69)
  1460. end
  1461. act 'Leave': gt 'pav_clinic'
  1462. end
  1463. end
  1464. act 'Leave': gt 'pav_clinic'
  1465. end
  1466. end
  1467. else
  1468. 'The clinic is closed. It''s open every day between 06:00 and 21:00.'
  1469. act 'Leave':minut += 5 & gt 'pav_commercial'
  1470. end
  1471. end
  1472. if $ARGS[0] = 'reception':
  1473. *clr & cla
  1474. menu_off = 1
  1475. minut += 2
  1476. gs 'stat'
  1477. 'You walk up to the reception and ask for help with your problem.'
  1478. 'The receptionist looks you up and down and tells you to visit the maternity ward. Someone over there will be able to help you.'
  1479. pcs_know_mward = 1
  1480. act 'Leave': gt 'pav_clinic'
  1481. act 'Go to maternity ward (0:05)': gt 'pav_clinic', 'maternity_ward'
  1482. end
  1483. if $ARGS[0] = 'maternity_ward_donation':
  1484. *clr & cla
  1485. menu_off = 1
  1486. gs 'stat'
  1487. if hour >= 6 and hour <= 20:
  1488. lactation['nipple_cream_applied'] = 1
  1489. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
  1490. 'The nurse attaches the pumps and switches them on.'
  1491. if lactation['breastmv'] >= 0:
  1492. 'Your nipples are worked by the pumps and you feel the pressure in your breasts easing as the pumps drain you of your milk.'
  1493. else
  1494. 'Your nipples are worked by the pumps and you feel the pressure in your breasts easing as the pumps drain you. Your breasts tingle from the milk production as the pump demands more of your milk.'
  1495. end
  1496. act 'Continue':
  1497. *clr & cla
  1498. lact_ev['gpoli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, 15)
  1499. lactation['breastpumped'] = 1
  1500. 'After 15 minutes, the nurse detaches the pumps from your breasts.'
  1501. if lact_ev['gpoli_milkedvolume'] => 50000:
  1502. pcs_gpoli_donationsessioncount += lact_ev['gpoli_milkedvolume']/10000
  1503. lact_ev['gpoli_temp_var'] = (lact_ev['gpoli_milkedvolume']/50000)
  1504. pcs_gpoli_totalmilkdonation_count += 1
  1505. pcs_gpoli_totalmilkdonation += (lact_ev['gpoli_temp_var']*50)
  1506. if lact_ev['gpoli_temp_var'] >= 12:
  1507. 'She looks astonished at the marvelous amounts of milk you''ve produced as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1508. '"I can''t believe you had that much inside you! I think a cow would be jealous!" she laughts heartily and you blush a little.'
  1509. elseif lact_ev['gpoli_temp_var'] >= 10:
  1510. 'She looks amazed at the copious amounts of milk you''ve produced as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1511. '"Dear lord, where do you store all this?!"'
  1512. elseif lact_ev['gpoli_temp_var'] >= 8:
  1513. 'She looks surprised at the large amount of milk you''ve produced as she stores away the <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1514. elseif lact_ev['gpoli_temp_var'] >= 6:
  1515. 'She looks pleasantly satisfied at you as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1516. elseif lact_ev['gpoli_temp_var'] >= 4:
  1517. 'She looks satisfied at you as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1518. elseif lact_ev['gpoli_temp_var'] >= 2:
  1519. 'She looks satisfied at you as she stores away <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1520. elseif lact_ev['gpoli_temp_var'] = 1:
  1521. 'She looks satisfied at you as she stores away one bottle with 50ml of your breast milk.'
  1522. else
  1523. 'She looks satisfied at you as she stores away the <<lact_ev[''gpoli_temp_var'']*50>>ml of your breast milk in <<lact_ev[''gpoli_temp_var'']>> bottles.'
  1524. end
  1525. elseif lact_ev['gpoli_milkedvolume'] < 50000 and lact_ev['gpoli_milkedvolume'] > 0:
  1526. 'She looks at you in disappointment.'
  1527. '"Mhmm... I''m sorry, but this isn''t enough milk for a valid donation. You only provided <<lact_ev[''gpoli_milkedvolume'']/1000>>ml of breast milk."'
  1528. else
  1529. 'She looks at you in disappointment.'
  1530. '"Mhmm... I''m sorry, but this isn''t enough milk for a valid donation. You provided no breast milk at all."'
  1531. end
  1532. lact_ev['gpoli_milkedvolume'] = 0
  1533. if pcs_gpoli_donationsessioncount > 0:
  1534. mward_donatemoney = (pcs_gpoli_donationsessioncount*3)/10*10
  1535. else
  1536. mward_donatemoney = 0
  1537. end
  1538. lactation['nipple_cream_applied'] = 0
  1539. minut += 15
  1540. if lactation['breastmv'] > lactation['breastmm']/2 and lactation['breastmv'] >= 100000:
  1541. 'The nurse looks at your breasts.'
  1542. '"Looks like you could go for another pumping. Shall we?"'
  1543. act 'Have your breasts pumped again': gt 'pav_clinic', 'maternity_ward_donation'
  1544. else
  1545. act 'Ask to donate more': gt 'pav_clinic', 'maternity_ward_donation'
  1546. end
  1547. act 'Enough for today':
  1548. *clr & cla
  1549. gs 'stat'
  1550. if pcs_gpoli_donationsessioncount > 0:
  1551. money += mward_donatemoney
  1552. 'You put your top back on and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
  1553. else
  1554. 'You put your top back on.'
  1555. end
  1556. act 'Leave':
  1557. lact_ev['gpoli_milkedvolume'] = 0
  1558. gt 'pav_clinic', 'maternity_ward'
  1559. end
  1560. end
  1561. end
  1562. elseif pcs_gpoli_donationsessioncount > 0:
  1563. 'Sorry <<$pcs_firstname>>, we are closing now.'
  1564. 'You put your top back on and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
  1565. act 'Leave': minut += 5 & gt 'pav_commercial'
  1566. else
  1567. 'The clinic is closed. It''s open every day between 06:00 and 21:00.'
  1568. act 'Leave': minut += 5 & gt 'pav_commercial'
  1569. end
  1570. end
  1571. if $ARGS[0] = 'std_check':
  1572. if GerpesOnce = 1:
  1573. '"You have genital herpes. Unfortunately, the complete cure for this disease is very expensive and we can''t cure it here. On the upside, herpes is dormant most of the time and is quite manageable if you take good care of your body. When it''s dormant, taking vitamins regularly will make sure it won''t show itself."'
  1574. if Gerpes >= 3:
  1575. if GerpesNapr = 0:
  1576. GerpesNapr = 3 & '"Your herpes is currently active. I''m going to put you on a course of herpes shots in order to suppress it into its dormant state. You''ll need a total of 3 injections over the course of a few days. Each injection will cost 450 <b>₽</b>."'
  1577. elseif GerpesNapr > 0:
  1578. 'You need to see the nurse for your herpes drug injection.'
  1579. end
  1580. else
  1581. 'Your herpes is currently in a dormant state.'
  1582. end
  1583. end
  1584. if SifacOnce = 1:
  1585. sifNapr = 1
  1586. '"You have syphilis. The cure for this disease used to be expensive. However, this deadly disease can now be with a single shot. The injection will cost 1,000 <b>₽</b>."'
  1587. end
  1588. if TriperOnce = 1:
  1589. '"We found gonorrhea. Fortunately, we can cure this disease."'
  1590. if TriperNapr = 0:
  1591. TriperNapr = 5 & '"I''m going to put you on a course of gonorrhea injections. You''ll need a total of 5 injections over the course of a few days. Each injection will cost 750 <b>₽</b>."'
  1592. elseif TriperNapr > 0:
  1593. 'You need to see the nurse for your gonorrhea injections.'
  1594. end
  1595. end
  1596. if KandidozOnce = 1:
  1597. '"You have a yeast infection. Unfortunately, the complete cure for this disease is very expensive and we can''t cure it here. On the upside, it''s not that harmful and can be treated easily to the point where it won''t trouble you. When it''s dormant, taking vitamins regularly will make sure it won''t show itself."'
  1598. if KandidNapr = 0: KandidNapr = 1 & '"The pills are available at the pharmacy across the street."'
  1599. if Kandidoz < 30: 'Your yeast infection is currently in remission. If you take vitamins daily, it will stay that way.'
  1600. end
  1601. end
  1602. --- pav_clinic ---------------------------------