소스 검색

[added] home_events. A central location for shared events between home locations

anjuna krokus 2 일 전
부모
커밋
b8ddbba473
5개의 변경된 파일502개의 추가작업 그리고 725개의 파일을 삭제
  1. 1 0
      glife.qproj
  2. 482 0
      locations/home_events.qsrc
  3. 14 465
      locations/korr.qsrc
  4. 2 257
      locations/korr2x.qsrc
  5. 3 3
      locations/korrPar.qsrc

+ 1 - 0
glife.qproj

@@ -417,6 +417,7 @@
 		<Location name="shop_allure"/>
 		<Location name="gloryhole"/>
 		<Location name="home_activity"/>
+		<Location name="home_events"/>
 	</Folder>
 	<Folder name="Transportation">
 		<Location name="transport_functions"/>

+ 482 - 0
locations/home_events.qsrc

@@ -0,0 +1,482 @@
+# home_events
+
+if arrpos('$ARGS', 'entry') >= 0:
+	if func('homes_properties', 'is_current_home', $loc):
+		gs 'courtletter'
+
+	end
+
+	if $loc = 'korrPar':
+		if NatBelQW['FriendLover'] = 8 and NatBelQW['mother_talk'] = 2 and func('homes_properties', 'is_current_home', 'parents_home'):
+			gt 'home_events', 'natbel'
+		end
+
+	else
+		if parkblackmail = 1 and parkday ! daystart:
+			parkblackmail = 2
+			parkday = daystart
+			'A heavy envelope has arrived in the mail. When you open it, you''re horrified to find several pictures of you giving blowjobs to the guys in the park inside. A small note accompanying them says:'
+			*nl
+			'"If you don''t want these pictures to be posted on your door and sent to your work place, then come to this address. If you don''t come today, these pictures will be hanging in your stairwell tomorrow."'
+			*nl
+			'You check the address and find that it''s Aphrodite Photography in the City Center.'
+			exit
+		elseif parkblackmail = 2 and parkday ! daystart:
+			parkblackmail = 0
+			fotoyousuck = 1
+			'You''re horrifed and embarrassed when you see photos of you with your face covered in cum with two dicks in your mouth covering your stairwell walls.'
+			exit
+		end
+
+		if santehnikDolg > 0 and money >= santehnikDolg and hour >= 9 and hour < 21:
+			'<b><font color = red>The doorbell rings</font></b>'
+			act 'Answer the door':
+				cla
+				menu_off = 1
+				gs 'stat'
+				'You go to the door and look through the peephole to see a dark male figure. "It''s me. Grisha, the plumber. You owe me some money, remember?" he says through the door.'
+				act 'Open the door':
+					cla
+					money -= santehnikDolg
+					killvar 'santehnikDolg'
+					gs 'stat'
+					'You open the door and Grisha smiles. "I thought you were hiding from me. So, do you have my money?" You nod and pay him the money you owe.'
+					act 'Close the door': gt $loc, $loc_arg
+				end
+			end
+		end
+
+		if BurgerQW['IlyQW'] = 1 and BurgerQW['IlyQWDay'] ! daystart and hour >= 8 and hour < 21:
+			xgt 'home_events', 'burgerIly1'
+		elseif BurgerQW['IlyQW'] = 3 and hour >= 9 and hour < 21:
+			gt 'home_events', 'burgerIly3'
+		end
+
+		if gopstop > 30: gt 'police', '1'
+
+		if sick > 0 and doktorday ! daystart:
+			act 'Call a doctor': gt 'home_events', 'call_doctor1'
+		end
+
+		!!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
+	end
+end
+
+if arrpos('$ARGS', 'livingroom') >= 0:
+
+end
+
+if arrpos('$ARGS', 'bedroom') >= 0:
+
+end
+
+if arrpos('$ARGS', 'kitchen') >= 0:
+
+end
+
+
+
+
+	!!===================================================================!!
+	!!                                                                   !!
+	!!                               EVENTS                              !!
+	!!                                                                   !!
+	!!===================================================================!!
+
+
+if $ARGS[0] = 'call_doctor1':
+	*clr & cla
+	menu_off = 1
+	doktorday = daystart
+	minut += 15
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
+	'You dial the number of the clinic several times, but it''s always busy.'
+
+	act 'Keep trying':
+		cla
+		'Finally, a tired nurse''s voice answers. "Hello, this is the clinic. How can I help you?"'
+
+		act 'Ask for doctor':
+			cla
+			'"Hello. Can I get a house call?" you manage to say between coughing fits.'
+			'"Your name and address, please?" she asks.'
+
+			act 'Give your address':
+				cla
+				'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.'
+				'"One moment please," she responds before she puts you on hold.'
+
+				act 'Wait':
+					cla
+					minut += 5
+					gs 'stat'
+					'You wait for five minutes, occasionally coughing and sneezing, until she finally returns. "So Miss <<$pcs_lastname>>, what are your symptoms?"'
+					'You start to answer, but end up coughing. "Sorry. I have a fever, sore throat, a cough and a runny nose."'
+					'"Is your temperature high?"'
+					'"Yes, quite so. 39.2°C," you tell her, followed by a sneeze.'
+					'"Very well. A doctor will come see you at home."'
+					'"How soon?"'
+					'"As soon as one is free," she answers. "Yours isn''t an isolated case."'
+					'"Thank you," you respond and hang up.'
+
+					if ninelsex = 1:
+						act 'Is Ninel available?':
+							cla
+							'"Is Doctor Pavlovna available? She''s my regular doctor."'
+							'"Let me check." The nurse puts you on hold for a few minutes before returning. "Yes, she is free and will make the house call."'
+							'"Once again, thank you very much," you reply and hang up.'
+
+							act 'Continue': gt 'housecall', 'ninel3'
+						end
+					end
+
+					act 'Go back to bed':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick<<rand(21, 27)>>.jpg"></center>'
+						minut += rand(1, 6) * 30
+						'You lie in bed, shivering while wrapped in a blanket. Time drags by painfully slow and you can''t say how much time passes before the doorbell rings.'
+
+						! WD: Uninitialised ~ 'ninel' use 'ninelmet'
+						act 'Answer the door':
+							if ninelmet > 0 and sick <= 50:
+								gt 'housecall', 'ninel1'
+							else
+								if rand(0, 1) = 0:
+									gt 'home_events', 'call_doctor2'
+								else
+									gt 'housecall', 'ninel0'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'call_doctor2':
+	*clr & cla
+	'You answer the door and an older, balding man with a medical bag in his hand is standing on the threshold.'
+	'"Hello, doctor."'
+	'"Hello, dear. I''m the local doctor. Now please go back to bed and don''t stand in this cold air."'
+
+	act 'Go back to bed':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp1.jpg"></center>'
+		'You walk back to the bedroom with the doctor. He sits on the edge of the bed and feels your forehead.'
+		'"So Miss <<$pcs_lastname>>. What are your symptoms?'
+		'"Ahem... I have a sore throat - very sore actually - and a high temperature."'
+		'"And a nasty cough too I see. And judging by your voice, also a running nose."'
+		'"Yes... Aachoo!!"'
+		'"Please remove your clothes so I can examine you."'
+
+		act 'Undress':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp2.jpg"></center>'
+			'You undress and the doctor listens to your lungs for a while.'
+			'"Now let''s take a look at your throat. Open your mouth wide and say ''ahh''."'
+
+			act 'Aahh':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp3.jpg"></center>'
+				'You open your mouth and the doctor looks in.'
+				'"Mmmm, I see. Well, let''s take your temperature."'
+
+				act 'Put the thermometer under your armpit':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp4.jpg"></center>'
+					'The doctor waits a few minutes, then looks at the thermometer and shakes his head.'
+
+					act 'What''s wrong with me?':
+						cla
+						'"You have the flu," he calmly replies. "Nothing too serious, I''ll just give you an injection and you''ll feel better soon. Stay in bed, drink plenty of fluids and try to rest as much as possible. Now please roll over so I can give you the injection."'
+
+						act 'Roll over and lay on your stomach':
+							*clr & cla
+							minut += 10
+							sick -= 2
+							mc_inventory['antibiotics'] += 3
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp5.jpg"></center>'
+							'You whimper slightly as the doctor jabs a needle into your ass and injects the contents.'
+							'"Now remember. Stay in bed, drink lots of fluids and try to rest. When you feel better, come by the clinic."'
+							'"Thank you, Doctor, I will."'
+							'You escort the doctor back to the entrance where he says goodbye and leaves. After shutting the door, you head back to bed.'
+
+							act 'Go back to bed': gt 'bedr'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+
+
+$ninel0 = "gt 'home_events', 'ninel0'"
+if $ARGS[0] = 'ninel0':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel00.jpg"></center>'
+	'You open the door and see a pretty young girl with a medical bag in her hand standing on the threshold.'
+	'"Hello, my name is Ninel Pavlovna. I do the home visits for the clinic. Where is the patient?"'
+	'"That would be me..."'
+	'"I see. First, we need to get you back into bed."'
+
+	act 'Go back to bed':
+		*clr & cla
+		ninelmet = 1
+		'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom0.jpg"></center>'
+		'Ninel sits on the edge of your bed and checks your forehead.'
+		'"What are your symptoms, <<$pcs_nickname>>? Can I call you that?"'
+		'"Of course..." You start to answer, but end up coughing. "Sorry. I have a high fever, a sore throat and a cough that''s killing me!"'
+		'"Running nose? Headaches? Aching bones?"'
+		'"Yes, all of them."'
+		'"Please take your clothes off so I can examine you."'
+
+		act 'Undress':
+			*clr & cla
+			minut += 5
+			pcs_horny += 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom1.jpg"></center>'
+			'You undress and Ninel listens to your lungs for a long time. Her hands are cool and gentle as she touches you, while the stethoscope is cold.'
+			'"Mmmm, now let''s take a look at your mouth. Open wide and say ''aah''."'
+
+			act 'Ahh':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
+				'You open your mouth and she looks in, examining your sore throat.'
+				'"I see. Your throat is very red and inflamed. Now we need to take your temperature.'
+
+				act 'Put a thermometer in your mouth':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel04.jpg"></center>'
+					'"No, not like that. The temperature needs to be measured rectally."'
+					'"What...?"'
+					'"It''s more precise. Don''t be afraid, it''s not painful."'
+					'"Well if I have to..."'
+					'"It''s necessary. Come on, lie down on your stomach and spread your buttocks with your hands please."'
+
+					act 'Change position':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom2.jpg"></center>'
+						'You obediently roll over and spread your ass as Ninel lubricates your anus with some vaseline 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.'
+						gs 'arousal', 'anal_dildo', 10
+						gs 'stat'
+
+						if pcs_horny >= 50:
+							act 'Moan in pleasure':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
+								'The doctor takes the thermometer out of your ass and checks it.'
+								'"39.2. Very bad. Please turn on your back, I need to palpate the lymph nodes."'
+
+								act 'Roll over on your back':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom5.jpg"></center>'
+									'The doctor begins to stroke and knead your stomach and thighs. You''re not actually sure if this is a real medical procedure. She does it for far too long, but it''s too pleasant and you don''t object.'
+									'Your excitement continues to grow and you feel your pussy moistening as you start to moan softly.'
+									gs 'arousal', 'foreplay', 15
+									gs 'stat'
+
+									act 'Blush in embarrassment':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom6.jpg"></center>'
+										'You blush with embarrassment, but then fall below the hands of Ninel as she starts caressing your pussy.'
+										'"Doctor, what are you doing!" you scream, feeling embarrassed, outraged and frightened.'
+										'"I feel the magic in you, which means you''re one of us, and I can use my healing powers on you," she replies.'
+										'"So you''re a succubus too?!"'
+										'"Yes, but only with a special kind of magic. Tantric. Have you heard of it?'
+										'"No, I don''t think so..."'
+										'"It''s based on sensuality and sex. Roughly speaking, I can only cast spells when having sex."'
+										'"So...?"'
+										'"That is, if I have sex with you, I will heal you. So? Do you agree?"'
+										'"And what should I do in return?"'
+										'"Nothing. I''m doing it solely for my own satisfaction."'
+										'"Then of course I agree."'
+										gs 'arousal', 'foreplay', 15
+										gs 'stat'
+
+										act 'Surrender to the gentle hands of Ninel':gt 'housecall', 'ninel2'
+									end
+								end
+							end
+						end
+
+						act 'Indignant':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
+							'"What the hell are you doing?!" you squeal.'
+							'She takes the thermometer out of your ass. "I''m measuring your temperature. 39.2. Very bad," she calmly replies.'
+
+							act 'What''s wrong with me?':
+								cla
+								'"Doctor, what''s wrong with me?" you ask, somewhat scared.'
+								'"You have a really bad flu, but I''ll make you an injection of antibiotics and antigens and you''ll soon feel better."'
+
+								act 'Get injection':
+									*clr & cla
+									minut += 10
+									sick -= 2
+									lekar += 3
+									gs 'stat'
+									'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom4.jpg"></center>'
+									'You whimper slightly as Ninel jabs the needle into one of your ass cheeks and injects the contents.'
+									'"That''s about everything. You have to rest in bed, drink hot drinks, take antibiotics and nose drops and stay on a balanced diet. When your temperature drops, come to the clinic to see me."'
+									'"Thank you, Doctor, I''ll follow your instructions."'
+									'Ninel smiles and says goodbye before leaving.'
+
+									act 'Back to bed': gt 'bedr'
+								end
+							end
+						end
+
+						act 'What''s wrong with me?':
+							cla
+							'"Doctor, what''s wrong with me?" you ask fearfully.'
+							'"I''m afraid you have angina, <<$pcs_nickname>>. I would advise you recieve immediate treatment," she replies.'
+							'"What? You mean in the hospital?!" you shriek.'
+							'"Yes, at the clinic," she calmly replies.'
+
+							act 'Refuse':
+								*clr & cla
+								'"I can''t go to the hospital!"'
+								'She smiles at you. "Well... I guess we could do it a different way then. I''ll give you a few shots to start with."'
+								'"Oh thank you, doctor!"'
+
+								act 'Lie on your stomach and bare your ass':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom9.jpg"></center>'
+									'The doctor jabs a needle into your ass cheek and you find yourself suddenly becoming incredibly aroused, your pussy growing wet and aching to be invaded as your breath quickens and your nipples grow hard with desire.'
+									'"Doctor, what''s happening?" you ask, almost screaming. You feel embarrassed and frightened, but your voice breaks, betraying your arousal, and you moan voluptuously.'
+									'"I knew it! I can feel the magic in you, which means you''re one of us, and I can use my healing powers on you."'
+									'"So you''re a succubus too?!"'
+									'"Yes, but only with a special kind of magic. Tantric. Have you heard of it?"'
+									'"No, I don''t think so..."'
+									'"It''s based on sensuality and sex, roughly speaking, I can cast spells only while having sex."'
+									'"So...?"'
+									'"That''s it. If we have sex, I will heal you. Do you agree?"'
+									'"And what should I do in return?"'
+									'"Nothing. I''m doing it solely for my own satisfaction."'
+									'"Then I agree."'
+									gs 'arousal', 'foreplay', 15
+									gs 'stat'
+
+									act 'Surrender to the gentle touch of Ninel': gt 'housecall', 'ninel2'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'burgerIly1':
+	'<b><font color = red>The doorbell rings</font></b>'
+	act 'Answer the door':
+		cla
+		menu_off = 1
+		gs 'stat'
+		'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!"'
+		act 'Open the door':
+			cla
+			minut += 120
+			BurgerQW['IlyQW'] = 2
+			gs 'stat'
+			'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 man with with a weeks worth of stubble and a pistol in a holster slung under his armpit speaks to you. "Please take a seat while we search the apartment. This is a warrant for your arrest and this is a search warrant for your apartment. You can read them." The men start searching your apartment and a few minutes later, one of them reappears. "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 at the officer, who pulls your hands behind your back and snaps the handcuffs around your wrists.'
+			wait 1500
+			'You''re escorted out of the building in handcuffs and pushed into a police car. After the door slams shut, the car starts up and drives through the city streets until it stops outside the police station and you''re pulled out and 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 footage from a security camera in Bystroeshke showing you appear in the corridor and enter the office before exiting a few minutes later holding a thick envelope. The detective takes the tape out and 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 the 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 at you with gloomy eyes. "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."'
+			act 'Sign the confession':
+				cla
+				minut += 60
+				gs 'stat'
+				'You sign the confession and the detective signals for an officer, who enters the room as the detective nods in your direction. "Take her."'
+				act 'Go with him': gt 'kameraKPZ'
+			end
+			act 'Tell the truth':
+				cla
+				minut += 60
+				gs 'stat'
+				'You tell the detective what actually happened and how Ilyushkin framed you, but he barely listens to you before he slams his fist on the table and yells at you. "I wasn''t born yesterday! If you will not cooperate, you''ll rot in prison!" An officer then enters the room and the detective nods in your direction. "Take her."'
+				act 'Go with him': gt 'kameraKPZ'
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'burgerIly3':
+	*clr & cla
+	menu_off = 1
+	BurgerQW['IlyQW'] = 4
+	if DolgRS <= moneySUM:
+		money = moneySUM - 650000
+		karta = bankDebtLimit
+		stolmoney = 0
+		minut += 120
+		gs 'stat'
+		'The police arrive and take you to court. You manage to pay off your debts and are released.'
+
+		act 'Leave the courthouse': gt 'city_center'
+	else
+		DolgRS = 590000 - moneySUM
+		money = 0
+		karta = bankDebtLimit
+		stolmoney = 0
+		vidage += 7
+		year += 5
+		age = year - (pcs_dob / 10000)
+		money = 2000
+		gs 'stat'
+		'The police arrive and take you to court. After standing trial, you''re given five years of jail time and are required to pay your debt of <<DolgRS>>.'
+
+		act 'Serve your time':
+			cla
+			srok_kolvo = 1
+			srok_otsidki += 5
+			pcs_mass['body'] = 10
+			fat = 10
+			if defcurly = 0:
+				curly = 0
+			else
+				curly = 2147483647
+			end
+			straight = 0
+			pcs_makeup = 1
+			pcs_skin = 0
+			pcs_tan = 0
+			pcs_leghair = 12
+			pcs_pubes = 30
+			bfa = 0
+			drugVars['cocaine_addict'] = 0
+			drugVars['cocaine_system'] = 0
+			drugVars['heroin_need'] = 0
+			work = 0
+			workKafe['job'] = 0
+			workhosp = 0
+			worksalon = 0
+			tanwork = 0
+			workSec = 0
+			preg = 0
+			young_shop_work = 0
+			gs 'uniutil', 'student', 'unenroll'
+			gs 'stat'
+			'Time drags on slowly. Your life and work are tedious and monotonous. You sew, have meals in the dining room and go to sleep 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 doesn''t stand still and your torment finally comes to an end. You''re released and given 2,000 <b>₽</b>. You board the train and return to the city.'
+			act 'Get off the train': gt 'city_industrial_train', 'outside'
+		end
+	end
+end
+
+
+
+--- home_events ---------------------------------

