1
0

korr.qsrc 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579
  1. # korr
  2. 2021/04/20
  3. music_loop = 0
  4. CLOSE ALL
  5. $loc = 'korr'
  6. $loc_arg = ''
  7. $locM = 'korr'
  8. $locM_arg = ''
  9. $menu_loc = 'korr'
  10. $menu_arg = ''
  11. menu_off = 0
  12. $location_type = 'private'
  13. killvar '$locclass'
  14. if sound = 0:PLAY 'sound/korr.mp3',30
  15. if courtletter_date <= daystart and courtletter_date ! 0: gt 'sentence', 'letter'
  16. if lesbiday + 14 <= daystart and lesbiQW >= 11 and hour >= 19 and santehnikDolg = 0:
  17. if RAND(0,100) > 82 and husband = 0:
  18. gt 'lesbimistress','mistvisit'
  19. else
  20. lesbiday += 1
  21. end
  22. end
  23. act '</b>Go to the stairwell</b>':
  24. *clr & cla
  25. if $clothingworntype = 'nude':
  26. '<b><font color="red">You need to get dressed before going out.</font></b>'
  27. xgt $curloc
  28. elseif sick > 72:
  29. '<b><font color="red">You''re too sick to leave home.</font></b>'
  30. xgt $curloc
  31. else
  32. xgt 'city_apt_building', 'floor_5'
  33. end
  34. end
  35. act '<b>Go to the street</b>':
  36. *clr & cla
  37. if $clothingworntype = 'nude':
  38. '<b><font color="red">You need to get dressed before going out.</font></b>'
  39. xgt $curloc
  40. elseif sick > 72:
  41. '<b><font color="red">You''re too sick to walk around in the streets.</font></b>'
  42. xgt $curloc
  43. else
  44. minut += 2
  45. xgt 'city_residential', 'start'
  46. end
  47. end
  48. act 'The bedroom':gt 'bedr'
  49. act 'The bathroom':gt 'vanr'
  50. act 'The kitchen':gt 'kuhr'
  51. act 'The living room':gt 'sitr'
  52. popolaini = 0
  53. saunaYouRoom = 0
  54. boycherdaksex = 0
  55. bonusZ = 0
  56. minut += 1
  57. housrA = 1
  58. housrMir = 0
  59. elektro += 1
  60. gs 'stat'
  61. gs 'themes', 'indoors'
  62. '<center><b><font color="maroon">Corridor</font></b></center>'
  63. if remkorr = 0:
  64. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr.jpg"></center>'
  65. 'The wallpaper in the hallway has long since faded and is peeling from the walls. A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall.'
  66. else
  67. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr2.jpg"></center>'
  68. 'A modern hall with stylish furniture, including a wall-mounted <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
  69. end
  70. if umbrella > 0:'On a hook hangs an umbrella.'
  71. if krolik = 1:'Resting on the floor there''s your rabbit <a href="exec:gt ''krol'', ''start''"><<$namekrol>></a>.'
  72. if ParrotQW['Owned1'] = 1:'Your parrot sits in a cage. <a href="exec:gt ''popu'', ''start''"><<$ParrotQW[''Name1'']>></a>.'
  73. if parkday ! daystart and parkblackmail = 1:
  74. parkblackmail = 2
  75. parkday = daystart
  76. 'A heavy envelope has arrived in the mail. When you open it, you find several pictures inside. Shit! Are these pictures of you giving blowjobs to two guys in the park?'
  77. 'A small note accompanying them says:'
  78. 'If you do not want these pictures to be posted on your porch and sent to your work place, then come to this address (address listed is a Studio)'
  79. 'PS, if you do not come today, these pictures will be hanging in your entrance hall tomorrow.'
  80. elseif parkday ! daystart and parkblackmail = 2:
  81. parkblackmail = 0
  82. fotoyousuck = 1
  83. 'Oh shit! Photos of you with your face covered in cum with two dicks in your mouth are covering your entrance hall walls.'
  84. end
  85. !!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  86. if hour >= 9 and hour <= 20 and santehnikDolg > 0 and money >= santehnikDolg:
  87. '<b><font color="red">, the doorbell rings</font></b>'
  88. act 'Go to the door':
  89. *clr & cla
  90. gs 'stat'
  91. 'You go to the door and look through the peephole. You see a dark male figure. Apparently the man heard you. "It''s me. Grisha, the plumber. You owe me some money, remember?" he syas through the door.'
  92. act 'Answer the door':
  93. *clr & cla
  94. money -= santehnikDolg
  95. santehnikDolg = 0
  96. gs 'stat'
  97. 'You open the door and Gregory smiles. "I thought you were hiding from me. So? Do you have my money?" You nod and pay him the 1,500 rubles.'
  98. act 'Close the door':gt $curloc
  99. end
  100. end
  101. end
  102. if BurgerQW['IlyQW'] = 3 and hour >= 9 and hour <= 20:
  103. *clr & cla
  104. BurgerQW['IlyQW'] = 4
  105. if DolgRS <= moneySUM:
  106. money = moneySUM - 650000
  107. karta = 0
  108. stolmoney = 0
  109. minut += 120
  110. 'A police patrol arrives and takes you to court. You manage to pay off your debts and you are released after reconciling the parties.'
  111. act 'Get out of the courthouse':gt 'city_center'
  112. else
  113. DolgRS = 650000 - moneySUM - 60000
  114. money = 0
  115. karta = 0
  116. stolmoney = 0
  117. vidage += 7
  118. year += 5
  119. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  120. money = 2000
  121. 'A police patrol arrives and takes you to court. After standing trial, you are given five years of jail time and are required to pay your debt of <<DolgRS>>.'
  122. act 'Sit on the area':
  123. *clr & cla
  124. srok_kolvo = 1
  125. srok_otsidki += 5
  126. salo = 10
  127. fat = 10
  128. if defcurly = 0:
  129. curly = 0
  130. else
  131. curly = 2147483647
  132. end
  133. straight = 0
  134. pcs_makeup = 1
  135. pcs_skin = 0
  136. pcs_tan = 0
  137. pcs_leghair = 12
  138. pcs_pubes = 30
  139. bfa = 0
  140. narkoman = 0
  141. nark = 0
  142. SLomka = 0
  143. work = 0
  144. workKafe = 0
  145. workhosp =0
  146. worksalon =0
  147. tanwork =0
  148. workSec =0
  149. preg = 0
  150. young_shop_work = 0
  151. gs 'uniutil', 'student', 'unenroll'
  152. gs 'stat'
  153. 'Time drags on slowly. Your life and work are tedious and monotonous. You''ve been sewing for five years, having meals in the dining room and going to sleep in the barracks surrounded by other female inmates. 1,000 <b>₽</b> of your 2,000 <b>₽</b> per month salary goes towards your debt repayment. As slow as it seems, time does not stand still and your torment finally comes to an end. You are released and given 2,000 <b>₽</b>. You board the train and come back to the city.'
  154. act 'Get off the train': gt 'city_industrial_train', 'outside'
  155. end
  156. end
  157. exit
  158. end
  159. if BurgerQW['IlyQWDay'] ! daystart and BurgerQW['IlyQW'] = 1 and hour >= 8 and hour <= 20:
  160. '<b><font color="red">The doorbell rings</font></b>'
  161. act 'Walk up to the door':
  162. *clr & cla
  163. gs 'stat'
  164. 'You walk up to the door and look through the peephole. You see a few men, and even in the dark, you recognize them from their caps. <<$pcs_firstname>> <<$pcs_lastname>>! This is the police, open up!'
  165. act 'Answer the door':
  166. *clr & cla
  167. minut += 60
  168. BurgerQW['IlyQW'] = 2
  169. gs 'stat'
  170. 'You open the door, wondering what they want from you. There are several men in uniform and others in civilian clothes. A lean and skinny guy with with a weeks worth of stubble and a pistol in a holster slung under his armpit says "Please take a seat while we search the apartment." The decective then turns to you. "That''s a warrant for your arrest and this is a search warrant. You can read them." The police fully search your apartment. Soon, one of them comes out and says: "Here are the keys. According to the description, these look like the keys to the office and the safe where the money was stolen." The detective frowns at you and nods to the policeman, who puts your hands behind your back and snaps the handcuffs around your wrists.'
  171. act 'Go with the police':
  172. *clr & cla
  173. minut += 60
  174. gs 'stat'
  175. 'You''re taken out of the house in handcuffs and pushed into a police UAZ. After the door slams shut, the car leaves, shaking and growling at each bump. You finally arrive somewhere and you are taken from the car and into a building. You are brought into an interview room where the dectective is waiting for you. He takes the handcuffs off you and offers you a seat. You sit in a hard and uncomfortable chair while the detective turns the TV on and inserts a video tape. On the screen is a picture of a security camera in Bystroeshke. You soon appear in the corridor, go to the office door and enter. After a while, the door opens again and you come out of the office holding a thick envelope. The detective takes the tape out and inserts another one.'
  176. 'It shows Chubais'' office. The door opens and you walk in holding some keys. You go to the safe, open it with one of the keys and take an envelope with <<$BurgerQW[''IlySecurityCamDesc'']>> written on it. The detective turns the TV off, picks up a plastic bag with the keys inside and finally speaks. "Tests prove that the keys found in your apartment are those to the office and the safe of Bystroezhki. The tapes from the surveillance cameras clearly show you entering the office and taking 650,000 rubles." He takes out a pen and paper and begins to write. While writing, he looks up to you with gloomy eyes and says. "A confession will help you in the court. Since this is a first time offense and provided you return the money, you may be given a suspended sentence if you admit your guilt."'
  177. act 'Sign confession':
  178. *clr & cla
  179. minut += 60
  180. gs 'stat'
  181. 'You sign the confession and the detective barks: "Duty officer." A policeman enters the room and the detective nods in your direction. "Take her."'
  182. act 'Go':gt 'kameraKPZ'
  183. end
  184. act 'Tell how it was':
  185. *clr & cla
  186. minut += 60
  187. gs 'stat'
  188. 'You tell the detective what actually happened and how Ilyushkin framed you, but he hardly listens to you before he slams his fist on the table and yells at you, "I was not born yesterday! If you will not cooperate, you''ll rot in prison!" A policeman enters the room and the detective nods in your direction. "Take her."'
  189. act 'Go':gt 'kameraKPZ'
  190. end
  191. end
  192. end
  193. end
  194. exit
  195. end
  196. if gopstop > 30:gt 'police', '1'
  197. if sick > 0 and doktorday ! daystart:
  198. !!act 'Call a doctor':
  199. !! cla
  200. !! *clr
  201. !! minut += 15
  202. !! doktorday = daystart
  203. !! sick -= 5
  204. !! if sick < 1:sick = 1
  205. !! if sickstage = 1:sicktimer += 5
  206. !! 'A doctor arrives from the clinic and examins you. After examination, the doctor gives a shot and you feel better.'
  207. !! act 'Move away':gt 'korr'
  208. !!end
  209. act 'Call a doctor':doktorday = daystart & dynamic $polidin
  210. end
  211. $ninel0 = {
  212. cla
  213. *clr
  214. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel00.jpg"></center>'
  215. 'You open the door. Standing on the threshold is a pretty young girl with a medical bag in her hand. You greet her.'
  216. '"Hello, my name is Ninel. - I do the home visits for the clinic. Where is the patient?"'
  217. '"That would be me... kha-kha-kha."'
  218. '"I see. First, we need to get you back into bed."'
  219. act 'Follow the doctor in the bedroom and lay down':
  220. cla
  221. *clr
  222. ninelmet = 1
  223. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom0.jpg"></center>'
  224. 'The doctor sits on the edge of your bed and checks your forehead.'
  225. '"What are your symptoms <<$pcs_nickname>>? Can I call you that?"'
  226. '"Of course..." You start to answer but end up coughing. "Sorry. I have high fever, sore throat and a cough that''s killing me!"'
  227. '"Running nose? Headaches? Aching bones?"'
  228. '"Yes, all of them."'
  229. '"Well, take your clothes off so I can examine you."'
  230. act 'Undress':
  231. cla
  232. *clr
  233. minut += 5
  234. pcs_horny += 10
  235. clr
  236. gs 'stat'
  237. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom1.jpg"></center>'
  238. 'You undress and the doctor listens to your lungs for a long time. Her hands are cool and gentle as she touches you, while the stethoscope is cold.'
  239. '"Mmmm, now let''s take a look at your mouth. Open wide and say Aaah."'
  240. act 'Ahh':
  241. cla
  242. *clr
  243. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
  244. 'You open your mouth and the doctor looks in, examining your sore throat'
  245. '"I see. Your throat is very red and inflamed. Now we need to take your temperature.'
  246. act 'Put a thermometer in your mouth':
  247. cla
  248. *clr
  249. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel04.jpg"></center>'
  250. '"No, not like that. The temperature needs to be measured rectally.'
  251. '"What...?"'
  252. '"It''s more precise. Don''t be afraid, it''s not painful."'
  253. '"Well if I have to..."'
  254. '"It''s necessary. Come on, lie down on your stomach and spread your buttocks with your hands please."'
  255. act 'Change position':
  256. cla
  257. *clr
  258. clr
  259. gs 'stat'
  260. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom2.jpg"></center>'
  261. 'You obediently roll over, offering your ass. The doctor lubricates your anus with some vaselin and deftly introduces the thermometer. You flinch, not from pain but pleasure. The doctor doesn''t just stick the thermometer in your ass, but slowly moves it back and forth. It''s very nice and you feel your excitement growing.'
  262. gs 'arousal', 'anal_dildo', 10
  263. gs 'stat'
  264. if pcs_horny >= 50:
  265. act 'Moan with pleasure':
  266. cla
  267. *clr
  268. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
  269. 'The doctor takes the thermometer out of your ass and checks it.'
  270. '"39.2. Very bad. Please turn on your back, I need to palpate the lymph nodes.'
  271. act 'Roll over on your back':
  272. cla
  273. *clr
  274. clr
  275. gs 'stat'
  276. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom5.jpg"></center>'
  277. 'The doctor begins to stroke and knead your stomach and thighs. You are not actually sure if this is a medical procedure. She does it for too long, but it''s too pleasant and you don''t object.'
  278. 'Your excitement continues to grow and you feel your pussy moistening as you start to whine sweetly...'
  279. gs 'arousal', 'foreplay', 15
  280. gs 'stat'
  281. act 'Blush of embarrassment':
  282. cla
  283. *clr
  284. clr
  285. gs 'stat'
  286. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom6.jpg"></center>'
  287. 'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
  288. '"Doctor, what are you doing!" you scream feeling embarrassed, outraged and frightened.'
  289. '"I feel the magic in you, which means you''re one of us, and I can use his power quietly." she replies.'
  290. '"So you''re a magician too?"'
  291. '"Yes, but only with a special kind magic. Tantric. Have you heard of it?'
  292. '"No, I don''t think so..."'
  293. '"It''s based on sensuality and sex. Roughly speaking, I can only cast spells when having sex."'
  294. '"So...?"'
  295. '"That is, if I have sex with you, I will heal you. So? Do you agree?"'
  296. '"And what should I do in return?"'
  297. '"Nothing. I''m doing it solely for my own satisfaction. I will see that you only have orgasms if conjured."'
  298. '"Then of course I agree."'
  299. gs 'arousal', 'foreplay', 15
  300. gs 'stat'
  301. act 'Surrender to the gentle hands of Ninel':gt 'housecall', 'ninel2'
  302. end
  303. end
  304. end
  305. end
  306. act 'Indignant':
  307. cla
  308. *clr
  309. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
  310. '"Doctor, what the hell are you doing?" you squeal.'
  311. 'She takes the thermometer out of your ass and calmly replies:'
  312. '"I''m measuring your temperature. 39.2, very bad."'
  313. act 'Doctor, what''s wrong with me?':
  314. cla
  315. '"Doctor, what''s wrong with me?" you ask, somewhat scared.'
  316. '"You have a really bad flu, but I''ll make you an injection of antibiotic and antigen. You will soon feel better."'
  317. act 'Get injection':
  318. cla
  319. *clr
  320. minut += 10
  321. sick -= 2
  322. lekar += 3
  323. clr
  324. gs 'stat'
  325. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom4.jpg"></center>'
  326. 'The doctor jabs the needle into one of your ass cheeks and injects the contents. You whimper slightly.'
  327. '"That''s about everything. You have to rest in bed, drink hot drinks, take antibiotics and nose drops, stay on a balanced diet. When your temperature drops, come to the clinic to see me."'
  328. '"Thank you, Doctor, I will follow your instructions."'
  329. 'The doctor says goodbye and leaves.'
  330. act 'Back to bed':gt 'bedr'
  331. end
  332. end
  333. end
  334. act 'Doctor, what''s wrong with me?':
  335. cla
  336. '"Doctor, what''s wrong with me?" you ask fearfully.'
  337. '"I''m afraid you have angina, <<$pcs_nickname>>. I would advise you recieve immediate treatment." she replies.'
  338. '"What''s that?! You mean, in the hospital?" you shriek.'
  339. '"Yes, at the clinic." she calmly replies.'
  340. act 'Refuse':
  341. cla
  342. *clr
  343. '"Doctor, I can''t go to the hospital!"'
  344. 'She smiles at you. "Well... I guess we could do it a different way then. I''ll give you a couple of shots to start with.'
  345. '"Oh thank you, doctor!"'
  346. act 'Lie on your stomach and bare your ass':
  347. cla
  348. clr
  349. gs 'stat'
  350. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom9.jpg"></center>'
  351. 'The doctor jabs a needle into your ass cheek and then pats your ass a few times. You suddenly develop an incredible sexual arousal and it is as if a fire has started between your thighs. Your pussy burns and drips, your breath gets heavy, your nipples harden and get stiff...'
  352. '"Doctor, what''s happening?" you ask, almost screaming. You feel embarrassed and kind of frightened, but your voice breaks, betraying your arousal, and you moan voluptuously'
  353. '"Yeah! I knew it! I can feel the magic in you, which means you''re one of us, and I can use my power quietly."'
  354. '"So you''re a magician too?!"'
  355. '"Yes, but only with a special kind magic. Tantric. Have you heard of it?"'
  356. '"No, I don''t think so..."'
  357. '"It''s based on sensuality and sex, roughly speaking, I can cast spells only while having sex."'
  358. '"So...?"'
  359. '"That''s it. If we have sex, I will heal you. Do you agree?!'
  360. '"And what should I do in return?"'
  361. '"Nothing. I''m doing it solely for my own satisfaction. I''ll see that you only have orgasms if conjured.'
  362. '"Then of course I agree."'
  363. gs 'arousal', 'foreplay', 15
  364. gs 'stat'
  365. act 'Surrender to the gentle touch of Ninel':gt 'housecall', 'ninel2'
  366. end
  367. end
  368. end
  369. end
  370. end
  371. end
  372. end
  373. end
  374. }
  375. $drPP = {
  376. cla
  377. *clr
  378. 'You answer the door. On the threshold is an older, balding man with a medical bag in his hand.'
  379. '"Hello, doctor."'
  380. '"Hello, dear. I am Peter, the local doctor. Now please go back to bed and don''t stand in this cold air.'
  381. act 'Take the doctor to the bedroom.':
  382. cla
  383. *clr
  384. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp1.jpg"></center>'
  385. 'You walk back to the bedroom with the doctor. He sits on the edge of the bed and feels your forehead'
  386. '"So Miss <<$pcs_lastname>>. What are your symptoms?'
  387. '"Ahem, ahem... Well, Doctor, I have sore throat - very sore actually - and a high temperature."'
  388. '"And a nasty cough I see. And judging by your voice, also a running nose."'
  389. '"Yes... Aachoo!!"'
  390. '"Miss <<$pcs_lastname>>, please remove your clothes so I can examine you."'
  391. act 'Undress':
  392. cla
  393. *clr
  394. minut += 5
  395. clr
  396. gs 'stat'
  397. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp2.jpg"></center>'
  398. 'You undres and the doctor listens to your lungs for a while.'
  399. '"Now let''s take a look at your throat. Open your mouth wide and say Aahh."'
  400. act 'Aahh':
  401. cla
  402. *clr
  403. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp3.jpg"></center>'
  404. 'You open your mouth and the doctor looks in.'
  405. '"Mmmm, I see. Well, let''s take your temperature."'
  406. act 'Put the thermometer under your armpit':
  407. cla
  408. *clr
  409. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp4.jpg"></center>'
  410. 'The doctor waits a few minutes, then looks at the thermometer and shakes his head'
  411. act 'Doctor, what''s wrong with me?':
  412. cla
  413. '"You have the flu." he says "Nothing too serious, I''ll just give you an injection and you''ll feel better soon. Stay in bed, drink lots of fluids and try to rest as much as possible. When you feel better come to the clinic. Now please roll over so I can give you the injection."'
  414. act 'Roll over and lay on your stomach':
  415. cla
  416. *clr
  417. minut += 10
  418. sick -= 2
  419. lekarstvo += 3
  420. gs 'stat'
  421. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp5.jpg"></center>'
  422. 'The doctor jabs a needle into your ass and injects the contents.'
  423. '"Now remember. Stay in bed, drink lots of fluids and try to rest. When you feel better come by the clinic."'
  424. '"Thank you, Doctor, I will."'
  425. 'You escort the doctor back to the entrace where he says goodbye and leaves. After shutting the door, you head back to bed.'
  426. act 'Back to bed':gt 'bedr'
  427. end
  428. end
  429. end
  430. end
  431. end
  432. end
  433. }
  434. $polidin = {
  435. cla
  436. *clr
  437. minut += 15
  438. callrand = rand(1, 3)
  439. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
  440. 'You dial the number of the clinic several times, but it''s always busy.'
  441. act 'Call again and again':
  442. cla
  443. 'Finally, a tired nurse''s voice answers. "Hello, this is the clinic. How can I help you?"'
  444. act 'Hello ...':
  445. cla
  446. '"Hello. Can I get a house call?" you manage to say between coughing fits.'
  447. 'The nurse asks. "Your name and address?"'
  448. act 'Give address':
  449. cla
  450. 'You have a coughing fit before you''re able to answer. "Sorry, it''s <<$pcs_firstname>> <<$pcs_lastname>>. Street Park House 4, apartment 69." you manage before sneezing.'
  451. '"One moment please." she responds before she puts you on hold.'
  452. act 'Wait':
  453. cla
  454. minut += 5
  455. clr
  456. gs 'stat'
  457. 'You wait for five minutes, occasionally coughing and sneezing, until she finally returns. "So Miss <<$pcs_lastname>>, what are your symptoms?"'
  458. 'You start to answer but end up coughing. "Sorry, I have a fever, sore throat, a cough and a runny nose."'
  459. '"Is your temperature high?"'
  460. '"Yes, quite so, 39.2°C" you tell her followed by a sneeze.'
  461. '"Very well. A doctor will come see you at home."'
  462. '"How soon?"'
  463. '"As soon as one is free." she answers. "Yours isn''t an isolated case"'
  464. '"Thank you." you respond.'
  465. if ninelsex = 1:
  466. act 'Is Ninel available?':
  467. cla
  468. '"Is Doctor Pavlovna available? She is my regular doctor."'
  469. '"Let me check." The nurse puts you on hold for a couple of minutes and then comes back on. "Yes she is free and will make the house call."'
  470. '"Once again, thank you very much." you reply.'
  471. act 'Continue':gt 'housecall', 'ninel3'
  472. end
  473. end
  474. act 'Back to bed':
  475. cla
  476. *clr
  477. picrand = rand(21, 27)
  478. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick<<picrand>>.jpg"></center>'
  479. timerand = rand(1, 6)
  480. minut += timerand * 30
  481. 'You lie in bed, shivering while wrapped in a blanket. Time drags by painfully slow. You can''t say how much time passes before the doorbell rings.'
  482. ! WD: Uninitialised ~ 'ninel' use 'ninelmet'
  483. act 'Answer the door':
  484. if ninelmet > 0 and sick <= 50:
  485. gt 'housecall', 'ninel1'
  486. elseif ninelmet = 0 or sick > 50:
  487. doctrnd = rand(0, 1)
  488. if doctrnd = 0:dynamic $drPP
  489. if doctrnd = 1:gt 'housecall', 'ninel0'
  490. end
  491. end
  492. end
  493. end
  494. end
  495. end
  496. end
  497. }
  498. --- korr ---------------------------------