1
0

poli 56 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540
  1. # poli
  2. $location_type = 'public_indoors'
  3. if $ARGS[0] = 'start':
  4. CLOSE all
  5. $sexloc = $CURLOC
  6. $loc = 'poli'
  7. cla
  8. clr
  9. hosprand = rand(0, 10)
  10. minut += 5
  11. gs 'stat'
  12. if night_mode = 1:
  13. fcolor = rgb(255, 255, 255)
  14. bcolor = rgb(0, 0, 0)
  15. lcolor = rgb(106, 90, 205)
  16. else
  17. fcolor = rgb(0, 0, 0)
  18. bcolor = rgb(255, 255, 255)
  19. lcolor = rgb(106, 90, 205)
  20. end
  21. '<center><b><font color="maroon">Clinic</font></b></center>'
  22. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  23. 'General practitioner available'
  24. 'Psychotherapist available'
  25. 'STD testing - 1,000 <b>₽</b>.'
  26. ''
  27. 'For hospital admissions arrive Monday, prior to 10th of the month.'
  28. ''
  29. 'Abortion at the woman''s request can be made up to 84th day of pregnancy - 20,000 <b>₽</b>.'
  30. 'Be warned, improperly performed abortions can by dangerous to your health. There is a risk of complications and the possibility of damage to your uterus.'
  31. ''
  32. '(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 sterlized coat hangers down the hallway and begin to wonder how competent this facility really is in terms of women''s health...)'
  33. ''
  34. 'Near the entrance is an advertisement for cosmetic surgeon and directions to his office.'
  35. if workhosp = 1 and hour >= 8 and hour <= 9 and week < 6:act 'Exit to replace':gt 'poli', 'beginwork'
  36. act 'Leave Clinic':gt 'street'
  37. act 'See cosmetic surgeon':gt 'poli','cosmetic1'
  38. if pcs_health < (pcs_vital * 10 + pcs_stren * 5):
  39. act 'Treat health (1:00)':
  40. cla
  41. minut += 60
  42. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  43. if pillcon > 0 and rand(0,4) = 0:pillcon -= 2500
  44. if hosprand = 0:gt 'poli', '0'
  45. if hosprand = 1:gt 'poli', '1'
  46. if hosprand = 2:gt 'poli', '2'
  47. 'The doctor gives you a shot and you immediately feel much better'
  48. act 'Leave':gt 'poli', 'start'
  49. end
  50. end
  51. if pain['total'] > 10:
  52. act 'Pain relief (1:00)':
  53. cla
  54. minut += 60
  55. if pain['head'] > 0:pain['head'] -= rand(7,13)
  56. if pain['hair'] > 0:pain['hair'] -= rand(7,13)
  57. if pain['ears'] > 0:pain['ears'] -= rand(7,13)
  58. if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(7,13)
  59. if pain['eyes'] > 0:pain['eyes'] -= rand(7,13)
  60. if pain['cheeks'] > 0:pain['cheeks'] -= rand(7,13)
  61. if pain['nose'] > 0:pain['nose'] -= rand(7,13)
  62. if pain['mouth'] > 0:pain['mouth'] -= rand(7,13)
  63. if pain['lips'] > 0:pain['lips'] -= rand(7,13)
  64. if pain['tongue'] > 0:pain['tongue'] -= rand(7,13)
  65. if pain['throat'] > 0:pain['throat'] -= rand(7,13)
  66. if pain['neck'] > 0:pain['neck'] -= rand(7,13)
  67. if pain['back'] > 0:pain['back'] -= rand(7,13)
  68. if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(7,13)
  69. if pain['asshole'] > 0:pain['asshole'] -= rand(7,13)
  70. if pain['hips'] > 0:pain['hips'] -= rand(7,13)
  71. if pain['thighs'] > 0:pain['thighs'] -= rand(7,13)
  72. if pain['legL'] > 0:pain['legL'] -= rand(7,13)
  73. if pain['legR'] > 0:pain['legR'] -= rand(7,13)
  74. if pain['feet'] > 0:pain['feet'] -= rand(7,13)
  75. if pain['toes'] > 0:pain['toes'] -= rand(7,13)
  76. if pain['shoulders'] > 0:pain['shoulders'] -= rand(7,13)
  77. if pain['armL'] > 0:pain['armL'] -= rand(7,13)
  78. if pain['armR'] > 0:pain['armR'] -= rand(7,13)
  79. if pain['hands'] > 0:pain['hands'] -= rand(7,13)
  80. if pain['fingers'] > 0:pain['fingers'] -= rand(7,13)
  81. if pain['chest'] > 0:pain['chest'] -= rand(7,13)
  82. if pain['breasts'] > 0:pain['breasts'] -= rand(7,13)
  83. if pain['nipples'] > 0:pain['nipples'] -= rand(7,13)
  84. if pain['ribs'] > 0:pain['ribs'] -= rand(7,13)
  85. if pain['tummy'] > 0:pain['tummy'] -= rand(7,13)
  86. if pain['pubic'] > 0:pain['pubic'] -= rand(7,13)
  87. if pain['vaginal'] > 0:pain['vaginal'] -= rand(7,13)
  88. if pain['labia'] > 0:pain['labia'] -= rand(7,13)
  89. if pain['clitoris'] > 0:pain['clitoris'] -= rand(7,13)
  90. if pain['urethra'] > 0:pain['urethra'] -= rand(7,13)
  91. if pain['cervix'] > 0:pain['cervix'] -= rand(7,13)
  92. '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.'
  93. if hosprand = 0:gt 'poli', '0'
  94. if hosprand = 1:gt 'poli', '1'
  95. if hosprand = 2:gt 'poli', '2'
  96. act 'Leave':gt 'poli', 'start'
  97. end
  98. end
  99. if pcs_willpwr < pcs_intel * 5 + pcs_sprt * 5:
  100. act 'See a therapist (1:00)':
  101. cla
  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. 'You lie down on the therapists couch and tell him all about his troubles. You immediately feel much better, your therapist seems to be in a state of shock.'
  109. act 'Leave':gt 'poli', 'start'
  110. end
  111. end
  112. if tabletkishot < 5 and money >= 1000:
  113. act 'Get a birth control shot (0:15)':
  114. cls
  115. minut += 15
  116. tabletkishot = rand(84,91)
  117. shotdays = 84
  118. tabletkicheck = 2
  119. pillcon = 40000
  120. pillcon2 = 40000
  121. money -= 1000
  122. gs 'stat'
  123. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  124. 'You are escorted into an examination room, where you are told to sit. After almost fifteen minutes a nurse comes in, sticks a needle in your arm, and depresses the plunger. "All done. Have a nice day." she says to you. You gather your things to leave.'
  125. act 'Leave':gt 'poli', 'start'
  126. end
  127. end
  128. act 'Go to the STD clinic':gt 'poli', 'stdclinic'
  129. if money >= 20000 and preg = 1 and pregchem < 1863 and knowpreg = 1:
  130. act 'Get an abortion (20,000 <b>₽</b>)':
  131. cla
  132. vidage += 1
  133. abort += 1
  134. abortionbirthdate = daystart
  135. money -= 20000
  136. pregtime = 0
  137. pregtalk = 0
  138. preg = 0
  139. thinkpreg = 0
  140. knowpreg = 0
  141. cycle = 4
  142. RecovH = rand(7,70)
  143. RecovH += pregchem
  144. knowpregloss = 2
  145. abortrand = rand(0, 10)
  146. if age > 18:
  147. if abortrand < 10:sterilewb += 1
  148. if abortrand = 10:sterilewb += 10
  149. else
  150. if abortrand < 7:sterilewb += 2
  151. if abortrand >= 7:sterilewb += 10
  152. end
  153. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/abort.jpg"></center>'
  154. '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.'
  155. preg = 0
  156. thinkpreg = 0
  157. knowpreg = 0
  158. !! I am not sure, why is it here this cycle, but I leave it so (rachels)
  159. nextbaby = arrsize('yearkid')
  160. if broodcurse > 0: over = 13 & gt'gameover'
  161. :poliabortloop
  162. if Babyptype[nextbaby] < 200:
  163. KILLVAR 'polkid',nextbaby-1
  164. KILLVAR '$kidname',nextbaby-1
  165. KILLVAR 'kidage',nextbaby-1
  166. KILLVAR 'daykid',nextbaby-1
  167. KILLVAR 'monthkid',nextbaby-1
  168. KILLVAR 'yearkid',nextbaby-1
  169. KILLVAR 'Babyptype',nextbaby-1
  170. KILLVAR '$ChildFath',nextbaby-1
  171. KILLVAR '$ChildThFath',nextbaby-1
  172. KILLVAR 'hairkid',nextbaby-1
  173. KILLVAR 'eyeskid',nextbaby-1
  174. KILLVAR 'cumarrcon',nextbaby-1
  175. KILLVAR '$wombpotfath',nextbaby-1
  176. BabyEmbryo -= 1
  177. nextbaby -= 1
  178. end
  179. nextbaby -= 1
  180. if nextbaby > 0:
  181. jump 'poliabortloop'
  182. end
  183. act 'Leave':gt 'poli', 'start'
  184. end
  185. end
  186. if preg = 2:
  187. act 'Give birth':
  188. *clr
  189. cla
  190. cnt = 0
  191. if kid > 0:minut += rand(300,660) else minut += rand(120,480)
  192. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/birthing.jpg"></center>'
  193. 'You lay on the bed and your feet are put in stirups.'
  194. 'Your contractions get closer and closer, and after some time (and a lot of swearing) you finally give birth.'
  195. :multikidloop
  196. minut += rand(30,90)
  197. sterilewb += 1
  198. nextbaby = arrpos('$kidname', 'unborn')
  199. kid += 1
  200. cnt += 1
  201. BabyEmbryo -= 1
  202. daykid[nextbaby] = day
  203. monthkid[nextbaby] = month
  204. yearkid[nextbaby] = year
  205. if polkid[nextbaby] = 0:$polreb[nextbaby] = 'girl' & '"Congratulations it''s a girl. What is her name?"'
  206. if polkid[nextbaby] = 1:$polreb[nextbaby] = 'boy' & '"Congratulations it''s a boy. What is his name?"'
  207. wait 350
  208. $kidname[nextbaby] = input("Enter your <<$polreb[nextbaby]>>''s name")
  209. 'The doctors clean up <<$kidname[nextbaby]>>.'
  210. if $kidname[nextbaby] = '':
  211. if polkid[nextbaby] = 0:$kidname[nextbaby] = 'Masha'
  212. if polkid[nextbaby] = 1:$kidname[nextbaby] = 'Misha'
  213. end
  214. 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'
  215. preg = 0
  216. RecovH = rand(7*cnt,70)
  217. abortionbirthdate = daystart
  218. thinkpreg = 0
  219. knowpreg = 0
  220. knowpregrecover = 1
  221. vidage += 1
  222. pregtalk = 0
  223. cycle = 4
  224. killvar 'cnt'
  225. gs 'cum_cleanup', 'reset'
  226. dynamic $d_cycreport_choice
  227. gs 'stat'
  228. act 'Leave':gt 'poli', 'start'
  229. end
  230. end
  231. if sick > 0 and polisickday ! daystart:
  232. if ninelsex = 0:
  233. act 'See a Doctor':
  234. cla
  235. *clr
  236. polisickday = daystart
  237. terrnd = rand(0, 1)
  238. if terrnd = 0:gt 'poli', 'drPP'
  239. if terrnd = 1:gt 'poli', 'ninel'
  240. end
  241. else
  242. act 'See Dr. Ninel':
  243. cla
  244. *clr
  245. polisickday = daystart
  246. gt 'poli', 'ninel2'
  247. end
  248. end
  249. end
  250. if sick <= 0 and pcs_horny >= 90 and ninelsex >= 1 and ninelday ! daystart:
  251. act 'Look for Dr. Ninel':
  252. cla
  253. *clr
  254. ninelday = daystart
  255. ninelrand = rand(0, 2)
  256. if ninelrand = 0:
  257. 'At the reception desk you are told that Dr. Ninel is in his office.'
  258. act 'Go to Ninel':gt 'poli', 'ninel3'
  259. elseif ninelrand = 1:
  260. 'At the reception desk you are told that today do not accept Dr. Ninel.'
  261. act 'Leave the clinic':gt 'street'
  262. elseif ninelrand = 2:
  263. 'At the reception desk you are told that Dr. Ninel is making house calls today.'
  264. act 'Leave the clinic':gt 'street'
  265. end
  266. end
  267. end
  268. if cumcondslip > 0 and cumcondslip_aware > 0:
  269. act 'See a Doctor':
  270. cla
  271. *clr
  272. gt 'poli', 'drPP'
  273. end
  274. end
  275. if katjob > 0:act 'Visit the chief doctor':gt 'poli', 'glavdoc'
  276. if pcs_teeth > -1:
  277. act 'Go to the dentist':
  278. cls
  279. zubpay = pcs_teeth * 30000
  280. gs 'stat'
  281. if pcs_teeth = 0:
  282. zubpay = 30000
  283. 'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to straighten and polish your teeth.'
  284. elseif pcs_teeth = 1:
  285. 'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to replace your tooth'
  286. else
  287. 'The dentist examines you and says, it will cost you <<zubpay>> <b>₽</b> to fill the gaps'
  288. end
  289. if money >= zubpay:
  290. act 'Sort out you teeth':
  291. cls
  292. money -= zubpay
  293. minut += 60
  294. gs 'body_shape', 'basebeautycalc', 1
  295. gs 'stat'
  296. if pcs_teeth > 0:
  297. pcs_teeth = 0
  298. 'You pay the dentist to fix your teeth, within an hour he has restored your winning smile.'
  299. else
  300. pcs_teeth = -1
  301. 'You pay the dentist to straighten and polish your teeth, an hour later your smile is much brighter and more attractive.'
  302. end
  303. act 'Leave the clinic':gt 'street'
  304. end
  305. end
  306. act 'Leave the clinic':gt 'street'
  307. end
  308. end
  309. if pcs_ass > 5:
  310. act 'Go to the proctologist':
  311. cls
  312. minut += 15
  313. if analplugIN ! 0:analplugIN = 0
  314. gs 'stat'
  315. '<center><img <<$set_imgh>> src="images/pc/body/anus/<<anpic>>.jpg"></center>'
  316. 'You go to the office to the proctologist. He immediately asks you to remove all clothes from your lower body and bend over.'
  317. if pcs_ass <= 15:
  318. 'The doctor examines your anus and says, "Well, slightly distended, but no abnormalities."'
  319. elseif pcs_ass > 15 and pcs_ass <= 25:
  320. 'The doctor examines your anus and says, "You have a stretched anus and sphincter. I would recomend massage therapy, 1,000 <b>₽</b> per session. This will help restore the anus to its normal size."'
  321. elseif pcs_ass > 25 and pcs_ass <= 35:
  322. 'The doctor examines your anus and says, "You have a greatly distended anus, most likely your sphincter is not able to close fully. I would recomend massage therapy, 1,000 <b>₽</b> per session. This will help restore the anus to its normal size."'
  323. elseif pcs_ass > 35:
  324. 'The doctor examines your anus and says, "Oh my God! I have never in all my years seen a case such as this! You''ll have to be careful not to cough, or your guts will fall out. I would recomend massage therapy, 1,000 <b>₽</b> per session. This will help restore the anus to its normal size."'
  325. end
  326. if money >= 1000 and pcs_ass > 15 and proktologday ! daystart:
  327. act 'Massage therapy (1:00)':
  328. cls
  329. money -= 1000
  330. minut += 60
  331. proktologday = daystart
  332. pcs_ass -= 5
  333. gs 'stat'
  334. '<center><img <<$set_imgh>> src="images/pc/body/anus/<<anpic>>.jpg"></center>'
  335. 'You pay for the therapy and the doctor spends an hour massaging your ass muscles. It really isn''t as much fun as it looked in the brochure.'
  336. act 'Get away from the clinic':gt 'street'
  337. end
  338. end
  339. act 'Leave the clinic':gt 'street'
  340. end
  341. end
  342. if glassqw=1:
  343. act'Visit the optometrist (0:35)':
  344. cla
  345. *clr
  346. hour += 1
  347. minut += 35
  348. gs'stat'
  349. 'The optometrist takes you through a series of tests, to measure the condition of your eyes.'
  350. '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."'
  351. pcs_nerd += 1
  352. glassqw = 2
  353. glass = 1
  354. blizoruk += 1
  355. act 'Leave':gt 'poli', 'start'
  356. end
  357. end
  358. if glass > 0:
  359. act 'Go to the optometrist':
  360. cls
  361. gs 'stat'
  362. 'The Optometrist examines your eyes and says that he can preform laser eye surgery for 60,000 <b>₽</b>. Of course, reading books can cause your eyesight to deteriorate again.'
  363. if glass = 1:'The doctor adds, there is also the option to buy glasses for 8,000 <b>₽</b>.'
  364. act 'Leave':gt 'poli', 'start'
  365. if glass = 1:
  366. if money >= 8000:
  367. act 'Buy glasses (8,000 <b>₽</b>)':
  368. cls
  369. money -= 8000
  370. minut += 60
  371. glass = 2
  372. gs 'stat'
  373. 'You buy a new, more stylish pair of glasses.'
  374. act 'Leave':gt 'poli', 'start'
  375. end
  376. else
  377. *nl
  378. 'You can not afford the more stylish glasses.'
  379. end
  380. end
  381. if glass ! 0:
  382. if money >= 60000:
  383. act 'Pay for laser correction (60,000 <b>₽</b>)':
  384. cls
  385. money -= 60000
  386. minut += 60
  387. blizoruk = 0
  388. glass = 0
  389. gs 'stat'
  390. 'You undergo laser eye surgery. Your eyesight is much better now.'
  391. act 'Leave':gt 'poli', 'start'
  392. end
  393. else
  394. *nl
  395. 'You can not afford the laser eye correction surgery.'
  396. end
  397. end
  398. end
  399. end
  400. end
  401. if $ARGS[0] = 'stdclinic':
  402. cls
  403. '<center>The STD Clinic</center>'
  404. *nl
  405. 'In the waiting room is an advertisement.'
  406. *nl
  407. ' Private Sexually Transmitted Disease Clinic provides the following treatment.'
  408. ' Complete cure for herpes - 150,000 <b>₽</b>.'
  409. ' Complete cure of syphilis - 350,000 <b>₽</b>.'
  410. ' Complete cure for yeast infection - 50,000 <b>₽</b>.'
  411. ' Treatment requires hospitalization on first Monday of each month'
  412. act 'Leave':gt 'poli', 'start'
  413. act 'Take STD test (1,000 <b>₽</b>)':gt 'poli', 'stdcheck'
  414. if GerpesNapr > 0 and GerpesUkolDay ! daystart:
  415. act 'Get herpes shot (1,000 <b>₽</b>). You need <<GerpesNapr>> more injections to complete the course.':
  416. cls
  417. money -= 1000
  418. minut += 60
  419. GerpesUkolDay = daystart
  420. GerpesNapr -= 1
  421. gs 'stat'
  422. 'You see the nurse and she gives you a painful injection in your ass.'
  423. if GerpesNapr = 0:Gerpes = -10 & 'You have completed the course.'
  424. act 'Leave':gt 'poli', 'start'
  425. end
  426. end
  427. if TriperNapr > 0 and money >= 1500 and TriperUkolDay ! daystart:
  428. act 'Get gonorrhea shot (1,500 <b>₽</b>). You need <<TriperNapr>> more injections to complete the course.':
  429. cls
  430. money -= 1500
  431. minut += 60
  432. TriperUkolDay = daystart
  433. TriperNapr -= 1
  434. gs 'stat'
  435. 'You see the nurse and she gives you a painful injection in your ass.'
  436. if TriperNapr = 0:TriperOral = 0 & TriperOralSigns = 0 & Triper = 0 & Venera -= 1 & TriperOnce = 0 & 'You have completed the course.'
  437. act 'Leave':gt 'poli', 'start'
  438. end
  439. end
  440. if money >= 5000 and SifNapr > 0 and SifUkolDay ! daystart:
  441. act 'Get syphilis shot (5,000 <b>₽</b>). You need <<SifNapr>> more injections to complete the course.':
  442. cls
  443. money -= 5000
  444. minut += 60
  445. SifUkolDay = daystart
  446. SifNapr -= 1
  447. gs 'stat'
  448. 'You see the nurse and she gives you a painful injection in your ass.'
  449. if SifNapr = 0:Sifilis = 0 & 'You have completed the course.'
  450. act 'Leave':gt 'poli', 'start'
  451. end
  452. end
  453. if GerpesOnce = 1 and money >= 150000 and week = 1 and day <= 10:
  454. act 'Go to private clinic and completely cure your herpes (150,000 <b>₽</b>)':
  455. cla
  456. money -= 150000
  457. day += 3
  458. week += 3
  459. GerpesOnce = 0
  460. Gerpes = 0
  461. OrHerpes = 0
  462. GenHerpes = 0
  463. Venera -= 1
  464. gs 'stat'
  465. 'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
  466. 'After a long recovery, you have been completely cured of your herpes.'
  467. act 'Leave':gt 'poli', 'start'
  468. end
  469. end
  470. if SifacOnce = 1 and money >= 350000 and week = 1 and day <= 10:
  471. act 'Go to private clinic and completely cure your syphilis. (350,000 <b>₽</b>)':
  472. cla
  473. money -= 350000
  474. day += 3
  475. week += 3
  476. SifacOnce = 0
  477. Sifilis = 0
  478. Venera -= 1
  479. gs 'stat'
  480. 'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
  481. 'After a long recovery, you have been completely cured of your syphilis.'
  482. act 'Leave':gt 'poli', 'start'
  483. end
  484. end
  485. if KandidozOnce = 1 and money >= 50000 and week = 1 and day <= 10:
  486. act 'Go to private clinic and completely cure your thrush. (50,000 <b>₽</b>)':
  487. cla
  488. money -= 50000
  489. day += 3
  490. week += 3
  491. KandidozOnce = 0
  492. Kandidoz = 0
  493. gs 'stat'
  494. 'There''s an ambulance waiting outside. It drives you to a cutting edge medical facility, where you spend 3 days being treated and pampered.'
  495. 'After a long recovery, you have been completely cured of your thrush.'
  496. act 'Leave':gt 'poli', 'start'
  497. end
  498. end
  499. end
  500. if $ARGS[0] = 'stdcheck':
  501. cls
  502. money -= 1000
  503. minut += 60
  504. gs'stat'
  505. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
  506. 'After waiting for some time, you get to see the doctor'
  507. 'The doctor asks you to undress.'
  508. act 'Undress':
  509. cla
  510. *clr
  511. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cj53ti24.jpg"></center>'
  512. 'You undress and the doctor asks you lie on the table.'
  513. act 'Lie down':
  514. cla
  515. *clr
  516. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  517. 'You lie on the table and wait as the doctor makes his preparations for the tests.'
  518. act 'Wait':
  519. cla
  520. *clr
  521. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/zw61kh75.jpg"></center>'
  522. 'The doctor first monitors your heart rate then checks your breasts for lumps'
  523. act 'Further':
  524. cla
  525. *clr
  526. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bn72qy99.jpg"></center>'
  527. 'The doctor examines your genitals externally and internally, carrying out tests.'
  528. if money >= 10000 and rand(1,100) >= 97:
  529. cla
  530. *clr
  531. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  532. 'While you lying on an examination table you notice in the corner of the ceiling a hiden camera.'
  533. act 'Rebel':
  534. cla
  535. *clr
  536. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
  537. 'The doctor, unfazed, speaks in a calm voice as he apologizes and says, "You have two options to solve this issue."'
  538. '"Give me 10000 <b>₽</b> and it will will be deleted, like this never happened."'
  539. '"I pay you a 3000 <b>₽</b> fee."'
  540. '"Lie down, think it over, but do not take too long now."'
  541. act 'Pay him':gt 'poli', 'ven1'
  542. act 'Take the money':gt 'poli', 'ven2'
  543. act 'Threatened to report him':
  544. cla
  545. *clr
  546. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/bg28qy97.jpg"></center>'
  547. 'The doctor brings your face to his and says in a low voice.'
  548. '"Listen to me, bitch! I hope you''re just joking with me, we have plenty of accidents here. Do you want to be another ''complication''?"'
  549. '"Now make your choice, and we can forget everything you just said."'
  550. act 'Pay him':gt 'poli', 'ven1'
  551. act 'Take the money':gt 'poli', 'ven2'
  552. act 'Run':gt 'poli', 'ven3'
  553. end
  554. end
  555. else
  556. if venera > 0:'The doctor frowns and tells you that the test did not go well.'
  557. if GerpesOnce = 1:
  558. 'You have genital herpes. The cure for this disease is very expensive but it is only active some of the time.'
  559. if Gerpes >= 3:
  560. 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 1,000 <b>₽</b>.'
  561. if GerpesNapr > 0:'You need to see the nurse for your herpes injections.'
  562. else
  563. 'Your herpes are in an inactive stage, take vitamins and it won''t show itself.'
  564. end
  565. end
  566. if SifacOnce = 1:
  567. 'You have syphilis. The cure for this disease is very expensive. However, this deadly disease can now be surpressed with drug therapy, but you''l never be free from it.'
  568. if Sifilis < 15:
  569. 'Your syphilis is in the inactive stage. Therefore, nothing more can be done currently.'
  570. elseif Sifilis >= 15:
  571. 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 5,000 <b>₽</b>.'
  572. if SifNapr > 0:'You need to see the nurse for your syphilis injections.'
  573. end
  574. end
  575. if TriperOnce = 1:
  576. 'We found gonorrhea. In principle, this disease is curable.'
  577. 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 1,500 <b>₽</b>'
  578. if SifNapr > 0:'You need to see the nurse for your gonorrhea injections.'
  579. end
  580. if KandidozOnce = 1:
  581. 'You have thrush. The cure for this disease is very expensive, but it''s not that harmful and can easily be suppressed.'
  582. if KandidNapr = 0:KandidNapr = 1 & 'You can buy pills in the pharmacy.'
  583. if Kandidoz < 30:'Your thrush is currently in remission, take vitamins, and it will stay that way.'
  584. end
  585. if venera <= 0:'Doctor is pleased that you do not have a sexually transmitted disease.'
  586. act 'Leave':gt 'poli', 'stdclinic'
  587. end
  588. end
  589. end
  590. end
  591. end
  592. end
  593. if $ARGS[0] = 'ven1':
  594. cla
  595. *clr
  596. money -= 10000
  597. gs'stat'
  598. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  599. 'You lie down, almost crying, in the surgery thinking it over,'
  600. 'You know it is not fair, but you can''t allow these images to go public.'
  601. act 'Pay the money':gt'poli','start'
  602. end
  603. if $ARGS[0] = 'ven2':
  604. cla
  605. *clr
  606. money += 3000
  607. sub += 1
  608. gs'stat'
  609. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/gy93cr29.jpg"></center>'
  610. 'You lie down, almost crying, in the surgery thinking it over,'
  611. 'You know it is not fair, but the money would be useful...'
  612. act 'Take the money':gt'poli','start'
  613. end
  614. if $ARGS[0] = 'ven3':
  615. cla
  616. *clr
  617. over = 9
  618. gs'stat'
  619. '<center><img <<$set_imgh>> src="images/locations/shared/clinic/poli.jpg"></center>'
  620. 'Out of fear, you run from the office.'
  621. 'Out of nowhere came nurses and other staff. You are restrained and dragged back. Confidently, the doctor explains to the patients and visitors that you are not well in the head.'
  622. act 'Further':gt'gameover'
  623. end
  624. if $ARGS[0] = 'drPP':
  625. cla
  626. clr
  627. *clr
  628. minut += rand(3, 10)
  629. gs 'stat'
  630. 'You sit in the corridor with coughing and sick old women, waiting for your appointment.'
  631. 'Finally, it''s your turn.'
  632. act 'See the doctor':
  633. cla
  634. *clr
  635. $ImageNeededPlacholder
  636. !! WD: IMAGE NEEDED ~ '<center><img src="images/system/image_needed.png"></center>'
  637. 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."'
  638. if drPP = 1:'Peter is sitting at his desk. He smiles at you and says, "Hello, are you unwell?"'
  639. drPP = 1
  640. '"Hello, doctor."'
  641. '"What are the symptoms?"'
  642. if cumcondslip > 0 and cumcondslip_aware > 0:
  643. act 'Explain':
  644. cla
  645. *clr
  646. minut += 5
  647. '"Well, Doctor, I feel nauseous during the day."'
  648. '"Do you have a ghostly sensation deep inside?"'
  649. '"Yes, a little."'
  650. '"Well, let''s take a look at you."'
  651. act 'Get examined':
  652. cla
  653. minut += 15
  654. gs 'cum_cleanup', 'cleanloc', 17
  655. cumcondslip = 0
  656. gs 'stat'
  657. 'The doctor quickly examines you, and establishes that you are suffering from toxic shock from a spent condom in your body.'
  658. '"I removed it as soon as I found it. If you were feeling sick, it should slowly subside."'
  659. 'You thank the Doctor.'
  660. act 'Go home':gt 'street'
  661. end
  662. end
  663. else
  664. act 'Explain':
  665. cla
  666. *clr
  667. minut += 5
  668. '"Well, Doctor, I think it''s a cold, blocked nose, sore throat and a cough."'
  669. '"Do you have a temperature?'
  670. '"Yes, a little hot."'
  671. '"Well, let''s take a look at you."'
  672. act 'Get examined':
  673. cla
  674. minut += 20
  675. ! WD: Correct Image path ~ "images/locations/shared/apartment/event/sick/ninel03"
  676. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
  677. '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,'
  678. '"Don''t worry is just a common cold. Buy small pills in the drugstore, have a couple of days bed rest and everything will be alright. Make sure to keep warm."'
  679. 'You thank the Doctor.'
  680. act 'Go home':gt 'street'
  681. end
  682. end
  683. end
  684. end
  685. end
  686. if $ARGS[0] = 'ninel':
  687. cla
  688. clr
  689. *clr
  690. minut += rand(3, 15)
  691. gs 'stat'
  692. 'You sit in the corridor with coughing and sick old women, waiting for your appointment.'
  693. 'Finally, it''s your turn.'
  694. act 'See the doctor':
  695. cla
  696. *clr
  697. if ninelmet = 0:'At the desk sits a pretty young girl in a light robe. Robe unbuttoned so that it does not hide her small but beautiful breasts. "Hello My name is Ninel Pavlovna, I replaces your local therapist - 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. cla
  702. *clr
  703. ninelmet = 1
  704. minut += 5
  705. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam00.jpg"></center>'
  706. '"Good afternoon. What are the symptoms?"'
  707. '"Well, Doctor, I think it''s a cold, blocked nose, sore throat and a cough."'
  708. '"Do you have a temperature?'
  709. '"Yes, a little hot."'
  710. '"I''ll need to examine you. Undress.'
  711. act 'Get examined':
  712. cla
  713. *clr
  714. minut += 20
  715. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam01.jpg"></center>'
  716. '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,'
  717. '"Don''t worry is just a common cold. Buy small pills in the drugstore, have a couple of days bed rest and everything will be alright. Make sure to keep warm."'
  718. 'You thank the Doctor.'
  719. act 'Go home':gt 'street'
  720. end
  721. end
  722. else
  723. act 'Hello, Doctor':
  724. cla
  725. *clr
  726. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam10.jpg"></center>'
  727. '"Good afternoon. What are the symptoms?"'
  728. '"Well, Doctor, I think it''s a cold, blocked nose, sore throat and a cough."'
  729. '"Do you have a temperature?'
  730. '"Yes, I''m very hot."'
  731. '"Undress. Fully."'
  732. act 'Undress':
  733. cla
  734. *clr
  735. pcs_horny += 10
  736. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam12.jpg"></center>'
  737. 'You stand before the doctor completely naked and try to cover yourself with your hands.'
  738. 'The doctor looks at you and gently hugs your shoulders.'
  739. '"Don''t worry, my dear no need to be shy. I''m a doctor. What''s your name?'
  740. '<<$pcs_nickname>> ...'
  741. '"Trust me, <<$pcs_nickname>>. I will heal you. First you need to breathe deeply."'
  742. act 'Breathe':
  743. cla
  744. clr
  745. *clr
  746. pcs_horny += 10
  747. gs 'stat'
  748. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam13.jpg"></center>'
  749. 'Dr. Ninel listens to your lungs. Her hands are light and gentle, pressing the stethoscope against your chest.'
  750. 'To your surprise, this is quite erotic.'
  751. 'There we go. Now open your mouth and say ah...'
  752. act 'Ah...':
  753. cla
  754. *clr
  755. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam14.jpg"></center>'
  756. 'You open your mouth and the doctor examines your throat. did she stick her tongue out at you?'
  757. '"OK. Now let''s take your temperature. Sit on the couch and spread your legs.'
  758. '"Why?"'
  759. '"I need to measure rectally as your throat is inflamed.'
  760. 'The fear on your face is palpable'
  761. '"Don''t worry, it doesn''t hurt."'
  762. act 'Sit on couch':
  763. cla
  764. clr
  765. *clr
  766. gs 'stat'
  767. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam15.jpg"></center>'
  768. '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.'
  769. '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 dextrous fingers her touch is so gentle you aren''t sure.'
  770. 'Either way you are getting more excited. Your nipples harden, your pussy is making the doctors hand wet...'
  771. gs 'arousal', 'vaginal_finger', 10, 'sub'
  772. gs 'arousal', 'anal_dildo', 10, 'sub'
  773. minut -= 10
  774. gs 'stat'
  775. act 'This doesn''t seem normal':
  776. cla
  777. clr
  778. *clr
  779. gs 'stat'
  780. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam16.jpg"></center>'
  781. 'The doctor takes the thermometer out of your ass and begins to openly caress your pussy.'
  782. 'You are confused and horrified by her behavior, but she she is so gentle, and you are so excited that you simply can not resist.'
  783. 'You just about stutter, "Doctor, what are you doing? What''s going on?"'
  784. '"There it is! I knew immediately that you were one of us, and therefore I can use his power quietly."'
  785. '"So you''re a magician, too?"'
  786. '"Yes, my special magic is tantric. Heard of it?"'
  787. '"No, I''ve never heard of..."'
  788. '"It''s magic based on sensuality and sex. Roughly speaking, I can cast only when extremely aroused."'
  789. '"So ..?"'
  790. '"Basically, if we have sex, I can heal you. So, can I heal you?"'
  791. '"Depends what you want in return."'
  792. '"Nothing. Well no exactly nothing, you see my gift has a pretty big drawback I can only have orgasms when I conjure."'
  793. '"Then of course I agree."'
  794. '"Good, kneel on the couch.'
  795. gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian'
  796. gs 'stat'
  797. act 'Kneel on couch':
  798. cla
  799. *clr
  800. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam17.jpg"></center>'
  801. 'You kneel down and facing away from Ninel. She takes off her robe, revealing her stockings then you gasp as you see her strapon.'
  802. 'Dr. Ninel lubes the dildo and with your pussy already well lubricated she grins,'
  803. '"Well, baby, it''s curing time!'
  804. act 'Brace yourself':
  805. cla
  806. clr
  807. *clr
  808. minut += 10
  809. pcs_horny = 100
  810. gs 'stat'
  811. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam18.jpg"></center>'
  812. 'With unnatural strengh shes drives the dildo into your pussy.'
  813. 'You gasp in surprise at the rough treatment, how can somone with such soft hands...Suddenly she finds a perfect stroke and the initial pain turns to pleasure.'
  814. 'Doctor keeps fuck you confidently, moaning with every jolt she seems to be enjoying it as much as you, and you are ecstatic. The unusual situation and Ninels skill quickly led you to your peak.'
  815. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  816. gs 'stat'
  817. act 'Ride the wave!':
  818. cla
  819. *clr
  820. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam19.jpg"></center>'
  821. '"I''m going to come!", You shout. "Please, please, please!"'
  822. 'Ninel rolls onto the couch, pulling you with her. You find yourself on top and start frantically jumping up and down on the artificial penis, screaming and grinding in almost unbearable pleasure.'
  823. 'A few more movements, you cum, screaming and twitching in an incredibly long orgasm.'
  824. '"Now it''s my turn. Come on, girl."'
  825. $orgasm_or = 'yes'
  826. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  827. gs 'stat'
  828. act 'Return the favour':
  829. cla
  830. clr
  831. *clr
  832. ninelsex += 1
  833. if ninelsex = 1:girl += 1
  834. pcs_vag += 1
  835. sick = 0
  836. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  837. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5 + 1000
  838. pcs_mood = 100
  839. gs 'stat'
  840. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam19a.jpg"></center>'
  841. 'Ninel removes the strapon and you press your face to her soaking wet pussy. It doesn''t take long for you efforts to bring Ninel to orgzazm. She screams and digs her nails into her own knees as your face is covered by her squirting orgasm.'
  842. gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
  843. gs 'stat'
  844. act 'Dress':
  845. cla
  846. *clr
  847. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam11.jpg"></center>'
  848. 'With trembling hands, you start pull on your panties. Ninel already slipped her robe back on, only her flushed face betraying her apparent innocence.'
  849. '"So...how do you feel?"'
  850. '"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.'
  851. '"Well, you see. It''s magic, baby. Mm-m ... You''re especially ful of it, I don''t normaly get so much pleasure. If you get sick again please come and see me or phone me."'
  852. '"If you like, we could spead sometime together, look for me in the clinic."'
  853. 'You promise to be sure to find her, clean up and leave.'
  854. gs 'arousal', 'end'
  855. gs 'stat'
  856. act 'Leave the clinic':gt 'street'
  857. end
  858. end
  859. end
  860. end
  861. end
  862. end
  863. end
  864. end
  865. end
  866. end
  867. end
  868. end
  869. end
  870. end
  871. if $ARGS[0] = 'ninel2':
  872. cla
  873. *clr
  874. 'You go to the waiting room and Ninel contemptuously ignores the old ladies sitting in the hallway, "No line, come into the office."'
  875. act 'See Dr. Ninel':
  876. cla
  877. *clr
  878. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam00.jpg"></center>'
  879. 'Ninel looks up from some medical notes, knowing you she smiles,'
  880. '"Hi, <<$pcs_nickname>>. Again ill?"'
  881. 'Coughing, you respond, "Yeah. Shall we?'
  882. '"Sure baby. Undress, I need to examine you first."'
  883. '"Why? You''re a magician..."'
  884. '"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."'
  885. '"In that case..."'
  886. act 'Undress':
  887. cla
  888. *clr
  889. pcs_horny += 10
  890. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam02.jpg"></center>'
  891. '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.'
  892. '"Yeah ... You''re wheezing alright. Say "ah"'
  893. act 'Ah...':
  894. cla
  895. *clr
  896. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam03.jpg"></center>'
  897. 'You open your mouth and carefully Ninel inspects your sore throat'
  898. '"This looks familiar. No question, it''s a cold, do you have a temperature?"'
  899. 'You smile, "Hot."'
  900. '"You''ll like this. Ninel rolls you onto your side and tells you to pull your knees to your chest.'
  901. act 'Hug your knees':
  902. cla
  903. clr
  904. *clr
  905. gs 'stat'
  906. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam04.jpg"></center>'
  907. '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'
  908. '"Oh, does baby like it? Come on let''s see how much."'
  909. gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
  910. gs 'stat'
  911. act 'Roll over':
  912. cla
  913. clr
  914. *clr
  915. gs 'stat'
  916. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam06.jpg"></center>'
  917. '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.'
  918. 'It looks like your wide-open vulva is massively turning her on.'
  919. gs 'arousal', 'vaginal_dildo', 5, 'sub', 'lesbian'
  920. gs 'stat'
  921. act 'Oh-h ..!':
  922. cla
  923. clr
  924. *clr
  925. pcs_horny = 100
  926. minut += 15
  927. gs 'stat'
  928. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam05.jpg"></center>'
  929. 'Overcome with passion, Ninel quickly takes off her robe, picks up her strapon from a draw in her desk and brings it to your lips.'
  930. 'You eagerly suck it, while Ninels skilled fingers play with your clit, causing warm waves of pleasure to run through your body.'
  931. '"Fuck me! Now!" You shout. Ninel grins, continuing to tease your clitoris with her hand.'
  932. '"Ask nicely."'
  933. '"Fuck me. I mean, please fuck me.'
  934. '"I''m not convinced, now politely, beg for it."'
  935. gs 'arousal', 'bj', 15, 'sub', 'lesbian'
  936. gs 'arousal', 'vaginal_finger', 15, 'sub', 'lesbian'
  937. minut -= 15
  938. gs 'stat'
  939. act 'Beg for it':
  940. cla
  941. *clr
  942. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam07.jpg"></center>'
  943. '"Please, please! Fuck me! Do with me what you want with me Dr. Ninel, I''m all yours! Just, please do it soon!'
  944. 'Ninel puts on the strapon 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 phalus as possible.'
  945. 'Ninel fucks you faster, moaning and groaning with every jolt, and you moan and clearly struggle.'
  946. '"On your knees! Turn around!" Orders your doctor.'
  947. gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian', 'rough'
  948. gs 'stat'
  949. act 'Obey':
  950. cla
  951. clr
  952. *clr
  953. pcs_vag += 1
  954. sick = 0
  955. pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
  956. pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5 + 1000
  957. pcs_mood = 100
  958. gs 'stat'
  959. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam08.jpg"></center>'
  960. '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.'
  961. '"Come on, take me! Please, I''m almost there!"'
  962. 'However, Ninel orders, "Beg, you need to convince me!'
  963. '"Please, please, please!" You shout. "Fuck me, Doc! I want to come! Yes - I''m a whore, your little girl, but please, please, let me finish!"'
  964. 'The strapon 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.'
  965. '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...'
  966. 'Finally you end and immediately Ninel commands,'
  967. '"Now you will appease me, my little slut. Come on, you know how!"'
  968. $orgasm_or = 'yes'
  969. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'rough'
  970. gs 'stat'
  971. act 'Oblige':
  972. cla
  973. *clr
  974. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam09.jpg"></center>'
  975. 'She helps you up, then pushes you backwards on to the couch. Removing the strapon Ninel climbs over you and sits on your face.'
  976. '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.'
  977. 'She cums with a long, yelling, shaking fever and abundantly fills your face with her juices.'
  978. gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
  979. gs 'stat'
  980. act 'Wow':
  981. cla
  982. *clr
  983. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam09a.jpg"></center>'
  984. 'When she finishes, Ninel rises and slowly dresses, showing you her perky body. It''s unbelievable, and again excitement rises.'
  985. 'Ninel sees this and smiles.'
  986. '"Oh, no. Enough is enough. But you come in another time for something else and we''ll have some fun..'
  987. 'You think to yourself that your next illness can''t come soon enough. You are healthy and satisfied, thanks to Ninel.'
  988. gs 'arousal', 'end'
  989. gs 'stat'
  990. act 'Thank Ninel and go':gt 'street'
  991. end
  992. end
  993. end
  994. end
  995. end
  996. end
  997. end
  998. end
  999. end
  1000. end
  1001. end
  1002. if $ARGS[0] = 'ninel3':
  1003. cla
  1004. *clr
  1005. 'You go to the waiting room and Ninel contemptuously ignores the old ladies sitting in the hallway, "No line, come into the office."'
  1006. act 'See Doctor':
  1007. cla
  1008. *clr
  1009. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/exam10.jpg"></center>'
  1010. 'Ninel looks up from some medical notes, knowing you she smiles,'
  1011. '"Hi, <<$pcs_nickname>>. Again ill?"'
  1012. '"Oh, Doctor. My pussy is burning, and leaking juices. Perhaps she is seriously ill.'
  1013. '"My poor child. Whatever are we going to do?'
  1014. act 'Tear off your clothes':
  1015. cla
  1016. *clr
  1017. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex01.jpg"></center>'
  1018. 'Groaning with impatience you tear off your clothes. Ninel takes off her robe and in front of your face stands her strapon.'
  1019. '"Suck it, baby. Make it hot and wet, just like you."'
  1020. 'You wrap your lips around the dildo and start sucking, squishing and covering it in your saliva. You can see this is exciting Ninel.'
  1021. gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
  1022. gs 'stat'
  1023. act 'Fuck me!':
  1024. cla
  1025. *clr
  1026. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex02.jpg"></center>'
  1027. 'Remembering that Ninel loves you to beg her to fuck you, you do not even need to pretend the desire is literally burnt into you. You beg and plead.'
  1028. 'Ninel finally heeds the request. She rudely puts you on your knees and begins to drive the strapon firmly into your inflamed vagina. You let out screams with each push. Your legs are weakening.'
  1029. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  1030. gs 'stat'
  1031. act 'Fall on the couch':
  1032. cla
  1033. *clr
  1034. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex03.jpg"></center>'
  1035. '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'
  1036. '"My God, you as well."'
  1037. '"I can not, it''s too much..!"'
  1038. gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian'
  1039. gs 'stat'
  1040. act 'Ride her':
  1041. cla
  1042. clr
  1043. *clr
  1044. pcs_mood += 15
  1045. pcs_willpwr += 15
  1046. pcs_vag += 1
  1047. gs 'stat'
  1048. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/polsex04.jpg"></center>'
  1049. 'You obediently change position. Ninel lies back on the couch, and you sit down on top of her and fuck her strapon.'
  1050. 'You bounce up and down on the strapon, squealing fingering your clit while Ninel beneath you starts to twitch and moan.'
  1051. 'You see that she can''t hold back any longer, and that works as a trigger - you orgasm.'
  1052. 'For a few seconds, you are competing with Ninel in screams of passion, and then fall exhausted on the couch.'
  1053. '"Thank you, doc. It was great..."'
  1054. '"Oh yeah, <<$pcs_nickname>>. Come again."'
  1055. $orgasm_or = 'yes'
  1056. gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
  1057. gs 'arousal', 'end'
  1058. gs 'stat'
  1059. act 'Freshen up and go':gt 'street'
  1060. end
  1061. end
  1062. end
  1063. end
  1064. end
  1065. end
  1066. if $ARGS[0] = 'glavdoc':
  1067. delact 'Visit the chief doctor'
  1068. minut += 5
  1069. if workhosp = 0:
  1070. 'You enter his office and ask about the job.'
  1071. 'The chief doctor looks at you. "Oh yeah, you''re that girl Catherine was talking about. Okay, It''s pretty simple."'
  1072. '"You''ll work weekdays, come here between 8 and 9, and the shift finishes at 16 hours. Miss a day and you don''t get paid. Salary paid on 25th, the pay per shift - 1000 <b>₽</b>."'
  1073. '"All details and assignments handled by personnel department. So, do you want the job?"'
  1074. else
  1075. 'You step into the office of the chief of staff.'
  1076. 'The dorcor looks up at you from his paperwork, then smiles.'
  1077. '"Ah, Ms. <<$pcs_lastname>>, nice to see you! Can I help you with something?"'
  1078. end
  1079. ! WD: Uninitialised ~ 'workshop' use 'workhosp'
  1080. if (work = 0 and workhosp = 0 and cheatWork = 0) or (workhosp = 0 and cheatWork = 1):
  1081. act 'Take the job':
  1082. cla
  1083. workhosp = 1
  1084. work = 1
  1085. 'The personnel department give you a pass and a booklet with T''s + C''s. "Welcome on board."'
  1086. act 'Leave':gt 'poli', 'start'
  1087. end
  1088. end
  1089. if workhosp = 1:act 'Resign':gt 'poli', 'discharge'
  1090. act 'Leave':gt 'poli', 'start'
  1091. end
  1092. if $ARGS[0] = 'beginwork':
  1093. cla
  1094. *clr
  1095. '<center><b><font color="maroon">Clinic</font></b></center>'
  1096. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/hospital.jpg"></center>'
  1097. 'You have replaced the clinic.'
  1098. act 'Start work':
  1099. smena += 1
  1100. gt 'WorkHosp', 'start'
  1101. end
  1102. act 'Resign':gt 'poli', 'discharge'
  1103. end
  1104. if $ARGS[0] = 'discharge':
  1105. cla
  1106. minut += 10
  1107. workhosp = 0
  1108. work = 0
  1109. pay = smena * 1000
  1110. money += pay
  1111. smena = 0
  1112. 'Chief doctor looks at you. "Here is your outstanding pay, <<pay>> <b>₽</b> and your employment history. Goodbye."'
  1113. act 'Leave':gt 'street'
  1114. end
  1115. if $ARGS[0] = '0':
  1116. cla
  1117. *clr
  1118. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex1.jpg"></center>'
  1119. 'During the examination, the doctor starts to flirt and touch you, clearly trying to start something intimate.'
  1120. act 'Reject him':gt 'poli', 'start'
  1121. act 'Have some fun':
  1122. picrand = 11
  1123. guy += 1
  1124. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1125. gs 'boyStat', $npclastgenerated
  1126. xgt 'sex', 'var'
  1127. end
  1128. end
  1129. if $ARGS[0] = '1':
  1130. cla
  1131. *clr
  1132. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex2.jpg"></center>'
  1133. 'You are examined by two doctors, they touch you everywhere clearly going beyond what is permitted'
  1134. act 'Storm out':gt 'poli', 'start'
  1135. act 'Have some fun':
  1136. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1137. $boy[0] = $npclastgenerated
  1138. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1139. $boy[1] = $npclastgenerated
  1140. picrand = 11
  1141. guy += 2
  1142. xgt 'sexdvoe', 'var'
  1143. end
  1144. end
  1145. if $ARGS[0] = '2':
  1146. cla
  1147. *clr
  1148. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex3.jpg"></center>'
  1149. 'Going to the office you catch a nurse kneeling before the doctor with his cock in her mouth.'
  1150. act 'Leave':gt 'poli', 'start'
  1151. act 'Walk in':
  1152. cla
  1153. *clr
  1154. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex4.jpg"></center>'
  1155. 'As you walk in, the doctor runs out, and the startled nurse just glares at you. After a moment in 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.'
  1156. act 'Leave':gt 'poli', 'start'
  1157. act 'Let her':
  1158. cla
  1159. *clr
  1160. gs 'npcgeneratec', 0, 'Doctor', rand(28,48)
  1161. gs 'boyStat', $npclastgenerated
  1162. guy += 1
  1163. girl += 1
  1164. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex5.jpg"></center>'
  1165. 'She pulls down your clothes and bends you over the couch. Then she begins to pleasure your pussy with her tongue'
  1166. gs 'arousal', 'cuni', 10, 'lesbian', 'group'
  1167. gs 'stat'
  1168. act 'Lick her':
  1169. cla
  1170. *clr
  1171. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/sex/hospsex6.jpg"></center>'
  1172. 'You lay her on the couch and sink your lips into her pussy, the smell of her sex drives you crazy, you could not put her down and lick her pussy to put your tongue inside her pussy and ass, in this state you are found by the returning doctor.'
  1173. gs 'arousal', 'cuni_give', 10, 'lesbian', 'group'
  1174. gs 'stat'
  1175. act 'Threesome':picrand = 11 & gt 'podrsex', 'suck'
  1176. end
  1177. end
  1178. end
  1179. end
  1180. if $ARGS[0] = 'cosmetic1':
  1181. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmetic1.jpg"></center>'
  1182. 'You are greeted by a nurse that explains what procedures are available.'
  1183. ''
  1184. 'Electrolysis will remove your body hair and stop it from growing.'
  1185. 'Fillable breast implants allow you to fill them after the surgery. We stock silicone you use to fill them.'
  1186. 'String implants slowly absorb your body fluids and grow larger over time. We can also drain it for you if it becomes too large.'
  1187. ''
  1188. ''
  1189. ''
  1190. if money >= 80000 and lashair = 0:
  1191. '<a href="exec:gt ''poli'', ''electrolysis''">Electrolysis treatment</a> - 80000'
  1192. else
  1193. 'Electrolysis treatment - 80000'
  1194. end
  1195. if money >= 25000 and pcs_lip <= 4:
  1196. '<a href="exec:gt ''poli'', ''lipPlus''">Lip enlargement surgery</a> - 25000'
  1197. else
  1198. 'Lip enlargement surgery - 25000'
  1199. end
  1200. if money >= 25000 and pcs_lip ! 0:
  1201. '<a href="exec:gt ''poli'', ''lipMin''">Lip reduction surgery</a> - 25000'
  1202. else
  1203. 'Lip reduction surgery - 25000'
  1204. end
  1205. if money >= 30000 and pcs_eyesize <= 3:
  1206. '<a href="exec:gt ''poli'', ''eyePlus''">Eye enlargement surgery</a> - 30000'
  1207. else
  1208. 'Eye enlargement surgery - 30000'
  1209. end
  1210. if money >= 30000 and pcs_eyesize ! 0:
  1211. '<a href="exec:gt ''poli'', ''eyeMin''">Eye reduction surgery</a> - 30000'
  1212. else
  1213. 'Eye enlargement surgery - 30000'
  1214. end
  1215. if money >= 150000 and salo > 40:
  1216. '<a href="exec:gt ''poli'', ''lyposuction''">Lyposuction</a> - 150000'
  1217. else
  1218. 'Lyposuction - 150000'
  1219. end
  1220. ''
  1221. if money >= 150000 and silicone ! 0:
  1222. '<a href="exec:brSurTemp = 0 & stringimplant = 0 & fillimplant = 0 & gt ''poli'', ''bImplantA''">Remove breast implants</a> - 150000'
  1223. else
  1224. 'Remove breast implants - 150000'
  1225. end
  1226. if money >= 150000 and fillimplant = 0 and stringimplant = 0:
  1227. '<a href="exec:brSurTemp = 10 & gt ''poli'', ''bImplantA''">Get small breast implants</a> - 150000'
  1228. else
  1229. 'Get small breast implants - 150000'
  1230. end
  1231. if money >= 150000 and fillimplant = 0 and stringimplant = 0:
  1232. '<a href="exec:brSurTemp = 20 & gt ''poli'', ''bImplantA''">Get medium breast implants</a> - 150000'
  1233. else
  1234. 'Get medium breast implants - 150000'
  1235. end
  1236. if money >= 150000 and fillimplant = 0 and stringimplant = 0:
  1237. '<a href="exec:brSurTemp = 30 & gt ''poli'', ''bImplantA''">Get large breast implants</a> - 150000'
  1238. else
  1239. 'Get large breast implants - 150000'
  1240. end
  1241. if money >= 150000 and fillimplant = 0 and stringimplant = 0:
  1242. '<a href="exec:brSurTemp = 40 & gt ''poli'', ''bImplantA''">Get XXL breast implants</a> - 150000'
  1243. else
  1244. 'Get XXL breast implants - 150000'
  1245. end
  1246. if money >= 200000 and silicone = 0 and fillimplant = 0 and stringimplant = 0:
  1247. '<a href="exec:brSurTemp = 20 & fillimplant = 1 & gt ''poli'', ''bImplantA''">Get fillable implants</a> - 200000'
  1248. else
  1249. 'Get fillable implants - 200000'
  1250. end
  1251. if money >= 250000 and silicone = 0 and fillimplant = 0 and stringimplant = 0:
  1252. '<a href="exec:brSurTemp = 20 & stringimplant = 1 & gt ''poli'', ''bImplantA''">Get string implants</a> - 250000'
  1253. else
  1254. 'Get string implants - 250000'
  1255. end
  1256. 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> - 2000'
  1257. ''
  1258. if money >= 500:
  1259. '<a href="exec:siliconeBag += 1 & money -= 500 & MSG ''You buy a silicone bag.''">Buy silicone bag</a> - 500'
  1260. else
  1261. 'Buy silicone bag - 500'
  1262. end
  1263. act 'back':gt 'poli','start'
  1264. end
  1265. if $ARGS[0] = 'electrolysis':
  1266. cls
  1267. minut += 120
  1268. pcs_leghair = 0
  1269. pcs_pubes = 0
  1270. lashair = 1
  1271. money -= 80000
  1272. gs 'stat'
  1273. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/electrolysis.jpg"></center>'
  1274. 'Surgeon has you strip and lie down on the table. Over next few hours you are poked with needle over and over again.'
  1275. act 'Continue':gt 'poli', 'cosmetic1'
  1276. end
  1277. if $ARGS[0] = 'lipPlus':
  1278. cls
  1279. minut += 60
  1280. pcs_lip += 1
  1281. money -= 25000
  1282. gs 'body_shape', 'basebeautycalc', 1
  1283. gs 'stat'
  1284. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1285. 'Surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you to breathe in. By the time you wake up procedure is complete.'
  1286. act 'Continue':gt 'poli', 'cosmetic1'
  1287. end
  1288. if $ARGS[0] = 'lipMin':
  1289. cls
  1290. minut += 60
  1291. pcs_lip -= 1
  1292. money -= 25000
  1293. gs 'body_shape', 'basebeautycalc', 1
  1294. gs 'stat'
  1295. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1296. 'Surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you to breathe in. By the time you wake up procedure is complete.'
  1297. act 'Continue':gt 'poli', 'cosmetic1'
  1298. end
  1299. if $ARGS[0] = 'eyePlus':
  1300. cls
  1301. minut += 60
  1302. pcs_eyesize += 1
  1303. money -= 30000
  1304. gs 'body_shape', 'basebeautycalc', 1
  1305. gs 'stat'
  1306. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1307. 'Surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you to breathe in. By the time you wake up procedure is complete.'
  1308. act 'Continue':gt 'poli', 'cosmetic1'
  1309. end
  1310. if $ARGS[0] = 'eyeMin':
  1311. cls
  1312. minut += 60
  1313. pcs_eyesize -= 1
  1314. money -= 30000
  1315. gs 'body_shape', 'basebeautycalc', 1
  1316. gs 'stat'
  1317. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1318. 'Surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you to breathe in. By the time you wake up procedure is complete.'
  1319. act 'Continue':gt 'poli', 'cosmetic1'
  1320. end
  1321. if $ARGS[0] = 'lyposuction':
  1322. cls
  1323. minut += 60
  1324. salo -= 40
  1325. if salo < 11: salo = 11
  1326. money -= 150000
  1327. gs 'body_shape', 'softreset'
  1328. gs 'stat'
  1329. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1330. 'Surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you to breathe in. By the time you wake up procedure is complete.'
  1331. act 'Continue':gt 'poli', 'cosmetic1'
  1332. end
  1333. if $ARGS[0] = 'bImplantA':
  1334. cls
  1335. minut += 60
  1336. silicone = brSurTemp
  1337. money -= 150000
  1338. gs 'stat'
  1339. '<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
  1340. 'Surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you to breathe in. By the time you wake up procedure is complete.'
  1341. act 'Continue':gt 'poli', 'cosmetic1'
  1342. end
  1343. --- poli ---------------------------------