+ 14 - 465
locations/korr.qsrc

@@ -21,16 +21,28 @@ if ml_performance['max_perform_minutes'] = 0: ml_performance['max_perform_minute
 
 if sound = 0:PLAY 'sound/korr.mp3',30
 
-gs 'courtletter'
+'<center><b><font color="maroon">Corridor</font></b></center>'
+
+if remkorr = 0:
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr.jpg"></center>'
+	'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.'
+else
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr2.jpg"></center>'
+	'A modern hall with stylish furniture, including a wall-mounted <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
+end
+
+gs 'home_events', 'entry'
 
 if lesbiday + 14 <= daystart and lesbiQW >= 11 and hour >= 19 and santehnikDolg = 0:
 	if rand(0, 100) > 82 and $husID = '':
-		gt 'lesbimistress','mistvisit'
+		gt 'lesbimistress', 'mistvisit'
 	else
 		lesbiday += 1
 	end
 end
 
+
+
 act '<b>Go to the stairwell</b>':
 	*clr & cla
 	if $clothingworntype = 'nude':
@@ -76,473 +88,10 @@ else
 	end
 end
 
-'<center><b><font color="maroon">Corridor</font></b></center>'
-
-if remkorr = 0:
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr.jpg"></center>'
-	'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.'
-else
-	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr2.jpg"></center>'
-	'A modern hall with stylish furniture, including a wall-mounted <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
-end
-
 if mc_inventory['umbrella'] > 0:'Your umbrella hangs on a hook.'
 
 if krolik = 1:'Your rabbit <a href="exec:gt ''krol'', ''start''"><<$namekrol>></a> sits in it''s cage on the floor.'
 if ParrotQW['Owned1'] = 1:'Your parrot <a href="exec:gt ''popu'', ''start''"><<$ParrotQW[''Name1'']>></a> sits in it''s cage.'
 
-if parkday ! daystart and parkblackmail = 1:
-	parkblackmail = 2
-	parkday = daystart
-	'A heavy envelope has arrived in the mail. When you open it, you''re horrified to find several pictures of you giving blowjobs to the guys in the park inside. A small note accompanying them says:'
-	*nl
-	'"If you don''t want these pictures to be posted on your door and sent to your work place, then come to this address. PS, if you don''t come today, these pictures will be hanging in your stairwell tomorrow."'
-	*nl
-	'You check the address and find that it''s Aphrodite Photography in the City Center.'
-elseif parkday ! daystart and parkblackmail = 2:
-	parkblackmail = 0
-	fotoyousuck = 1
-	'You''re horrifed and embarrassed when you see photos of you with your face covered in cum with two dicks in your mouth covering your stairwell walls.'
-end
-
-!!if rand (0,2) ! 0: gs 'din_bad' & dynamic $mobile_check
-
-if hour >= 9 and hour <= 20 and santehnikDolg > 0 and money >= santehnikDolg:
-	'<b><font color="red">, the doorbell rings</font></b>'
-
-	act 'Go to the door':
-		*clr & cla
-		gs 'stat'
-		'You go to the door and look through the peephole to see a dark male figure. "It''s me. Grisha, the plumber. You owe me some money, remember?" he says through the door.'
-
-		act 'Answer the door':
-			*clr & cla
-			money -= santehnikDolg
-			santehnikDolg = 0
-			gs 'stat'
-			'You open the door and Grisha smiles. "I thought you were hiding from me. So, do you have my money?" You nod and pay him the money you owe.'
-
-			act 'Close the door': gt $curloc
-		end
-	end
-end
-
-if BurgerQW['IlyQW']  = 3 and hour >= 9 and hour <= 20:
-	*clr & cla
-	BurgerQW['IlyQW']  = 4
-	if DolgRS <= moneySUM:
-		money = moneySUM - 650000
-		karta = bankDebtLimit
-		stolmoney = 0
-		minut += 120
-		'The police arrive and take you to court. You manage to pay off your debts and are released.'
-
-		act 'Leave the courthouse': gt 'city_center'
-	else
-		DolgRS = 650000 - moneySUM - 60000
-		money = 0
-		karta = bankDebtLimit
-		stolmoney = 0
-		vidage += 7
-		year += 5
-		age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
-		money = 2000
-		'The police arrive and take you to court. After standing trial, you are given five years of jail time and are required to pay your debt of <<DolgRS>>.'
-
-		act 'Serve your time':
-			*clr & cla
-			srok_kolvo = 1
-			srok_otsidki += 5
-			pcs_mass['body'] = 10
-			fat = 10
-			if defcurly = 0:
-				curly = 0
-			else
-				curly = 2147483647
-			end
-			straight = 0
-			pcs_makeup = 1
-			pcs_skin = 0
-			pcs_tan = 0
-			pcs_leghair = 12
-			pcs_pubes = 30
-			bfa = 0
-			drugVars['cocaine_addict'] = 0
-			drugVars['cocaine_system'] = 0
-			drugVars['heroin_need'] = 0
-			work = 0
-			workKafe['job'] = 0
-			workhosp = 0
-			worksalon = 0
-			tanwork = 0
-			workSec = 0
-			preg = 0
-			young_shop_work = 0
-			gs 'uniutil', 'student', 'unenroll'
-			gs 'stat'
-
-			'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 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 doesn''t stand still and your torment finally comes to an end. You are released and given 2,000 <b>₽</b>. You board the train and return to the city.'
-
-			act 'Get off the train': gt 'city_industrial_train', 'outside'
-		end
-	end
-	exit
-end
-
-if BurgerQW['IlyQWDay'] ! daystart and BurgerQW['IlyQW']  = 1 and hour >= 8 and hour <= 20:
-	'<b><font color="red">The doorbell rings</font></b>'
-
-	act 'Walk up to the door':
-		*clr & cla
-		gs 'stat'
-		'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!"'
-
-		act 'Answer the door':
-			*clr & cla
-			minut += 120
-			BurgerQW['IlyQW']  = 2
-			gs 'stat'
-			'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 man with with a weeks worth of stubble and a pistol in a holster slung under his armpit speaks to you. "Please take a seat while we search the apartment. This is a warrant for your arrest and this is a search warrant for your apartment. You can read them." The men start searching your apartment and a few minutes later, one of them reappears. "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 officer, who pulls your hands behind your back and snaps the handcuffs around your wrists.'
-			wait 1500
-			'You''re escorted out of the building in handcuffs and pushed into a police car. After the door slams shut, the car starts up and drives through the city streets until it stops outside the police station and you''re pulled out and 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 footage from a security camera in Bystroeshke showing you appear in the corridor and entering the office before exiting a few minutes later holding a thick envelope. The detective takes the tape out and 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 the 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."'
-			act 'Sign confession':
-				*clr & cla
-				minut += 60
-				gs 'stat'
-				'You sign the confession and the detective signals for an officer, who enters the room as the detective nods in your direction. "Take her."'
-
-				act 'Go with him': gt 'kameraKPZ'
-			end
-
-			act 'Tell the truth':
-				*clr & cla
-				minut += 60
-				gs 'stat'
-				'You tell the detective what actually happened and how Ilyushkin framed you, but he barely listens to you before he slams his fist on the table and yells at you. "I wasn''t born yesterday! If you will not cooperate, you''ll rot in prison!" An officer then enters the room and the detective nods in your direction. "Take her."'
-
-				act 'Go with him': gt 'kameraKPZ'
-			end
-		end
-	end
-
-	exit
-end
-
-if gopstop > 30:
-	gt 'police', '1'
-end
-
-if sick > 0 and doktorday ! daystart:
-
-	!!act 'Call a doctor':
-	!!	*clr & cla
-	!!	minut += 15
-	!!	doktorday = daystart
-	!!	sick -= 5
-!!	if sick < 1:sick = 1
-	!!	if sickstage = 1:sicktimer += 5
-
-	!!	'A doctor arrives from the clinic and examines you. After the examination, the doctor gives a shot and you start feeling better.'
-
-	!!	act 'Move away':gt 'korr'
-	!!end
-
-	act 'Call a doctor':doktorday = daystart & dynamic $polidin
-end
-
-$ninel0 = {
-	*clr & cla
-	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel00.jpg"></center>'
-	'You open the door and see a pretty young girl with a medical bag in her hand standing on the threshold.'
-	'"Hello, my name is Ninel Pavlovna. I do the home visits for the clinic. Where is the patient?"'
-	'"That would be me..."'
-	'"I see. First, we need to get you back into bed."'
-
-	act 'Go back to bed':
-		*clr & cla
-		ninelmet = 1
-		'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom0.jpg"></center>'
-		'Ninel sits on the edge of your bed and checks your forehead.'
-		'"What are your symptoms, <<$pcs_nickname>>? Can I call you that?"'
-		'"Of course..." You start to answer, but end up coughing. "Sorry. I have a high fever, a sore throat and a cough that''s killing me!"'
-		'"Running nose? Headaches? Aching bones?"'
-		'"Yes, all of them."'
-		'"Please take your clothes off so I can examine you."'
-
-		act 'Undress':
-			*clr & cla
-			minut += 5
-			pcs_horny += 10
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom1.jpg"></center>'
-			'You undress and Ninel listens to your lungs for a long time. Her hands are cool and gentle as she touches you, while the stethoscope is cold.'
-			'"Mmmm, now let''s take a look at your mouth. Open wide and say ''aah''."'
-
-			act 'Ahh':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel03.jpg"></center>'
-				'You open your mouth and she looks in, examining your sore throat.'
-				'"I see. Your throat is very red and inflamed. Now we need to take your temperature.'
-
-				act 'Put a thermometer in your mouth':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/ninel04.jpg"></center>'
-					'"No, not like that. The temperature needs to be measured rectally."'
-					'"What...?"'
-					'"It''s more precise. Don''t be afraid, it''s not painful."'
-					'"Well if I have to..."'
-					'"It''s necessary. Come on, lie down on your stomach and spread your buttocks with your hands please."'
-
-					act 'Change position':
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom2.jpg"></center>'
-						'You obediently roll over and spread your ass as Ninel lubricates your anus with some vaseline 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.'
-						gs 'arousal', 'anal_dildo', 10
-						gs 'stat'
-
-						if pcs_horny >= 50:
-							act 'Moan in pleasure':
-								*clr & cla
-								'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
-								'The doctor takes the thermometer out of your ass and checks it.'
-								'"39.2. Very bad. Please turn on your back, I need to palpate the lymph nodes."'
-
-								act 'Roll over on your back':
-									*clr & cla
-									'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom5.jpg"></center>'
-									'The doctor begins to stroke and knead your stomach and thighs. You''re not actually sure if this is a real medical procedure. She does it for far too long, but it''s too pleasant and you don''t object.'
-									'Your excitement continues to grow and you feel your pussy moistening as you start to moan softly.'
-									gs 'arousal', 'foreplay', 15
-									gs 'stat'
-
-									act 'Blush in embarrassment':
-										*clr & cla
-										'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom6.jpg"></center>'
-										'You blush with embarrassment, but then fall below the hands of Ninel as she starts caressing your pussy.'
-										'"Doctor, what are you doing!" you scream, feeling embarrassed, outraged and frightened.'
-										'"I feel the magic in you, which means you''re one of us, and I can use my healing powers on you," she replies.'
-										'"So you''re a succubus too?!"'
-										'"Yes, but only with a special kind of magic. Tantric. Have you heard of it?'
-										'"No, I don''t think so..."'
-										'"It''s based on sensuality and sex. Roughly speaking, I can only cast spells when having sex."'
-										'"So...?"'
-										'"That is, if I have sex with you, I will heal you. So? Do you agree?"'
-										'"And what should I do in return?"'
-										'"Nothing. I''m doing it solely for my own satisfaction."'
-										'"Then of course I agree."'
-										gs 'arousal', 'foreplay', 15
-										gs 'stat'
-
-										act 'Surrender to the gentle hands of Ninel':gt 'housecall', 'ninel2'
-									end
-								end
-							end
-						end
-
-						act 'Indignant':
-							*clr & cla
-							'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom3.jpg"></center>'
-							'"What the hell are you doing?!" you squeal.'
-							'She takes the thermometer out of your ass. "I''m measuring your temperature. 39.2. Very bad," she calmly replies.'
-
-							act 'What''s wrong with me?':
-								cla
-								'"Doctor, what''s wrong with me?" you ask, somewhat scared.'
-								'"You have a really bad flu, but I''ll make you an injection of antibiotics and antigens and you''ll soon feel better."'
-
-								act 'Get injection':
-									*clr & cla
-									minut += 10
-									sick -= 2
-									lekar += 3
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom4.jpg"></center>'
-									'You whimper slightly as Ninel jabs the needle into one of your ass cheeks and injects the contents.'
-									'"That''s about everything. You have to rest in bed, drink hot drinks, take antibiotics and nose drops and stay on a balanced diet. When your temperature drops, come to the clinic to see me."'
-									'"Thank you, Doctor, I''ll follow your instructions."'
-									'Ninel smiles and says goodbye before leaving.'
-
-									act 'Back to bed': gt 'bedr'
-								end
-							end
-						end
-
-						act 'What''s wrong with me?':
-							cla
-							'"Doctor, what''s wrong with me?" you ask fearfully.'
-							'"I''m afraid you have angina, <<$pcs_nickname>>. I would advise you recieve immediate treatment," she replies.'
-							'"What? You mean in the hospital?!" you shriek.'
-							'"Yes, at the clinic," she calmly replies.'
-
-							act 'Refuse':
-								*clr & cla
-								'"I can''t go to the hospital!"'
-								'She smiles at you. "Well... I guess we could do it a different way then. I''ll give you a few shots to start with."'
-								'"Oh thank you, doctor!"'
-
-								act 'Lie on your stomach and bare your ass':
-									*clr & cla
-									'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/nadom9.jpg"></center>'
-									'The doctor jabs a needle into your ass cheek and you find yourself suddenly becoming incredibly aroused, your pussy growing wet and aching to be invaded as your breath quickens and your nipples grow hard with desire.'
-									'"Doctor, what''s happening?" you ask, almost screaming. You feel embarrassed and frightened, but your voice breaks, betraying your arousal, and you moan voluptuously.'
-									'"I knew it! I can feel the magic in you, which means you''re one of us, and I can use my healing powers on you."'
-									'"So you''re a succubus too?!"'
-									'"Yes, but only with a special kind of magic. Tantric. Have you heard of it?"'
-									'"No, I don''t think so..."'
-									'"It''s based on sensuality and sex, roughly speaking, I can cast spells only while having sex."'
-									'"So...?"'
-									'"That''s it. If we have sex, I will heal you. Do you agree?"'
-									'"And what should I do in return?"'
-									'"Nothing. I''m doing it solely for my own satisfaction."'
-									'"Then I agree."'
-									gs 'arousal', 'foreplay', 15
-									gs 'stat'
-
-									act 'Surrender to the gentle touch of Ninel': gt 'housecall', 'ninel2'
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-}
-
-$drPP = {
-	cla
-	*clr
-	'You answer the door and an older, balding man with a medical bag in his hand is standing on the threshold.'
-	'"Hello, doctor."'
-	'"Hello, dear. I''m the local doctor. Now please go back to bed and don''t stand in this cold air."'
-
-	act 'Go back to bed':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp1.jpg"></center>'
-		'You walk back to the bedroom with the doctor. He sits on the edge of the bed and feels your forehead.'
-		'"So Miss <<$pcs_lastname>>. What are your symptoms?'
-		'"Ahem... I have a sore throat - very sore actually - and a high temperature."'
-		'"And a nasty cough too I see. And judging by your voice, also a running nose."'
-		'"Yes... Aachoo!!"'
-		'"Please remove your clothes so I can examine you."'
-
-		act 'Undress':
-			*clr & cla
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp2.jpg"></center>'
-			'You undress and the doctor listens to your lungs for a while.'
-			'"Now let''s take a look at your throat. Open your mouth wide and say ''ahh''."'
-
-			act 'Aahh':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp3.jpg"></center>'
-				'You open your mouth and the doctor looks in.'
-				'"Mmmm, I see. Well, let''s take your temperature."'
-
-				act 'Put the thermometer under your armpit':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp4.jpg"></center>'
-					'The doctor waits a few minutes, then looks at the thermometer and shakes his head.'
-
-					act 'What''s wrong with me?':
-						cla
-						'"You have the flu," he calmly replies. "Nothing too serious, I''ll just give you an injection and you''ll feel better soon. Stay in bed, drink plenty of fluids and try to rest as much as possible. Now please roll over so I can give you the injection."'
-
-						act 'Roll over and lay on your stomach':
-							*clr & cla
-							minut += 10
-							sick -= 2
-							mc_inventory['antibiotics'] += 3
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp5.jpg"></center>'
-							'You whimper slightly as the doctor jabs a needle into your ass and injects the contents.'
-							'"Now remember. Stay in bed, drink lots of fluids and try to rest. When you feel better, come by the clinic."'
-							'"Thank you, Doctor, I will."'
-							'You escort the doctor back to the entrance where he says goodbye and leaves. After shutting the door, you head back to bed.'
-
-							act 'Go back to bed': gt 'bedr'
-						end
-					end
-				end
-			end
-		end
-	end
-}
-
-$polidin = {
-	cla
-	*clr
-	minut += 15
-	callrand = rand(1, 3)
-	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
-	'You dial the number of the clinic several times, but it''s always busy.'
-
-	act 'Keep trying':
-		cla
-		'Finally, a tired nurse''s voice answers. "Hello, this is the clinic. How can I help you?"'
-
-		act 'Ask for doctor':
-			cla
-			'"Hello. Can I get a house call?" you manage to say between coughing fits.'
-			'"Your name and address, please?" she asks.'
-
-			act 'Give your address':
-				cla
-				'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.'
-				'"One moment please," she responds before she puts you on hold.'
-
-				act 'Wait':
-					cla
-					minut += 5
-					gs 'stat'
-					'You wait for five minutes, occasionally coughing and sneezing, until she finally returns. "So Miss <<$pcs_lastname>>, what are your symptoms?"'
-					'You start to answer, but end up coughing. "Sorry. I have a fever, sore throat, a cough and a runny nose."'
-					'"Is your temperature high?"'
-					'"Yes, quite so. 39.2°C," you tell her, followed by a sneeze.'
-					'"Very well. A doctor will come see you at home."'
-					'"How soon?"'
-					'"As soon as one is free," she answers. "Yours isn''t an isolated case."'
-					'"Thank you," you respond and hang up.'
-
-					if ninelsex = 1:
-						act 'Is Ninel available?':
-							cla
-							'"Is Doctor Pavlovna available? She''s my regular doctor."'
-							'"Let me check." The nurse puts you on hold for a few minutes before returning. "Yes, she is free and will make the house call."'
-							'"Once again, thank you very much," you reply and hang up.'
-
-							act 'Continue': gt 'housecall', 'ninel3'
-						end
-					end
-
-					act 'Go back to bed':
-						*clr & cla
-						picrand = rand(21, 27)
-						'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick<<picrand>>.jpg"></center>'
-						timerand = rand(1, 6)
-						minut += timerand * 30
-						'You lie in bed, shivering while wrapped in a blanket. Time drags by painfully slow and you can''t say how much time passes before the doorbell rings.'
-
-						! WD: Uninitialised ~ 'ninel' use 'ninelmet'
-						act 'Answer the door':
-							if ninelmet > 0 and sick <= 50:
-								gt 'housecall', 'ninel1'
-							elseif ninelmet = 0 or sick > 50:
-								doctrnd = rand(0, 1)
-
-								if doctrnd = 0: dynamic $drPP
-								if doctrnd = 1: gt 'housecall', 'ninel0'
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-}
 
 --- korr ---------------------------------
-

+ 2 - 257
locations/korr2x.qsrc

@@ -24,27 +24,14 @@ elektro = elektro + 1
 gs'stat'
 gs 'themes', 'indoors'
 
-gs 'courtletter'
-
 '<center><b><font color = maroon>Corridor</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/pushkin/apartment/korr2x.jpg"></center>'
 
+gs 'home_events', 'entry'
+
 if mc_inventory['umbrella'] > 0:'Your umbrella is on a hook.'
 if krolik = 1:'Your rabbit <a href="exec:gt ''krol'', ''start''"><<$namekrol>></a> sits in it''s cage on the floor.'
 if ParrotQW['Owned1'] = 1:'Your parrot <a href="exec:gt ''popu'', ''start''"><<$ParrotQW[''Name1'']>></a> sits in it''s cage.'
-if parkday ! daystart and parkblackmail = 1:
-	parkblackmail = 2
-	parkday = daystart
-	'A heavy envelope has arrived in the mail. When you open it, you''re horrified to find several pictures of you giving blowjobs to the guys in the park inside. A small note accompanying them says:'
-	*nl
-	'"If you don''t want these pictures to be posted on your door and sent to your work place, then come to this address. If you don''t come today, these pictures will be hanging in your stairwell tomorrow."'
-	*nl
-	'You check the address and find that it''s Aphrodite Photography in the City Center.'
-elseif parkday ! daystart and parkblackmail = 2:
-	parkblackmail = 0
-	fotoyousuck = 1
-	'You''re horrifed and embarrassed when you see photos of you with your face covered in cum with two dicks in your mouth covering your stairwell walls.'
-end
 
 act 'Go to the bedroom': gt'bedr2x'
 act 'Go to the bathroom': gt'vanr2x'
@@ -62,24 +49,6 @@ act '<b><font color="maroon">Go outside</font></b>':
 		xgt'pushkin_sq'
 	end
 end
-!!if rand (0,2) ! 0:gs 'din_bad' & dynamic $mobile_check
-
-if hour >= 9 and hour <= 20 and santehnikDolg > 0 and money >= santehnikDolg:
-	'<b><font color = red>The doorbell rings</font></b>'
-	act 'Answer the door':
-		cla
-		gs 'stat'
-		'You go to the door and look through the peephole to see a dark male figure. "It''s me. Grisha, the plumber. You owe me some money, remember?" he says through the door.'
-		act 'Open the door':
-			cla
-			money -= santehnikDolg
-			santehnikDolg = 0
-			gs 'stat'
-			'You open the door and Grisha smiles. "I thought you were hiding from me. So, do you have my money?" You nod and pay him the money you owe.'
-			act 'Close the door':gt $curloc
-		end
-	end
-end
 
 if func('homes_properties', 'is_current_home') = 0:
 	act 'Set this apartment as your main home':gs 'homes_properties', 'set_home' & gt 'korr2x'
@@ -95,229 +64,5 @@ else
 	end
 end
 
-if BurgerQW['IlyQW']  = 3 and hour >= 9 and hour <= 20:
-	cls
-	BurgerQW['IlyQW']  = 4
-	if DolgRS <= moneySUM:
-		money = moneySUM-650000
-		karta = bankDebtLimit
-		stolmoney = 0
-		minut += 120
-		'The police arrive and take you to court. You manage to pay off your debts and are released.'
-		act 'Leave the courthouse':gt'city_center'
-	elseif DolgRS > moneySUM:
-		DolgRS = 650000-moneySUM-60000
-		money = 0
-		karta = bankDebtLimit
-		stolmoney = 0
-		vidage += 7
-		year += 5
-		age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
-		money = 2000
-		'The police arrive and take you to court. After standing trial, you''re given five years of jail time and are required to pay your debt of <<DolgRS>>.'
-		act 'Serve your time':
-			cla
-			srok_kolvo = 1
-			srok_otsidki += 5
-			pcs_mass['body'] = 10
-			fat = 10
-			if defcurly = 0:
-				curly = 0
-			else
-				curly = 2147483647
-			end
-			straight = 0
-			pcs_makeup = 1
-			pcs_skin = 0
-			pcs_tan = 0
-			pcs_leghair = 12
-			pcs_pubes = 30
-			bfa = 0
-			drugVars['cocaine_addict'] = 0
-			drugVars['cocaine_system'] = 0
-			drugVars['heroin_need'] = 0
-			work = 0
-			workKafe['job'] = 0
-			workhosp = 0
-			worksalon = 0
-			tanwork = 0
-			workSec = 0
-			preg = 0
-			young_shop_work = 0
-			gs 'uniutil', 'student', 'unenroll'
-			gs 'stat'
-			'Time drags on slowly. Your life and work are tedious and monotonous. You sew, have meals in the dining room and go to sleep 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 doesn''t stand still and your torment finally comes to an end. You''re released and given 2,000 <b>₽</b>. You board the train and return to the city.'
-			act 'Get off the train': gt 'city_industrial_train', 'outside'
-		end
-	end
-	exit
-end
-if BurgerQW['IlyQWDay'] ! daystart and BurgerQW['IlyQW']  = 1 and hour >= 8 and hour <= 20:
-	'<b><font color = red>The doorbell rings</font></b>'
-	act 'Answer the door':
-		cla
-		gs 'stat'
-		'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!"'
-		act 'Open the door':
-			cla
-			minut += 120
-			BurgerQW['IlyQW']  = 2
-			gs 'stat'
-			'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 man with with a weeks worth of stubble and a pistol in a holster slung under his armpit speaks to you. "Please take a seat while we search the apartment. This is a warrant for your arrest and this is a search warrant for your apartment. You can read them." The men start searching your apartment and a few minutes later, one of them reappears. "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 at the officer, who pulls your hands behind your back and snaps the handcuffs around your wrists.'
-			wait 1500
-			'You''re escorted out of the building in handcuffs and pushed into a police car. After the door slams shut, the car starts up and drives through the city streets until it stops outside the police station and you''re pulled out and 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 footage from a security camera in Bystroeshke showing you appear in the corridor and enter the office before exiting a few minutes later holding a thick envelope. The detective takes the tape out and 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 the 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 at you with gloomy eyes. "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."'
-			act 'Sign the confession':
-				cla
-				minut += 60
-				gs 'stat'
-				'You sign the confession and the detective signals for an officer, who enters the room as the detective nods in your direction. "Take her."'
-				act 'Go with him': gt'kameraKPZ'
-			end
-			act 'Tell the truth':
-				cla
-				minut += 60
-				gs 'stat'
-				'You tell the detective what actually happened and how Ilyushkin framed you, but he barely listens to you before he slams his fist on the table and yells at you. "I wasn''t born yesterday! If you will not cooperate, you''ll rot in prison!" An officer then enters the room and the detective nods in your direction. "Take her."'
-				act 'Go with him': gt'kameraKPZ'
-			end
-		end
-	end
-	exit
-end
-if gopstop > 30: gt 'police','1'
-
-if sick > 0 and doktorday ! daystart: act 'Call a doctor': doktorday = daystart & dynamic $polidin
-
-$drPP = {
-	*clr & cla
-	'You answer the door. On the threshold is an older, balding man with a medical bag in his hand.'
-	'"Hello, doctor."'
-	'"Hello, dear. I''m the local doctor. Now please go back to bed and don''t stand in this cold air.'
-	act 'Go back to bed':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp1.jpg"></center>'
-		'You walk back to the bedroom with the doctor. He sits on the edge of the bed and feels your forehead.'
-		'"So Miss <<$pcs_lastname>>. What are your symptoms?'
-		'"Ahem, ahem... Well, Doctor, I have a sore throat - very sore actually - and a high temperature," you reply.'
-		'"And a nasty cough too I see. And judging by your voice, also a running nose."'
-		'"Yes... Aachoo!!"'
-		'"Please remove your clothes so I can examine you," he orders.'
-		act 'Undress':
-			*clr & cla
-			minut += 5
-			clr
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp2.jpg"></center>'
-			'You undress and the doctor listens to your lungs for a while.'
-			'"Now let''s take a look at your throat. Open your mouth wide and say ''aahh''."'
-			act 'Ahh':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp3.jpg"></center>'
-				'You open your mouth and the doctor looks in.'
-				'"Mmmm, I see. Let''s take your temperature."'
-				act 'Put the thermometer under your armpit':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp4.jpg"></center>'
-					'The doctor waits a few minutes, then looks at the thermometer and shakes his head.'
-					act 'What''s wrong with me?':
-						cla
-						'You have the flu," he calmly replies. "Nothing too serious, I''ll just give you an injection and you''ll feel better soon. Stay in bed, drink plenty 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."'
-						act 'Roll over':
-							*clr & cla
-							minut += 10
-							sick -= 2
-							mc_inventory['antibiotics'] += 3
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/drpp5.jpg"></center>'
-							'The doctor jabs a needle into your ass and injects the contents.'
-							'"Now remember. Stay in bed, drink lots of fluids and try to rest. When you feel better come by the clinic."'
-							'"Thank you Doctor, I will."'
-							'You escort the doctor back to the entrance, where he says goodbye and leaves. After shutting the door, you head back to bed.'
-							act 'Go back to bed': gt'bedr2x'
-						end
-					end
-				end
-			end
-		end
-	end
-}
-
-$polidin = {
-	*clr & cla
-	minut + 15
-	gs 'stat'
-	callrand = rand(0,2)
-	if callrand = 0:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
-	if callrand = 1:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
-	if callrand = 2:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/housecall.jpg"></center>'
-	'You dial the number of the clinic several times, but it''s always busy.'
-	act 'Keep trying':
-		cla
-		'Finally, a tired nurse''s voice answers. "Hello, this is the clinic. How can I help you?"'
-		act 'Ask for doctor':
-			cla
-			'"Hello. Can I get a house call?" you manage to say between coughing fits.'
-			'"Your name and address, please?" she asks.'
-			act 'Give your address':
-				cla
-				'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.'
-				'"One moment please," she responds before she puts you on hold.'
-				act 'Wait':
-					cla
-					minut += 5
-					gs 'stat'
-					'You wait for five minutes, occasionally coughing and sneezing, until she finally returns. "So Miss <<$pcs_lastname>>, what are your symptoms?"'
-					'You start to answer, but end up coughing. "Sorry, I have a fever, sore throat, a cough and a runny nose."'
-					'"Is your temperature high?"'
-					'"Yes, quite so. 39.2°C," you tell her, followed by a sneeze.'
-					'"Very well. A doctor will come see you at home."'
-					'"How soon?"'
-					'"As soon as one is free," she answers. "Yours isn''t an isolated case."'
-					'"Thank you," you respond and hang up.'
-					if ninelsex = 1:
-						act 'Is Ninel available?':
-							cla
-							'"Is Doctor Pavlovna available? She is my regular doctor."'
-							'"Let me check." The nurse puts you on hold for a few minutes before returning. "Yes, she is free and will make the house call."'
-							'"Once again, thank you very much," you reply and hang up.'
-							act 'Continue':gt 'housecall', 'ninel3'
-						end
-					end
-					act 'Go back to bed':
-						*clr & cla
-						picrand = rand(0,6)
-						if picrand = 0:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick27.jpg"></center>'
-						if picrand = 1:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick21.jpg"></center>'
-						if picrand = 2:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick22.jpg"></center>'
-						if picrand = 3:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick23.jpg"></center>'
-						if picrand = 4:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick24.jpg"></center>'
-						if picrand = 5:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick25.jpg"></center>'
-						if picrand = 6:'<center><img <<$set_imgh>> src="images/locations/shared/apartment/event/sick/sick26.jpg"></center>'
-						timerand = rand(0,5)
-						if timerand = 0:minut = minut + 30
-						if timerand = 1:minut = minut + 60
-						if timerand = 2:minut = minut + 90
-						if timerand = 3:minut = minut + 120
-						if timerand = 4:minut = minut + 150
-						if timerand = 5:minut = minut + 180
-						'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.'
-						act 'Open the door':
-							if ninelmet > 0 and sick <= 50:
-								gt 'housecall','ninel1'
-							elseif ninelmet = 0 or sick > 50:
-								doctrnd = rand(0,1)
-								if doctrnd = 0:dynamic $drPP
-								if doctrnd = 1: gt 'housecall','ninel0'
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-}
 
 --- korr2x ---------------------------------
-

+ 3 - 3
locations/korrPar.qsrc

@@ -32,7 +32,7 @@ gs 'stat'
 
 if locat['Fam_inGad'] = 1:'With your parents away visiting your grandparents, the apartment seems quiet and empty.'
 
-gs 'courtletter'
+gs 'home_events', 'entry'
 
 if (hour ! 16 or hour ! 17) and blockBedrPar = 1:blockBedrPar = 0
 
@@ -54,12 +54,12 @@ act '<b>Leave and go to the courtyard</b>':
 			cla
 			act '<font color=red><b>Yes, go outside</b></font>':
 				minut += 5
-				gt'pav_complex', 'start'
+				gt 'pav_complex', 'start'
 			end
 			act 'No, stay inside':gt 'korrPar'
 		else
 			minut += 5
-			gt'pav_complex', 'start'
+			gt 'pav_complex', 'start'
 		end
 	else
 		msg'<b><font color = red>You need to get dressed.</font></b>'