gpoli.qsrc 120 KB

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