gpoli.qsrc 113 KB

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