gpoli.qsrc 115 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827
  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 prcptn_lvl > 40 and pcs_know_mward <= 0: '<br><br>You see a sign that 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. pregchem = 0
  55. cycle = 4
  56. gs 'cum_cleanup', 'reset'
  57. dynamic $d_cycreport_choice
  58. gs 'stat'
  59. act 'Leave':gt $curloc
  60. end
  61. end
  62. if hour >= 6 and hour <= 21:
  63. if gpoliuborka = 0:
  64. act 'Read the job listing':
  65. *clr & cla
  66. menu_off = 1
  67. minut += 5
  68. gpoliuborka = 1
  69. gs 'stat'
  70. '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: 50 <b>₽</b>."'
  71. act 'Move away':gt 'gpoli'
  72. end
  73. elseif gpoliuborka = 1 and hour >= 8 and hour <= 21:
  74. act 'Ask the head doctor about the job':
  75. *clr & cla
  76. menu_off = 1
  77. gpoliuborka = 2
  78. minut += 15
  79. gs 'stat'
  80. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  81. '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?"'
  82. 'You answer: "Hello sir. I see you''re looking for a cleaner, and I would like to apply."'
  83. '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."'
  84. '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."'
  85. '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.'
  86. act 'Leave':gt 'gpoli'
  87. end
  88. elseif gpoliuborka > 1 and hour >= 14 and hour <= 21 and gpolicleanday ! daystart:
  89. act 'Work as a cleaner for 50 <b>₽</b> (1:00)':
  90. *clr & cla
  91. menu_off = 1
  92. gpolicleanday = daystart
  93. minut += 60
  94. pcs_mood -= 15
  95. money += 50
  96. pcs_sweat += 20
  97. gs 'stat'
  98. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
  99. '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.'
  100. act 'Finish cleaning':gt 'gpoli'
  101. ginrand = rand(0, 1)
  102. if Gspravka < 10 and ginrand = 0:
  103. '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.'
  104. if pcs_vag > 0 and motherKnowSpravka = 0:
  105. act 'Forge a referral to give to your mother':
  106. *clr & cla
  107. Gspravka = 30
  108. GspravkaT = 1
  109. Gspassed = 1
  110. gs 'stat'
  111. '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!"'
  112. '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.'
  113. '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..."'
  114. act 'Finish cleaning':gt 'gpoli'
  115. end
  116. end
  117. end
  118. end
  119. end
  120. if glassqw = 1:
  121. act'Visit the optometrist (0:35)':
  122. *clr & cla
  123. menu_off = 1
  124. minut += 35
  125. gs'stat'
  126. 'The optometrist takes you through a series of tests, to measure the condition of your eyes.'
  127. '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."'
  128. pcs_nerd += 1
  129. glassqw = 2
  130. glass = 1
  131. blizoruk += 1
  132. act 'Leave':gt $curloc
  133. end
  134. end
  135. if pcs_health < (pcs_vital * 10 + pcs_stren * 5) or pain['total'] > 10:
  136. act 'See a Doctor about your health (1:00)':
  137. cla
  138. menu_off = 1
  139. minut += 60
  140. if pain['head'] > 0:pain['head'] -= rand(7,13)
  141. if pain['hair'] > 0:pain['hair'] -= rand(7,13)
  142. if pain['ears'] > 0:pain['ears'] -= rand(7,13)
  143. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
  144. if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
  145. if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
  146. if pain['nose'] > 0:pain['nose'] -= rand(7,13)
  147. if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
  148. if pain['lips'] > 0:pain['lips'] -= rand(7,13)
  149. if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
  150. if pain['throat'] > 0:pain['throat'] -= rand(7,13)
  151. if pain['neck'] > 0:pain['neck'] -= rand(7,13)
  152. if pain['back'] > 0:pain['back'] -= rand(7,13)
  153. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
  154. if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
  155. if pain['hips'] > 0:pain['hips'] -= rand(7,13)
  156. if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
  157. if pain['legL'] > 0:pain['legL'] -= rand(7,13)
  158. if pain['legR'] > 0:pain['legR'] -= rand(7,13)
  159. if pain['feet'] > 0:pain['feet'] -= rand(7,13)
  160. if pain['toes'] > 0:pain['toes'] -= rand(7,13)
  161. if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
  162. if pain['armL'] > 0:pain['armL'] -= rand(7,13)
  163. if pain['armR'] > 0:pain['armR'] -= rand(7,13)
  164. if pain['hands'] > 0:pain['hands'] -= rand(7,13)
  165. if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
  166. if pain['chest'] > 0:pain['chest'] -= rand(7,13)
  167. if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
  168. if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
  169. if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
  170. if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
  171. if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
  172. if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
  173. if pain['labia'] > 0:pain['labia'] -= rand(7,13)
  174. if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
  175. if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
  176. if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
  177. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  178. if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
  179. gs 'stat'
  180. '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.'
  181. act 'Leave':gt 'gpoli'
  182. end
  183. end
  184. if therapistday ! daystart:
  185. act 'Visit the therapist (1:00)': gt 'therapist'
  186. end
  187. if pcs_know_mward > 0:
  188. act 'Visit the maternity ward (0:05)': gt 'gpoli', 'maternity_ward'
  189. end
  190. if tabletkishot < 5 and money >= 750:
  191. act 'Get a birth control shot for 750 <b>₽</b> (0:15)':
  192. *clr & cla
  193. menu_off = 1
  194. minut += 15
  195. tabletkishot = rand(84,91)
  196. shotdays = 84
  197. tabletkicheck = 2
  198. pillcon = 40000
  199. pillcon2 = 40000
  200. money -= 750
  201. gs 'stat'
  202. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  203. 'You are escorted into an examination room, where you are told to sit and wait. After almost fifteen minutes a nurse comes in.'
  204. 'She gives you a reassuring smile as she sticks a needle in your arm, and depresses the plunger. Seconds later she explains: "All done! You should be good to go for three months, give or take. It depends a bit from person to person: Body type, hormone levels, and so on. If you want to be perfectly safe, we recommend you come back for another treatment one week before the three months are over. Have a nice day, miss!"'
  205. 'You thank her and wish her the same, while you gather your things. You silently mutter to yourself: "If it is that simple, why did they make me wait 15 minutes..."'
  206. act 'Leave':gt $curloc
  207. end
  208. end
  209. act 'Go to the sexual health clinic':
  210. *clr & cla
  211. menu_off = 1
  212. minut += 1
  213. gs 'stat'
  214. '<center><b>Sexual Health Clinic</b></center>'
  215. *nl
  216. '<center>STD Test - 1,000 <b>₽</b></center>'
  217. '<center>For treatments, see the nurse</center>'
  218. act 'Leave':gt 'gpoli'
  219. if money >= 1000:
  220. act 'Get tested for STDs (1,000 <b>₽</b>)':
  221. *clr & cla
  222. money -= 1000
  223. minut += 60
  224. gs 'stat'
  225. '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.'
  226. if venera > 0:
  227. '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."'
  228. gs 'gpoli', 'std_check'
  229. else
  230. 'The doctor is pleased to announce that you do not have a sexually transmitted disease.'
  231. end
  232. act 'Leave':gt 'gpoli'
  233. end
  234. end
  235. if GerpesNapr > 0 and money >= 450 and GerpesUkolDay ! daystart:
  236. act 'Get herpes shot (450 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the treatment.':
  237. *clr & cla
  238. money -= 450
  239. minut += 15
  240. GerpesUkolDay = daystart
  241. GerpesNapr -= 1
  242. gs 'stat'
  243. 'You see the nurse and she gives you a painful injection in your ass.'
  244. if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
  245. act 'Leave':gt 'gpoli'
  246. end
  247. end
  248. if TriperNapr > 0 and money >= 750 and TriperUkolDay ! daystart:
  249. act 'Get gonorrhea shot (750 <b>₽</b>). You need <<TriperNapr>> more injections to complete the treatment.':
  250. *clr & cla
  251. money -= 750
  252. minut += 15
  253. TriperUkolDay = daystart
  254. TriperNapr -= 1
  255. gs 'stat'
  256. 'You see the nurse and she gives you a painful injection in your ass.'
  257. if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
  258. act 'Leave':gt 'gpoli'
  259. end
  260. end
  261. if money >= 1000 and SifNapr > 0 and SifUkolDay ! daystart:
  262. act 'Get syphilis shot (1,000 <b>₽</b>). You need <<SifNapr>> more injections to complete the treatment.':
  263. *clr & cla
  264. money -= 1000
  265. minut += 15
  266. SifUkolDay = daystart
  267. SifNapr -= 1
  268. gs 'stat'
  269. 'You see the nurse and she gives you a painful injection in your ass.'
  270. if SifNapr = 0:Sifilis = 0 & 'You have completed the treatment.'
  271. act 'Leave':gt 'gpoli'
  272. end
  273. end
  274. end
  275. if sick >= 1:
  276. act 'Visit the doctor for your sickness':
  277. cla
  278. menu_off = 1
  279. minut += 15
  280. sick = 0
  281. gs 'stat'
  282. '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.'
  283. act 'Leave':gt $curloc
  284. end
  285. end
  286. 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 - lastmens > 42) or Triper > 2 or Gerpes >= 3 or Sifilis >= 21 or Kandidoz > 30) and gynodaystart ! daystart:
  287. act 'Visit your gynaecologist (1,000 <b>₽</b>)':
  288. *clr & cla
  289. menu_off = 1
  290. gynodaystart = daystart
  291. minut += 5
  292. gs 'stat'
  293. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  294. 'You decide to have a check-up with your gynaecologist. Given your sexual history, you can''t be too careful.'
  295. if docKnow = 0:
  296. if pav_slut >= 125 and pav_prostitute < 125:
  297. $gyn1 = 'He looks at you with some concern, but still has to ask: "Rumor in town says that you''re a prostitute?"'
  298. $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.'
  299. elseif unprotfilm:
  300. $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.'
  301. $gyn2 = '"I hope not, but who knows?"'
  302. elseif whoreQW > 1 or bordelslutty > 0 or pav_prostitute >= 125:
  303. $gyn1 = 'He looks at you with some concern, but still has to ask: "Rumor in town says that you''re a prostitute?"'
  304. $gyn2 = '"I don''t think so, I only do business down in St. Petersburg, but who knows?"'
  305. else
  306. $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?"'
  307. $gyn2 = '"I hope not, but who knows?"'
  308. end
  309. '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?"'
  310. 'You nod and take a seat: "Hello, dr. Petrovich. Yes, I''m here for a check-up."'
  311. $gyn1
  312. 'You smile at him: "It''s true, dr. Petrovich. I am."'
  313. 'He rubs his hand over his chin, and continues: "Does your mother know?"'
  314. $gyn2
  315. 'The gynaecologist nods, and motions for you to stand up: "Very well, let''s see how you''re doing then. Undress for me, please."'
  316. elseif docKnow = 1:
  317. if pav_slut >= 125 or unprotfilm or whoreQW > 1 or bordelslutty > 0 or pav_prostitute >= 125:
  318. $gyn1 = 'He looks at you with some concern, asking: "Are you still in the business?"'
  319. $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?"'
  320. else
  321. $gyn1 = 'He looks at you with some concern, asking: "Are you still seeing a lot of men?"'
  322. $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?"'
  323. end
  324. 'He looks up from his desk when you enter his office and recognizes you immediately: "Ah, hello <<$pcs_nickname>>. Back for another check-up?"'
  325. 'You nod and take a seat: "Hello, dr. Petrovich. Yes, I''m here for a check-up."'
  326. $gyn1
  327. '"Yes, doctor. I am," you tell him.'
  328. 'He rubs his hand over his chin, and continues: "If I may be so bold... why?"'
  329. $gyn2
  330. '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."'
  331. end
  332. act 'Take off your clothes':
  333. *clr & cla
  334. minut += 5
  335. gs 'stat'
  336. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
  337. 'You quickly take off your clothes so your gynaecologist can examine you, and neatly fold them before putting them aside.'
  338. act 'Sit in the chair':
  339. *clr & cla
  340. minut += 5
  341. docKnow = 1
  342. gs 'stat'
  343. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
  344. 'Once you''re nude, you have a seat in the gynaecologist''s chair and spread your legs in the stirrups.'
  345. '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.'
  346. $gpoli_sick = ''
  347. if cumcondslip > 0:
  348. $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.'
  349. cumcondslip = 0
  350. gs 'cum_cleanup', 'cleanloc', 17
  351. end
  352. if preg > 0:
  353. thinkpreg = 1
  354. knowpreg = 1
  355. $gpoli_sick = 'are pregnant'
  356. end
  357. if venera > 0:
  358. if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
  359. if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
  360. end
  361. if $gpoli_sick = '':
  362. 'The doctor smiles when he gives you the good news: "You''re perfectly healthy."'
  363. 'You feel very relieved, and thank him profusely: "Thank you doctor, that is great news. Thanks again for the check-up."'
  364. 'He nods, and waves his hand: "It''s all good. Just don''t forget to use protection, it''s still dangerous out there."'
  365. else
  366. 'The doctor frowns when he gives you the bad news: "I''m afraid I found something irregular. You <<$gpoli_sick>>."'
  367. if venera > 0: gs 'gpoli', 'std_check'
  368. end
  369. '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?"'
  370. if money >= 1000:
  371. act 'Offer him money':
  372. *clr & cla
  373. minut += 5
  374. gs 'stat'
  375. 'You smile, knowing this question would come. You tell him: "I can pay. How much do I owe you?"'
  376. 'He returns your smile, and jovially says: "<<$pcs_nickname>>, only for you: 1,000 <b>₽</b>."'
  377. act 'Pay him (1,000 <b>₽</b>)':
  378. *clr & cla
  379. minut += 5
  380. money -= 1000
  381. 'You gladly pay him the 1,000 <b>₽</b> and thank him again.'
  382. '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!"'
  383. act 'Leave':gt $curloc
  384. end
  385. end
  386. end
  387. act 'Offer him your body':
  388. *clr & cla
  389. gs 'stat'
  390. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
  391. '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!'
  392. '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.'
  393. '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...'
  394. '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.'
  395. gs 'arousal', 'bj', 5, 'sub'
  396. gs 'stat'
  397. act 'Give him a blowjob':
  398. if venera > 0:gt 'gpoli', 'gynoblow'
  399. *clr & cla
  400. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  401. gs 'stat'
  402. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  403. '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.'
  404. '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.'
  405. 'You gasp for breath while he pulls you up, and hear him say: "Should be slick enough... it''s time to go deeper."'
  406. '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.'
  407. gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
  408. gs 'stat'
  409. act 'Continue':
  410. *clr & cla
  411. gs 'stat'
  412. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
  413. '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!'
  414. '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.'
  415. gs 'arousal', 'vaginal', 5, 'sub'
  416. gs 'stat'
  417. act 'Have sex with him':
  418. *clr & cla
  419. pcs_vag += 1
  420. gs 'boyStat', 'A68'
  421. cumprecheck = 1
  422. gs 'cum_manage'
  423. gs 'stat'
  424. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
  425. '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.'
  426. '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.'
  427. 'He immediately guides his cock back into you while your body quivers, still not fully recovered from the orgasm you just had.'
  428. $orgasm_or = 'yes'
  429. gs 'arousal', 'vaginal', 5, 'sub'
  430. gs 'stat'
  431. act 'Sex on the table':
  432. *clr & cla
  433. gs 'stat'
  434. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
  435. '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!'
  436. '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."'
  437. '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?'
  438. '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.'
  439. '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.'
  440. '"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.'
  441. gs 'arousal', 'vaginal', 5, 'sub'
  442. gs 'arousal', 'foreplay', 5, 'sub'
  443. gs 'arousal', 'anal_finger', 5, 'sub'
  444. minut -= 5
  445. gs 'stat'
  446. act 'Anal sex':
  447. *clr & cla
  448. pcs_ass += 1
  449. gs 'stat'
  450. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
  451. '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.'
  452. 'When he begins to speed up you you nearly cry, and groan loudly with every thrust.'
  453. 'He softly mutters: "This won''t do, you''re going to alarm the entire clinic if you keep screaming like that!"'
  454. '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?'
  455. '"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...'
  456. gs 'arousal', 'anal', 5, 'sub'
  457. gs 'stat'
  458. act 'Sex on the floor':
  459. *clr & cla
  460. gs 'stat'
  461. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
  462. '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.'
  463. '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.'
  464. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  465. gs 'stat'
  466. act 'Anal':
  467. *clr & cla
  468. gs 'stat'
  469. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
  470. '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.'
  471. '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.'
  472. $orgasm_or = 'yes'
  473. gs 'arousal', 'anal', 5, 'sub', 'rough'
  474. gs 'stat'
  475. act 'Let him cum in your mouth':
  476. *clr & cla
  477. minut += 5
  478. pcs_horny += 5
  479. gs 'boyStat', 'A68'
  480. sexpartkno = 1
  481. spafinloc = 12
  482. gs 'cum_manage'
  483. swallow += 1
  484. gs 'stat'
  485. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  486. '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.'
  487. 'Then he lets out a satisfied sigh and begins to put his clothes back on, as if nothing happened.'
  488. act 'Get dressed too':
  489. *clr & cla
  490. minut += 5
  491. pcs_horny += 5
  492. gs 'stat'
  493. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  494. 'You follow his example, and also put your clothes back on.'
  495. '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."'
  496. '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."'
  497. gs 'arousal', 'end'
  498. gs 'stat'
  499. act 'Leave':gt $curloc
  500. end
  501. end
  502. end
  503. end
  504. end
  505. end
  506. end
  507. end
  508. end
  509. end
  510. end
  511. end
  512. end
  513. end
  514. if narkoman = 1 and storyline > 0:
  515. act 'Seek help for your weakness and pain':
  516. *clr & cla
  517. menu_off = 1
  518. minut += 5
  519. gs 'stat'
  520. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  521. if gpoli_doctorhavesex = 1:
  522. 'You go to the doctor for help with your addiction, since you trust him enough to know he won''t tell your mother.'
  523. '"Hi <<$pcs_nickname>>. What brings you in today?" dr. Petrovich says with a smile.'
  524. '"Hello, Doctor. I''m feeling weak and I hurt all over," you reply.'
  525. '"Well, let''s take a look, shall we?" the doctor replies as you get up to stand by the examination table.'
  526. else
  527. 'You go to the doctor for help with your addiction.'
  528. '"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.'
  529. '"Hello sir. I''m feeling really weak and shaky and I hurt all over," you explain.'
  530. '"Let''s take a look, shall we?" the doctor replies and gestures for you to stand next to the examination table.'
  531. end
  532. act 'Continue':
  533. *clr & cla
  534. minut += 5
  535. gs 'stat'
  536. 'You tell the doctor about the white powder you''ve been sniffing while he checks your temperature, blood pressure and pulse.'
  537. '"Lift your shirt so we can have a listen," he tells you as he warms his stethoscope by breathing on it.'
  538. '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?'
  539. '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.'
  540. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
  541. 'He nods: "Well, so far everything is OK."'
  542. '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!"'
  543. 'To your relief, the tingle you started to feel in your pussy goes away.'
  544. '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.'
  545. act 'Reluctantly take your clothes off':
  546. *clr & cla
  547. minut += 10
  548. gs 'stat'
  549. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
  550. '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.'
  551. 'Nevertheless, you feel terrible and really need this check-up. You reluctantly begin to take your clothes off.'
  552. act 'Sit in the chair':
  553. *clr & cla
  554. minut += 5
  555. gs 'stat'
  556. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
  557. '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.'
  558. '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!'
  559. $gpoli_sick = ''
  560. if cumcondslip > 0:
  561. $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.'
  562. cumspclnt = 8
  563. gs 'cum_cleanup'
  564. end
  565. if preg > 0:
  566. thinkpreg = 1
  567. knowpreg = 1
  568. $gpoli_sick = 'are pregnant'
  569. end
  570. if venera > 0:
  571. if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
  572. if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
  573. end
  574. if $gpoli_sick = '':
  575. '"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."'
  576. '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!'
  577. 'You quickly blurt: "Wait! Could you please just give me the shot without telling her? Please?"'
  578. '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."'
  579. else
  580. '"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."'
  581. if venera > 0: gs 'gpoli', 'std_check'
  582. '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!'
  583. 'You quickly blurt: "Wait! Could you please just give me the cure without telling her? Please?"'
  584. '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..."'
  585. end
  586. act 'Offer him money':gt 'gpoli', 'spravka_money_pale'
  587. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange_pale'
  588. end
  589. end
  590. end
  591. end
  592. end
  593. if StoryLine > 0 and SchoolAtestat = 0 and Gspravka < 3 and motherKnowSpravka = 0:
  594. act 'Go to the gynaecologist for a referral': gt 'gpoli', 'referral'
  595. end
  596. else
  597. 'The clinic is closed. It''s open every day between 06:00 and 21:00.'
  598. end
  599. end
  600. if $ARGS[0] = 'referral':
  601. menu_off = 1
  602. if pcs_vag = 0:
  603. *clr & cla
  604. minut = minut + 15
  605. gs 'stat'
  606. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
  607. '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.'
  608. Gspravka = 30
  609. GspravkaT = 1
  610. Gspassed = 1
  611. '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...'
  612. act 'Leave':gt $curloc
  613. end
  614. if pcs_vag > 0:
  615. *clr & cla
  616. minut += 5
  617. gs 'stat'
  618. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  619. 'You''re a bit nervous as you enter the gynaecologist''s office. Your mother expects you to her 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?'
  620. if gpoliuborka = 2:
  621. '"Hi <<$pcs_nickname>>. What brings you in today?" dr. Petrovich says with a smile.'
  622. '"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.'
  623. '"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.'
  624. else
  625. '"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.'
  626. '"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.'
  627. '"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.'
  628. end
  629. act 'Have the check-up':
  630. *clr & cla
  631. minut += 5
  632. gs 'stat'
  633. 'The doctor breathes on his stethoscope to warm it up and says: "Lift your shirt, please."'
  634. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_2.jpg"></center>'
  635. 'Lift your shirt? What does that have to do with your virginity?'
  636. 'He sees your hesitation, and reassures you: "I''m just doing some basic check-ups while you''re here anyway. Now... your shirt, please?"'
  637. '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.'
  638. '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."'
  639. 'There is an eager sparkle in his eyes when he looks at your bare breasts. The pervert!'
  640. 'He continues: "Now get undressed and have a seat in the chair, please. You can put your feet in the stirrups."'
  641. act 'Undress':
  642. *clr & cla
  643. minut += 5
  644. gs 'stat'
  645. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_3.jpg"></center>'
  646. '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?'
  647. act 'Sit in the chair':
  648. *clr & cla
  649. minut += 5
  650. gs 'stat'
  651. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_4.jpg"></center>'
  652. 'Once you''re nude, you have a seat in the gynaecologist''s chair and spread your legs in the stirrups.'
  653. '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.'
  654. $gpoli_sick = ''
  655. if preg > 0:
  656. thinkpreg = 1
  657. knowpreg = 1
  658. $gpoli_sick = 'are pregnant'
  659. end
  660. if venera > 0:
  661. if $gpoli_sick ! '':$gpoli_sick = $gpoli_sick + ', and you have a sexually transmitted disease'
  662. if $gpoli_sick = '':$gpoli_sick = 'have a sexually transmitted disease'
  663. end
  664. if $gpoli_sick = '':
  665. '"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."'
  666. '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!'
  667. 'You quickly blurt: "Wait! Could you please just write down that I''m still a virgin, so I don''t get in trouble? Please?"'
  668. '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?"'
  669. else
  670. 'The doctor frowns when he gives you the results: "I''m afraid I have some bad news, <<$pcs_nickname>>. You <<$gpoli_sick>>.'
  671. if venera > 0: gs 'gpoli', 'std_check'
  672. 'You''re also not a virgin any more, obviously."'
  673. 'Your heart begins to race when you hear that, that''s terrible! Your mother would kill you if she finds out what you have been up to!'
  674. 'You quickly blurt: "Wait! Could you please just write down that I''m still a virgin, so I don''t get in trouble? Please?"'
  675. '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?"'
  676. end
  677. act 'Offer him money':gt 'gpoli', 'spravka_money'
  678. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange'
  679. act 'Just accept the referral as is':gt 'gpoli', 'badend'
  680. end
  681. end
  682. end
  683. act 'Admit you''re no virgin':
  684. *clr & cla
  685. minut += 5
  686. gs 'stat'
  687. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_1.jpg"></center>'
  688. if gpoliuborka = 2:
  689. 'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
  690. 'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
  691. 'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
  692. '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?"'
  693. '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?"'
  694. else
  695. 'You pause for a second, and then decide to just confess. He was going to find out anyway during the examination.'
  696. 'Hesitantly you say: "Mister Petrovich, I have something to ask of you. You see, I... I''m no longer a virgin."'
  697. 'He nods understandingly: "I see." That''s probably not the first time one of his patients told him that.'
  698. '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?"'
  699. '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?"'
  700. end
  701. act 'Offer him money':gt 'gpoli', 'spravka_money'
  702. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange'
  703. act 'Just accept the referral as is':gt 'gpoli', 'badend'
  704. end
  705. end
  706. end
  707. if $ARGS[0] = 'gynoblow':
  708. *clr & cla
  709. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  710. if $ARGS[1] = 'referral_blow':
  711. Gspravka = 30
  712. GspravkaT = 1
  713. Gspassed = 1
  714. end
  715. gs 'stat'
  716. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  717. '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.'
  718. '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.'
  719. 'You gasp for breath while he pulls you up, and hear him say, "That''s it, take it all!."'
  720. 'He carries roughly pleasuring himself with your mouth until you realize he is about to cum.'
  721. gs 'arousal', 'bj', 10, 'sub', 'rough', 'deepthroat'
  722. gs 'stat'
  723. act 'Let him cum in your mouth':
  724. *clr & cla
  725. minut += 5
  726. pcs_horny += 5
  727. gs 'boyStat', 'A68'
  728. sexpartkno = 1
  729. spafinloc = 12
  730. gs 'cum_manage'
  731. swallow += 1
  732. gs 'stat'
  733. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  734. '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.'
  735. 'Then he lets out a satisfied sigh and begins to put his clothes back on, as if nothing happened.'
  736. act 'Get dressed too':
  737. *clr & cla
  738. minut += 5
  739. gs 'stat'
  740. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  741. 'You follow his example, and also put your clothes back on.'
  742. '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."'
  743. '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."'
  744. gs 'arousal', 'end'
  745. gs 'stat'
  746. act 'Leave':gt 'gpoli'
  747. end
  748. end
  749. end
  750. if $ARGS[0] = 'badend':
  751. *clr & cla
  752. minut += 5
  753. gs 'stat'
  754. Gspravka = 30
  755. GspravkaT = 2
  756. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gin.jpg"></center>'
  757. *nl
  758. '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.'
  759. 'Dejectedly, you take it from him and get ready to leave. How are you going to tell your mother?'
  760. if $loc = 'kuhrPar':
  761. act 'Leave': gt 'mother', 'referral'
  762. else
  763. act 'Leave': gt 'gpoli'
  764. end
  765. end
  766. if $ARGS[0] = 'spravka_arrange':
  767. *clr & cla
  768. minut += 5
  769. gs 'stat'
  770. if gpoliuborka = 2:
  771. '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?"'
  772. '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."'
  773. '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?"'
  774. '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?"'
  775. '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?'
  776. else
  777. '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?"'
  778. '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."'
  779. 'You softly mutter: "But... what if..."'
  780. 'He looks at you playfully and asks: "What if what?"'
  781. 'You continue: "What if I have no money?"'
  782. '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.'
  783. 'He smirks at you and mutters: "I understand why you are no longer a virgin, you little minx! So eager to please..."'
  784. '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.'
  785. act 'Grab a referral form and run out of the room':
  786. *clr & cla
  787. Gspravka = 30
  788. GspravkaT = 1
  789. Gspassed = 1
  790. gs 'stat'
  791. '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!'
  792. '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..."'
  793. act 'Leave':gt 'gpoli'
  794. end
  795. end
  796. act 'You really don''t want your mother to find out...':
  797. *clr & cla
  798. minut += 5
  799. gs 'stat'
  800. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
  801. '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!'
  802. '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.'
  803. '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...'
  804. '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.'
  805. act 'Give him a blowjob':
  806. if venera > 0:gt 'gpoli', 'gynoblow', 'referral_blow'
  807. *clr & cla
  808. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  809. gs 'stat'
  810. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  811. '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!'
  812. '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."'
  813. 'You do as he says, and it does indeed make things a bit easier.'
  814. '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.'
  815. '"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."'
  816. '"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!'
  817. gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
  818. gs 'stat'
  819. act 'Continue':
  820. *clr & cla
  821. gs 'stat'
  822. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
  823. '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!'
  824. '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.'
  825. gs 'arousal', 'vaginal', 5, 'sub'
  826. gs 'stat'
  827. act 'Let him fuck you':
  828. *clr & cla
  829. pcs_vag += 1
  830. gs 'boyStat', 'A68'
  831. cumprecheck = 1
  832. gs 'cum_manage'
  833. gs 'stat'
  834. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
  835. '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.'
  836. '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.'
  837. '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.'
  838. '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.'
  839. $orgasm_or = 'yes'
  840. gs 'arousal', 'vaginal', 5, 'sub'
  841. gs 'stat'
  842. act 'Sex on the table':
  843. *clr & cla
  844. gs 'stat'
  845. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
  846. '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.'
  847. '"You come so quickly, <<$pcs_nickname>>," he pants in your ear. "I will be right back, we are not done yet. Just wait here."'
  848. '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.'
  849. '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.'
  850. '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.'
  851. '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.'
  852. gs 'arousal', 'vaginal', 5, 'sub'
  853. gs 'arousal', 'foreplay', 5, 'sub'
  854. gs 'arousal', 'anal_finger', 5, 'sub'
  855. minut -= 5
  856. gs 'stat'
  857. act 'He fucks your ass':
  858. *clr & cla
  859. pcs_ass += 1
  860. gs 'stat'
  861. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
  862. '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.'
  863. 'When he begins to speed up you you nearly cry, and groan loudly with every thrust.'
  864. 'He softly mutters: "This won''t do, you''re going to alarm the entire clinic if you keep screaming like that!"'
  865. '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?'
  866. '"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...'
  867. gs 'arousal', 'anal', 5, 'sub'
  868. gs 'stat'
  869. act 'Sex on the floor':
  870. *clr & cla
  871. gs 'stat'
  872. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
  873. '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.'
  874. '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.'
  875. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  876. gs 'stat'
  877. act 'Anal again':
  878. *clr & cla
  879. gs 'stat'
  880. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
  881. '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.'
  882. '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.'
  883. $orgasm_or = 'yes'
  884. gs 'arousal', 'anal', 5, 'sub', 'rough'
  885. gs 'stat'
  886. act 'Let him cum in your mouth':
  887. *clr & cla
  888. minut += 5
  889. pcs_horny += 5
  890. gs 'boyStat', 'A68'
  891. sexpartkno = 1
  892. spafinloc = 12
  893. gs 'cum_manage'
  894. swallow += 1
  895. gs 'stat'
  896. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  897. '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.'
  898. 'Then he lets out a satisfied sigh and begins to put his clothes back on, as if nothing happened.'
  899. act 'Get dressed':
  900. *clr & cla
  901. minut += 5
  902. gs 'stat'
  903. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  904. 'You follow his example, and also put your clothes back on.'
  905. 'When you''re both fully dressed again, he has a wide grin on his face: "Well now, one good turn deserves another."'
  906. '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."'
  907. '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?'
  908. Gspravka = 30
  909. GspravkaT = 1
  910. Gspassed = 1
  911. gs 'arousal', 'end'
  912. gs 'stat'
  913. if $loc = 'kuhrPar':
  914. act 'Leave': gt 'mother', 'referral'
  915. else
  916. act 'Leave': gt 'gpoli'
  917. end
  918. end
  919. end
  920. end
  921. end
  922. end
  923. end
  924. end
  925. end
  926. end
  927. end
  928. act 'You can''t do that':
  929. cla
  930. '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!"'
  931. '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."'
  932. act 'Try to negotiate': gt 'gpoli', 'spravka_arrange'
  933. act 'Just accept the referral as is': gt 'gpoli', 'badend'
  934. end
  935. end
  936. if $ARGS[0] = 'spravka_money':
  937. *clr & cla
  938. minut += 5
  939. gs 'stat'
  940. if gpoliuborka = 2:
  941. 'You don''t want to have sex with him! Having sex is what got you in this mess in the first place.'
  942. '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!"'
  943. '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."'
  944. 'He continues: "The standard consultancy fee is 2,000 <b>₽</b>."'
  945. if money >= 2000:
  946. act 'Pay him the 2,000 <b>₽</b>':
  947. *clr & cla
  948. minut += 5
  949. money -= 2000
  950. gs 'stat'
  951. Gspravka = 30
  952. GspravkaT = 1
  953. Gspassed = 1
  954. 'Without giving it much thought, you say: "Deal!"'
  955. '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.'
  956. act 'Leave':gt 'gpoli'
  957. end
  958. end
  959. act 'Just accept the referral as is':gt 'gpoli', 'badend'
  960. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange'
  961. else
  962. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_5.jpg"></center>'
  963. 'You carefully suggest: "Well, what if I give you money?"'
  964. '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!"'
  965. '"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..."'
  966. '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."'
  967. '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.'
  968. act 'Just accept the referral as is':gt 'gpoli', 'badend'
  969. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange'
  970. end
  971. end
  972. if $ARGS[0] = 'spravka_money_pale':
  973. *clr & cla
  974. minut += 5
  975. gs 'stat'
  976. if gpoli_doctorhavesex = 0:
  977. '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?"'
  978. '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."'
  979. '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!"'
  980. 'He continues: "The normal consultancy fee is 2,000 <b>₽</b>."'
  981. if money >= 2000:
  982. act 'Pay him the 2,000 <b>₽</b>':
  983. *clr & cla
  984. minut += 5
  985. money -= 2000
  986. pcs_horny += 5
  987. gs 'stat'
  988. '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.'
  989. '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?'
  990. '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.'
  991. '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.'
  992. '"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."'
  993. act 'Leave':gt 'gpoli'
  994. end
  995. end
  996. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange_pale'
  997. else
  998. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/gpoli_5.jpg"></center>'
  999. '"Well, what if I give you money? I can pay you!" you suggest in desperation.'
  1000. '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!"'
  1001. '"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!"'
  1002. '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."'
  1003. '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.'
  1004. act 'Try to negotiate':gt 'gpoli', 'spravka_arrange_pale'
  1005. end
  1006. end
  1007. if $ARGS[0] = 'spravka_arrange_pale':
  1008. *clr & cla
  1009. minut += 5
  1010. gs 'stat'
  1011. if gpoli_doctorhavesex = 1:
  1012. '"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.'
  1013. '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.'
  1014. '"What do I have to do?" you ask. Deep down inside, you feel like you already know the answer.'
  1015. '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?"'
  1016. '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?'
  1017. else
  1018. '"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.'
  1019. '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."'
  1020. '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?"'
  1021. '"What do you..." you hesitate. You know exactly what he''s suggesting, but you can''t say it.'
  1022. '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."'
  1023. 'He gropes your <<$titsize>> boobs for a while, before he moves his hands to his trousers and undoes his belt.'
  1024. act 'Run out of the office':
  1025. *clr & cla
  1026. gs 'stat'
  1027. '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.'
  1028. if $loc = 'kuhrPar':
  1029. act 'leave': gt 'mother', 'referral'
  1030. else
  1031. act 'Leave':gt 'gpoli'
  1032. end
  1033. end
  1034. end
  1035. act 'Do what you have to do':
  1036. *clr & cla
  1037. gs 'stat'
  1038. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_6.jpg"></center>'
  1039. '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...'
  1040. '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.'
  1041. gs 'arousal', 'hj', 5, 'sub'
  1042. gs 'stat'
  1043. act 'Give him a blowjob':
  1044. if venera > 0:gt 'gpoli', 'gynoblow'
  1045. *clr & cla
  1046. if gpoli_doctorhavesex = 0:gpoli_doctorhavesex = 1 & guy += 1
  1047. gs 'stat'
  1048. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_7.jpg"></center>'
  1049. '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!'
  1050. '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."'
  1051. 'You do as he says, and it does indeed make things a bit easier.'
  1052. '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.'
  1053. '"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."'
  1054. '"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!'
  1055. gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
  1056. gs 'stat'
  1057. act 'Continue':
  1058. *clr & cla
  1059. gs 'stat'
  1060. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_8.jpg"></center>'
  1061. '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!'
  1062. '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.'
  1063. gs 'arousal', 'vaginal', 5, 'sub'
  1064. gs 'stat'
  1065. act 'Let him fuck you':
  1066. *clr & cla
  1067. pcs_vag += 1
  1068. gs 'stat'
  1069. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_9.jpg"></center>'
  1070. '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.'
  1071. '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.'
  1072. '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.'
  1073. '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.'
  1074. $orgasm_or = 'yes'
  1075. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  1076. gs 'stat'
  1077. act 'Sex on the table':
  1078. *clr & cla
  1079. gs 'stat'
  1080. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_10.jpg"></center>'
  1081. '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.'
  1082. '"You come so quickly, <<$pcs_nickname>>," he pants in your ear. "I will be right back, we are not done yet. Just wait here."'
  1083. '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.'
  1084. '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.'
  1085. '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.'
  1086. '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.'
  1087. gs 'arousal', 'vaginal', 5, 'sub'
  1088. gs 'arousal', 'foreplay', 5, 'sub'
  1089. gs 'arousal', 'anal_finger', 5, 'sub'
  1090. minut -= 5
  1091. gs 'stat'
  1092. act 'He fucks your ass':
  1093. *clr & cla
  1094. pcs_ass += 1
  1095. gs 'stat'
  1096. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_11.jpg"></center>'
  1097. '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.'
  1098. 'When he begins to speed up you you nearly cry, and groan loudly with every thrust.'
  1099. 'He softly mutters: "This won''t do, you''re going to alarm the entire clinic if you keep screaming like that!"'
  1100. '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?'
  1101. '"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...'
  1102. gs 'arousal', 'anal', 5, 'sub'
  1103. gs 'stat'
  1104. act 'Sex on the floor':
  1105. *clr & cla
  1106. gs 'stat'
  1107. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_12.jpg"></center>'
  1108. '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.'
  1109. '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.'
  1110. gs 'arousal', 'vaginal', 5, 'sub', 'rough'
  1111. gs 'stat'
  1112. act 'Anal again':
  1113. *clr & cla
  1114. gs 'stat'
  1115. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_13.jpg"></center>'
  1116. '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.'
  1117. '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.'
  1118. $orgasm_or = 'yes'
  1119. gs 'arousal', 'anal', 5, 'sub', 'rough'
  1120. gs 'stat'
  1121. act 'Let him cum in your mouth':
  1122. *clr & cla
  1123. minut += 5
  1124. pcs_horny += 5
  1125. gs 'boyStat', 'A68'
  1126. sexpartkno = 1
  1127. spafinloc = 12
  1128. gs 'cum_manage'
  1129. swallow += 1
  1130. gs 'stat'
  1131. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_14.jpg"></center>'
  1132. '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.'
  1133. 'Then he lets out a satisfied sigh and begins to put his clothes back on, as if nothing happened.'
  1134. act 'Get dressed':
  1135. *clr & cla
  1136. minut += 5
  1137. gs 'stat'
  1138. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/gyno/sex/gpoli_15.jpg"></center>'
  1139. 'You follow his example, and also put your clothes back on.'
  1140. '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."'
  1141. '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.'
  1142. '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?'
  1143. '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.'
  1144. '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.'
  1145. '"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."'
  1146. 'You quietly mumble: "Thank you doctor," as you straighten your clothes.'
  1147. gs 'arousal', 'end'
  1148. gs 'stat'
  1149. act 'Leave':gt 'gpoli'
  1150. end
  1151. end
  1152. end
  1153. end
  1154. end
  1155. end
  1156. end
  1157. end
  1158. end
  1159. end
  1160. end
  1161. if $ARGS[0] = 'maternity_ward':
  1162. pcs_know_mward = 1
  1163. $menu_arg = $ARGS[0]
  1164. menu_off = 0
  1165. *clr & cla
  1166. gs 'stat'
  1167. minut += 5
  1168. if hour >= 6 and hour <= 20:
  1169. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/mward.jpg"></center>'
  1170. '<center>You are at the maternity ward. There are alot of babies and nurses taking care of them.</center>'
  1171. if lactate > 0 and pcs_gpolimilkdonation = 3:
  1172. act 'Talk to the nurse (0:05)':
  1173. gs 'stat'
  1174. *clr & cla
  1175. menu_off = 1
  1176. minut += 5
  1177. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
  1178. 'Nurse: Hello <<$pcs_firstname>>, how can I help you?'
  1179. act 'Donate your breast milk (0:15)':
  1180. *clr & cla
  1181. milkedvolume = 0
  1182. pcs_gpoli_donationsessioncount = 0
  1183. !!if rand(0,100) = 95 and orphanfeed = 0:
  1184. !! orphanfeed = 1
  1185. !!end
  1186. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1187. 'You talk to the old nurse and she leads you into the quiet room.'
  1188. !!if orphanfeed = 1:
  1189. !! 'It seems like there is a crib with a baby inside in this room, too.'
  1190. !!end
  1191. act 'have your breasts pumped':
  1192. *clr & cla
  1193. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1194. 'You sit down and take off your top.'
  1195. if lactatemv > lactatemm*8/10:
  1196. 'The nurse looks surprised at your engorged breasts'
  1197. 'Nurse: Oh dear! These look painfully full. I hope the pumping will make you feel better.'
  1198. end
  1199. if pain['nipples'] >= 60:
  1200. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1201. '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.'
  1202. 'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
  1203. pain['nipples'] -= 20
  1204. else
  1205. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
  1206. end
  1207. nipple_cream = 1
  1208. act 'continue': gt 'gpoli', 'maternity_ward_donation'
  1209. end
  1210. end
  1211. act 'Check your file (0:05)':
  1212. *clr & cla
  1213. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/formular.jpg"></center>'
  1214. 'The nurse hands you a file on how much you have donated so far.'
  1215. '<br>----------------------------------------'
  1216. 'Analyzed milksample measurements'
  1217. 'Volume in ml: <<mward_donatesv/10>>ml'
  1218. 'Fat in %: <<mward_donatesf/10>>.<<mward_donatesf mod 10>>%'
  1219. 'Lactose in %: <<mward_donatess/10>>.<<mward_donatess mod 10>>%'
  1220. '<br>----------------------------------------'
  1221. if pcs_gpoli_totalmilkdonation_count > 0:
  1222. 'Total breast milk donation statistics'
  1223. if pcs_gpoli_totalmilkdonation < 100:
  1224. 'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.0<<pcs_gpoli_totalmilkdonation mod 1000>>l'
  1225. else
  1226. 'Donated milk volume in liter: <<pcs_gpoli_totalmilkdonation/1000>>.<<pcs_gpoli_totalmilkdonation mod 1000>>l'
  1227. end
  1228. 'Donation count: <<pcs_gpoli_totalmilkdonation_count>>'
  1229. 'Average milk volume per donation in ml: <<pcs_gpoli_totalmilkdonation/pcs_gpoli_totalmilkdonation_count>>'
  1230. 'Paid money: <<(((pcs_gpoli_totalmilkdonation*10)/3)*75)/100>><b>₽</b>'
  1231. '<br>----------------------------------------'
  1232. end
  1233. act 'Leave': gt 'gpoli', 'maternity_ward'
  1234. end
  1235. !!act 'Mammography (1:00)':
  1236. !!
  1237. !!end
  1238. act 'Leave': gt 'gpoli', 'maternity_ward'
  1239. end
  1240. end
  1241. if lactate > 0 and lactatemv > lactatemm/8 and pcs_gpolimilkdonation <= 2:
  1242. '<br><br><center>One of the nurses looks at you suspiciously.<center>'
  1243. act 'Talk to the nurse (0:05)':
  1244. *clr & cla
  1245. menu_off = 1
  1246. minut += 5
  1247. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
  1248. if preg >= 0 and pregtimes > 0 and pcs_gpolimilkdonation <= 0:
  1249. 'You walk up to the nurse'
  1250. 'You: Uhm, Hello...'
  1251. 'Nurse: Which one is yours?'
  1252. 'You: Mine? I don''t understand...'
  1253. 'The nurse looks at your face then down at your breast and than back at your face.'
  1254. 'Nurse: Well, you are obviously lactating, so you came here to breastfeed your offspring?'
  1255. 'She concludes on you, giving you a rised eyebrow.'
  1256. elseif preg = 0 and pregtimes = 0 and pcs_gpolimilkdonation <= 0:
  1257. 'You walk up to the nurse'
  1258. 'You: Uhm, Hello...'
  1259. 'The nurse looks you up and down, rising an eyebrow on you.'
  1260. 'Nurse: You don''t look like you ever had a child, how come you are lactating?'
  1261. 'You are surprised by the sudden and precise analysis of the nurse.'
  1262. 'You: How... how do you know?'
  1263. 'Nurse: I''ve been working here for ages. Trust me ... I can tell by the smell. Now why are you lactating?'
  1264. elseif pcs_gpolimilkdonation <= 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. else
  1273. 'You walk up to the nurse'
  1274. 'You: Hello...'
  1275. 'Nurse: Ah, it is you again...'
  1276. 'She looks you up and down'
  1277. if pcs_gpolimilkdonation = 1 and preg = 0 and pregtimes = 0:
  1278. 'Nurse: So, why are you lactating again?'
  1279. elseif pcs_gpolimilkdonation = 2:
  1280. 'Nurse: Did you change your mind and want donate your breast milk?'
  1281. else
  1282. 'Nurse: What do you want?'
  1283. end
  1284. end
  1285. if pcs_gpolimilkdonation < 1: pcs_gpolimilkdonation = 1
  1286. if pcs_gpolimilkdonation < 2:
  1287. act 'Explain yourself':
  1288. *clr & cla
  1289. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/old_nurse.jpg"></center>'
  1290. if preg = 0 and pregtimes = 0:
  1291. pcs_gpolimilkdonation = 2
  1292. if lactateinduced = 1:
  1293. 'You: Erm ... I used a breast pump on myself...'
  1294. 'You blush a bit from embarresment, while telling it to her.'
  1295. else
  1296. 'You: I don''t really now... it just started some day.'
  1297. 'You explain, blushing from embarresment.'
  1298. end
  1299. '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.'
  1300. 'Nurse: Have you ever thought of donating your breast milk?'
  1301. 'You: Donating?'
  1302. '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.'
  1303. 'You look at her with wide eyes.'
  1304. 'Nurse: So, what do you think?'
  1305. pcs_gpolimilkdonation = 2
  1306. act 'give it a try (0:15)':
  1307. *clr & cla
  1308. minut += 15
  1309. pcs_gpolimilkdonation = 3
  1310. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1311. 'The nurse leads you into a room. It is quiet in here. There is a chair a table and a breastpump.'
  1312. 'You sit down and the nurse invites you to take off your top.'
  1313. if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
  1314. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1315. '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.'
  1316. 'You: What is that?'
  1317. 'The nurse looks up at you.'
  1318. 'Nurse: This is nipple balm. It helps with sore nipples during pumping. Don''t you now this?'
  1319. '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.'
  1320. pain['nipples'] -= 20
  1321. 'You: Where do I get this stuff?'
  1322. 'Nurse: You can buy it in the pharmacy...'
  1323. pcs_knows_nipplecream = 1
  1324. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1325. elseif pain['nipples'] >= 60:
  1326. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1327. '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.'
  1328. 'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
  1329. pain['nipples'] -= 20
  1330. else
  1331. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
  1332. end
  1333. nipple_cream = 1
  1334. '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.'
  1335. '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.'
  1336. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
  1337. milkedvolume = func('lact_lib','$get_breastmilk', 4, 15)
  1338. breastpumped += 4
  1339. pcs_orphanfeed = 0
  1340. if milkedvolume >= 1000:
  1341. 'Your breasts are able to fill both small bottles easily. The nurse nods at you confidently.'
  1342. 'Nurse: Yes, it seems you are able to make good amount of milk. You could breastfeed a baby with no issue.'
  1343. elseif milkedvolume >= 500 and milkedvolume < 1000:
  1344. 'Your breasts are not able to fill both small bottles. The nurse rises an eyebrow on you.'
  1345. '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.'
  1346. else
  1347. 'You have trouble to fill the bottles to the first mark. The nurse shakes her head disappointed.'
  1348. '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.'
  1349. end
  1350. 'The nurse detaches the pump and allows you to dress up again.'
  1351. if milkedvolume > 500:
  1352. mward_donatesv = 500
  1353. else
  1354. mward_donatesv = milkedvolume
  1355. end
  1356. if salo > 40:
  1357. mward_donatesf = 60
  1358. elseif salo > 20:
  1359. mward_donatesf = 45
  1360. elseif salo > 15:
  1361. mward_donatesf = 20
  1362. else
  1363. mward_donatesf = 10
  1364. end
  1365. if pcs_energy > 30:
  1366. mward_donatess = rand(69, 80)
  1367. elseif sick > 1:
  1368. mward_donatess = rand(0,45)
  1369. else
  1370. mward_donatess = rand(45, 69)
  1371. end
  1372. act 'Leave':gt 'gpoli'
  1373. end
  1374. act 'Deny to donate':
  1375. *clr & cla
  1376. 'You deny to donate your breast milk. The nurse looks sad at you and let you leave.'
  1377. act 'Leave':gt 'gpoli'
  1378. end
  1379. else
  1380. pcs_gpolimilkdonation = 2
  1381. 'You: Well ... I don''t have a kid here... I was just looking around for a bit'
  1382. 'You look a bit awkward at the nurse as you try to explain yourself.'
  1383. '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.'
  1384. 'Nurse: Have you ever thought of donating your breast milk?'
  1385. 'You: Donating?'
  1386. '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.'
  1387. 'You look at her with wide eyes.'
  1388. 'Nurse: So, what do you think?'
  1389. pcs_gpolimilkdonation = 2
  1390. act 'Give it a try (0:15)':
  1391. *clr & cla
  1392. minut += 15
  1393. pcs_gpolimilkdonation = 3
  1394. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1395. 'The nurse leads you into a room. It is quiet in here. There is a chair a table and a breastpump.'
  1396. 'You sit down and the nurse invites you to take off your top.'
  1397. if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
  1398. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1399. '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.'
  1400. 'You: What is that?'
  1401. 'The nurse looks up at you.'
  1402. 'Nurse: This is nipple balm. It helps with sore nipples during pumping. Don''t you now this?'
  1403. '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.'
  1404. pain['nipples'] -= 20
  1405. 'You: Where do I get this stuff?'
  1406. 'Nurse: You can buy it in the pharmacy...'
  1407. pcs_knows_nipplecream = 1
  1408. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1409. elseif pain['nipples'] >= 60:
  1410. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1411. '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.'
  1412. 'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
  1413. pain['nipples'] -= 20
  1414. else
  1415. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
  1416. end
  1417. nipple_cream = 1
  1418. '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.'
  1419. '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.'
  1420. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
  1421. milkedvolume = func('lact_lib','$get_breastmilk', 4, 15)
  1422. breastpumped += 4
  1423. pcs_orphanfeed = 0
  1424. if milkedvolume >= 1000:
  1425. 'Your breasts are able to fill both small bottles easily. The nurse nods at you confidently.'
  1426. 'Nurse: Yes, it seems you are able to make good amount of milk. You could breastfeed a baby with no issue.'
  1427. elseif milkedvolume >= 500 and milkedvolume < 1000:
  1428. 'Your breasts are not able to fill both small bottles. The nurse rises an eyebrow on you.'
  1429. '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.'
  1430. else
  1431. 'You have trouble to fill the bottles to the first mark. The nurse shakes her head disappointed.'
  1432. '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.'
  1433. end
  1434. 'The nurse detaches the pump and allows you to dress up again.'
  1435. if milkedvolume > 500:
  1436. mward_donatesv = 500
  1437. else
  1438. mward_donatesv = milkedvolume
  1439. end
  1440. if salo > 40:
  1441. mward_donatesf = 60
  1442. elseif salo > 20:
  1443. mward_donatesf = 45
  1444. elseif salo > 15:
  1445. mward_donatesf = 20
  1446. else
  1447. mward_donatesf = 10
  1448. end
  1449. if pcs_energy > 30:
  1450. mward_donatess = rand(69, 80)
  1451. elseif sick > 1:
  1452. mward_donatess = rand(0,45)
  1453. else
  1454. mward_donatess = rand(45, 69)
  1455. end
  1456. act 'Leave':gt 'gpoli'
  1457. end
  1458. act 'Deny to donate':
  1459. *clr & cla
  1460. 'You deny to donate your breast milk. The nurse looks sad at you and let you leave.'
  1461. act 'Leave':gt 'gpoli'
  1462. end
  1463. end
  1464. end
  1465. elseif pcs_gpolimilkdonation = 2:
  1466. act 'Offer to donate your breast milk (0:15)':
  1467. *clr & cla
  1468. minut += 15
  1469. pcs_gpolimilkdonation = 3
  1470. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pump_room.jpg"></center>'
  1471. '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 breastpump.'
  1472. 'You sit down and the nurse invites you to take off your top.'
  1473. if pain['nipples'] >= 60 and pcs_knows_nipplecream <= 0:
  1474. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1475. '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.'
  1476. 'You: What is that?'
  1477. 'The nurse looks up at you.'
  1478. 'Nurse: This is nipple balm. It helps with sore nipples during pumping. Don''t you now this?'
  1479. '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.'
  1480. pain['nipples'] -= 20
  1481. 'You: Where do I get this stuff?'
  1482. 'Nurse: You can buy it in the pharmacy...'
  1483. pcs_knows_nipplecream = 1
  1484. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1485. elseif pain['nipples'] >= 60:
  1486. '<center><img <<$set_imgh>> src="images/pc/body/nipples/sore_nipple.jpg"></center>'
  1487. '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.'
  1488. 'She applies the cream to your nipples. It feels nice on your nipples and they hurt less.'
  1489. pain['nipples'] -= 20
  1490. elseif pcs_knows_nipplecream <= 0:
  1491. 'The nurse grabs a small tin and takes a bit of yellowish cream from it.'
  1492. 'You: What is that?'
  1493. 'The nurse looks up at you.'
  1494. 'Nurse: This is nipple balm. It helps during pumping and prevents nipple soreness. Don''t you now this?'
  1495. 'You shake your head and watch as the nurse applies the cream to your nipples. The cream feels nice on your nipples.'
  1496. 'You: Where do I get this stuff?'
  1497. 'Nurse: You can buy it in the pharmacy...'
  1498. pcs_knows_nipplecream = 1
  1499. 'The nurse finishes rubbing you nipples with the nipple balm.'
  1500. else
  1501. 'The nurse grabs the nipple balm and applies it to your nipples. It feels nice on your nipples as she rubs it in.'
  1502. end
  1503. nipple_cream = 1
  1504. 'Nurse: Okay, I am going to pump a bit milk off first, to check the quality and if you are able to donate enough.'
  1505. '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.'
  1506. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
  1507. milkedvolume = func('lact_lib','$get_breastmilk', 4, 15)
  1508. breastpumped += 4
  1509. pcs_orphanfeed = 0
  1510. if milkedvolume >= 1000:
  1511. 'Your breasts are able to fill both small bottles easily. The nurse nods at you confidently.'
  1512. 'Nurse: Yes, it seems you are able to make good amount of milk. You could breastfeed a baby with no issue.'
  1513. elseif milkedvolume >= 50 and milkedvolume < 1000:
  1514. 'Your breasts are not able to fill both small bottles. The nurse rises an eyebrow on you.'
  1515. 'Nurse: Okay... it seems you are able to make enough milk for a donation, but you could have trouble to breastfeed a baby properly.'
  1516. else
  1517. 'You have trouble to fill the bottles to the first mark. The nurse shakes her head disappointed.'
  1518. '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.'
  1519. end
  1520. 'The nurse detaches the pump and allows you to dress up again.'
  1521. if milkedvolume > 500:
  1522. mward_donatesv = 500
  1523. else
  1524. mward_donatesv = milkedvolume
  1525. end
  1526. if salo > 40:
  1527. mward_donatesf = 60
  1528. elseif salo > 20:
  1529. mward_donatesf = 45
  1530. elseif salo > 15:
  1531. mward_donatesf = 20
  1532. else
  1533. mward_donatesf = 10
  1534. end
  1535. if pcs_energy > 30:
  1536. mward_donatess = rand(69, 80)
  1537. elseif sick > 1:
  1538. mward_donatess = rand(0,45)
  1539. else
  1540. mward_donatess = rand(45, 69)
  1541. end
  1542. act 'Leave':gt 'gpoli'
  1543. end
  1544. end
  1545. act 'Leave':gt 'gpoli'
  1546. end
  1547. end
  1548. act 'Leave':gt 'gpoli'
  1549. else
  1550. 'The clinic is closed. It''s open every day between 06:00 and 21:00.'
  1551. act 'Leave':minut += 5 & gt 'pavCommercial'
  1552. end
  1553. end
  1554. if $ARGS[0] = 'reception':
  1555. *clr & cla
  1556. menu_off = 1
  1557. minut += 2
  1558. gs 'stat'
  1559. 'You walk up to the reception and ask for help with your problem'
  1560. 'The receptionist looks you up and down and tells you to visit the maternity ward. Someone over there would be able to help you.'
  1561. pcs_know_mward = 1
  1562. act 'Go to maternity ward (0:05)': gt 'gpoli', 'maternity_ward'
  1563. act 'Leave': gt 'gpoli'
  1564. end
  1565. if $ARGS[0] = 'maternity_ward_donation':
  1566. *clr & cla
  1567. menu_off = 1
  1568. gs 'stat'
  1569. if hour >= 6 and hour <= 20:
  1570. nipple_cream = 1
  1571. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
  1572. 'The nurse attaches the pumps and switches them on.'
  1573. if lactatemv >= 0:
  1574. '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.'
  1575. else
  1576. '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.'
  1577. end
  1578. act 'Continue':
  1579. *clr & cla
  1580. milkedvolume = func('lact_lib','$get_breastmilk', 4, 15)
  1581. breastpumped += 4
  1582. 'After 15 minutes, the nurse detaches the pumps from your breasts.'
  1583. if milkedvolume > 500:
  1584. temp_var = milkedvolume/500
  1585. pcs_gpoli_donationsessioncount += temp_var
  1586. pcs_gpoli_totalmilkdonation_count += 1
  1587. pcs_gpoli_totalmilkdonation += temp_var*50
  1588. if temp_var < 2:
  1589. 'She looks satisfied at you as she puts away one bottle with 50ml of your breast milk.'
  1590. elseif temp_var => 4:
  1591. 'She looks satisfied at you as she puts away the <<temp_var>> bottles containing <<temp_var*50>>ml of your breast milk.'
  1592. 'Nurse: This is a good amount of milk.'
  1593. elseif temp_var => 8:
  1594. 'She looks surprised at the at the amount of milk you made as she stores away the <<temp_var>> bottles that contain <<temp_var*50>>ml of your breast milk.'
  1595. 'Nurse: Dear, that is much milk...'
  1596. else
  1597. 'She looks satisfied at you as she puts away <<temp_var>> bottles with <<temp_var*50>>ml of your breast milk inside.'
  1598. end
  1599. else
  1600. 'She looks at you a bit disappointed.'
  1601. 'Nurse: Mhmm... I am sorry, but this isn''t enough milk for a valid donation. You only made <<milkedvolume/10>>ml of breast milk.'
  1602. end
  1603. if pcs_gpoli_donationsessioncount > 0:
  1604. mward_donatemoney = (((pcs_gpoli_donationsessioncount*500)/3)*75)/100
  1605. else
  1606. mward_donatemoney = 0
  1607. end
  1608. money += mward_donatemoney
  1609. minut += 15
  1610. nipple_cream = 0
  1611. if lactatemv > lactatemm/2:
  1612. 'The nurse looks at your breasts'
  1613. 'Nurse: Looks like you could go for a another pumping...shall we?'
  1614. act 'have your breasts pumped again': gt 'gpoli', 'maternity_ward_donation'
  1615. act 'enough for today':
  1616. *clr & cla
  1617. gs 'stat'
  1618. if pcs_gpoli_donationsessioncount > 0:
  1619. 'You put on your top, and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
  1620. else
  1621. 'You put on your top'
  1622. end
  1623. act 'leave':
  1624. milkedvolume = 0
  1625. gt 'gpoli', 'maternity_ward'
  1626. end
  1627. end
  1628. else
  1629. act 'ask to donate more': gt 'gpoli', 'maternity_ward_donation'
  1630. act 'enough for today':
  1631. *clr & cla
  1632. gs 'stat'
  1633. if pcs_gpoli_donationsessioncount > 0:
  1634. 'You put on your top, and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
  1635. else
  1636. 'You put on your top'
  1637. end
  1638. act 'leave':
  1639. milkedvolume = 0
  1640. gt 'gpoli', 'maternity_ward'
  1641. end
  1642. end
  1643. end
  1644. end
  1645. elseif pcs_gpoli_donationsessioncount > 0:
  1646. 'Sorry <<$pcs_firstname>>, we are closing now.'
  1647. 'You put on your top, and the nurse hands you <<mward_donatemoney>><b>₽</b> for your donated breast milk.'
  1648. act 'Leave':minut += 5 & gt 'pavCommercial'
  1649. else
  1650. 'The clinic is closed. It''s open every day between 06:00 and 21:00.'
  1651. act 'Leave':minut += 5 & gt 'pavCommercial'
  1652. end
  1653. end
  1654. if $ARGS[0] = 'std_check':
  1655. if GerpesOnce = 1:
  1656. '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."'
  1657. if Gerpes >= 3:
  1658. if GerpesNapr = 0: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>."'
  1659. if GerpesNapr > 0:'You need to see the nurse for your herpes drug injection.'
  1660. else
  1661. 'Your herpes is currently in a dormant state.'
  1662. end
  1663. end
  1664. if SifacOnce = 1:
  1665. 'He continues: "You have syphilis. Unfortunately, the complete cure for this disease is very expensive and we can''t cure it here. It can be suppressed with a recently developed drug therapy, but it won''t cure you completely. It''s also fairly expensive already."'
  1666. if Sifilis < 15:
  1667. 'Your syphilis is in an inactive stage. Nothing more can be done currently.'
  1668. elseif Sifilis >= 15:
  1669. if SifNapr = 0:SifNapr = 10 & '"I''m going to put you on a course of syphilis inhibiting drugs. You''ll need a total of 10 injections (no more than 1 a day), each injection will cost 1,000 <b>₽</b>."'
  1670. if SifNapr > 0:'You need to see the nurse for your syphilis drug injection.'
  1671. end
  1672. end
  1673. if TriperOnce = 1:
  1674. 'He continues: "We found gonorrhea. Fortunately, we can cure this disease."'
  1675. if TriperNapr = 0: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>."'
  1676. if TriperNapr > 0:'You need to see the nurse for your gonorrhea injections.'
  1677. end
  1678. if KandidozOnce = 1:
  1679. '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."'
  1680. if KandidNapr = 0:KandidNapr = 1 & '"The pills are available at the pharmacy, across the street."'
  1681. if Kandidoz < 30:'Your thrush is currently in remission. If you take vitamins daily, it will stay that way.'
  1682. end
  1683. end
  1684. --- gpoli ---------------------------------