gpoli.qsrc 107 KB

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