korr2x 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338
  1. # korr2x
  2. CLOSE ALL
  3. if sound = 0:PLAY 'sound/korr.mp3',30
  4. $metka = ''
  5. $loc = 'korr2x'
  6. $location_type = 'private'
  7. clr
  8. popolaini = 0
  9. saunaYouRoom = 0
  10. boycherdaksex = 0
  11. bonusZ = 0
  12. music_on = 0
  13. minut = minut + 1
  14. housrA = 1
  15. housrMir = 0
  16. elektro = elektro + 1
  17. gs'stat'
  18. if night_mode = 1:
  19. fcolor = rgb(255, 255, 255)
  20. bcolor = rgb(0, 0, 0)
  21. lcolor = rgb(106, 90, 205)
  22. else
  23. fcolor = rgb(0, 0, 0)
  24. bcolor = rgb(255, 255, 255)
  25. lcolor = rgb(106, 90, 205)
  26. end
  27. '<center><b><font color = maroon>Corridor</font></b></center>'
  28. '<center><img <<$set_imgh>> src="images/locations/oldtown/apartment/korr2x.jpg"></center>'
  29. 'Near the entrance is your <a href="exec:gt ''cloakroom'', ''view_coat_list''">coat hook</a>.'
  30. if suhbelo > 0:'Dried on the clothesline is <<suhbelo>> pieces of linen.'
  31. if umbrella > 0:'On a hook hangs a umbrella'
  32. if sobaka = 1:'Near the entrance to the bedroom is your <a href="exec:GT ''soba'',''start''"><<$namesob>></a>'
  33. if krolik = 1:'On the floor, resting is <a href="exec:GT ''krol'',''start''"><<$namekrol>></a>'
  34. if popugai = 1:'In the cell, sitting is <a href="exec:GT ''popu'',''start''"><<$namepopu>></a>'
  35. if parkday ! daystart and parkblackmail = 1:
  36. parkblackmail = 2
  37. parkday = daystart
  38. 'You got a manila envelope in the mail, opening it you see the photos inside. Hell, the pictures are of you giving a blowjob to two guys in a park.'
  39. 'A small note states: If you don''t want to have these pictures all over the stairwell and sent to your work place, come to (The address contains the Photo Studio).'
  40. 'PS, if you don''t come in today, tomorrow the pictures will be hanging all over the stairwell.'
  41. elseif parkday ! daystart and parkblackmail = 2:
  42. parkblackmail = 0
  43. fotoyousuck = 1
  44. 'Hell, there is even pictures of you, with your face covered in sperm.'
  45. end
  46. act 'Go to the bedroom':
  47. gt'bedr2x'
  48. end
  49. act 'Go to the bathroom':
  50. gt'vanr2x'
  51. end
  52. act 'Go to the kitchen':
  53. gt'kuhr2x'
  54. end
  55. act 'Go to the Hall':
  56. gt'sitr2x'
  57. end
  58. act '<b><font color="maroon">Go outside</font></b>':
  59. cls
  60. if $clothingworntype = 'nude':
  61. '<b><font color="red">You need to get dressed before going out.</font></b>'
  62. xgt $curloc
  63. elseif sick > 72:
  64. '<b><font color="red">You''re too sick to walk around in the streets.</font></b>'
  65. xgt $curloc
  66. else
  67. xgt'liames'
  68. end
  69. end
  70. if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
  71. if hour >= 9 and hour <= 20 and santehnikDolg > 0 and money >= santehnikDolg:
  72. '<b><font color = red>The doorbell rings</font></b>'
  73. act 'Answer the door':
  74. cls
  75. gs'stat'
  76. 'You went to the door and looked through the peephole, you see a dark figure of a man. Apparently the man heard you and says. "It''s me. Plumber Grisha. Do you have my money?"'
  77. act 'Open the door':
  78. cls
  79. money -= santehnikDolg
  80. santehnikDolg = 0
  81. gs'stat'
  82. 'You opened the door and plumber Grisha smiled at you. "I thought you were hiding from me. Well? Do you have the money to pay me?" You nodded and got your purse. Counting out fifteen hundred you gave him the money. He put it in his pocket, said goodbye and left.'
  83. act 'Close the door':gt $curloc
  84. end
  85. end
  86. end
  87. if IvanPodstavaQW = 3 and hour >= 9 and hour <= 20:
  88. cls
  89. IvanPodstavaQW = 4
  90. if DolgRS <= moneySUM:
  91. money = moneySUM-650000
  92. karta = 0
  93. stolmoney = 0
  94. minut += 120
  95. 'The police came and took you to the courthouse. Luckily you are able to pay your debt and are released.'
  96. act 'Leave the courthouse':gt'down'
  97. elseif DolgRS > moneySUM:
  98. DolgRS = 650000-moneySUM-60000
  99. money = 0
  100. karta = 0
  101. stolmoney = 0
  102. vidage += 7
  103. year += 5
  104. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  105. money = 2000
  106. 'The police came and took you to the courthouse. After you stand trial, you are given five years of general regime, it is obliged to pay the debt <<DolgRS>><b>₽</b>.'
  107. act 'Sitting in jail':
  108. cls
  109. srok_kolvo = 1
  110. srok_otsidki += 5
  111. salo = 10
  112. fat = 10
  113. if defcurly = 0:
  114. curly = 0
  115. else
  116. curly = 2147483647
  117. end
  118. straight = 0
  119. pcs_makeup = 1
  120. pcs_skin = 0
  121. pcs_tan = 0
  122. pcs_leghair = 12
  123. pcs_pubes = 30
  124. bfa = 0
  125. narkoman = 0
  126. nark = 0
  127. SLomka = 0
  128. work = 0
  129. workKafe = 0
  130. workhosp = 0
  131. worksalon = 0
  132. tanwork = 0
  133. workSec = 0
  134. stipuha = 0
  135. preg = 0
  136. young_shop_work = 0
  137. student = 0
  138. kurs = 0
  139. semestr = 0
  140. abiturient = 0
  141. stipuha = 0
  142. lektor = 0
  143. gs'stat'
  144. 'Time dragged on for a long time. Your life and work in prison was tedious and monotonous. You sewed quilted jackets, had dinner in the cafeteria and went to sleep in the barracks surrounded by other women inmates. With your salary 2000 <b>₽</b> a month listed 1000 debt repayment. Eventually you payed off your debt and your torment came to an end. With your time served you were released with 2000 <b>₽</b>. You were taken to the train station and given a ticket back to the city.'
  145. act 'Exit the train':gt'vokzal'
  146. end
  147. end
  148. exit
  149. end
  150. if IvanPodstavaDay ! daystart and IvanPodstavaQW = 1 and hour >= 8 and hour <= 20:
  151. '<b><font color = red>The doorbell rings</font></b>'
  152. act 'Answer the door':
  153. cls
  154. gs'stat'
  155. 'You went to the door and looked through the peephole, you see several men. One of the men said to you through the door. "<<$pcs_nickname>> <<$pcs_lastname>> open up, police."'
  156. act 'Open the door':
  157. cls
  158. minut += 60
  159. IvanPodstavaQW = 2
  160. gs'stat'
  161. 'You opened the door for the police, puzzled about what they''d want from you. A thin and skinny guy with a weeks worth of stubble and a gun in a holster said. "Witness please take a seat, while we search the apartment." The investigator turned to you. "This is a court order, for your arrest and this is a search warrant for your apartment." The police searched your apartment. Soon, one of them came out and said. "I found the keys." It looked like it was the keys to the office and the safe, where the money was stolen from. Witnesses signed the protocol the investigator gave them. The police put your hands behind your back and cuffed you.'
  162. act 'Arrested':
  163. cls
  164. minut += 60
  165. gs'stat'
  166. 'You were brought out of your place in handcuffs and put into a police UAZ, where they drive you to the station. Once at the station you are taken to a room, inside it waits the already familiar to you investigator. He takes the cuffs off you and asks you to sit down. You sit on the hard uncomfortable chair, meanwhile the investigator turned on a TV and set up a video. On the screen there was a picture of a surveillance camera in Bystroeshke. It showed the corridor, soon you appeared in the hallway, went to the office door and opened it. You went inside for a bit and then came out of the office with a thick envelope in your hands. The investigator turned off the video and started 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 remove an envelope with <<$burgerIvanText>> written on it.'
  167. 'The inspector turned off the TV and took a plastic bag from the table with the keys. He threw them on the table and finally spoke. "The examination determined that these are the keys to the room and the safe. They were found during a search of your apartment. On the surveillance cameras we can clearly see how you got into the office and stole 650,000." He took out a pen and paper and began writing. As he wrote he looked up to you with gloomy eyes and said. "A confession will help you in court, since this is a first time offence and provided you return the money, you may be given a conditional sentence, if you admit your guilt."'
  168. act 'Sign the confession':
  169. cls
  170. minut += 60
  171. gs'stat'
  172. 'You signed the confession and the investigator shouted "Duty officer!" A police officer entered the room. The investigator nodded at you, "Take her."'
  173. act 'Go':gt'kameraKPZ'
  174. end
  175. act 'Tell how it was':
  176. cls
  177. minut += 60
  178. gs'stat'
  179. 'You tell the investigator how it happened. How Ivan framed you. The investigator listened to you for a bit but then he slammed his fist on the table and yelled at you "I was not born yesterday, none of that nonsense makes any sense! If you do not cooperate, you''ll rot in prison!" A police officer entered the room. The investigator nodded at you. "Take her."'
  180. act 'Go':gt'kameraKPZ'
  181. end
  182. end
  183. end
  184. end
  185. exit
  186. end
  187. if gopstop > 30:gt'police','1'
  188. if sick > 0 and doktorday ! daystart:
  189. act 'Call a doctor':doktorday = daystart & dynamic $polidin
  190. end
  191. !!Ninel doctor stuff started here.
  192. !!Ninel doctor stuff ended here. I deleted everything in between. Below is the other doctor if it is not Ninel. At the bottom is the call to the clinic to ask for a doctor and request Ninel as well. So not all sure what code has to be replaced.
  193. $drPP = {
  194. cla
  195. *clr
  196. 'You answer the door. On the threshold there is an older balding man with a medical bag in his hand.'
  197. '"Hello, doctor."'
  198. '"Hello, dear. I am Peter, the local doctor. Now please go back to bed and don''t stand in this draft.'
  199. act 'Carry a doctor in the bedroom':
  200. cla
  201. *clr
  202. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp1.jpg"></center>'
  203. 'You return to the bedroom, along with the doctor. He sat on the edge of the bed and felt your forehead.'
  204. '"So <<$pcs_nickname>>. What are your symptoms?'
  205. 'You start to answer but end up coughing. "Sorry, I have a fever, sore throat, a cough and a runny nose."'
  206. '"Well lets get you undressed so I can examine you."'
  207. act 'Undress':
  208. cla
  209. *clr
  210. minut = minut + 5
  211. clr
  212. gs'stat'
  213. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp2.jpg"></center>'
  214. 'You undressed and the doctor listens to your lungs.'
  215. '"Now lets take a look at your mouth, open wide and say Ah."'
  216. act 'A-a-a':
  217. cla
  218. *clr
  219. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp3.jpg"></center>'
  220. 'You open your mouth and the doctor looks in.'
  221. '"Hmm, we need to take take your temperature."'
  222. act 'Put the thermometer under your armpit':
  223. cla
  224. *clr
  225. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp4.jpg"></center>'
  226. 'The doctor looked at the thermometer and shook his head'
  227. act 'Doctor, whats wrong with me?':
  228. cla
  229. '"You have the flu. Nothing wrong, 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."'
  230. act 'Roll over':
  231. cla
  232. *clr
  233. minut = minut + 10
  234. sick = sick - 2
  235. lekarstvo += 3
  236. gs'stat'
  237. '<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp5.jpg"></center>'
  238. 'The doctor gave you a shot in the ass.'
  239. '"Remember stay in bed, drink lots of fluids and try to rest. When you feel better come by the clinic."'
  240. '"Thanks you, doctor."'
  241. 'You escort the doctor out, he says goodbye as he leaves. After shutting the door you head back to bed.'
  242. act 'Back to bed':gt'bedr2x'
  243. end
  244. end
  245. end
  246. end
  247. end
  248. end
  249. }
  250. $polidin = {
  251. cla
  252. *clr
  253. minut = minut + 15
  254. callrand = RAND(0,2)
  255. if callrand = 0:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
  256. if callrand = 1:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall1.jpg"></center>'
  257. if callrand = 2:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall2.jpg"></center>'
  258. 'You dial the number of the clinic several times it''s always busy.'
  259. act 'Call again and again':
  260. cla
  261. 'Finally, a tired nurse''s voice answers. "Hello clinic."'
  262. act 'Hello.':
  263. cla
  264. '"Hello. Can I get a house call?" You manage to say between coughing fits.'
  265. 'The nurse asks. "Your name and address?"'
  266. act 'Give address':
  267. cla
  268. 'After coughing "Sorry, <<$pcs_nickname>> <<$pcs_lastname>>. Street Park House 4 apartment 69." you manage before sneezing again.'
  269. 'The nurse responds. "One moment please." Then she puts you on hold.'
  270. act 'Wait':
  271. cla
  272. minut = minut + 5
  273. clr
  274. gs'stat'
  275. 'You wait for five minutes, occasionally coughing and sneezing, until she finally returns. "So <<$pcs_lastname>> <<$pcs_nickname>>. What are your symptoms?'
  276. 'You start to answer but end up coughing. "Sorry, I have a fever, sore throat, a cough and a runny nose."'
  277. '"Is your temperature high?"'
  278. '"Yes, very 39.2C" You tell her followed by a sneeze.'
  279. '"Very well a doctor will come see you at home."'
  280. '"How soon?"'
  281. '"As soon as one is free."'
  282. '"Thank you."'
  283. if ninelsex = 1:
  284. act 'Is Ninel Pavlovna available?':
  285. cla
  286. '"Is Doctor Ninel Pavlovna available? She is my regular doctor."'
  287. '"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."'
  288. '"Once again, thank you very much."'
  289. act '...':gt'housecall','ninel3'
  290. end
  291. end
  292. act 'Back to bed':
  293. cla
  294. *clr
  295. picrand = RAND(0,6)
  296. if picrand = 0:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick27.jpg"></center>'
  297. if picrand = 1:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick21.jpg"></center>'
  298. if picrand = 2:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick22.jpg"></center>'
  299. if picrand = 3:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick23.jpg"></center>'
  300. if picrand = 4:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick24.jpg"></center>'
  301. if picrand = 5:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick25.jpg"></center>'
  302. if picrand = 6:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick26.jpg"></center>'
  303. timerand = RAND(0,5)
  304. if timerand = 0:minut = minut + 30
  305. if timerand = 1:minut = minut + 60
  306. if timerand = 2:minut = minut + 90
  307. if timerand = 3:minut = minut + 120
  308. if timerand = 4:minut = minut + 150
  309. if timerand = 5:minut = minut + 180
  310. 'You lie in bed, shivering wrapped in a blanket. Time drags by painfully slow, you can''t say, how much time passed, before the doorbell rings.'
  311. act 'Open the door':
  312. if ninel > 0 and sick <= 50:
  313. gt'housecall','ninel1'
  314. elseif ninel = 0 or sick > 50:
  315. doctrnd = RAND(0,1)
  316. if doctrnd = 0:dynamic $drPP
  317. if doctrnd = 1:gt'housecall','ninel0'
  318. end
  319. end
  320. end
  321. end
  322. end
  323. end
  324. end
  325. }
  326. --- korr2x ---------------------------------