korr.qsrc 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585
  1. # korr
  2. music_loop = 0
  3. CLOSE ALL
  4. $loc = 'korr'
  5. $metka = ''
  6. $locM = 'korr'
  7. $metkaM = ''
  8. $menu_loc = 'korr'
  9. $menu_arg = ''
  10. menu_off = 0
  11. $location_type = 'private'
  12. killvar '$locclass'
  13. if sound = 0:PLAY 'sound/korr.mp3',30
  14. if courtletter_date <= daystart and courtletter_date ! 0: gt 'sentence', 'letter'
  15. if lesbiday + 14 <= daystart and lesbiQW >= 11 and hour >= 19 and santehnikDolg = 0:
  16. if RAND(0,100) > 82 and husband = 0:
  17. gt 'lesbimistress','mistvisit'
  18. else
  19. lesbiday += 1
  20. end
  21. end
  22. act '</b>Go to the stairwell</b>':
  23. *clr & cla
  24. if $clothingworntype = 'nude':
  25. '<b><font color="red">You need to get dressed before going out.</font></b>'
  26. xgt $curloc
  27. elseif sick > 72:
  28. '<b><font color="red">You''re too sick to leave home.</font></b>'
  29. xgt $curloc
  30. else
  31. xgt 'etoexhib', 'pos51'
  32. end
  33. end
  34. act '<b>Go to the street</b>':
  35. *clr & cla
  36. if $clothingworntype = 'nude':
  37. '<b><font color="red">You need to get dressed before going out.</font></b>'
  38. xgt $curloc
  39. elseif sick > 72:
  40. '<b><font color="red">You''re too sick to walk around in the streets.</font></b>'
  41. xgt $curloc
  42. else
  43. minut += 2
  44. xgt 'city_residential', 'start'
  45. end
  46. end
  47. act 'The bedroom':gt 'bedr'
  48. act 'The bathroom':gt 'vanr'
  49. act 'The kitchen':gt 'kuhr'
  50. act 'The living room':gt 'sitr'
  51. popolaini = 0
  52. saunaYouRoom = 0
  53. boycherdaksex = 0
  54. bonusZ = 0
  55. minut += 1
  56. housrA = 1
  57. housrMir = 0
  58. elektro += 1
  59. curr_home = 3
  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/pavlovsk/resident/apartment/home/korr.jpg"></center>'
  65. 'In the hallway the wallpaper is somewhere detached from the walls and anyway from long time faded. A <a href="exec:gt ''mirror'', ''start''">mirror</a> hangs on the wall.'
  66. else
  67. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/korr2.jpg"></center>'
  68. 'Modern hall with stylish furniture, 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:'In the cage sits your parrot <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 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 posted on your porch and sent to your work place, 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 sperm and 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 and says through the door. "It''s me. Grisha, the plumber. You owe me some money, remember?"'
  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['IvanQW'] = 3 and hour >= 9 and hour <= 20:
  103. *clr & cla
  104. BurgerQW['IvanQW'] = 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 a trial, you were given five years of general regime and 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. stipuha =0
  150. preg = 0
  151. young_shop_work = 0
  152. student = 0
  153. kurs = 0
  154. semestr = 0
  155. abiturient = 0
  156. stipuha = 0
  157. lektor = 0
  158. gs 'stat'
  159. 'Time draggs 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 women inmates. With your salary of 2,000 <b>₽</b> per month 1000 of which going on debt repayment. But for as slow as it seems, time does not stand still and finally your torment comes to an end. You are released and given 2,000 <b>₽</b>. You take the train and came back to the city.'
  160. act 'Get off the train': gt 'city_industrial_train', 'outside'
  161. end
  162. end
  163. exit
  164. end
  165. if BurgerQW['IvanQWDay'] ! daystart and BurgerQW['IvanQW'] = 1 and hour >= 8 and hour <= 20:
  166. '<b><font color="red">The doorbell rings</font></b>'
  167. act 'Come to the door':
  168. *clr & cla
  169. gs 'stat'
  170. 'You came to the door and look through the peephole. You saw a few men. Even in the dark you recognize them from their caps. One of the men says through the door. <<$pcs_firstname>> <<$pcs_lastname>> open, police.'
  171. act 'Answer the door':
  172. *clr & cla
  173. minut += 60
  174. BurgerQW['IvanQW'] = 2
  175. gs 'stat'
  176. 'You open the door to police 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 on a belt-tied armpit says: "Witness please take a seat, while we search the apartment of the citizen accused of stealing." The investigator turns to you. "That''s a warrant for your arrest, while this is a search warrant. You can read it." The policemen full search your apartment. Soon, one of them came out and says: "Here, are found the keys, according to the description they look like the keys to the office and the safe where the money was stolen." The witnesses signs the protocol got from the investigator. He then frowns at you and nodds to the policeman, who puts your hands behind your back and snaps the handcuffs around your wrists.'
  177. act 'Go with the police':
  178. *clr & cla
  179. minut += 60
  180. gs 'stat'
  181. 'You''re taken out of the house in handcuffs and pushed into a police UAZ. After the metal doors slams, the UAZ car leaves, shaking and growling at each bump. Finally you arrive somewhere and you are taken from the UAZ into a building and in an office where the investigator you already know, is waiting for you. He tooks the handcuffs off you and offers you a seat. You sit in a hard and uncomfortable chair, meanwhile the investigator turns the TV on and inserts a videocassette. On the screen there''s a picture of a security camera in Bystroeshke. At the beginning it only shows corridor. Soon you appear in the corridor. You go to the office door, opened it and enter. After a while, the door opens again and you come out of the office holding a thick envelope. The investigator takes the VCR tape out and then he inserts another one. 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[''IvanSecurityCamDesc'']>> written on it. The investigator turns the TV off, takes a plastic bag from the table with the keys 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 shows 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."'
  182. act 'Sign confession':
  183. *clr & cla
  184. minut += 60
  185. gs 'stat'
  186. 'You sign a confession and the investigator barks: "Duty officer." A policeman enters the room. The investigator nods in your direction and tells him "Take her."'
  187. act 'Go':gt 'kameraKPZ'
  188. end
  189. act 'Tell how it was':
  190. *clr & cla
  191. minut += 60
  192. gs 'stat'
  193. 'You tell the investigator what actually happened. How Ivan framed you. But the investigator hardly listen to you for a while, them he slams his fist on the table and yells at you, "I was not born yesterday, i don''t believe such nonsense. If you will not cooperate, you''ll rot in prison!" A policeman enters the room. The investigator nods in your direction and tells "Take her."'
  194. act 'Go':gt 'kameraKPZ'
  195. end
  196. end
  197. end
  198. end
  199. exit
  200. end
  201. if gopstop > 30:gt 'police', '1'
  202. if sick > 0 and doktorday ! daystart:
  203. !!act 'Call a doctor':
  204. !! cla
  205. !! *clr
  206. !! minut += 15
  207. !! doktorday = daystart
  208. !! sick -= 5
  209. !! if sick < 1:sick = 1
  210. !! if sickstage = 1:sicktimer += 5
  211. !! 'A doctor arrives from the clinic and examins you. After examination, the doctor gives a shot and you feel better.'
  212. !! act 'Move away':gt 'korr'
  213. !!end
  214. act 'Call a doctor':doktorday = daystart & dynamic $polidin
  215. end
  216. $ninel0 = {
  217. cla
  218. *clr
  219. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel00.jpg"></center>'
  220. 'You open the door. Standing on the threshold there''s a pretty young girl with a doctors bag in her hand.'
  221. 'You greet her.'
  222. '"Hello. My name is Ninel P. - I do the home visits for the clinic. Where is the patient?"'
  223. '"That would be me ... kha-kha-kha."'
  224. '"I see. First we need to get you back into bed."'
  225. act 'Follow the doctor in the bedroom and lay down':
  226. cla
  227. *clr
  228. ninelmet = 1
  229. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom0.jpg"></center>'
  230. 'The doctor sat on the edge of your bed and checks your forehead:'
  231. '(Doctor) - What are your symptoms <<$pcs_nickname>>? Can I call you that?'
  232. '(You) - Of course... - You start to answer but end up coughing. - Sorry, I have high fever, sore throat and a cough that''s killing me'
  233. '(Doctor) - Running nose? Headaches? Aching bones?'
  234. '(You) - Yes, alla of them'
  235. '(Doctor) - Well, take your clothes off, so I can examine you.'
  236. act 'Undress':
  237. cla
  238. *clr
  239. minut += 5
  240. pcs_horny += 10
  241. clr
  242. gs 'stat'
  243. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom1.jpg"></center>'
  244. 'You undressed 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...'
  245. '(Doctor) - Mmmm, now lets take a look at your mouth, open wide and say Aaah...'
  246. act 'A-a-a':
  247. cla
  248. *clr
  249. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
  250. 'You open your mouth and the doctor looks in examining your sore throat'
  251. '(Doctor) - I see... your throat is very red and inflamed... Now we need to take your temperature.'
  252. act 'Put a thermometer in your mouth':
  253. cla
  254. *clr
  255. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel04.jpg"></center>'
  256. '(Dr.) No, not so. The temperature needs to be measured rectally.'
  257. '(You) - What...?'
  258. '(Doctor) - It''s more preceisa and don''t be afraid, <<$pcs_nickname>>, it''s not painful.'
  259. '(You) - Well if i have to...'
  260. '(Doctor) - It''s necessary. Come on, lie down on your stomach and spread your buttocks with the hands, please.'
  261. act 'Change position':
  262. cla
  263. *clr
  264. clr
  265. gs 'stat'
  266. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom2.jpg"></center>'
  267. 'You obediently roll over offering your ass. The doctor lubricates your anus with some vaselin and deftly introduces a thermometer. You flinch, not from pain but pleasure. The doctor doesn''t leaves just stick the thermometer in your ass but slowly moves it back and forth... It''s very nice and you feel a growing excitement.'
  268. gs 'arousal', 'anal_dildo', 10
  269. gs 'stat'
  270. if pcs_horny >= 50:
  271. act 'Moan with pleasure':
  272. cla
  273. *clr
  274. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
  275. 'Doctor takes the thermometer out of your ass and checks it'
  276. '(Dr.) 39.2 ... Very bad. Please turn on your back, I need to palpate the lymph nodes.'
  277. act 'Roll over on your back':
  278. cla
  279. *clr
  280. clr
  281. gs 'stat'
  282. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom5.jpg"></center>'
  283. 'The doctor began to stroke and knead your stomach and thighs. You are not actually sure this is a medical procedure, she does it for too long and tenderly, but it''s too pleasant and you don''t object.'
  284. 'Meanwhile, your excitement is growing, you feel your pussy moistening and you start to whine sweetly...'
  285. gs 'arousal', 'foreplay', 15
  286. gs 'stat'
  287. act 'Blush of embarrassment':
  288. cla
  289. *clr
  290. clr
  291. gs 'stat'
  292. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom6.jpg"></center>'
  293. 'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
  294. '(You) - Doctor, what are you doing! - You scream at the same time embarrassed, outraged and frightened.'
  295. '(Doctor) - Flying you, silly. I feel the magic in you, which means you''re one of us, and I can use his power quietly.'
  296. '(You) - So you''re a magician, too?'
  297. '(Doctor) - Yes, only a special kind magic, Tantric. Have you heard of it?'
  298. '(You) - No, I don''t think so...'
  299. '(Doctor) - It''s a magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
  300. '(You) - So ..?'
  301. '(Doctor) - That is, if I have sex with you, I will heal you. So? Do you agree?'
  302. '(You) - And what should i do in return?'
  303. '(Doctor) - Nothing - I''m doing it solely for my own satisfaction. I see you have orgasms only if conjure.'
  304. '(You) - Then of course - I agree.'
  305. gs 'arousal', 'foreplay', 15
  306. gs 'stat'
  307. act 'Surrender to the gentle hands of Ninel':gt 'housecall', 'ninel2'
  308. end
  309. end
  310. end
  311. end
  312. act 'Indignant':
  313. cla
  314. *clr
  315. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
  316. '(You) - Doctor, what the hell are you doing?'
  317. 'The doctor takes the thermometer out of your ass and calmly replies:'
  318. '(Doctor) - I measure your temperature. 39.2 - very bad.'
  319. act 'Doctor, what''s wrong with me?':
  320. cla
  321. '(You, scared) - Doctor, what''s wrong with me?'
  322. '(Dr.) Do you really have a bad flu. But I''ll make you an injection of antibiotic and antigen, and you will soon feel better.'
  323. act 'Lie on your stomach and bare your ass':
  324. cla
  325. *clr
  326. minut += 10
  327. sick -= 2
  328. lekar += 3
  329. clr
  330. gs 'stat'
  331. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom4.jpg"></center>'
  332. 'The doctor gives you a shot in one of your ass cheeks - you cry'
  333. '(Doctor) - That''s about everything. You have to rest in bed, drink hot drinks, take antibiotics and nose drops, stay on a balanced diet. When the temperature drops, come to the clinic to see me.'
  334. '(You) - Thank you, Doctor, i will follow your instructions.'
  335. 'Doctor says goodbye and leaves.'
  336. act 'Back to bed':gt 'bedr'
  337. end
  338. end
  339. end
  340. act 'Doctor, what''s wrong with me?':
  341. cla
  342. '(You, scared) - Doctor, what''s wrong with me?'
  343. '(Doctor) - I''m afraid you have angina, <<$pcs_nickname>>. I would advise you an immediate treatment'
  344. '(You) - What''s ?! You mean in the hospital, or what?'
  345. '(Doctor) - Yes, at the clinic.'
  346. act 'Refuse':
  347. cla
  348. *clr
  349. '(You, sobbing) - Oh, Doctor, I can''t go to the hospital ...'
  350. '(Doctor, thoughtfully) - Well... I guess we could do in a different way then... I''ll give you a couple of shots, to start with...'
  351. '(You) - Oh, thank you, doctor!'
  352. act 'Lie on your stomach and bare your ass':
  353. cla
  354. clr
  355. gs 'stat'
  356. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom9.jpg"></center>'
  357. 'The doctor pats your ass a few times and you suddenly develop an incredible sexual arousal. It is as if a fire started between your thighs, your pussy burns and drips, your breath gets heavy, your nipples harden and get stiff...'
  358. '(You) - Doctor, what''s happening? - You ask almost screaming, embarrassed and kind of frightened, but your voice breaks, betraying your arousal, and you moan voluptuously'
  359. '(Doctor) - 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.'
  360. '(You) - So you''re a magician too!'
  361. '(Doctor) - Yes, only a special kind magic, Tantric. Have you heard of it?'
  362. '(You) - No, I don''t think so...'
  363. '(Doctor) - It''s magic, based on sensuality and sex, roughly speaking, I can cast spells only while having sex.'
  364. '(You) - So ..?'
  365. '(Doctor) - That''s it, if we have sex with you, I will heal you. Do you agree?'
  366. '(You) - And what should i do in return?'
  367. '(Doctor) - Nothing - I''m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
  368. '(You) - Then of course - I agree.'
  369. gs 'arousal', 'foreplay', 15
  370. gs 'stat'
  371. act 'Surrender to the gentle touch of Ninel':gt 'housecall', 'ninel2'
  372. end
  373. end
  374. end
  375. end
  376. end
  377. end
  378. end
  379. end
  380. }
  381. $drPP = {
  382. cla
  383. *clr
  384. 'You answer the door. On the threshold there is an older balding man with a medical bag in his hand.'
  385. '"Hello, doctor."'
  386. '"Hello, dear. I am Peter, the local doctor. Now please go back to bed and don''t stand in this draft.'
  387. act 'Take the doctor to the bedroom.':
  388. cla
  389. *clr
  390. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp1.jpg"></center>'
  391. 'You get back to the bedroom with the doctor. He sits on the edge of the bed and feels your forehead'
  392. '"So <<$pcs_nickname>>. What are your symptoms?'
  393. '(You) - Ahem, ahem... Well, Doctor, I have sore throat - very sore actually - and high temperature.'
  394. '(Doctor) - And cough, as I see it. And judging by your voice, also a running nose.'
  395. '(You) - Yes... Aachoo!'
  396. '(Doctor) - Well, <<$pcs_nickname>>, please remove your clothes so i can examine you.'
  397. act 'Undress':
  398. cla
  399. *clr
  400. minut += 5
  401. clr
  402. gs 'stat'
  403. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp2.jpg"></center>'
  404. 'You undressed and the doctor listens to your lungs for a while.'
  405. '"Now lets take a look at your throat, open your mouth wide and say Ah."'
  406. act 'A-a-a':
  407. cla
  408. *clr
  409. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp3.jpg"></center>'
  410. 'You open your mouth and the doctor looks in.'
  411. '(Doctor) - Mmmm... i see. Well, let''s take your temperature.'
  412. act 'Put the thermometer under your armpit':
  413. cla
  414. *clr
  415. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp4.jpg"></center>'
  416. 'The doctor waits a few minutes, then looks at the thermometer and shakes his head'
  417. act 'Doctor, what''s wrong with me?':
  418. cla
  419. '"You have the flu." He says "Nothing too serious, I''ll 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 roll over so I can give you the injection."'
  420. act 'Roll over and lay on your stomach':
  421. cla
  422. *clr
  423. minut += 10
  424. sick -= 2
  425. lekarstvo += 3
  426. gs 'stat'
  427. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp5.jpg"></center>'
  428. 'The doctor gives you a shot in the ass'
  429. '(Doctor) - Remember stay in bed, drink lots of fluids and try to rest. When you feel better come by the clinic.'
  430. '(You) - Thank you, Doctor, I will.'
  431. 'You escort the doctor to the entrace, he says goodbye and leaves. After shutting the door you head back to bed.'
  432. act 'Back to bed':gt 'bedr'
  433. end
  434. end
  435. end
  436. end
  437. end
  438. end
  439. }
  440. $polidin = {
  441. cla
  442. *clr
  443. minut += 15
  444. callrand = rand(1, 3)
  445. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall<<picrand>>.jpg"></center>'
  446. 'You dial the number of the clinic several times it''s always busy.'
  447. act 'Call again and again':
  448. cla
  449. 'Finally, a tired nurse''s voice answers. "Hello clinic."'
  450. act 'Hello ...':
  451. cla
  452. '"Hello. Can I get a house call?" You manage to say between coughing fits.'
  453. 'The nurse asks. "Your name and address?"'
  454. act 'Give address':
  455. cla
  456. 'After coughing "Sorry, <<$pcs_nickname>> <<$pcs_lastname>>. Street Park House 4 apartment 69." you manage before sneezing again.'
  457. 'The nurse responds. "One moment please." Then she puts you on hold.'
  458. act 'Wait':
  459. cla
  460. minut += 5
  461. clr
  462. gs 'stat'
  463. 'You wait for five minutes, occasionally coughing and sneezing, until she finally returns. "So <<$pcs_lastname>> <<$pcs_nickname>>. What are your symptoms?'
  464. 'You start to answer but end up coughing. "Sorry, I have a fever, sore throat, a cough and a runny nose."'
  465. '"Is your temperature high?"'
  466. '"Yes, quite so, 39.2°C" You tell her followed by a sneeze.'
  467. '"Very well a doctor will come see you at home."'
  468. '"How soon?"'
  469. '"As soon as one is free." She answers "Yours isn''t an isolated case"'
  470. '"Thank you." You say'
  471. if ninelsex = 1:
  472. act 'Is Ninel Pavlovna available?':
  473. cla
  474. '"Is Doctor Ninel Pavlovna available? She is my regular doctor."'
  475. '"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."'
  476. '"Once again, thank you very much."'
  477. act 'Continue':gt 'housecall', 'ninel3'
  478. end
  479. end
  480. act 'Back to bed':
  481. cla
  482. *clr
  483. picrand = rand(21, 27)
  484. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick<<picrand>>.jpg"></center>'
  485. timerand = rand(1, 6)
  486. minut += timerand * 30
  487. 'You lie in bed, shivering wrapped in a blanket. Time drags by painfully slow, you can''t say, how much time passes before the doorbell rings.'
  488. ! WD: Uninitialised ~ 'ninel' use 'ninelmet'
  489. act 'Answer the door':
  490. if ninelmet > 0 and sick <= 50:
  491. gt 'housecall', 'ninel1'
  492. elseif ninelmet = 0 or sick > 50:
  493. doctrnd = rand(0, 1)
  494. if doctrnd = 0:dynamic $drPP
  495. if doctrnd = 1:gt 'housecall', 'ninel0'
  496. end
  497. end
  498. end
  499. end
  500. end
  501. end
  502. end
  503. }
  504. --- korr ---------------------------------