1
0

poli.qsrc 76 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811
  1. # poli
  2. $location_type = 'public_indoors'
  3. if $ARGS[0] = 'start':
  4. CLOSE all
  5. $sexloc = $CURLOC
  6. $loc = 'poli'
  7. $location_type = 'indoors'
  8. $menu_loc = 'poli'
  9. $menu_arg = $ARGS[0]
  10. menu_off = 0
  11. *clr & cla
  12. hosprand = rand(0, 10)
  13. minut += 5
  14. gs 'stat'
  15. gs 'themes', 'indoors'
  16. '<center><b><font color="maroon">Clinic</font></b></center>'
  17. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  18. 'A sign inside the clinic lists some of the services the clinic has to offer:'
  19. '<i>General practitioner: currently available'
  20. 'Psychotherapist: currently available'
  21. 'STD testing - 1,000 <b>₽</b>.'
  22. *nl
  23. 'For hospital admissions visit us on a Monday before the 10th of the month.'
  24. *nl
  25. 'An abortion at the woman''s request can be performed up until the 84th day of pregnancy - 15,000 <b>₽</b>.'
  26. 'Be warned, improperly performed abortions can be dangerous to your health. There is a risk of complications and the possibility of damage to your uterus.</i>'
  27. *nl
  28. 'At first you thought the warning was only health department boiler-plate. However, no sooner do you finish thinking that then you noticed a nurse pushing a cart of freshly sterilized coat hangers down the hallway and begin to wonder how competent this facility really is in terms of women''s health...'
  29. *nl
  30. 'One area of the clinic is devoted to cosmetic surgery. A sign with directions on the wall point you to the surgeon''s office.'
  31. *nl
  32. if pcs_gpolimilkdonation >= 2 and lactation['active'] > 0 and lact_ev['pcs_knows_milkbank'] < 1 and lactation['pc_aware'] > 0:
  33. *nl
  34. '<a href="exec: minut += 5 & gt ''poli'', ''milk_reception''">Ask</a> at the reception if there is the possibilty for breast milk donation'
  35. elseif pcs_gpolimilkdonation < 2 and lactation['active'] > 0 and lact_ev['pcs_knows_milkbank'] < 1 and lactation['pc_aware'] > 0:
  36. *nl
  37. 'At the reception a small <a href="exec: minut += 5 & gt ''poli'', ''milk_advertisement''">advertisement</a> catches your eye.'
  38. end
  39. if workhosp = 1 and hour >= 8 and hour <= 9 and week < 6:act 'Begin your work day':gt 'poli', 'beginwork'
  40. act 'Leave the clinic': minut += 5 & gt 'street'
  41. act 'Go see a cosmetic surgeon':gt 'poli','cosmetic1'
  42. if lact_ev['pcs_knows_milkbank'] >= 1:
  43. act 'Go to the breast milk donation office': minut += 5 & gt 'poli','milk_donation_room'
  44. end
  45. if pcs_health < (pcs_vital * 10 + pcs_stren * 5) or pain['total'] > 10:
  46. act 'See a Doctor about your health (1:00)':
  47. cla
  48. menu_off = 1
  49. minut += 60
  50. if pain['head'] > 0:pain['head'] -= rand(7,13)
  51. if pain['hair'] > 0:pain['hair'] -= rand(7,13)
  52. if pain['ears'] > 0:pain['ears'] -= rand(7,13)
  53. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
  54. if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
  55. if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
  56. if pain['nose'] > 0:pain['nose'] -= rand(7,13)
  57. if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
  58. if pain['lips'] > 0:pain['lips'] -= rand(7,13)
  59. if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
  60. if pain['throat'] > 0:pain['throat'] -= rand(7,13)
  61. if pain['neck'] > 0:pain['neck'] -= rand(7,13)
  62. if pain['back'] > 0:pain['back'] -= rand(7,13)
  63. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
  64. if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
  65. if pain['hips'] > 0:pain['hips'] -= rand(7,13)
  66. if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
  67. if pain['legL'] > 0:pain['legL'] -= rand(7,13)
  68. if pain['legR'] > 0:pain['legR'] -= rand(7,13)
  69. if pain['feet'] > 0:pain['feet'] -= rand(7,13)
  70. if pain['toes'] > 0:pain['toes'] -= rand(7,13)
  71. if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
  72. if pain['armL'] > 0:pain['armL'] -= rand(7,13)
  73. if pain['armR'] > 0:pain['armR'] -= rand(7,13)
  74. if pain['hands'] > 0:pain['hands'] -= rand(7,13)
  75. if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
  76. if pain['chest'] > 0:pain['chest'] -= rand(7,13)
  77. if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
  78. if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
  79. if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
  80. if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
  81. if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
  82. if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
  83. if pain['labia'] > 0:pain['labia'] -= rand(7,13)
  84. if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
  85. if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
  86. if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
  87. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  88. if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
  89. gs 'stat'
  90. if hosprand = 0:gt 'poli', '0'
  91. if hosprand = 1:gt 'poli', '1'
  92. if hosprand = 2:gt 'poli', '2'
  93. 'The doctor guides you to a bed and tells you to lie down, after which he gives you a combined painkiller, steroid and vitamin shot.'
  94. 'You feel drowsy for a little while, but afterwards you feel a lot better. The shot sped up your aching body''s recovery by a lot, meaning the pain probably won''t come back nearly as strongly when the shot wears off, and should aid your health recovery over the coming days.'
  95. act 'Return to the entrance':gt 'poli', 'start'
  96. end
  97. end
  98. if pcs_willpwr < pcs_intel * 5 + pcs_sprt * 5:
  99. act 'See a therapist (1:00)':
  100. *clr & cla
  101. menu_off = 1
  102. minut += 60
  103. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5 + 1000
  104. pcs_mood = 100
  105. if hosprand = 0:gt 'poli', '0'
  106. if hosprand = 1:gt 'poli', '1'
  107. if hosprand = 2:gt 'poli', '2'
  108. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/therapy1.jpg"></center>'
  109. 'You lie down on the therapist''s couch and tell him all about your troubles. You immediately feel much better, but the therapist seems to be in a state of shock.'
  110. act 'Return to the entrance':gt 'poli', 'start'
  111. end
  112. end
  113. if tabletkishot < 5 and money >= 750 and knowpreg = 0:
  114. act 'Get a birth control shot for 750 <b>₽</b> (0:15)':
  115. *clr & cla
  116. menu_off = 1
  117. minut += 15
  118. money -= 750
  119. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  120. 'You are escorted into an examination room, where you are told that say have to do a small test before giving you the shot. You wait for fifteen minutes before the nurse comes back in.'
  121. if preg = 0:
  122. tabletkishot = rand(84,91)
  123. shotdays = 84
  124. tabletkicheck = 2
  125. pillcon = 40000
  126. pillcon2 = 40000
  127. '"Everything looks great." She says and 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!"'
  128. '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..."'
  129. else
  130. '"I''m sorry, but we can''t give you the shot, because you''re pregnant."'
  131. 'After the initial shock subsides you pay the 750 <b>₽</b> for the test and leave.'
  132. thinkpreg = 1
  133. knowpreg = 1
  134. end
  135. gs 'stat'
  136. act 'Leave the clinic': minut += 5 & gt 'street'
  137. act 'Return to the entrance': gt 'poli', 'start'
  138. end
  139. end
  140. act 'Go to the STD clinic':gt 'poli', 'stdclinic'
  141. if money >= 15000 and preg = 1 and pregchem < 1863 and knowpreg = 1:
  142. act 'Get an abortion (15,000 <b>₽</b>)':
  143. cla
  144. menu_off = 1
  145. vidage += 1
  146. abort += 1
  147. abortionbirthdate = daystart
  148. money -= 15000
  149. pregtime = 0
  150. pregtalk = 0
  151. pcs_pregtalk = 0
  152. npc_pregtalk['A16'] = 0
  153. npc_pregtalk['A34'] = 0
  154. preg = 0
  155. thinkpreg = 0
  156. knowpreg = 0
  157. cycle = 4
  158. !! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~2-3 weeks
  159. RecovH = rand(375,575)
  160. pregchem = 0
  161. knowpregloss = 2
  162. abortrand = rand(0, 10)
  163. if age > 18:
  164. if abortrand < 10:sterilewb += 1
  165. if abortrand = 10:sterilewb += 10
  166. else
  167. if abortrand < 7:sterilewb += 2
  168. if abortrand >= 7:sterilewb += 10
  169. end
  170. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/abort.jpg"></center>'
  171. 'You spread out on a gynecological chair, from which angle you are fortunate not to be able to see what is going on. You feel nauseous and violated. A nurse hands you a single aspirin and a glass of muddy-looking water to down it with.'
  172. preg = 0
  173. thinkpreg = 0
  174. knowpreg = 0
  175. pcs_hydra += 20
  176. !! I am not sure, why is it here this cycle, but I leave it so (rachels)
  177. nextbaby = arrsize('yearkid')
  178. if broodcurse > 0: over = 13 & gt'gameover'
  179. :poliabortloop
  180. !!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
  181. if yearkid[nextbaby-1] = 0:
  182. KILLVAR 'polkid',nextbaby-1
  183. KILLVAR '$kidname',nextbaby-1
  184. KILLVAR 'kidage',nextbaby-1
  185. KILLVAR 'daykid',nextbaby-1
  186. KILLVAR 'monthkid',nextbaby-1
  187. KILLVAR 'yearkid',nextbaby-1
  188. KILLVAR 'Babyptype',nextbaby-1
  189. KILLVAR '$ChildFath',nextbaby-1
  190. KILLVAR '$ChildThFath',nextbaby-1
  191. KILLVAR 'hairkid',nextbaby-1
  192. KILLVAR 'eyeskid',nextbaby-1
  193. KILLVAR 'cumarrcon',nextbaby-1
  194. KILLVAR '$wombpotfath'
  195. BabyEmbryo -= 1
  196. end
  197. nextbaby -= 1
  198. if nextbaby > 0:
  199. jump 'poliabortloop'
  200. end
  201. act 'Return to the entrance':gt 'poli', 'start'
  202. end
  203. end
  204. if preg = 2:
  205. act 'Give birth':
  206. *clr & cla
  207. menu_off = 1
  208. if kid > 0:minut += rand(300,660) else minut += rand(120,480)
  209. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/birthing.jpg"></center>'
  210. 'You lay on the bed and your feet are put in stirrups.'
  211. 'Your contractions get closer and closer, and after some time (and a lot of swearing) you finally give birth.'
  212. :multikidloop
  213. minut += rand(30,90)
  214. sterilewb += 1
  215. nextbaby = arrpos('$kidname', 'unborn')
  216. kid += 1
  217. BabyEmbryo -= 1
  218. daykid[nextbaby] = day
  219. monthkid[nextbaby] = month
  220. yearkid[nextbaby] = year
  221. if polkid[nextbaby] = 0:$polreb[nextbaby] = 'girl' & '"Congratulations it''s a girl. What is her name?"'
  222. if polkid[nextbaby] = 1:$polreb[nextbaby] = 'boy' & '"Congratulations it''s a boy. What is his name?"'
  223. wait 350
  224. $kidname[nextbaby] = input("Enter your <<$polreb[nextbaby]>>''s name")
  225. 'The doctors clean up <<$kidname[nextbaby]>>.'
  226. if $kidname[nextbaby] = '':
  227. if polkid[nextbaby] = 0:$kidname[nextbaby] = 'Masha'
  228. if polkid[nextbaby] = 1:$kidname[nextbaby] = 'Misha'
  229. end
  230. 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'
  231. preg = 0
  232. !! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is ~6-10 weeks
  233. RecovH = rand(1175,1875)
  234. pregbirthdate = daystart
  235. thinkpreg = 0
  236. knowpreg = 0
  237. knowpregrecover = 1
  238. vidage += 1
  239. pregtalk = 0
  240. pcs_pregtalk = 0
  241. npc_pregtalk['A16'] = 0
  242. npc_pregtalk['A34'] = 0
  243. pregchem = 0
  244. cycle = 4
  245. gs 'cum_cleanup', 'reset'
  246. dynamic $d_cycreport_choice
  247. gs 'stat'
  248. act 'Return to the entrance':gt 'poli', 'start'
  249. end
  250. end
  251. if sick > 0 and polisickday ! daystart:
  252. if ninelsex = 0:
  253. act 'See a Doctor':
  254. *clr & cla
  255. polisickday = daystart
  256. terrnd = rand(0, 1)
  257. if terrnd = 0:gt 'poli', 'drPP'
  258. if terrnd = 1:gt 'poli', 'ninel'
  259. end
  260. else
  261. act 'See Dr. Ninel':
  262. *clr & cla
  263. polisickday = daystart
  264. gt 'poli', 'ninel2'
  265. end
  266. end
  267. end
  268. if sick <= 0 and pcs_horny >= 90 and ninelsex >= 1 and ninelday ! daystart:
  269. act 'Look for Dr. Ninel':
  270. *clr & cla
  271. ninelday = daystart
  272. ninelrand = rand(0, 2)
  273. if ninelrand = 0:
  274. 'At the reception desk you are told that Dr. Ninel is in her office.'
  275. act 'Go to Dr. Ninel':gt 'poli', 'ninel3'
  276. elseif ninelrand = 1:
  277. 'At the reception desk you are told that Dr. Ninel can''t see you today.'
  278. act 'Leave the clinic': minut += 5 & gt 'street'
  279. elseif ninelrand = 2:
  280. 'At the reception desk you are told that Dr. Ninel is making house calls today.'
  281. act 'Leave the clinic': minut += 5 & gt 'street'
  282. end
  283. end
  284. end
  285. if cumcondslip > 0 and cumcondslip_aware > 0:
  286. act 'See a Doctor':
  287. *clr & cla
  288. gt 'poli', 'drPP'
  289. end
  290. end
  291. if katjob > 0:act 'Visit the chief doctor': gt 'poli', 'glavdoc'
  292. if pcs_teeth > -1:
  293. act 'Go to the dentist':
  294. *clr & cla
  295. menu_off = 1
  296. zubpay = pcs_teeth * 30000
  297. gs 'stat'
  298. if pcs_teeth = 0:
  299. zubpay = 30000
  300. 'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to straighten and polish your teeth.'
  301. elseif pcs_teeth = 1:
  302. 'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to replace your tooth'
  303. else
  304. 'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to fill the gaps'
  305. end
  306. if money >= zubpay:
  307. act 'Sort out you teeth':
  308. *clr & cla
  309. money -= zubpay
  310. minut += 60
  311. gs 'body_shape', 'basebeautycalc', 1
  312. gs 'stat'
  313. if pcs_teeth > 0:
  314. pcs_teeth = 0
  315. 'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
  316. else
  317. pcs_teeth = -1
  318. 'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
  319. end
  320. act 'Leave the clinic': minut += 5 & gt 'street'
  321. end
  322. end
  323. act 'Leave the clinic': minut += 5 & gt 'street'
  324. end
  325. end
  326. if pcs_ass > 5:
  327. act 'Go to the proctologist (0:15)':
  328. *clr & cla
  329. menu_off = 1
  330. minut += 15
  331. if analplugIN ! 0:analplugIN = 0
  332. gs 'stat'
  333. '<center><img <<$set_imgh>> src="images/pc/body/anus/<<anpic>>.jpg"></center>'
  334. 'You go to the office to the proctologist. He immediately asks you to remove all clothes from your lower body and bend over a table.'
  335. if pcs_ass <= 15:
  336. 'The doctor examines your anus and says: "Hmm... slightly distended, but no abnormalities."'
  337. elseif pcs_ass > 15 and pcs_ass <= 25:
  338. 'The doctor examines your anus and says: "Hmm... your anus and sphincter appear to have stretched beyond their normal capabilities. I would recommend massage therapy, 1,000 <b>₽</b> per session. This will help restore the anus to its normal size."'
  339. elseif pcs_ass > 25 and pcs_ass <= 35:
  340. 'The doctor examines your anus and says: "Oh my... you have a greatly distended anus, and most likely your sphincter is not able to close fully either? I would recommend massage therapy, 1,000 <b>₽</b> per session. This will help restore the anus to its normal size."'
  341. elseif pcs_ass > 35:
  342. 'The doctor examines your anus and says: "Oh my God! In all my years, I have never seen anything like this! You''ll have to be careful not to cough, or your guts could fall out!"'
  343. 'He chuckles at his own joke, and continues: "I''m sorry, that was unprofessional of me. However, I would strongly recommend we start massage therapy right away to restore the area, it''s 1,000 <b>₽</b> per session. This will in time help restore the anus to its normal size, but it''ll take more than a few sessions."'
  344. end
  345. if money >= 1000 and pcs_ass > 15 and proktologday ! daystart:
  346. act 'Massage therapy (1:00)':
  347. *clr & cla
  348. money -= 1000
  349. minut += 60
  350. proktologday = daystart
  351. pcs_ass -= 5
  352. gs 'stat'
  353. '<center><img <<$set_imgh>> src="images/pc/body/anus/<<anpic>>.jpg"></center>'
  354. 'You pay for the massage therapy and the doctor spends an hour carefully massaging your anal muscles, occasionally rubbing some ointment on them. It really isn''t as much fun as it looked in the brochure.'
  355. act 'Leave the clinic': minut += 5 & gt 'street'
  356. end
  357. end
  358. act 'Leave the clinic': minut += 5 & gt 'street'
  359. end
  360. end
  361. if glassqw = 1:
  362. act'Visit the optometrist (0:35)':
  363. *clr & cla
  364. menu_off = 1
  365. minut += 35
  366. gs'stat'
  367. 'The optometrist takes you through a series of tests, to measure the condition of your eyes.'
  368. '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."'
  369. pcs_nerd += 1
  370. glassqw = 2
  371. glass = 1
  372. blizoruk += 1
  373. act 'Return to the entrance':gt 'poli', 'start'
  374. end
  375. end
  376. if glass > 0:
  377. act 'Go to the optometrist':
  378. *clr & cla
  379. menu_off = 1
  380. gs 'stat'
  381. 'The optometrist examines your eyes and says that he can perform laser eye surgery for 75,000 <b>₽</b>. Of course, reading books can cause your eyesight to deteriorate again.'
  382. if glass = 1:'The doctor adds, there is also the option to buy glasses for 4,500 <b>₽</b>.'
  383. act 'Return to the entrance':gt 'poli', 'start'
  384. if glass = 1:
  385. if money >= 4500:
  386. act 'Buy glasses (4,500 <b>₽</b>)':
  387. cls
  388. money -= 4500
  389. minut += 60
  390. glass = 2
  391. gs 'stat'
  392. 'You buy a new, more stylish pair of glasses.'
  393. act 'Return to the entrance':gt 'poli', 'start'
  394. end
  395. else
  396. *nl
  397. 'You can not afford the more stylish glasses.'
  398. end
  399. end
  400. if glass ! 0:
  401. if money >= 75000:
  402. act 'Pay for laser correction (75,000 <b>₽</b>)':
  403. cls
  404. money -= 75000
  405. minut += 60
  406. blizoruk = 0
  407. glass = 0
  408. gs 'stat'
  409. 'You undergo laser eye surgery. Your eyesight is much better now.'
  410. act 'Return to the entrance':gt 'poli', 'start'
  411. end
  412. else
  413. *nl
  414. 'You can not afford the laser eye correction surgery.'
  415. end
  416. end
  417. end
  418. end
  419. end
  420. if $ARGS[0] = 'stdclinic':
  421. $menu_arg = $ARGS[0]
  422. menu_off = 0
  423. *clr & cla
  424. '<center>The STD Clinic</center>'
  425. *nl
  426. 'You notice an advertisement In the waiting room.'
  427. *nl
  428. ' Private Sexually Transmitted Disease Clinic provides the following test and treatments.'
  429. ' STD test - 1,000 <b>₽</b>'
  430. ' Complete cure for herpes - 45,000 <b>₽</b>.'
  431. ' Complete cure of syphilis - 60,000 <b>₽</b>.'
  432. ' Complete cure for yeast infection - 15,000 <b>₽</b>.'
  433. ' Treatment requires hospitalization on first Monday of each month.'
  434. act 'Leave':gt 'poli', 'start'
  435. if money >= 1000: act 'Take STD test (1,000 <b>₽</b>)': gt 'poli', 'stdcheck'
  436. if GerpesNapr > 0 and money >= 450 and GerpesUkolDay ! daystart:
  437. act 'Get herpes shot (450 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the treatment.':
  438. *clr & cla
  439. menu_off = 1
  440. money -= 450
  441. minut += 60
  442. GerpesUkolDay = daystart
  443. GerpesNapr -= 1
  444. gs 'stat'
  445. 'You see the nurse and she gives you a painful injection in your ass.'
  446. if GerpesNapr = 0:Gerpes = -10 & 'You have completed the treatment.'
  447. act 'Leave':gt 'poli', 'start'
  448. end
  449. end
  450. if TriperNapr > 0 and money >= 750 and TriperUkolDay ! daystart:
  451. act 'Get gonorrhea shot (750 <b>₽</b>). You need <<TriperNapr>> more injections to complete the treatment.':
  452. *clr & cla
  453. menu_off = 1
  454. money -= 750
  455. minut += 60
  456. TriperUkolDay = daystart
  457. TriperNapr -= 1
  458. gs 'stat'
  459. 'You see the nurse and she gives you a painful injection in your ass.'
  460. if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the treatment.'
  461. act 'Leave':gt 'poli', 'start'
  462. end
  463. end
  464. if money >= 1000 and SifNapr = 1:
  465. act 'Get syphilis shot (1,000 <b>₽</b>).':
  466. *clr & cla
  467. menu_off = 1
  468. money -= 1000
  469. minut += 60
  470. SifNapr = 0
  471. SifacOnce = 0
  472. Sifilis = 0
  473. Venera -= 1
  474. gs 'stat'
  475. 'You see the nurse and she gives you a painful injection in your ass.'
  476. '"That''s it, you might still feel a bit off but the infection is now cured".'
  477. act 'Leave':gt 'poli', 'start'
  478. end
  479. end
  480. if GerpesOnce = 1 and money >= 45000 and week = 1 and day <= 10:
  481. act 'Go to private clinic and completely cure your herpes (45,000 <b>₽</b>)':
  482. cla
  483. menu_off = 1
  484. money -= 45000
  485. day += 3
  486. week += 3
  487. GerpesOnce = 0
  488. Gerpes = 0
  489. OrHerpes = 0
  490. GenHerpes = 0
  491. Venera -= 1
  492. gs 'stat'
  493. 'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
  494. 'After a long recovery, you have been completely cured of your herpes.'
  495. act 'Leave':gt 'poli', 'start'
  496. end
  497. end
  498. if KandidozOnce = 1 and money >= 15000 and week = 1 and day <= 10:
  499. act 'Go to private clinic and completely cure your yeast infection. (15,000 <b>₽</b>)':
  500. cla
  501. menu_off = 1
  502. money -= 15000
  503. day += 3
  504. week += 3
  505. KandidozOnce = 0
  506. Kandidoz = 0
  507. gs 'stat'
  508. 'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
  509. 'After a long recovery, you have been completely cured of your thrush.'
  510. act 'Leave':gt 'poli', 'start'
  511. end
  512. end
  513. end
  514. if $ARGS[0] = 'stdcheck':
  515. *clr & cla
  516. menu_off = 1
  517. money -= 1000
  518. minut += 60
  519. gs'stat'
  520. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
  521. 'After waiting for some time, you get to see the doctor'
  522. 'The doctor asks you to undress.'
  523. act 'Undress':
  524. *clr & cla
  525. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cj53ti24.jpg"></center>'
  526. 'You undress and the doctor asks you lie on the table.'
  527. act 'Lie down':
  528. *clr & cla
  529. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  530. 'You lie on the table and wait as the doctor makes his preparations for the tests.'
  531. act 'Wait':
  532. *clr & cla
  533. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/zw61kh75.jpg"></center>'
  534. 'The doctor first monitors your heart rate then checks your breasts for lumps.'
  535. act 'Further':
  536. *clr & cla
  537. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bn72qy99.jpg"></center>'
  538. 'The doctor examines your genitals externally and internally, carrying out several tests.'
  539. if money >= 10000 and rand(1,100) >= 97:
  540. *clr & cla
  541. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  542. 'While you''re lying on an examination table staring at the ceiling, you notice there is a hidden camera in the corner.'
  543. act 'Ask him why he''s filming your examination':
  544. *clr & cla
  545. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
  546. 'The doctor, unfazed, speaks in a calm voice: "Oh, you noticed that huh? The camera is there for your safety as well as mine, miss. I''ve been accused of molestation before."'
  547. '"Then it hit me: people on the internet pay good money to see my examinations! Two birds with one stone, right?" he continues. After a moment of silence he adds with a wicked grin: "Okay... since you spotted the camera, I''ll offer you a choice. If you give me 10.000 <b>₽</b> I''ll delete the footage, as if you were never here. I''d be losing a lot of income, so that''s only fair."'
  548. 'Before you can reply he adds: "Or if you don''t mind being watched by a few thousand people who you''ll probably never meet anyway, I can give you... 3000 <b>₽</b> to keep quiet. It''s your call."'
  549. act 'Pay him to delete the footage':gt 'poli', 'ven1'
  550. act 'Take the bribe':gt 'poli', 'ven2'
  551. act 'Threaten to report him':
  552. *clr & cla
  553. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
  554. 'The doctor brings his face very close to yours and hisses: "Look at where you are, bitch! You better shut your fucking mouth right now, I can make you disappear just like THAT and everyone would be none the wiser!" He snaps his fingers for emphasis. "I made you a very generous offer, don''t make me regret that. An unfortunate ''complication'' is easy to arrange..."'
  555. 'Then he becomes his calm self again and sighs: "Anyway, let''s forget what you just said and start over. Are you going to compensate me for having to delete the footage?"'
  556. act 'Pay him to delete the footage':gt 'poli', 'ven1'
  557. act 'Take the bribe':gt 'poli', 'ven2'
  558. act 'Try to escape':gt 'poli', 'ven3'
  559. end
  560. end
  561. else
  562. if venera > 0:'The doctor frowns and tells you that the test did not go well.'
  563. if GerpesOnce = 1:
  564. 'You have genital herpes. The cure for this disease is very expensive but it is only active some of the time.'
  565. if Gerpes >= 3:
  566. if GerpesNapr = 0:GerpesNapr = 3 & 'I''m going to put you on a course of herpes shots. You''ll need a total of 3 injections (no more than 1 a day), each injection will cost 750 <b>₽</b>.'
  567. if GerpesNapr > 0:'You need to see the nurse for your herpes injections.'
  568. else
  569. 'Your herpes are in an inactive stage, take vitamins and it won''t show itself.'
  570. end
  571. end
  572. if SifacOnce = 1:
  573. sifNapr = 1
  574. 'You have syphilis. The cure for this disease used to be expensive. However, this deadly disease can now be with a single shot.'
  575. 'The injection will cost 1,000 <b>₽</b>, you need to see the nurse for your syphilis injection.'
  576. end
  577. if TriperOnce = 1:
  578. 'We found gonorrhea. In principle, this disease is curable.'
  579. 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>'
  580. if SifNapr > 0:'You need to see the nurse for your gonorrhea injections.'
  581. end
  582. if KandidozOnce = 1:
  583. 'You have an yeast infection. The cure for this disease is very expensive, but it''s not that harmful and can easily be suppressed.'
  584. if KandidNapr = 0:KandidNapr = 1 & 'You can buy pills in the pharmacy.'
  585. if Kandidoz < 30:'Your thrush is currently in remission, take vitamins, and it will stay that way.'
  586. end
  587. if venera <= 0:'Doctor is pleased that you do not have a sexually transmitted disease.'
  588. act 'Leave':gt 'poli', 'stdclinic'
  589. end
  590. end
  591. end
  592. end
  593. end
  594. end
  595. if $ARGS[0] = 'ven1':
  596. *clr & cla
  597. menu_off = 1
  598. money -= 10000
  599. gs'stat'
  600. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  601. 'You lie down, almost crying, mulling over the doctor''s words again and again in your head. You know it is not fair, but you can''t allow these images to go public and decide to pay him to delete the footage.'
  602. 'You pull the money from your wallet and give it to him, hoping he''ll keep true to his word...'
  603. act 'Return to the lobby':gt'poli','start'
  604. end
  605. if $ARGS[0] = 'ven2':
  606. *clr & cla
  607. menu_off = 1
  608. money += 3000
  609. sub += 1
  610. gs'stat'
  611. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  612. 'You lie down, almost crying, mulling over the doctor''s words again and again in your head. After a while you decide that you want the money... you probably won''t be recognized, and even if you do: you can always pretend you didn''t know you were being filmed?'
  613. 'The doctor seems somewhat surprised to hear your answer, but gives you the money as promised. He grins: "Don''t worry, most of my subscribers don''t live in the city. Maybe a hundred, tops... what are the odds of you running into one of them the coming weeks?"'
  614. act 'Leave his office':gt'poli','start'
  615. end
  616. if $ARGS[0] = 'ven3':
  617. *clr & cla
  618. menu_off = 1
  619. over = 9
  620. gs'stat'
  621. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  622. 'The only thing you want to do now is get out of here! You can file a complaint later...'
  623. '"Stop her! Stop her right now, she''s dangerous!" the doctor yells as you head for the door, trying to escape. Unfortunately for you, several staff members happened to be in the hallway as you tried to make your escape, who instantly spring to their colleague''s aid.'
  624. 'The doctor is only a few steps behind you, planting a syringe in your neck and injecting you with a liquid before you can tell them what''s happening. As your vision goes blurry and your body goes limp, you hear the doctor say: "That was close! She''s not well in the head and has these fits of violent rage because of her drug addiction! Thank you friends, I can take it from here."'
  625. 'He scoops you up in his arms and carries your limp body back to his office.'
  626. '"Yet another overdose victim, so sad..." he mumbles to himself once the door is closed.'
  627. act 'Continue':gt'gameover'
  628. end
  629. if $ARGS[0] = 'drPP':
  630. *clr & cla
  631. menu_off = 1
  632. minut += rand(3, 10)
  633. gs 'stat'
  634. 'You sit in the corridor with coughing and sick old women, waiting for your appointment.'
  635. 'Finally, it''s your turn.'
  636. act 'See the doctor':
  637. *clr & cla
  638. $ImageNeededPlacholder
  639. !! WD: IMAGE NEEDED ~ '<center><img src="images/system/image_needed.png"></center>'
  640. if drPP = 0:'At the desk sits a timely, old bald man. "My name is Peter, I am your local doctor. What seems to be the problem?" he says, while adjusting his glasses.'
  641. if drPP = 1:'Peter is sitting at his desk. He smiles at you and says, "Hello, are you unwell?"'
  642. drPP = 1
  643. '"Hello, doctor." you reply.'
  644. '"What are the symptoms?" the doctor asks.'
  645. if cumcondslip > 0 and cumcondslip_aware > 0:
  646. act 'Explain':
  647. cla
  648. *clr
  649. minut += 5
  650. '"Well, Doctor, I feel nauseous during the day."'
  651. '"Do you have a ghostly sensation deep inside?"'
  652. '"Yes, a little."'
  653. '"Well, let''s take a look at you."'
  654. act 'Get examined':
  655. cla
  656. minut += 15
  657. gs 'cum_cleanup', 'cleanloc', 17
  658. cumcondslip = 0
  659. gs 'stat'
  660. 'The doctor quickly examines you, and establishes that you are suffering from toxic shock from a spent condom in your body.'
  661. 'He explains: "I removed the condom as soon as I found it. You might still feel sick for another while, but the feeling should slowly subside."'
  662. 'You thank the doctor.'
  663. act 'Leave the clinic': minut += 5 & gt 'street'
  664. end
  665. end
  666. else
  667. act 'Explain':
  668. cla
  669. *clr
  670. minut += 5
  671. '"Well, Doctor, I think it''s a cold, I have a blocked nose, sore throat and a cough."'
  672. '"Do you have a temperature?"'
  673. '"Yes, a little hot."'
  674. '"Well, let''s take a look at you."'
  675. act 'Get examined':
  676. cla
  677. minut += 20
  678. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
  679. 'The doctor listens to your lungs, looks down your throat and sticks a thermometer in your mouth. 60 seconds later, he removes the thermometer and says,'
  680. '"Don''t worry is just the common cold. Get some vitamins in the drugstore, have a couple days of bed rest and everything will be alright. Make sure to keep warm!"'
  681. 'You thank the Doctor.'
  682. act 'Leave the clinic': minut += 5 & gt 'street'
  683. end
  684. end
  685. end
  686. end
  687. end
  688. if $ARGS[0] = 'ninel':
  689. *clr & cla
  690. menu_off = 1
  691. minut += rand(3, 15)
  692. gs 'stat'
  693. 'You sit in the corridor with sick old women who are coughing, waiting for your appointment.'
  694. 'Finally, it''s your turn.'
  695. act 'See the doctor':
  696. *clr & cla
  697. if ninelmet = 0:'A pretty young girl, in a light robe, sits at the desk. The robe is unbuttoned so that it does not hide her small but beautiful breasts. "Hello My name is Ninel Pavlovna, I am replacing your local physician" she said, scrutinizing you.'
  698. if ninelmet = 1:'Ninel is sitting at her desk. She smiles at you and says, "Hello, dear."'
  699. if pcs_horny < 30:
  700. act 'Greet doctor':
  701. *clr & cla
  702. ninelmet = 1
  703. minut += 5
  704. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam00.jpg"></center>'
  705. '"Good afternoon. What are the symptoms?"'
  706. '"Well, Doctor, I think it''s a cold, I have a blocked nose, sore throat and a cough."'
  707. '"Do you have a temperature?'
  708. '"Yes, a little hot."'
  709. '"I''ll need to examine you. Undress.'
  710. act 'Get examined':
  711. *clr & cla
  712. minut += 20
  713. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam01.jpg"></center>'
  714. 'The doctor listens to your lungs, looks down your throat and sticks a thermometer in your mouth. 60 seconds later, she removes the thermometer and says,'
  715. '"Don''t worry is just a common cold. Buy some vitamins in the drugstore, have a couple days of bed rest and everything will be alright. Make sure to keep warm."'
  716. 'You thank the Doctor.'
  717. act 'Go home': minut += 5 & gt 'street'
  718. end
  719. end
  720. else
  721. act 'Hello, Doctor':
  722. *clr & cla
  723. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam10.jpg"></center>'
  724. '"Good afternoon. What are the symptoms?"'
  725. '"Well, Doctor, I think it''s a cold, I have a blocked nose, sore throat and a cough."'
  726. '"Do you have a temperature?"'
  727. '"Yes, I''m very hot."'
  728. '"Undress. Fully."'
  729. act 'Undress':
  730. *clr & cla
  731. pcs_horny += 10
  732. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam12.jpg"></center>'
  733. 'You stand before the doctor completely naked and try to cover yourself with your hands.'
  734. 'The doctor looks at you and gently hugs your shoulders.'
  735. '"Don''t worry, my dear no need to be shy. I''m a doctor. What''s your name?"'
  736. '"<<$pcs_nickname>> ..."'
  737. '"Trust me, <<$pcs_nickname>>. I will heal you. First you need to breathe deeply."'
  738. act 'Breathe':
  739. *clr & cla
  740. pcs_horny += 10
  741. gs 'stat'
  742. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam13.jpg"></center>'
  743. 'Dr. Ninel listens to your lungs. Her hands are light and gentle, pressing the stethoscope against your chest.'
  744. 'To your surprise, this is quite erotic.'
  745. '"There we go. Now open your mouth and say ah..."'
  746. act 'Ah...':
  747. *clr & cla
  748. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam14.jpg"></center>'
  749. 'You open your mouth and the doctor examines your throat. Did she stick her tongue out at you?'
  750. '"OK. Now let''s take your temperature. Sit on the couch and spread your legs."'
  751. '"Why?"'
  752. '"I need to measure rectally as your throat is inflamed."'
  753. 'The fear on your face is palpable'
  754. '"Don''t worry, it doesn''t hurt."'
  755. act 'Sit on couch':
  756. *clr & cla
  757. gs 'stat'
  758. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam15.jpg"></center>'
  759. 'The doctor arranges your position on the couch, much to your embarrassment. She smears lubricant between your legs and gently sticks a thermometer into your ass. It really does not hurt, in fact it''s even pleasant.'
  760. 'The doctor begins to slowly move the thermometer back and forth in your ass and with her other hand appears to stroke your pussy. Thanks to her dexterous fingers her touch is so gentle you aren''t sure.'
  761. 'Either way you are getting more excited. Your nipples harden, your pussy is making the doctor''s hand wet...'
  762. gs 'arousal', 'vaginal_finger', 10, 'sub'
  763. gs 'arousal', 'anal_dildo', 10, 'sub'
  764. minut -= 10
  765. gs 'stat'
  766. act 'This doesn''t seem normal':
  767. *clr & cla
  768. gs 'stat'
  769. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam16.jpg"></center>'
  770. 'The doctor takes the thermometer out of your ass and begins to openly caress your pussy.'
  771. 'You are confused and horrified by her behavior, but she is so gentle, and you are so excited that you simply can not resist.'
  772. 'You just about stutter, "Doctor, what are you doing? What''s going on?"'
  773. '"There it is! I knew immediately that you were one of us, and therefore I can use this power quietly."'
  774. '"So you''re a magician, too?"'
  775. '"Yes, my special magic is tantric. Heard of it?"'
  776. '"No, I''ve never heard of..."'
  777. '"It''s magic based on sensuality and sex. Roughly speaking, I can cast only when extremely aroused."'
  778. '"So ..?"'
  779. '"Basically, if we have sex, I can heal you. So, can I heal you?"'
  780. '"Depends what you want in return."'
  781. '"Nothing. Well, not exactly nothing, you see my gift has a pretty big drawback: I can only have orgasms when I conjure."'
  782. '"Then of course I agree."'
  783. '"Good, kneel on the couch."'
  784. gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian'
  785. gs 'stat'
  786. act 'Kneel on couch':
  787. *clr & cla
  788. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam17.jpg"></center>'
  789. 'You kneel down and face away from Ninel. She takes off her robe, revealing her stockings then you gasp as you see her strap-on.'
  790. 'Dr. Ninel lubes the dildo and with your pussy already well lubricated she grins,'
  791. '"Well, baby, it''s curing time!"'
  792. act 'Brace yourself':
  793. *clr & cla
  794. minut += 10
  795. pcs_horny = 100
  796. gs 'stat'
  797. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam18.jpg"></center>'
  798. 'With unnatural strength shes drives the dildo into your pussy.'
  799. 'You gasp in surprise at the rough treatment, how can someone with such soft hands...Suddenly she finds a perfect stroke and the initial pain turns to pleasure.'
  800. 'Doctor keeps fucking you confidently, moaning with every jolt she seems to be enjoying it as much as you, and you are ecstatic. The unusual situation and Ninel''s skill quickly brings you to your peak.'
  801. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  802. gs 'stat'
  803. act 'Ride the wave!':
  804. *clr & cla
  805. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam19.jpg"></center>'
  806. '"I''m going to cum!", You shout. "Please, please, please!"'
  807. 'Ninel rolls onto the couch, pulling you with her. You find yourself on top and start jumping up and down frantically on the artificial penis, screaming and grinding in almost unbearable pleasure.'
  808. 'A few more movements, you cum, screaming and twitching in an incredibly long orgasm.'
  809. '"Now it''s my turn. Come on, girl."'
  810. $orgasm_or = 'yes'
  811. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  812. gs 'stat'
  813. act 'Return the favor':
  814. *clr & cla
  815. ninelsex += 1
  816. if ninelsex = 1:girl += 1
  817. pcs_vag += 1
  818. sick = 0
  819. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  820. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5 + 1000
  821. pcs_mood = 100
  822. gs 'stat'
  823. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam19a.jpg"></center>'
  824. 'Ninel removes the strap-on and you press your face to her soaking wet pussy. It doesn''t take long for your efforts to bring Ninel to orgasm. She screams and digs her nails into her own knees as your face is covered by her squirting orgasm.'
  825. gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
  826. gs 'stat'
  827. act 'Dress':
  828. cla
  829. *clr
  830. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam11.jpg"></center>'
  831. 'With trembling hands, you start to pull on your panties. Ninel already slipped her robe back on, only her flushed face betraying her apparent innocence.'
  832. '"So...how do you feel?"'
  833. '"Ooh...Just perfect," you answer and only then realize how right you are. The sickness has disappeared, you are fully healthy and in good spirits. Even your mood has improved.'
  834. '"Well, you see. It''s magic, baby. Mm-m ... You''re especially full of it, I don''t normally get so much pleasure. If you get sick again, please come and see me or phone me."'
  835. '"If you like, we could spend some time together, look for me in the clinic."'
  836. 'You promise to be sure to find her, clean up and leave.'
  837. gs 'arousal', 'end'
  838. gs 'stat'
  839. act 'Leave the clinic': minut += 5 & gt 'street'
  840. end
  841. end
  842. end
  843. end
  844. end
  845. end
  846. end
  847. end
  848. end
  849. end
  850. end
  851. end
  852. end
  853. end
  854. if $ARGS[0] = 'ninel2':
  855. *clr & cla
  856. menu_off = 1
  857. 'You go to the waiting room and Ninel contemptuously ignores the old ladies sitting in the hallway, "No line, come into the office."'
  858. act 'See Dr. Ninel':
  859. *clr & cla
  860. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam00.jpg"></center>'
  861. 'Ninel looks up from some medical notes, knowing you she smiles,'
  862. '"Hi, <<$pcs_nickname>>. Are you sick again?"'
  863. 'Coughing, you respond, "Yeah. Shall we?"'
  864. '"Sure, baby. Undress, I need to examine you first."'
  865. '"Why? You''re a magician..."'
  866. '"Silly. How can you know so little about magic. I have to know what I''m treating, or I''m just as likely to do more harm than good, magic has a very focused effect."'
  867. '"In that case..."'
  868. act 'Undress':
  869. *clr & cla
  870. pcs_horny += 10
  871. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam02.jpg"></center>'
  872. 'You undress and Ninel listens to your lungs. As usual, her arms are light and tender and touching her stethoscope on your chest has you feeling hot.'
  873. '"Yeah... You''re wheezing alright. Say, aaah."'
  874. act 'Ah...':
  875. *clr & cla
  876. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam03.jpg"></center>'
  877. 'You open your mouth and carefully Ninel inspects your sore throat.'
  878. '"This looks familiar. No question, it''s a cold, do you have a temperature?"'
  879. 'You smile, "Hot."'
  880. '"You''ll like this." Ninel rolls you onto your side and tells you to pull your knees to your chest.'
  881. act 'Hug your knees':
  882. *clr & cla
  883. gs 'stat'
  884. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam04.jpg"></center>'
  885. 'You assume the position and Ninel starts fucking your ass with her thermometer. You get excited, your pussy engorges, and begins to get moist. You moan softly.'
  886. '"Oh, does baby like it? Come on, let''s see how much."'
  887. gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
  888. gs 'arousal', 'anal_dildo', 10, 'sub', 'lesbian'
  889. minut -= 10
  890. gs 'stat'
  891. act 'Roll over':
  892. *clr & cla
  893. gs 'stat'
  894. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam06.jpg"></center>'
  895. 'You roll over onto your back and hold your the legs. Ninel gets a speculum and gently slides it into your vagina. You quietly groan from the stimulation and Ninel echoes your passionate with a heavy sigh.'
  896. 'It looks like your wide-open vulva is massively turning her on.'
  897. gs 'arousal', 'vaginal_dildo', 5, 'sub', 'lesbian'
  898. gs 'stat'
  899. act 'Oh-h ..!':
  900. *clr & cla
  901. pcs_horny = 100
  902. minut += 15
  903. gs 'stat'
  904. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam05.jpg"></center>'
  905. 'Overcome with passion, Ninel quickly takes off her robe, picks up her strap-on from a drawer in her desk and brings it to your lips.'
  906. 'You eagerly suck it, while Ninel''s skilled fingers play with your clit, causing warm waves of pleasure to run through your body.'
  907. '"Fuck me! Now!" You shout. Ninel grins, continuing to tease your clitoris with her hand.'
  908. '"Ask nicely."'
  909. '"Fuck me. I mean, please fuck me."'
  910. '"I''m not convinced, now politely, beg for it."'
  911. gs 'arousal', 'cuni_give', 15, 'sub', 'lesbian'
  912. gs 'arousal', 'vaginal_finger', 15, 'sub', 'lesbian'
  913. minut -= 15
  914. gs 'stat'
  915. act 'Beg for it':
  916. *clr & cla
  917. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam07.jpg"></center>'
  918. '"Please, please! Fuck me! Do with me what you want with me Dr. Ninel, I''m all yours! Just, please do it soon!"'
  919. 'Ninel puts on the strap-on and aggressively drives it home, your bosom blazes with lust. You cry out and lift your feet up, trying to take as much of the phallus as possible.'
  920. 'Ninel fucks you faster, moaning and groaning with every jolt, and you moan and clearly struggle.'
  921. '"On your knees! Turn around!" orders your doctor.'
  922. gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian', 'rough'
  923. gs 'stat'
  924. act 'Obey':
  925. *clr & cla
  926. pcs_vag += 1
  927. sick = 0
  928. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  929. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5 + 1000
  930. pcs_mood = 100
  931. gs 'stat'
  932. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam08.jpg"></center>'
  933. 'Moaning with excitement you get on your knees and lift your ass to Ninel, to make it easier for her, but she is in no hurry.'
  934. '"Come on, take me! Please, I''m almost there!"'
  935. 'However, Ninel orders, "Beg, you need to convince me!"'
  936. '"Please, please, please!" You shout. "Fuck me, Doc! I want to cum! Yes, I''m a whore, your little girl, but please, please, let me finish!"'
  937. 'The strap-on sticks into your inflamed vagina and Ninel goes at it like a jackhammer. Quickly you explode in a wild orgasm. You scream in agony and ecstasy.'
  938. 'Your knees buckle and you fall to the floor shuddering in the throes of sensual release. Ninel just watches as your orgasm seems to last forever...'
  939. 'Finally you end and immediately Ninel commands,'
  940. '"Now you will appease me, my little slut. Come on, you know how!"'
  941. $orgasm_or = 'yes'
  942. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'rough'
  943. gs 'stat'
  944. act 'Oblige':
  945. *clr & cla
  946. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam09.jpg"></center>'
  947. 'She helps you up, then pushes you backwards on to the couch. Removing the strap-on, Ninel climbs over you and sits on your face.'
  948. 'You diligently use your tongue and lips to serve her wide-open pussy and swollen clit. She is screaming and sobbing, rubbing her crotch all across your face, until she finally cums.'
  949. 'She cums with a long, yelling, shaking fervor and abundantly fills your face with her juices.'
  950. gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
  951. gs 'stat'
  952. act 'Wow':
  953. *clr & cla
  954. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam09a.jpg"></center>'
  955. 'When she finishes, Ninel rises and slowly dresses, showing you her perky body. It''s unbelievable, and again excitement rises.'
  956. 'Ninel sees this and smiles.'
  957. '"Oh, no. Enough is enough. But you come in another time for something else and we''ll have some fun.."'
  958. 'You think to yourself that your next illness can''t come soon enough. You are healthy and satisfied, thanks to Ninel.'
  959. gs 'arousal', 'end'
  960. gs 'stat'
  961. act 'Thank Ninel and go': minut += 5 & gt 'street'
  962. end
  963. end
  964. end
  965. end
  966. end
  967. end
  968. end
  969. end
  970. end
  971. end
  972. end
  973. if $ARGS[0] = 'ninel3':
  974. *clr & cla
  975. menu_off = 1
  976. 'You go to the waiting room and Ninel contemptuously ignores the old ladies sitting in the hallway, "No line, come into the office."'
  977. act 'See Doctor':
  978. *clr & cla
  979. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam10.jpg"></center>'
  980. 'Ninel looks up from some medical notes, knowing you she smiles,'
  981. '"Hi, <<$pcs_nickname>>. Again ill?"'
  982. '"Oh, Doctor. My pussy is burning, and leaking juices. Perhaps I am seriously ill."'
  983. '"My poor child. Whatever are we going to do?"'
  984. act 'Tear off your clothes':
  985. *clr & cla
  986. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex01.jpg"></center>'
  987. 'Groaning with impatience you tear off your clothes. Ninel takes off her robe and in front of your face stands her strap-on.'
  988. '"Suck it, baby. Make it hot and wet, just like you."'
  989. 'You wrap your lips around the dildo and start sucking, squishing and covering it in your saliva. You can see this is exciting Ninel.'
  990. gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
  991. gs 'stat'
  992. act 'Fuck me!':
  993. *clr & cla
  994. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex02.jpg"></center>'
  995. 'Remembering that Ninel loves to hear you beg her to fuck you, you do not even need to pretend the desire is literally burnt into you. You beg and plead.'
  996. 'Ninel finally heeds your request. She rudely puts you on your knees and begins to drive the strap-on firmly into your inflamed vagina. You let out screams with each push. Your legs are weakening.'
  997. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  998. gs 'stat'
  999. act 'Fall on the couch':
  1000. *clr & cla
  1001. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex03.jpg"></center>'
  1002. 'You fall on the couch. Ninel knocks you on your side and continues. You drawl and loudly moan, from her chest too comes a deep and bestial growl.'
  1003. '"My God, you as well."'
  1004. '"I can not, it''s too much..!"'
  1005. gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian'
  1006. gs 'stat'
  1007. act 'Ride her':
  1008. *clr & cla
  1009. pcs_mood += 15
  1010. pcs_willpwr += 15
  1011. pcs_vag += 1
  1012. gs 'stat'
  1013. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex04.jpg"></center>'
  1014. 'You obediently change position. Ninel lies back on the couch, and you sit down on top of her and fuck her strap-on.'
  1015. 'You bounce up and down on the strap-on, squealing fingering your clit while Ninel beneath you starts to twitch and moan.'
  1016. 'You see that she can''t hold back any longer, and that works as a trigger - you orgasm.'
  1017. 'For a few seconds, you are competing with Ninel in screams of passion, and then fall exhausted on the couch.'
  1018. '"Thank you, doc. It was great..."'
  1019. '"Oh yeah, <<$pcs_nickname>>. Come again."'
  1020. $orgasm_or = 'yes'
  1021. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  1022. gs 'arousal', 'end'
  1023. gs 'stat'
  1024. act 'Freshen up and go': minut += 5 & gt 'street'
  1025. end
  1026. end
  1027. end
  1028. end
  1029. end
  1030. end
  1031. if $ARGS[0] = 'glavdoc':
  1032. delact 'Visit the clinic''s chief of staff'
  1033. menu_off = 1
  1034. minut += 5
  1035. if workhosp = 0:
  1036. 'You enter the chief of staff''s office and ask him about the job.'
  1037. 'The chief of staff looks at you and says: "Oh yeah, you must be the girl Kat was talking about. You have some experience in the medical field, right? I don''t have much time, so I''ll keep it short and will take her word for it."'
  1038. 'He continues: "You''ll work five days per week, Mondays to Fridays. Your shift begins between 8:00 and 9:00, and finishes around 16:00. Miss a day and you don''t get paid. You''ll get 1.500 <b>₽</b> per shift, and your salary will be deposited onto your back account on the 25th of the month."'
  1039. 'He looks at his watch again and shrugs: "You can sort out the rest of the details with the personnel department later. So, do you want the job?"'
  1040. else
  1041. 'You step into the office of the chief of staff.'
  1042. 'He looks up at you from his paperwork, then smiles: "Ah, Ms. <<$pcs_lastname>>, nice to see you! To what do I owe the please?"'
  1043. end
  1044. ! WD: Uninitialised ~ 'workshop' use 'workhosp'
  1045. if (work = 0 and workhosp = 0 and cheatWork = 0) or (workhosp = 0 and cheatWork = 1):
  1046. act 'Take the job':
  1047. cla
  1048. workhosp = 1
  1049. work = 1
  1050. 'You shake his hand and sort out the paperwork with the personnel department afterwards. Whatever Kat told them must''ve worked, none of them ask any questions about your credentials!'
  1051. 'Five minutes later when you leave the office, you''re holding a shiny new employee pass and a booklet with relevant information.'
  1052. act 'Return to the lobby':gt 'poli', 'start'
  1053. end
  1054. end
  1055. if workhosp = 1:act 'Quit your job':gt 'poli', 'discharge'
  1056. act 'Return to the lobby':gt 'poli', 'start'
  1057. end
  1058. if $ARGS[0] = 'beginwork':
  1059. *clr & cla
  1060. menu_off = 1
  1061. '<center><b><font color="maroon">Clinic</font></b></center>'
  1062. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  1063. 'You enter the clinic, getting ready for a new work day.'
  1064. act 'Start work':
  1065. smena += 1
  1066. gt 'WorkHosp', 'start'
  1067. end
  1068. act 'Quit your job':gt 'poli', 'discharge'
  1069. end
  1070. if $ARGS[0] = 'discharge':
  1071. cla
  1072. menu_off = 1
  1073. minut += 10
  1074. workhosp = 0
  1075. work = 0
  1076. pay = smena * 1000
  1077. money += pay
  1078. smena = 0
  1079. 'The chief of staff looks disappointed as he says: "So... you''re leaving us, huh? That''s a shame. Here is your outstanding pay, <<pay>> <b>₽</b> and your employment history. Take care."'
  1080. act 'Leave the clinic': minut += 5 & gt 'street'
  1081. end
  1082. if $ARGS[0] = '0':
  1083. *clr & cla
  1084. menu_off = 1
  1085. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex1.jpg"></center>'
  1086. 'During the examination, the doctor starts to flirt with you and touch you longer than is necessary, clearly trying to start something intimate.'
  1087. act 'Stop him':gt 'poli', 'start'
  1088. act 'Have some fun':
  1089. picrand = 11
  1090. guy += 1
  1091. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1092. gs 'boyStat', $npclastgenerated
  1093. xgt 'sex', 'var'
  1094. end
  1095. end
  1096. if $ARGS[0] = '1':
  1097. *clr & cla
  1098. menu_off = 1
  1099. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex2.jpg"></center>'
  1100. 'You are examined by two doctors, they touch you everywhere clearly going beyond what is permitted.'
  1101. act 'Storm out':gt 'poli', 'start'
  1102. act 'Have some fun with them':
  1103. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1104. $boy[0] = $npclastgenerated
  1105. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1106. $boy[1] = $npclastgenerated
  1107. picrand = 11
  1108. guy += 2
  1109. xgt 'sexdvoe', 'var'
  1110. end
  1111. end
  1112. if $ARGS[0] = '2':
  1113. *clr & cla
  1114. menu_off = 1
  1115. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex3.jpg"></center>'
  1116. 'Going to the office you catch a nurse kneeling before the doctor with his cock in her mouth.'
  1117. act 'Leave':gt 'poli', 'start'
  1118. act 'Walk in':
  1119. *clr & cla
  1120. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex4.jpg"></center>'
  1121. 'As you walk in, the doctor runs out, and the startled nurse just glares at you. After a moment, her eyes light up and she removes her robe, comes over to you and with one hand grabs your ass as the other reaches up your top to your breast.'
  1122. act 'Leave':gt 'poli', 'start'
  1123. act 'Let her':
  1124. *clr & cla
  1125. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1126. gs 'boyStat', $npclastgenerated
  1127. guy += 1
  1128. girl += 1
  1129. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex5.jpg"></center>'
  1130. 'She pulls down your clothes and bends you over the couch. Then she begins to pleasure your pussy with her tongue'
  1131. gs 'arousal', 'cuni', 10, 'lesbian', 'group'
  1132. gs 'stat'
  1133. act 'Lick her':
  1134. *clr & cla
  1135. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex6.jpg"></center>'
  1136. 'You lay her on the couch and sink your lips into her pussy, the smell of her sex drives you crazy, you could not help but to lick her pussy. You are found in this state by the returning doctor.'
  1137. gs 'arousal', 'cuni_give', 10, 'lesbian', 'group'
  1138. gs 'stat'
  1139. act 'Threesome':picrand = 11 & gt 'podrsex', 'suck'
  1140. end
  1141. end
  1142. end
  1143. end
  1144. if $ARGS[0] = 'cosmetic1':
  1145. menu_off = 1
  1146. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmetic1.jpg"></center>'
  1147. 'You are greeted by a nurse who explains what procedures are available.'
  1148. *nl
  1149. 'Electrolysis will remove your body hair and stop it from growing.'
  1150. 'Fillable breast implants allow you to fill them after the surgery. We stock silicone you use to fill them.'
  1151. 'String implants slowly absorb your body fluids and grow larger over time. We can also drain it for you if it becomes too large.'
  1152. *nl
  1153. if money >= 80000 and lashair = 0:
  1154. '<a href="exec:gt ''poli'', ''electrolysis''">Electrolysis treatment</a> - 80,000 <b>₽</b>'
  1155. else
  1156. 'Electrolysis treatment - 80,000 <b>₽</b>'
  1157. end
  1158. if money >= 25000 and pcs_lip <= 4:
  1159. '<a href="exec:gt ''poli'', ''lipPlus''">Lip enlargement surgery</a> - 25,000 <b>₽</b>'
  1160. else
  1161. 'Lip enlargement surgery - 25,000 <b>₽</b>'
  1162. end
  1163. if money >= 30000 and pcs_lip ! 0:
  1164. '<a href="exec:gt ''poli'', ''lipMin''">Lip reduction surgery</a> - 30,000 <b>₽</b>'
  1165. else
  1166. 'Lip reduction surgery - 30,000 <b>₽</b>'
  1167. end
  1168. if money >= 90000 and pcs_eyesize <= 3:
  1169. '<a href="exec:gt ''poli'', ''eyePlus''">Eye enlargement surgery</a> - 90,000 <b>₽</b>'
  1170. else
  1171. 'Eye enlargement surgery - 90,000 <b>₽</b>'
  1172. end
  1173. if money >= 90000 and pcs_eyesize ! 0:
  1174. '<a href="exec:gt ''poli'', ''eyeMin''">Eye reduction surgery</a> - 90,000 <b>₽</b>'
  1175. else
  1176. 'Eye reduction surgery - 90,000 <b>₽</b>'
  1177. end
  1178. if money >= 75000 and salo > 40:
  1179. '<a href="exec:gt ''poli'', ''lyposuction''">Liposuction</a> - 75,000 <b>₽</b>'
  1180. else
  1181. 'Liposuction - 75,000 <b>₽</b>'
  1182. end
  1183. ''
  1184. if money >= 90000 and silicone ! 0:
  1185. '<a href="exec:brSurTemp = 0 & stringimplant = 0 & fillimplant = 0 & gt ''poli'', ''bImplantA''">Remove breast implants</a> - 90,000 <b>₽</b>'
  1186. else
  1187. 'Remove breast implants - 90,000 <b>₽</b>'
  1188. end
  1189. if money >= 170000 and fillimplant = 0 and stringimplant = 0:
  1190. '<a href="exec:brSurTemp = 10 & gt ''poli'', ''bImplantA''">Get small breast implants</a> - 170,000 <b>₽</b>'
  1191. else
  1192. 'Get small breast implants - 170,000 <b>₽</b>'
  1193. end
  1194. if money >= 180000 and fillimplant = 0 and stringimplant = 0:
  1195. '<a href="exec:brSurTemp = 20 & gt ''poli'', ''bImplantA''">Get medium breast implants</a> - 180,000 <b>₽</b>'
  1196. else
  1197. 'Get medium breast implants - 180,000 <b>₽</b>'
  1198. end
  1199. if money >= 190000 and fillimplant = 0 and stringimplant = 0:
  1200. '<a href="exec:brSurTemp = 30 & gt ''poli'', ''bImplantA''">Get large breast implants</a> - 190,000 <b>₽</b>'
  1201. else
  1202. 'Get large breast implants - 190,000 <b>₽</b>'
  1203. end
  1204. if money >= 200000 and fillimplant = 0 and stringimplant = 0:
  1205. '<a href="exec:brSurTemp = 40 & gt ''poli'', ''bImplantA''">Get XXL breast implants</a> - 200,000 <b>₽</b>'
  1206. else
  1207. 'Get XXL breast implants - 200,000 <b>₽</b>'
  1208. end
  1209. if money >= 200000 and silicone = 0 and fillimplant = 0 and stringimplant = 0:
  1210. '<a href="exec:brSurTemp = 20 & fillimplant = 1 & gt ''poli'', ''bImplantA''">Get fillable implants</a> - 200,000 <b>₽</b>'
  1211. else
  1212. 'Get fillable implants - 200,000 <b>₽</b>'
  1213. end
  1214. if money >= 250000 and silicone = 0 and fillimplant = 0 and stringimplant = 0:
  1215. '<a href="exec:brSurTemp = 20 & stringimplant = 1 & gt ''poli'', ''bImplantA''">Get string implants</a> - 250,000 <b>₽</b>'
  1216. else
  1217. 'Get string implants - 250,000 <b>₽</b>'
  1218. end
  1219. if stringimplant = 1 and silicone >= 30 and money >= 2000:'<a href="exec:silicone -= 10 & money -= 2000 & MSG ''You drain some of your string implant''">Drain string implant</a> - 2,000 <b>₽</b>'
  1220. ''
  1221. if money >= 500:
  1222. '<a href="exec:siliconeBag += 1 & money -= 500 & MSG ''You buy a silicone bag.''">Buy silicone bag</a> - 500 <b>₽</b>'
  1223. else
  1224. 'Buy silicone bag - 500 <b>₽</b>'
  1225. end
  1226. act 'Go back':gt 'poli','start'
  1227. end
  1228. if $ARGS[0] = 'electrolysis':
  1229. *clr & cla
  1230. minut += 120
  1231. pcs_leghair = 0
  1232. pcs_pubes = 0
  1233. lashair = 1
  1234. money -= 80000
  1235. gs 'stat'
  1236. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/electrolysis.jpg"></center>'
  1237. 'The surgeon has you strip completely and lie down on the table. Over next few hours you are treated by a laser over and over again. When the treatment is finished and you get up from the table, your skin feels silky smooth.'
  1238. act 'Continue':gt 'poli', 'cosmetic1'
  1239. end
  1240. if $ARGS[0] = 'lipPlus':
  1241. *clr & cla
  1242. minut += 60
  1243. pcs_lip += 1
  1244. money -= 25000
  1245. gs 'body_shape', 'basebeautycalc', 1
  1246. gs 'stat'
  1247. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1248. 'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
  1249. 'By the time you wake up again, the procedure is complete.'
  1250. act 'Continue':gt 'poli', 'cosmetic1'
  1251. end
  1252. if $ARGS[0] = 'lipMin':
  1253. *clr & cla
  1254. minut += 60
  1255. pcs_lip -= 1
  1256. money -= 30000
  1257. gs 'body_shape', 'basebeautycalc', 1
  1258. gs 'stat'
  1259. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1260. 'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
  1261. 'By the time you wake up again, the procedure is complete.'
  1262. act 'Continue':gt 'poli', 'cosmetic1'
  1263. end
  1264. if $ARGS[0] = 'eyePlus':
  1265. *clr & cla
  1266. minut += 60
  1267. pcs_eyesize += 1
  1268. money -= 90000
  1269. gs 'body_shape', 'basebeautycalc', 1
  1270. gs 'stat'
  1271. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1272. 'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
  1273. 'By the time you wake up again, the procedure is complete.'
  1274. act 'Continue':gt 'poli', 'cosmetic1'
  1275. end
  1276. if $ARGS[0] = 'eyeMin':
  1277. *clr & cla
  1278. minut += 60
  1279. pcs_eyesize -= 1
  1280. money -= 90000
  1281. gs 'body_shape', 'basebeautycalc', 1
  1282. gs 'stat'
  1283. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1284. 'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
  1285. 'By the time you wake up again, the procedure is complete.'
  1286. act 'Continue':gt 'poli', 'cosmetic1'
  1287. end
  1288. if $ARGS[0] = 'lyposuction':
  1289. *clr & cla
  1290. minut += 60
  1291. salo -= 40
  1292. if salo < 11: salo = 11
  1293. money -= 75000
  1294. gs 'body_shape', 'softreset'
  1295. gs 'stat'
  1296. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1297. 'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
  1298. 'By the time you wake up again, the procedure is complete.'
  1299. act 'Continue':gt 'poli', 'cosmetic1'
  1300. end
  1301. if $ARGS[0] = 'bImplantA':
  1302. *clr & cla
  1303. minut += 60
  1304. silicone = brSurTemp
  1305. ! Get String Implants
  1306. if stringimplant = 1:
  1307. money -= 250000
  1308. ! Get Fillable Implants
  1309. elseif fillimplant = 1:
  1310. money -= 200000
  1311. ! Get XXL Implants
  1312. elseif silicone = 40:
  1313. money -= 200000
  1314. ! Get Large Implants
  1315. elseif silicone = 30:
  1316. money -= 190000
  1317. ! Get Medium Implants
  1318. elseif silicone = 20:
  1319. money -= 180000
  1320. ! Get Small Implants
  1321. elseif silicone = 10:
  1322. money -= 170000
  1323. ! Remove any implants
  1324. elseif silicone = 0:
  1325. money -= 90000
  1326. end
  1327. gs 'stat'
  1328. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1329. 'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
  1330. 'By the time you wake up again, the procedure is complete.'
  1331. act 'Continue':gt 'poli', 'cosmetic1'
  1332. end
  1333. if $ARGS[0] = 'milk_advertisement':
  1334. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milk_advertisement.jpg"></center>'
  1335. 'The advertisement says, that a breast milk bank has opened.'
  1336. 'You go through the brochure for a moment and see that they are paying money for breast milk.'
  1337. 'It also seems that this clinic is accepting donations.'
  1338. if lactation['pc_aware'] > 0:
  1339. 'Maybe you should concider donating your breast milk.'
  1340. else
  1341. 'You are not sure why this cought your attention.'
  1342. end
  1343. if lact_ev['pcs_knows_milkbank'] < 1: lact_ev['pcs_knows_milkbank'] = 1
  1344. act 'Go back':gt 'poli','start'
  1345. end
  1346. if $ARGS[0] = 'milk_reception':
  1347. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milk_reception.jpg"></center>'
  1348. 'The woman at the reception looks at you annoyed and and stands up.'
  1349. 'Nurse at the reception: Yes, yes ... go this way.'
  1350. 'She waves into a general direction down the hallway.'
  1351. 'Nurse at the reception: There should be a sign on the door, it is only a small room.'
  1352. if lact_ev['pcs_knows_milkbank'] < 1: lact_ev['pcs_knows_milkbank'] = 1
  1353. act 'Go back':gt 'poli','start'
  1354. end
  1355. if $ARGS[0] = 'milk_donation_room':
  1356. *clr & cla
  1357. gs 'stat'
  1358. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milkbank_door.jpg"></center>'
  1359. 'There is a door with a sign on it, indicating this is the office for the milk donation.'
  1360. act 'Go back':gt 'poli','start'
  1361. if lactation['pc_aware'] > 0 and hour < 10 or hour > 19:
  1362. 'The door seems to be locked, nobody is here.'
  1363. 'There is a sign that reads "Opening hours are 10:00 to 19:00 daily.'
  1364. elseif lactation['pc_aware'] > 0 and hour >= 10 and hour <= 19:
  1365. 'The door seems open and someone is talking inside.'
  1366. act 'Go inside':
  1367. *clr & cla
  1368. menu_off = 1
  1369. gs 'stat'
  1370. if lact_ev['pcs_milkbank_firsttime'] < 1:
  1371. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/milk_nurse.jpg"></center>'
  1372. 'As you come in, you see a women sorting small bottles and bags into a fridge.'
  1373. 'You: Hello?'
  1374. 'The woman turns around: Oh, well hello! I didn''t notice you.'
  1375. 'She smiles happily at you and walks over to a chair, sitting down, signaling you to sit down too.'
  1376. if lactation['breastmv'] > lactation['breastmm']*6/10:
  1377. 'She looks you up and down for short.'
  1378. 'Woman: Seems like you are here for a donation, right?'
  1379. 'You are blushing a bit, knowing that your breasts feel a bit full today, and answer with a short nod.'
  1380. else
  1381. 'Woman: Are you here for a donation?'
  1382. 'You: Uhm ... Yes.'
  1383. end
  1384. 'The woman nods happily and takes some papers and a pen out of her desk.'
  1385. 'Woman: First of all, you have to sign this. Then we are going to take a sample from you.'
  1386. if pcs_gpolimilkdonation >= 2:
  1387. 'You: Ah yes... yeah, okay. I already donated in the Pavlovsk clinic. They did it too.'
  1388. 'Woman: Okay, then you already know what is going to happen.'
  1389. else
  1390. 'You: Sample?'
  1391. 'Woman: Yes. We need to pump some milk from your breast to have it analyzed. It''s not much. Maybe about 50ml.'
  1392. 'You nod at her explainations.'
  1393. end
  1394. 'She gets up and leads you to another room.'
  1395. act 'Continue':
  1396. *clr & cla
  1397. menu_off = 1
  1398. gs 'stat'
  1399. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/pumping_room.jpg"></center>'
  1400. 'Woman: So, sit down here. I''ll prepare the pump and you can prepare yourself.'
  1401. 'You start to uncover your breasts and the woman puts the sucktion cups over your nipples.'
  1402. 'The pump starts to work, drawing out milk from your breasts'
  1403. lact_ev['poli_pumptime'] = func('lact_lib','$get_breastmilk_time', 4, 50)
  1404. if lact_ev['poli_pumptime'] > 15:
  1405. 'After 15 minutes, the woman detaches the pump, tilting her head a bit disappointed.'
  1406. 'Woman: Hmmm ... this isn''t as much as we expected, but it should do.'
  1407. minut += 15
  1408. lact_ev['poli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, 15)
  1409. else
  1410. 'After <<lact_ev[''poli_pumptime'']>> minutes, the woman detaches the pump with a smile.'
  1411. 'Woman: This is enough I think.'
  1412. 'She nods and smiles at you.'
  1413. minut += lact_ev['poli_pumptime']
  1414. lact_ev['poli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, lact_ev['poli_pumptime'])
  1415. end
  1416. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/small_sample.jpg"></center>'
  1417. 'The woman takes your pumped milk and signals you to cover up again.'
  1418. 'Woman: Okay, we will have this sample checked, and you can come back later'
  1419. if salo > 40:
  1420. lact_ev['poli_sample_fat'] = (60 + rand(0,9))
  1421. elseif salo > 20:
  1422. lact_ev['poli_sample_fat'] = (45 + rand(0,9))
  1423. elseif salo > 15:
  1424. lact_ev['poli_sample_fat'] = (20 + rand(0,9))
  1425. else
  1426. lact_ev['poli_sample_fat'] = (10 + rand(0,9))
  1427. end
  1428. if pcs_energy > 30:
  1429. lact_ev['poli_sample_sugar'] = rand(69, 80)
  1430. elseif sick > 1:
  1431. lact_ev['poli_sample_sugar'] = rand(0,45)
  1432. else
  1433. lact_ev['poli_sample_sugar'] = rand(45, 69)
  1434. end
  1435. lact_ev['poli_sample_vol'] = lact_ev['poli_milkedvolume']
  1436. lact_ev['poli_milkedvolume'] = 0
  1437. lact_ev['pcs_milkbank_firsttime'] = 1
  1438. act 'Leave':gt 'poli','start'
  1439. end
  1440. else
  1441. !! if rand(1,100) > 98:
  1442. !! gt 'poli','milk_bank_guy'
  1443. !! else
  1444. !! gt 'poli','milk_bank'
  1445. !! end
  1446. gt 'poli','milk_bank'
  1447. end
  1448. end
  1449. else
  1450. 'You are not sure what you want to do here.'
  1451. end
  1452. end
  1453. if $ARGS[0] = 'milk_bank_guy':
  1454. 'content not finished yet'
  1455. act 'Leave':gt 'poli','start'
  1456. end
  1457. if $ARGS[0] = 'milk_bank':
  1458. 'You come in and see one of the milk donation service employees sitting at the desk.'
  1459. if lactation['breastmv'] > lactation['breastmm']*6/10:
  1460. 'Nurse: Oh hi! Do you want to donate your breastmilk?'
  1461. else
  1462. 'Nurse: Oh hi! How can I help you?'
  1463. end
  1464. act 'Check your file':
  1465. *clr & cla
  1466. menu_off = 1
  1467. gs 'stat'
  1468. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/formular.jpg"></center>'
  1469. 'The employee hands you a file on how much you have donated so far.'
  1470. '<br>----------------------------------------'
  1471. 'Analyzed milksample measurements'
  1472. 'Volume in ml: <<lact_ev[''poli_sample_vol'']/1000>>ml'
  1473. 'Fat in %: <<lact_ev[''poli_sample_fat'']/10>>.<<lact_ev[''poli_sample_fat''] mod 10>>%'
  1474. 'Lactose in %: <<lact_ev[''poli_sample_sugar'']/10>>.<<lact_ev[''poli_sample_sugar''] mod 10>>%'
  1475. '<br>----------------------------------------'
  1476. if lact_ev['poli_totalmilkdonation_count'] > 0:
  1477. 'Total breast milk donation statistics'
  1478. if lact_ev['poli_totalmilkdonated'] < 100:
  1479. 'Donated milk volume in liter: <<lact_ev[''poli_totalmilkdonated'']/1000>>.0<<lact_ev[''poli_totalmilkdonated''] mod 1000>>l'
  1480. else
  1481. 'Donated milk volume in liter: <<lact_ev[''poli_totalmilkdonated'']/1000>>.<<lact_ev[''poli_totalmilkdonated''] mod 1000>>l'
  1482. end
  1483. 'Donation count: <<lact_ev[''poli_totalmilkdonation_count'']>>'
  1484. 'Average milk volume per donation in ml: <<lact_ev[''poli_totalmilkdonated'']/lact_ev[''poli_totalmilkdonation_count'']>>'
  1485. 'Paid money: <<((lact_ev[''poli_totalmilkdonated'']/50)*100)>><b>₽</b>'
  1486. '<br>----------------------------------------'
  1487. end
  1488. act 'Leave': gt 'poli', 'milk_donation_room'
  1489. end
  1490. if lactation['active'] > 0:
  1491. act 'Donate breast milk':
  1492. *clr & cla
  1493. menu_off = 1
  1494. gs 'stat'
  1495. 'Nurse: Sure, please follow me.'
  1496. act 'Follow the nurse':
  1497. *clr & cla
  1498. menu_off = 1
  1499. gs 'stat'
  1500. lact_ev['poli_donatemoney'] = 0
  1501. lact_ev['poli_donationsessioncount'] = 0
  1502. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/milkbank/pumping_room.jpg"></center>'
  1503. 'The employee leads you into one of the free rooms and invites you to sit down.'
  1504. 'She prepares the breast pump and signales you to prepare yourself.'
  1505. act 'continue': gt 'poli','milk_donation'
  1506. end
  1507. act 'Don''t follow her':
  1508. *clr & cla
  1509. menu_off = 1
  1510. gs 'stat'
  1511. 'You: Ah Sorry! I forgot something and can''t donate now.'
  1512. act 'Leave':gt 'poli', 'milk_donation_room'
  1513. end
  1514. end
  1515. end
  1516. act 'Leave':gt 'poli','start'
  1517. end
  1518. if $ARGS[0] = 'milk_donation':
  1519. *clr & cla
  1520. menu_off = 1
  1521. gs 'stat'
  1522. if hour >= 10 and hour <= 19:
  1523. lactation['nipple_cream_applied'] = 1
  1524. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/mward/pumping.jpg"></center>'
  1525. 'The employee attaches the pumps and switches them on.'
  1526. if lactation['breastmv'] >= 0:
  1527. '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.'
  1528. else
  1529. '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.'
  1530. end
  1531. act 'Continue':
  1532. *clr & cla
  1533. lact_ev['poli_milkedvolume'] = func('lact_lib','$get_breastmilk', 4, 15)
  1534. lactation['breastpumped'] = 1
  1535. 'After 15 minutes, the employee detaches the pumps from your breasts.'
  1536. if lact_ev['poli_milkedvolume'] => 50000:
  1537. lact_ev['poli_temp_var'] = (lact_ev['poli_milkedvolume']/50000)
  1538. lact_ev['poli_donationsessioncount'] += lact_ev['poli_temp_var']
  1539. lact_ev['poli_totalmilkdonation_count'] += 1
  1540. lact_ev['poli_totalmilkdonated'] += (lact_ev['poli_temp_var']*50)
  1541. if lact_ev['poli_temp_var'] >= 12:
  1542. 'She looks astonished at the at the marvelous amounts of milk you made as she stores away the <<lact_ev[''poli_temp_var'']>> bottles that contain <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk.'
  1543. 'Nurse: Ms. <<$pcs_lastname>>, this is so much milk, I can''t believe how much you just made!'
  1544. 'She laughts heartily and you blush a bit.'
  1545. elseif lact_ev['poli_temp_var'] >= 10:
  1546. 'She looks amazed at the at the copious amounts of milk you made as she stores away the <<lact_ev[''poli_temp_var'']>> bottles that contain <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk.'
  1547. 'Nurse: Oh my, where do you store all this milk in your breast...?'
  1548. elseif lact_ev['poli_temp_var'] >= 8:
  1549. 'She looks surprised at the at the large amount of milk you made as she stores away the <<lact_ev[''poli_temp_var'']>> bottles that contain <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk.'
  1550. 'Nurse: Ms. <<$pcs_lastname>>, this is really much milk...'
  1551. elseif lact_ev['poli_temp_var'] >= 6:
  1552. 'She looks pleasantly satisfied at you as she puts away the <<lact_ev[''poli_temp_var'']>> bottles containing <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk.'
  1553. 'Nurse: Oh, this is pretty much milk.'
  1554. elseif lact_ev['poli_temp_var'] >= 4:
  1555. 'She looks satisfied at you as she puts away the <<lact_ev[''poli_temp_var'']>> bottles containing <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk.'
  1556. 'Nurse: This is a good amount of milk.'
  1557. elseif lact_ev['poli_temp_var'] >= 2:
  1558. 'She looks satisfied at you as she puts away <<lact_ev[''poli_temp_var'']>> bottles with <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk inside.'
  1559. elseif lact_ev['poli_temp_var'] = 1:
  1560. 'She looks satisfied at you as she puts away one bottle with 50ml of your breast milk.'
  1561. else
  1562. 'She looks satisfied at you as she puts away <<lact_ev[''poli_temp_var'']>> bottles with <<lact_ev[''poli_temp_var'']*50>>ml of your breast milk inside.'
  1563. end
  1564. elseif lact_ev['poli_milkedvolume'] < 50000 and lact_ev['poli_milkedvolume'] > 0:
  1565. 'She looks at you a bit disappointed.'
  1566. 'Nurse: Mhmm... I am sorry, but this isn''t enough milk for a valid donation. You only made <<lact_ev[''poli_milkedvolume'']/1000>>ml of breast milk.'
  1567. else
  1568. 'She looks at you disappointed.'
  1569. 'Nurse: Mhmm... I am sorry, but this isn''t enough milk for a valid donation. You made no breast milk at all.'
  1570. end
  1571. lact_ev['poli_milkedvolume'] = 0
  1572. if lact_ev['poli_donationsessioncount'] > 0:
  1573. lact_ev['poli_donatemoney'] = (lact_ev['poli_donationsessioncount']*100)
  1574. else
  1575. lact_ev['poli_donatemoney'] = 0
  1576. end
  1577. lactation['nipple_cream_applied'] = 0
  1578. minut += 15
  1579. if lactation['breastmv'] > lactation['breastmm']/2:
  1580. 'The employee looks at your breasts'
  1581. 'Nurse: It seems there is still some milk left, do you want to donate more?'
  1582. act 'have your breasts pumped again': gt 'poli','milk_donation'
  1583. act 'enough for today':
  1584. *clr & cla
  1585. gs 'stat'
  1586. if lact_ev['poli_donationsessioncount'] > 0:
  1587. money += lact_ev['poli_donatemoney']
  1588. 'You put on your top, and the employee hands you <<lact_ev[''poli_donatemoney'']>><b>₽</b> for your donated breast milk.'
  1589. else
  1590. 'You put on your top'
  1591. end
  1592. act 'leave':
  1593. lact_ev['poli_milkedvolume'] = 0
  1594. gt 'poli', 'milk_donation_room'
  1595. end
  1596. end
  1597. else
  1598. act 'ask to donate more': gt 'poli','milk_donation'
  1599. act 'enough for today':
  1600. *clr & cla
  1601. gs 'stat'
  1602. if lact_ev['poli_donationsessioncount'] > 0:
  1603. money += lact_ev['poli_donatemoney']
  1604. 'You put on your top, and the employee hands you <<lact_ev[''poli_donatemoney'']>><b>₽</b> for your donated breast milk.'
  1605. else
  1606. 'You put on your top'
  1607. end
  1608. act 'leave':
  1609. lact_ev['poli_milkedvolume'] = 0
  1610. gt 'poli', 'milk_donation_room'
  1611. end
  1612. end
  1613. end
  1614. end
  1615. elseif lact_ev['poli_donationsessioncount'] > 0:
  1616. 'Sorry Ms. <<$pcs_lastname>>, we are closing now.'
  1617. 'You put on your top, and the employee hands you <<lact_ev[''poli_donatemoney'']>><b>₽</b> for your donated breast milk.'
  1618. act 'Leave':minut += 5 & gt 'poli', 'milk_donation_room'
  1619. else
  1620. 'The milk donation service is closed. It''s open every day between 10:00 and 19:00.'
  1621. act 'Leave':minut += 5 & gt 'poli', 'milk_donation_room'
  1622. end
  1623. end
  1624. --- poli ---------------------------------