glife/locations/152_korr

# korr
<<<<<<< 152_korr
ACT 'The bedroom':
	gt 'bedr'
END
ACT 'The bathroom':
	gt 'vanr'
END
ACT 'The kitchen':
	gt 'kuhr'
END
ACT 'The living room':
	gt 'sitr'
END
ACT '<font color = maroon>Apartment hallway</font>':
	cls
	if sick <= 72 and nude = 0:
	xgt 'etoexhib','pos51'
	elseif nude = 0:
	'<B><font color = red>You''re too sick to walk around in the streets.</font></B>'
=======
ACT 'In the bedroom':
	gt'bedr'
END
ACT 'In the bathroom':
	gt'vanr'
END
ACT 'the kitchen':
	gt'kuhr'
END
ACT 'In the room':
	gt'sitr'
END
ACT '<font color=maroon>In the staircase</font>':
	cls
	if sick<=72 and nude = 0:
	xgt'etoexhib','pos51'
	elseif nude = 0:
	'<B><font color=red>YOU TOO MUCH THAT WOULD sick to walk the streets.</font></B>'
>>>>>>> 152_korr
	xgt $curloc
	else
<<<<<<< 152_korr
	'<B><font color = red>You need to get dressed before going out.</font></B>'
=======
	'<B><font color=red>You have to get dressed.</font></B>'
>>>>>>> 152_korr
	xgt $curloc
	end
END
<<<<<<< 152_korr
ACT '<B><font color = maroon>Go outside</font></B>':
	cls
	if sick <= 72 and nude = 0:
	xgt $HouseLocation
	elseif nude = 0:
	'<B><font color = red>You''re too sick to walk around in the streets.</font></B>'
=======
ACT '<B><font color=maroon>outdoors</font></B>':
	cls
	if sick<=72 and nude = 0:
	xgt'street'
	elseif nude = 0:
	'<B><font color=red>YOU TOO MUCH THAT WOULD sick to walk the streets.</font></B>'
>>>>>>> 152_korr
	xgt $curloc
	else
<<<<<<< 152_korr
	'<B><font color = red>You need to get dressed before going out.</font></B>'
=======
	'<B><font color=red>You have to get dressed.</font></B>'
>>>>>>> 152_korr
	xgt $curloc
	end
	
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 152_korr
set popolaini = 0
set saunaYouRoom = 0
set boycherdaksex = 0
'<center><B><font color = maroon>Corridor</font></B></center>'
if remkorr = 0: '<center><img src="images\etogame\korr.jpg"></center>'
if remkorr = 1: '<center><img src="images\etogame\korr2.jpg"></center>'
clr
gs 'stat'
bonusZ = 0
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
=======
set popolaini=0
set saunaYouRoom=0
set boycherdaksex=0
'<center><B><font color=maroon>corridor</font></B></center>'
if remkorr = 0:'<center><img src="pic/korr.jpg" ></center>'
if remkorr = 1:'<center><img src="pic/korr2.jpg" ></center>'
clr
gs'stat'
bonusZ=0
music_on=0
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
>>>>>>> 152_korr
set housrA = 1
set housrMir = 0
<<<<<<< 152_korr
set elektro += 1
if ring = 1: '<B><font color = red>The phone is ringing</font></B>'
if remkorr = 0: 'In the hallway wallpaper which where moved away from the walls, and has long faded. A coat rack and a shelf for shoes are near the entrance. A wall-mounted <a href="exec: GT ''mirror'',''start''">mirror</a> and a <a href="exec:GT ''telefon'',''start''">phone</a> hang on the wall.'
if remkorr = 1: 'Modern hall with stylish furniture, a wall-mounted <a href="exec: GT ''mirror'',''start''">mirror</a>, and a <a href="exec:GT ''telefon'',''start''">phone</a>'
if suhbelo > 0: 'Drying on the clothesline are <<suhbelo>> laundry items.'
if umbrella > 0: 'An umbrella hangs on a hook.'
if palto > 0: 'Hanging on the hook <<$palto>>.'
if sobaka = 1: '<br>Your dog, <a href="exec: GT ''soba'',''start''"><<$namesob>></a>, is lying on the floor near the entrance.'
if krolik = 1: 'Resting on the floor your rabbit <a href="exec: GT ''krol'',''start''"><<$namekrol>></a>.'
if popugai = 1: 'In the cage sits your parrot <a href="exec: GT ''popu'',''start''"><<$namepopu>></a>.'
if parkday ! day and parkblackmail = 1:
	'A heavy envelope has arrived in the mail. When you open it you can see pictures in it. Damn, it''s pictures of you where you are giving blowjobs to two guys in the park.'
	'Small note says:'
	'If you do not want to have these pictures posted on your porch and sent to your work, come to this address (address listed is a Studio)'
	'PS, if you do not come today, these pictures will be hanging in your entryway tomorrow.'
	Set parkblackmail = 2
	Set parkday = day
	end
=======
set elektro = elektro + 1
if ring = 1:'<B><font color=red>The phone rings</font></B>'
if remkorr = 0:'In the hallway where some wallpaper away from the wall and have long faded. At the entrance hangs outerwear and costs shelf for shoes. On the wall hangs <a href="exec:GT ''mirror'',''start''">mirror</a>, near hanging <a href="exec:GT ''telefon'',''start''">phone</a>'
if remkorr = 1:'Modern hall with stylish furniture, on the wall hangs a large <a href="exec:GT ''mirror'',''start''">mirror</a>, near hanging <a href="exec:GT ''telefon'',''start''">phone</a>'
if suhbelo > 0:'Dried on the clothesline <<suhbelo>> units linen.'
if umbrella > 0:'On the hook hanging umbrella.'
if palto>0:'Hanging on a hook <<$palto>>'
if sobaka = 1: 'Near the entrance to the bedroom is your <a href="exec:GT ''soba'',''start''"><<$namesob>></a>'
if krolik = 1: 'Resting on the floor <a href="exec:GT ''krol'',''start''"><<$namekrol>></a>'
if popugai = 1: 'In the cage sits <a href="exec:GT ''popu'',''start''"><<$namepopu>></a>'
if parkday ! day and parkblackmail = 1:
	 'You come in the mail manila envelope, opening it you see the pictures. Damn, pictures is how you do a blowjob to two guys in the park.'
	 'A small note says:'
	 'If you do not want to have these pictures were raskleiny on your porch and sent to your job, come at (In the address specified Studio)'
	 'PS, if you do not come today, tomorrow photos will hang you in the stairwell.'
	 Set parkblackmail = 2
	 Set parkday = day
	 end
>>>>>>> 152_korr

if parkday ! day and parkblackmail = 2:
<<<<<<< 152_korr
'Damn, your photos with sperm on your face and two dicks in your mouth are plastered around porch.'
Set parkblackmail = 0
fotoyousuck = 1
=======
'Damn, your photos smeared with sperm in the face and with two huyami mouth raskleiny around porch.'
Set parkblackmail = 0
fotoyousuck=1
>>>>>>> 152_korr
end

if bfA < 0:
<<<<<<< 152_korr
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
=======
'<B><font color=red>Your guy does not call you, apparently he threw you.</font></B>'
>>>>>>> 152_korr
set bfA = 0
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyA:
set ring = 1
set ringA = 1
<<<<<<< 152_korr
'<B><font color = red>The phone is ringing</font></B>'
end
=======
'<B><font color=red>The phone rings</font></B>'
end 
>>>>>>> 152_korr
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyB:
set ring = 1
set ringB = 1
<<<<<<< 152_korr
'<B><font color = red>The phone is ringing</font></B>'
=======
'<B><font color=red>The phone rings</font></B>'
>>>>>>> 152_korr
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyC:
set ring = 1
set ringC = 1
<<<<<<< 152_korr
'<B><font color = red>The phone is ringing</font></B>'
=======
'<B><font color=red>The phone rings</font></B>'
>>>>>>> 152_korr
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyA:
<<<<<<< 152_korr
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
set bfA = 0
end
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyB:
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
=======
'<B><font color=red>Your guy does not call you, apparently he threw you.</font></B>'
set bfA = 0
end 
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyB:
'<B><font color=red><<$boyB>> you do not call, apparently he threw you.</font></B>'
>>>>>>> 152_korr
set bfB = 0
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyC:
<<<<<<< 152_korr
'<B><font color = red>Your boyfried does not call you, he probably dumped you.</font></B>'
=======
'<B><font color=red><<$boyC>> you do not call, apparently he threw you.</font></B>'
>>>>>>> 152_korr
set bfC = 0
end

<<<<<<< 152_korr
if vladimirday ! day and vladimirQW = 20 and hour >= 15 and hour <= 17: '<a href="exec: GT ''qwloc2''"><font color = red><B>The phone is ringing</B></font></a>.'
if vladimirday ! day and vladimirQW = 25 and hour >= 15 and hour <= 17 and week = 6: '<a href="exec: GT ''qwloc3''"><font color = red><B>The phone is ringing</B></font></a>.'
if vladimirday ! day and vladimirQW = 35 and hour >= 15 and hour <= 17 and week = 6: '<a href="exec: GT ''qwloc4''"><font color = red><B>The phone is ringing</B></font></a>.'
if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! day and hour >= 12: '<a href="exec: GT ''qwlocdog''"><font color = red><B>The phone is ringing</B></font></a>.'
=======
if vladimirday!day and vladimirQW=20 and hour>= 15 and hour<=17:'<a href="exec:GT ''qwloc2''"><font color=red><B>The phone rings</B></font></a>.'
if vladimirday!day and vladimirQW=25 and hour>= 15 and hour<=17 and week=6:'<a href="exec:GT ''qwloc3''"><font color=red><B>The phone rings</B></font></a>.'
if vladimirday!day and vladimirQW=35 and hour>= 15 and hour<=17 and week=6:'<a href="exec:GT ''qwloc4''"><font color=red><B>The phone rings</B></font></a>.'
if QWdogreiqTimer=0 and QWdogReiq=2 and week=7 and qwdogiventday!day and hour>=12:'<a href="exec:GT ''qwlocdog''"><font color=red><B>The phone rings</B></font></a>.'
>>>>>>> 152_korr

if bfA = 1 or bfB = 1 or bfC = 1:
<<<<<<< 152_korr
	if bfA = 1 and boydayA ! day and hour > 5 and hour < 20 and ringA = 0:
		if bfb = 1: set bfb = 0
		if bfc = 1: set bfc = 0

		if vnesh < vneshBoyA:
		'Your boyfriend has not called you.'
		set bfA = 0
		end

		if vnesh >= vneshBoyA:
		set ring = 1
		set ringA = 1
		'<B><font color = red>The phone is ringing</font></B>'
		end
	end
	if bfB = 1 and boydayB ! day and hour > 5 and hour < 20 and ringB = 0:
		if bfa = 1: set bfa = 0
		if bfc = 1: set bfc = 0

		if vnesh < vneshBoyB:
		'<<$boyB>> did not call back.'
		set bfB = 0
		end

		if vnesh >= vneshBoyB:
		set ring = 1
		set ringB = 1
		'<B><font color = red>The phone is ringing</font></B>'
		end
	end
	if bfC = 1 and boydayC ! day and hour > 5 and hour < 20 and ringC = 0:
		if bfa = 1: set bfa = 0
		if bfb = 1: set bfb = 0

		if vnesh < vneshBoyC:
		'Your boyfriend has not called you.'
		set bfC = 0
		end

		if vnesh >= vneshBoyC:
		set ring = 1
		set ringC = 1
		'<B><font color = red>The phone is ringing</font></B>'
		end
	end
=======
     if bfA = 1 and boydayA ! day and hour > 5 and hour < 20 and ringA = 0:
         if bfb = 1:set bfb = 0
         if bfc = 1:set bfc = 0
         
         if vnesh < vneshBoyA:
         'Your guy will not call back.'
         set bfA = 0
         end
         
         if vnesh >= vneshBoyA:
         set ring = 1
         set ringA = 1
         '<B><font color=red>The phone rings</font></B>'
         end
     end
     if bfB = 1 and boydayB ! day and hour > 5 and hour < 20 and ringB = 0:
         if bfa = 1:set bfa = 0
         if bfc = 1:set bfc = 0
         
         if vnesh < vneshBoyB:
         '<<$boyB>> you do not call back.'
         set bfB = 0
         end
         
         if vnesh >= vneshBoyB:
         set ring = 1
         set ringB = 1
         '<B><font color=red>The phone rings</font></B>'
         end
     end
     if bfC = 1 and boydayC ! day and hour > 5 and hour < 20 and ringC = 0:
         if bfa = 1:set bfa = 0
         if bfb = 1:set bfb = 0
         
         if vnesh < vneshBoyC:
         'Your guy will not call back.'
         set bfC = 0
         end
         
         if vnesh >= vneshBoyC:
         set ring = 1
         set ringC = 1
         '<B><font color=red>The phone rings</font></B>'
         end
     end
>>>>>>> 152_korr

end

<<<<<<< 152_korr
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':
	cls
	gs 'stat'
	'You went to the door and looked through the peephole. You see a dark male figure. Apparently the man heard you and said through the door. "It''s me. Plumber Grisha. You''ll need money."'
		act 'Answer the door':
		cls
		money -= santehnikDolg
		santehnikDolg = 0
		gs 'stat'
		'You opened the door and plumbing Gregory smiled. "I thought you were hiding from me now will. Well? There is nothing to pay?" You nodded and climbed for his wallet. Counting half thousand you gave the money he Dwarf and put them in his pocket. Then you said goodbye and left.'
		act 'Close the door': gt $curloc
		end
	end
=======
if hour>=9 and hour<=20 and santehnikDolg>0 and money>=santehnikDolg:
'<B><font color=red>The doorbell rings</font></B>'
     act 'Come to the door':
     cls
     gs'stat'
     'You came to the door and looked through the peephole. On the site you see the dark figure of a man. Apparently the man heard you and told you through the door. "this is me. plumber Grisha. You have my money."'
         act 'answer the door':
		 cls
		 money-=santehnikDolg
		 santehnikDolg=0
		 gs'stat'
		 'You opened the door plumbing and Grisha smiled. "I thought you were hiding from me now will. Well? There is nothing to pay?" You nodded and climbed for purse. Counting fifteen hundred you gave money Grisha and he put them in his pocket. Then say goodbye and left.'
		 act 'close the door':gt $curloc
		 end
     end
>>>>>>> 152_korr
end

<<<<<<< 152_korr
if IvanPodstavaQW = 3 and hour >= 9 and hour <= 20:
cls
IvanPodstavaQW = 4
	if DolgRS <= moneySUM:
	money = moneySUM - 650000
	karta = 0
	stolmoney = 0
	minut += 120
	'For you police patrol arrived and took you to court. You have managed to pay off its debt and you were released to reconcile the parties.'
	act 'Get out of the courthouse': gt 'down'
	end
	if DolgRS > moneySUM:
	DolgRS = 650000 - moneySUM-60000
	money = 0
	karta = 0
	stolmoney = 0
	age += 5
	vidage += 7
	year += 5
	money = 2000

	'For you police patrol arrived and took you to court. At trial, you were given five years of general regime, is obliged to pay debt <<DolgRS>>.'
		act 'Sit on the area':
		cls
		srok_kolvo = 1
		srok_otsidki += 5
		salo = 10
		fat = 10
		curly = 0
		mop = 1
		skin = 0
		tan = 0
		leghair = 6
		lobok = 3
		bfa = 0
		narkoman = 0
		nark = 0
		SLomka = 0
		work = 0
		workKafe = 0
		workhosp =0
		worksalon =0
		tanwork =0
		workSec =0
		stipuha =0
		preg = 0
		young_shop_work = 0
		set student = 0
		set kurs = 0
		set semestr = 0
		set abiturient = 0
		set stipuha = 0
		set lektor = 0
		gs 'stat'
		'Time dragged on too long. Your life and work was tedious and monotonous. You sewed quilted five years, had dinner in the dining room and went to sleep in the barracks surrounded by other women inmates. With your salary of 2,000 rubles per month in 1000 listed on the debt repayment. But time does not stand still and still came an end to your suffering. You let go and gave 2,000 rubles. You took the train and came back to the city.'
		act 'Get off the train': gt 'vokzal'
		end
	end
=======
if IvanPodstavaQW=3 and hour>=9 and hour<=20:
cls
IvanPodstavaQW=4
	 if DolgRS<=moneySUM:
	 money=moneySUM-650000
	 karta=0
	 stolmoney=0
	 minut+=120
	 'For you came up the police and took you to court. You were able to pay your debt and you will go to reconcile the parties.'
	 act 'Get out of the courthouse':gt 'down'
	 end
	 if DolgRS>moneySUM:
	 DolgRS=650000-moneySUM-60000
	 money=0
	 karta=0
	 stolmoney=0
	 age+=5
	 vidage+=7
	 year+=5
	 money=2000
	 
	 'For you came up the police and took you to court. At trial, obliged to pay debt <<DolgRS>>.'
	     act 'Sitting on the zone':
	     cls
	     srok_kolvo=1
	     srok_otsidki+=5
	     salo=10
	     fat=10
	     curly=0
	     mop=1
	     skin=0
	     tan=0
	     leghair=6
	     lobok=3
	     bfa=0
	     narkoman = 0
	     nark = 0
	     SLomka=0
	     work = 0
	     workKafe = 0
	     workhosp =0
	     worksalon =0
	     tanwork =0
	     workSec =0
	     stipuha =0
	     preg = 0
	     young_shop_work = 0
	     set student = 0
		 set kurs = 0
		 set semestr = 0
		 set abiturient = 0
		 set stipuha = 0
		 set lektor = 0
	     gs'stat'
	     'Time dragged on for a long time. Your life and work was tedious and monotonous. You five years sewed quilted jackets, dinner in the dining room and went to sleep in the barracks surrounded by other women inmates. With your salary 2000 rubles a month listed 1000 debt repayment. But time does not stand still and still come to the end of your torment. You let go and gave 2000 rubles. You took the train and came back to the city.'
	     act 'Get off the train':gt'vokzal'
	     end
	 end
>>>>>>> 152_korr

exit
end

<<<<<<< 152_korr
if IvanPodstavaDay ! day and IvanPodstavaQW = 1 and hour >= 8 and hour <= 20:
'<B><font color = red>, the doorbell rang</font></B>'
	act 'Come to the door':
	cls
	gs 'stat'
	'You came to the door and looked through the peephole. On the site you saw a few men. In the darkness you have seen them on their caps. One of the men said to you through the door. <<$name>> <<$surname>> open, police.'
		act 'Answer the door':
		cls
		minut += 60
		IvanPodstavaQW = 2
		gs 'stat'
		'You opened the door to police wondering what they need from you. In the room were several men in uniform and with them several men in civilian clothes. Lean and skinny guy with stubble week and a pistol in a holster on a belt tied armpit said. "Understood, take your seats. Who will search in the apartment of the citizen who is accused of stealing." The investigator turned to you. "That´s a warrant for your arrest, this, this search warrant. Could you read it." Policemen full searched your apartment. Soon, one of them came out and said. Here are found the keys, according to the description it is just the keys to the office and the safe where the money was stolen. Witnesses signed the protocol that gave them the investigator. He frowned at you and nodded policeman, who started your hands behind your back and your wrists snap handcuffs.'
			act 'Go with the police':
			cls
			minut += 60
			gs 'stat'
			'Brought you out of the house in handcuffs and put in a police UAZ. After, steel doors slam and UAZ car started shaking and growling at each bump. Finally you have arrived somewhere and you taking from UAZ performed in the office to have a friend you investigator. He took off the handcuffs and offered you a seat. You took a hard and uncomfortable chair, and an investigator in the meantime turned on the TV and put a video cassette. On the screen was a picture of a security camera in bystroeshke. There was visible corridor. Soon appeared in the corridor you. You came to the door and opened it entered the office. After a while, the door opened and you are out of the office with a thick envelope. Investigator turned a VCR tape and pulled, after which he put another tape. On the next cabinet drawer was Anatoly Chubais. The front door opened and it included you, holding keys in hand. You went to the safe and opened it with the key. Got envelope. <<$burgerIvanText>>. Investigator turned the TV off and pulled out a plastic bag with table keys. He threw them on the table, and finally spoke. "Tests showed it really the keys to the office and the safe owner bystroezhki. During the search they were found in your apartment. Surveillance cameras on the record clearly shows how you entered the office and stole 650 thousand." He took out the protocol and taking pen in hand began to write. Filled a slate floor, he raised his dark eyes on you and said. "Confession will help you in court. All the same, it is the first time and provided that you return the money, you may be given a suspended sentence, if you admit your guilt."'
			act 'Sign recognition':
				cls
				minut += 60
				gs 'stat'
				'You sign a confession and an investigator barked "duty." Policeman entered the room. The investigator nodded showing him you get her.'
				act 'Go': gt 'kameraKPZ'
				end
				act 'Tell how it was':
				cls
				minut += 60
				gs 'stat'
				'You were telling the investigator how everything was. As a manager Ivan Framed you. But the investigator listened to you in half an ear. Finally, he slammed his fist on the table and yelled at you, "I was not born yesterday, that would feed me such nonsense: If you will not cooperate, I´ll rot!" Policeman entered the room. The investigator nodded showing him you get her.'
				act 'Go': gt 'kameraKPZ'
				end
			end
		end
	end
=======
if IvanPodstavaDay!day and IvanPodstavaQW=1 and hour>=8 and hour<=20:
'<B><font color=red>The doorbell rings</font></B>'
     act 'Come to the door':
     cls
     gs'stat'
     'You came to the door and looked through the peephole. On the site you will see a few men. In the dark you looked at them cap. One of the men said to you through the door. <<$name>> <<$surname>> open, militia.'
         act 'answer the door':
		 cls
		 minut+=60
		 IvanPodstavaQW=2
		 gs'stat'
		 'You opened the door to police puzzled, what they want from you. In the room were several men in uniform and with them several men in civilian clothes. Lean and skinny guy with stubble week and a pistol in a holster on a belt tied armpit said. "witnesses, take your seats. Who will search in the apartment of the citizen, who is accused of stealing." The investigator turned to you. "Here warrant, this for your arrest, the search warrant. can be found." Policemen full searched your apartment. Soon one of them came out and said. Here are found the keys, judging by the description is just the keys to the office and safe, from where they were stolen money. Witnesses signed the protocol that gave them the investigator. He scowled at you and nodded policeman, he has got your hands behind your back and on your wrists snap handcuffs.'
		     act 'To go with the police':
		     cls
		     minut+=60
		     gs'stat'
		     'You brought in handcuffs from the house and put him in a police UAZ. after, steel door slams and UAZ car started shaking and growling at each bump. Finally you come somewhere and you took out UAZ conducted in the office of the already familiar to the investigator. He took off the handcuffs and asked you to sit down. You sat on the hard and uncomfortable chair, and the investigator in the meantime turned on the TV and set up a video cassette. On the screen was a picture with the camera in bystroeshke. There I could see the corridor. Soon appeared in the corridor you. You came to the door and opened it entered the office. After a while. The investigator turned off the VCR and took the tape, then he put another tape. On the next drawer cabinet was Anatoly Borisovich. The front door opened and it included you, Keep your keys in the hands of. You have come to the safe and opened it with the key. got an envelope. <<$burgerIvanText>>. The investigator turned the TV off and pulled out a plastic bag table with keys. He threw them on the table and finally spoke. "The examination found, it`s really the keys to the office and the safe owner bystroezhki. During the search they were found in your apartment. On the recording surveillance cameras can clearly see how you entered the office and stole 650 thousand." He took the protocol and taking pen in hand he began to write. Scribbled floor sheet he raised his gloomy eyes on you and said. "Sincere confession will help you in court. All the same, that you return the money, you may be given a conditional sentence, if you admit guilt."'
		         act 'sign recognition':
				 cls
				 minut+=60
				 gs'stat'
				 'You signed a confession and an investigator barked "duty." Policeman entered the room. The investigator nodded showing him you, Take her.'
				 act 'go':gt'kameraKPZ'
				 end
				 
				 act 'Tell how it was':
				 cls
				 minut+=60
				 gs'stat'
				 'You were telling the investigator how it was. As a manager you Ivan Framed. But the investigator listened to you on the floor of the ear. Finally "I was not born yesterday, that would make me such nonsense feed! If you do not cooperate, I`ll rot!" Policeman entered the room. The investigator nodded showing him you, Take her.'
				 act 'go':gt'kameraKPZ'
				 end
		     end
		 end
     end
>>>>>>> 152_korr
exit
end

<<<<<<< 152_korr
if gopstop > 30: gt 'police','1'
=======
if gopstop>30:gt 'police','1'
>>>>>>> 152_korr


<<<<<<< 152_korr
if sick > 0 and doktorday ! day:
	!'act 'Вызвать врача':
	cla
	*clr
	set minut += 15
	doktorday = day
	sick -= 5
	if sick < 1: sick = 1
	if sickstage = 1: sicktimer += 5
	'Has come to you from the clinic and the doctor examined you. After examination, the doctor made a shot and you will become easier.'
	act 'Move away': gt 'korr'
	end'

	act 'Call a physician': doktorday = day & dynamic $polidin
=======
if sick>0 and doktorday!day:
	 !'act 'Call a physician':
	 cla
	 *clr
	 set minut = minut + 15
	 doktorday=day
	 sick-=5
	 if sick<1:sick=1
	 if sickstage=1:sicktimer+=5
	 'To you the doctor came out and inspected the clinic you. After examination.'
	 act 'move_away':gt'korr'
	 end'
	 
	 act 'Call a physician':doktorday=day&dynamic $polidin
>>>>>>> 152_korr
end

<<<<<<< 152_korr
$ninel0 = {
=======
$ninel0={
>>>>>>> 152_korr
cla
*clr
<<<<<<< 152_korr
'<center><img src="images\inBed\ninel00.jpg"></center>'
'You open the door. Stands on the threshold of a pretty young girl with meitsinskim suitcase in hand.'
'(You) - Hello, doctor'
'(Doctor) - Hello. My name is Ninel P. - I replaces your local therapist. Where the patient?'
'(You) - This is me ... kha-kha-kha.'
'(Doctor) - Clear. Then come - you need to go back to bed.'
	act 'Pursue a doctorate in the bedroom and lay down':
	cla
	*clr
	set ninelmet = 1
	'<center><img src="images\inBed\nadom0.jpg"></center>'
	'The doctor sat on the edge of your bed and sprsil:'
	'(Doctor) - On that complain of <<$name>>? Can I call you that?'
	'(You) - Of course ... Ahem, ahem, ahem ... Oh, Doctor, perhaps I have the flu - cough just kills and very sore throat. And the temperature is high.'
	'(Doctor) - Runny nose is? Headaches? Aching bones?'
	'(You) - Yes. A Aptchee and!'
	'(Doctor) - Now I will examine you. Undress.'
		act 'Undress':
		cla
		*clr
		set minut += 5
		set horny += 10
		clr
		gs 'stat'
		'<center><img src="images\inBed\nadom1.jpg"></center>'
		'You undressed and the doctor listened to your lungs for a long time. Her hands are cool and gentle touch and caress like a stethoscope ...'
		'(Doctor) - Yes, wheezing ... Now open your mouth. That´s because - "ah-ah-ah" ...'
			act 'A-a-a':
			cla
			*clr
			'<center><img src="images\inBed\ninel03.jpg"></center>'
			'You opened your mouth and the doctor examined your sore throat'
			'(Doctor) - Hmmm ... throat strongly reddened and inflamed ... Now we need to measure the temperature.'
				act 'Stick a thermometer in her mouth':
				cla
				*clr
				'<center><img src="images\inBed\ninel04.jpg"></center>'
				'(Dr.) No, not so. Temperature should be measured rectally.'
				'(You) - Uh-uh ...'
				'(Doctor) - Do not be afraid, <<$name>>, is not painful.'
				'(You) - Well if you´re sure ...'
				'(Doctor) - I´m sure. Come on - lie down on his stomach and spread your hands buttocks.'
					act 'Substitute ass':
					cla
					*clr
					set minut += 10
					set horny += 10
					clr
					gs 'stat'
					'<center><img src="images\inBed\nadom2.jpg"></center>'
					'You obediently roll over and substitute ass. Dr. lubricates your anus lubricated and deftly introduces a thermometer. You flinch, but not from pain and pleasure. Doctor leaves just stick a thermometer in your ass and slowly moves it back and forth and it´s very nice. You feel the growing excitement.'

						if horny >= 50:
							act 'Moan with pleasure':
							cla
							*clr
							'<center><img src="images\inBed\nadom3.jpg"></center>'
							'Doctor takes the thermometer out of your buttocks and checks'
							'(Dr.) 39.2 ... Very bad. Please turn on your back - you need to palpate the lymph nodes.'
								act 'Roll over on his back':
								cla
								*clr
								set minut += 15
								set horny += 10
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom5.jpg"></center>'
								'The doctor began to stroke and knead your stomach and thighs. You are not sure that this is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.'
								'Excitement, meanwhile, is growing all, you feel like your pussy moistened and begins to whine sweet ...'
									act 'A blush of embarrassment':
									cla
									*clr
									set horny += 15
									!set time += 15
									clr
									gs 'stat'
									'<center><img src="images\inBed\nadom6.jpg"></center>'
									'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
									'(You) - Doctor, what are you doing! - At the same time embarrassed, outraged and frightened screams you.'
									'(Doctor) - Flying you, silly. I feel the magic in you, which means you´re one of us, and I can use his power quietly.'
									'(You) - So you´re a magician, too?'
									'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
									'(You) - No, I do not remember ...'
									'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
									'(You) - So ..?'
									'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
									'(You) - And what in return?'
									'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
									'(You) - Then of course - I agree.'
										act 'Surrender to the gentle hands Ninel': gt 'housecall','ninel2'
									end
								end
							end
						end

						act 'Indignant':
						cla
						*clr
						'<center><img src="images\inBed\nadom3.jpg"></center>'
						'(You) - Doctor, what are you doing?'
						'Doctor takes the thermometer out of your buttocks and calmly replied:'
						'(Doctor) - measures your temperature. 39.2 - very bad.'
							act 'Doctor, what with me?':
							cla
							'(You scared) - Doctor, what with me?'
							'(Dr.) Do you really flu. Now I´ll give you an injection of antibiotic and antipyretic, and you will feel better.'
								act 'Lie on your stomach and bare ass':
								cla
								*clr
								set minut += 10
								set sick -= 2
								set lekar += 3
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom4.jpg"></center>'
								'The doctor did give you a shot in the ass - you cried'
								'(Doctor) - Just about everything, everything is. You prescribe bed rest, hot drinks, antibiotics, nose drops and a balanced diet. When the temperature drops - the clinic appointment.'
								'(You) - Thank you, Doctor - is necessary.'
								'Doctor said goodbye and left.'
									act 'Back to bed': gt 'bedr'
								end
							end
						end

						act 'Doctor, what with me?':
						cla
						'(You scared) - Doctor, what with me?'
						'(Doctor) - I´m afraid that you have angina, <<$name>>. I would advise you to inpatient treatment'
						'(You) - What´s that - in the hospital, or what?'
						'(Doctor) - Yes'

							act 'Refuse':
							cla
							*clr
							'(You sobbing) - Oh, Doctor, I do not want to the hospital ...'
							'(Doctor, thoughtfully) - Well ... I guess it is still possible. Then I´ll give you a couple of shots - to start ...'
							'(You) - Oh, thank you, doctor!'
								act 'Lie on your stomach and bare ass':
								cla
								set minut += 15
								set horny = 100
								clr
								gs 'stat'
								'<center><img src="images\inBed\nadom9.jpg"></center>'
								'The doctor made a few jabs you in the ass, and you suddenly enveloped incredible sexual arousal. Between her thighs you like the fire started, sweet pussy ached and flowed, grew heavy chest, nipples harden and solidify ...'
								'(You) - Doctor, what´s happening? - Screams frightened and embarrassed you, but your voice treacherously breaks on voluptuous moan'
								'(Doctor) - Yeah! I knew it - I can feel the magic in you, which means you´re one of us, and I can use his power quietly.'
								'(You) - So you´re a magician too!.'
								'(Doctor) - Yes, only my special magic - Tantric. Heard of it?'
								'(You) - No, I do not remember ...'
								'(Doctor) - It´s magic, based on sensuality and sex. Roughly speaking, I can cast only when having sex.'
								'(You) - So ..?'
								'(Doctor) - That is, if we have sex with you - I heal you. Do you agree?'
								'(You) - And what in return?'
								'(Doctor) - Nothing - I´m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
								'(You) - Then of course - I agree.'
									act 'Surrender to the gentle hands Ninel': gt 'housecall','ninel2'
								end
							end
						end
					end
				end
			end
		end
	end
=======
'<center><img src="inBed/ninel00.jpg" ></center>'
'You open the door. Stands on the threshold of a pretty young girl with meitsinskim traveling bag in his hand.'
'(Do_You) - hello, doctor'
'(doctor) - hello. My name Ninel Pavlovna - I substitute your local therapist. where the patient?'
'(Do_You) - this is me... kha-kha-kha.'
'(doctor) - It_Is_Clear. Then come - you need to go back to bed.'
	 act'To carry out the doctor `s bedroom and lie down':
	 cla
	 *clr
	 set ninelmet = 1
	 '<center><img src="inBed/nadom0.jpg" ></center>'
	 'The doctor sat on the edge of your bed and sprsil:'
	 '(doctor)- At that complain, Sveta? Can I call you?'
	 '(Do_You) - Of_Course... Kha, kha, kha... oh, doctor, surely, i have the flu - cough just kills and very sore throat. And the temperature is high.'
	 '(doctor) - runny nose there? headaches? Aching bones?'
	 '(Do_You) - Yes_I_Am-yes_they_are. A-Sneezy-and!'
	 '(doctor) - Now I will examine you. Undress.'
		 act'undress':
		 cla
		 *clr
		 set minut = minut + 5 
		 set horny = horny + 10
		 clr
		 gs'stat'
		 '<center><img src="inBed/nadom1.jpg" ></center>'
		 'You undressed and listened to the doctor for a long time your lungs. Her hands cool and gentle touch and a stethoscope like a weasel...'
		 '(doctor) - Yes_I_Am, crepitation... Now open your mouth. here we go - "and-and-and"...'
			 act'A-a-a':
			 cla 
			 *clr
			 '<center><img src="inBed/ninel03.jpg" ></center>'
			 'You have opened my mouth and the doctor examined your sore throat'
			 '(doctor) - hmmm... throat blushed and inflamed... Now it is necessary to measure the temperature.'
				 act'Stick a thermometer in her mouth':
				 cla
				 *clr
				 '<center><img src="inBed/ninel04.jpg" ></center>'
				 '(doctor) No, not. The temperature should be measured rectally.'
				 '(Do_You) - E-e-e...'
				 '(doctor) - do not be afraid, Sveta, is not painful.' 
				 '(Do_You) - Well...'
				 '(doctor) - I`m_sure. Come - lie down on his stomach and spread your arms buttocks.'
					 act'substitute the ass':
					 cla
					 *clr
					 set minut = minut + 10
					 set horny = horny + 10
					 clr
					 gs'stat'
					 '<center><img src="inBed/nadom2.jpg" ></center>'
					 'You obediently flips and substitute the ass. Dr. lubricate your anus lubricant and deft movement introduces a thermometer. you flinch, but no pain, and pleasure. The doctor does not leave the thermometer just stick in your ass, and slowly moves it there-here and it is very nice. Do you feel the growing excitement.'
					 
						 if horny >= 50:
							 act'Moan with pleasure':
							 cla 
							 *clr 
							 '<center><img src="inBed/nadom3.jpg" ></center>'
							 'The doctor takes out a thermometer from your priests and checks'
							 '(doctor) 39,2... very bad. Turn, you`re_welcome, on the back - you need to palpate lymph nodes.'
								 act'Roll over on his back':
								 cla
								 *clr
								 set minut = minut + 15
								 set horny = horny + 10
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom5.jpg" ></center>'
								 'The doctor began to stroke and knead your stomach and thighs. You are not sure, it is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.' 
								 'excitation, meanwhile, all increases, you feel, as your pussy moistened and begins to whine sweet...'
									 act'Blush with embarrassment': 
									 cla
									 *clr
									 set horny = horny + 15
									 !set time = time + 15
									 clr
									 gs'stat'
									 '<center><img src="inBed/nadom6.jpg" ></center>'
									 'You blush with embarrassment, but then fall below the hands of the doctor and she begins to caress your pussy'
									 '(Do_You) - doctor, what you do?! - simultaneously embarrassed, indignant and frightened screams you.'
									 '(doctor) - I treat you, stupid. I feel your magic, which means you`re one of us.'
									 '(Do_You) - So you?!'
									 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
									 '(Do_You) - No, I do not remember...'
									 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
									 '(Do_You) - i.e...?'
									 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
									 '(Do_You) - And in return?'
									 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
									 '(Do_You) - Then of course - I agree.'
										 act'Surrender to the gentle hands Ninel':gt'housecall','ninel2'
									 end
								 end
							 end
						 end 
					 
						 act'rebel':
						 cla
						 *clr
						 '<center><img src="inBed/nadom3.jpg" ></center>'
						 '(Do_You) - doctor, what you do?'
						 'The doctor takes out a thermometer from your priests and calmly answers:'
						 '(doctor) - You measure the temperature. 39,2 - very bad.'
							 act'doctor, that with me?':
							 cla 
							 '(Do_You, fright) - doctor, that with me?' 
							 '(doctor) Do you really have the flu. Now I `ll give you an injection of antibiotic and antipyretic .'
								 act'Lie on your stomach and bare ass':
								 cla
								 *clr
								 set minut = minut + 10
								 set sick = sick - 2
								 set lekar = lekar + 3
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom4.jpg" ></center>'
								 'The doctor give you an injection in the ass - you cried'
								 '(doctor) - already all, already all.  You prescribe bed rest, hot drink, antibiotics, nose drops and a balanced diet. When the temperature drops - the clinic appointment.'
								 '(Do_You) - thanks you, doctor - necessarily.'
								 'The doctor said goodbye and left.'	
									 act'Back to bed':gt'bedr'
								 end
							 end
						 end
					 
						 act'doctor, that with me?':
						 cla
						 '(Do_You, fright) - doctor, that with me?' 
						 '(doctor) - I`M_Afraid, that you have a sore throat, Sveta. I would advise you to inpatient treatment'
						 '(Do_You) - This is what - hospitalized, what-whether?'
						 '(doctor) - Well yes'
							
							 act'Opt_Out':
							 cla
							 *clr
							 '(Do_You, sobbing) - oh, doctor, I do not want to hospital...'
							 '(doctor, reflectively) - well-at... probably all-still possible. Then I `ll give you a couple of jabs - for a start...'
							 '(Do_You) - oh, thank_you, doctor!'
								 act'Lie on your stomach and bare ass': 
								 cla
								 set minut = minut + 15
								 set horny = 100
								 clr
								 gs'stat'
								 '<center><img src="inBed/nadom9.jpg" ></center>'
								 'The doctor made ​​you a few shots in the ass, and you suddenly seized incredible sexual arousal. Between her thighs as if you fire broke out, sweet pussy ache and flowed, breasts grew heavy, nipples stiffened and hardened...'
								 '(Do_You) - doctor, what`s happening? - you scream in fright and embarrassment, but your voice treacherously broken on voluptuous groan'
								 '(doctor) - Yup! I knew - I feel your magic, which means you`re one of us.'
								 '(Do_You) - So you?!.'
								 '(doctor) - Yes_I_Am, Only my magic special - Tantric. Heard about this?'
								 '(Do_You) - No, I do not remember...'
								 '(doctor) - This is the magic, based on sensuality and sex. roughly speaking, I can conjure, Only when having sex.'
								 '(Do_You) - i.e...?'
								 '(doctor) - i.e., if you and I `s have sex - I heal you. Do you agree?'
								 '(Do_You) - And in return?'
								 '(doctor) - nothing - I do it solely for their own satisfaction. I, see, whether, have orgasms, only if conjure.'
								 '(Do_You) - Then of course - I agree.'
									 act'Surrender to the gentle hands Ninel':gt'housecall','ninel2'
								 end
							 end 
						 end
					 end
				 end
			 end
		 end
	 end
>>>>>>> 152_korr
}

<<<<<<< 152_korr
$drPP = {
=======
$drPP={
>>>>>>> 152_korr
cla
*clr
<<<<<<< 152_korr
'You open the door. Standing in the doorway of an elderly bald man with a suitcase in hand meitsinskim.'
'(You) - Kha-kha ... Hello, Doctor'
'(Doctor) - Hello, sick - I´m Peter, your local therapist. Go back to bed - do not stand in the draft.'
	act 'Hold a doctorate in the bedroom.':
	cla
	*clr
	'<center><img src="images\inBed\drPP1.jpg"></center>'
	'You have returned to the bedroom with a doctor. He sat on the edge of the bed and felt your forehead'
	'(Doctor) - Well, the patient, to complain that?'
	'(You) - Ahem, ahem, ahem ... Oh, Doctor, perhaps, I have a sore throat - very sore throat and high temperature.'
	'(Doctor) - And cough, as I see it. And judging by your voice, you have a nose, sick, laid.'
	'(You) - Yes. A Aptchee and!'
	'(Doctor) - Well, the sick, you hear Dwight. Undress.'
		act 'Undress':
		cla
		*clr
		set minut += 5
		clr
		gs 'stat'
		'<center><img src="images\inBed\drPP2.jpg"></center>'
		'You undressed and Dr. vysnushival long your lungs'
		'(Doctor) - So, sir. Now let´s look at the neck. Open your mouth wide and say "Ah-ah"'
			act 'A-a-a':
			cla
			*clr
			'<center><img src="images\inBed\drPP3.jpg"></center>'
			'You opened your mouth and your doctor looked red sore throat'
			'(Doctor) - Ay-ay-ay ... How is it you do that? Should be tempered, ill - tempered. Well, let´s measure your temperature.'
				act 'Put the thermometer armpit':
				cla
				*clr
				'<center><img src="images\inBed\drPP4.jpg"></center>'
				'The doctor looked at the thermometer and shook his head'
					act 'Doctor, what with me?':
					cla
					'(Dr.) Do you have the flu, sick. Do not worry - I´ll give you a shot and you´ll feel better soon. Soak a couple of days in bed, drinketh drugs, and it becomes easier - to see me'
						act 'Substitute ass':
						cla
						*clr
						set minut += 10
						set sick -= 2
						lekarstvo += 3
						gs 'stat'
						'<center><img src="images\inBed\drPP5.jpg"></center>'
						'The doctor did give you a shot in the ass - you cried'
						'(Doctor) - Well, well, sick, do not worry. And remember - bed rest, regular meals and medication. And do not forget to come to the reception.'
						'(You) - Thank you, Doctor - is necessary.'
						'Doctor said goodbye and left, and you venules in bed.'
							act 'Back to bed': gt 'bedr'
						end
					end
				end
			end
		end
	end
=======
'You open the door. Stands on the threshold of an elderly man with a bald meitsinskim traveling bag in his hand.'
'(Do_You) - Kha-kha... hello, doctor'
'(doctor) - hello, sick - I Peter, your primary care physician. Go back to bed - do not stand in a draft.'
	 act'Hold doctorate in bedroom.':
	 cla
	 *clr
	 '<center><img src="inBed/drPP1.jpg" ></center>'
	 'You came back into the bedroom with Dr.. He sat on the edge of the bed and felt your forehead'
	 '(doctor) - well-with, sick, to complain that?'
	 '(Do_You) - Kha, kha, kha... oh, doctor, surely, I have a sore throat - very sore throat and high temperature.'
	 '(doctor) - And cough, as I see it. And, judging by your voice, nose you, sick, laid.'
	 '(Do_You) - Yes_I_Am-yes_they_are. A-Sneezy-and!'
	 '(doctor) - well-with, sick, Dwight you hear. Undress.'
		 act'undress':
		 cla
		 *clr
		 set minut = minut + 5
		 clr
		 gs'stat'
		 '<center><img src="inBed/drPP2.jpg" ></center>'
		 'You undressed and Dr. long vysnushival your lungs'
		 '(doctor) - so_Much-with. Now let`s look at the neck. Open your mouth wide and say "A-and-and" '
			 act'A-a-a':
			 cla
			 *clr
			 '<center><img src="inBed/drPP3.jpg" ></center>'
			 'You have opened my mouth and the doctor looked at your red sore throat'
			 '(doctor) - ouch-yay-yay... How is it that you are so? must be tempered, sick - harden. well-with, let you measure the temperature.'
				 act'Put a thermometer armpit':
				 cla
				 *clr
				 '<center><img src="inBed/drPP4.jpg" ></center>'
				 'The doctor looked at the thermometer and shook his head'
					 act'doctor, that with me?':
					 cla 
					 '(doctor) You have the flu, sick. That`s all right - I `ll give you a shot and you will feel better soon. Soak a couple of days in bed, drinks of drugs, and it becomes easier - to me at the reception'
						 act'substitute the ass':
						 cla
						 *clr
						 set minut = minut + 10
						 set sick = sick - 2
						 lekarstvo+=3
						 gs'stat'
						 '<center><img src="inBed/drPP5.jpg" ></center>'
						 'The doctor made ​​you a shot in the ass - you cried'
						 '(doctor) - well-well, sick, nothing wrong. And remember - bed rest, regular meals and medication. And do not forget to come to the reception.'
						 '(Do_You) - thanks you, doctor - necessarily.'
						 'The doctor said goodbye and left, and you venules in bed.'
							 act'Back to bed':gt'bedr'
						 end
					 end
				 end 
			 end 
		 end
	 end
>>>>>>> 152_korr
}

<<<<<<< 152_korr
$polidin = {
=======
$polidin={
>>>>>>> 152_korr
cla
*clr
<<<<<<< 152_korr
set minut += 15
set callrand = RAND(0,2)
if callrand = 0: '<center><img src="images\inBed\housecall.jpg"></center>'
if callrand = 1: '<center><img src="images\inBed\housecall1.jpg"></center>'
if callrand = 2: '<center><img src="images\inBed\housecall2.jpg"></center>'
'You dial the number several times clinics - there all the time busy.'
	act 'Call again and again':
	cla
	'Finally, you´ve reached. Tired voice tube nurse replied:'
	'(Nurse) - Hello - reception ...'
		act 'Hello ...':
		cla
		'(You) - Hello. Cough-cough ... Can I call a doctor to the house?'
		'(Nurse) - Your name and address?'
			act 'Introduce':
			cla
			'(You) - Mi ... Kha-kha! Sorry ... <<$name>> <<$surname>>. Park Street apartment house 4 69 ... Aa-and-pchhi!'
			'(Nurse) - It´s okay. Wait a minute.'
				act 'Wait':
				cla
				set minut += 5
				clr
				gs 'stat'
				'You wait five minutes, occasionally coughing into the phone and finally hear:'
				'(Nurse) - So - <<$name>> <<$surname>>. here is your card ... What are you worried?'
				'(You) - Kha-kha-kha ... I´m sorry ... I have a fever and sore throat very. And cough and runny nose.'
				'(Nurse) - high temperature?'
				'(You) - Yes, very - 39.2 ... Aa-pchhi!'
				'(Nurse) - Right. Wait - the doctor will come to you.'
				'(You) - A soon?'
				'(Nurse) - As soon as he can. Your challenge - not unique.'
				'(You) - Save ... Kha-kha! Thank you ... ...'
					if ninelsex = 1:
						act 'Is it possible to cause Ninel Pavlovna?':
						cla
						'(You) - Is it possible to cause Ninel Pavlovna? She regularly osmatrivat me.'
						'(Nurse) - I´ll see if she is free.'
						'(You) - Once again, thank you.'
						act '...': gt 'housecall','ninel3'
						end
					end

					act 'Back to bed':
					cla
					*clr
					set picrand = RAND(0,6)
					if picrand = 0: '<center><img src="images\inBed\sick27.jpg"></center>'
					if picrand = 1: '<center><img src="images\inBed\sick21.jpg"></center>'
					if picrand = 2: '<center><img src="images\inBed\sick22.jpg"></center>'
					if picrand = 3: '<center><img src="images\inBed\sick23.jpg"></center>'
					if picrand = 4: '<center><img src="images\inBed\sick24.jpg"></center>'
					if picrand = 5: '<center><img src="images\inBed\sick25.jpg"></center>'
					if picrand = 6: '<center><img src="images\inBed\sick26.jpg"></center>'
					set timerand = RAND(0,5)
					if timerand = 0: set minut += 30
					if timerand = 1: set minut += 60
					if timerand = 2: set minut += 90
					if timerand = 3: set minut += 120
					if timerand = 4: set minut += 150
					if timerand = 5: set minut += 180
					'You are lying in bed, shivering in the chill and wrapped in a blanket. Time passes excruciatingly slow - you can not tell how much time passed before the doorbell rang.'
						act 'Answer the door':
						if ninel > 0 and sick <= 50: gt 'housecall','ninel1'
							if ninel = 0 or sick > 50:
							set doctrnd = RAND(0,1)
							if doctrnd = 0: dynamic $drPP
							if doctrnd = 1: gt 'housecall','ninel0'
							end
						end
					end
				end
			end
		end
	end
=======
set minut = minut + 15
set callrand = RAND (0,2)
if callrand = 0:'<center><img src="inBed/housecall.jpg" ></center>'
if callrand = 1:'<center><img src="inBed/housecall1.jpg" ></center>'
if callrand = 2:'<center><img src="inBed/housecall2.jpg" ></center>'
'You dial the number several times clinics - there all the time busy.'
	 act 'To call again and again':
	 cla
	 'Finally. Tired voice answered the nurse in the tube:'
	 '(nurse) - Hello - registry...'
		 act 'hello...':
		 cla
		 '(Do_You) - hello. Kha-kha... Can I call the doctor at home?'
		 '(nurse) - Your name and address?'
			 act 'introduce':
			 cla
			 '(Do_You) - E... Kha-kha! Excuse_Me... Svetlana Lebedeva. Park Street home 4 apartment 69... A-and-pchhi-and!!!'
			 '(nurse) - That`s all right. Wait_a_minute.'
				 act 'wait':
				 cla
				 set minut = minut + 5
				 clr
				 gs'stat'
				 'Five minutes you waiting, occasionally coughing into a tube and finally hear:'
				 '(nurse) - so_Much - Svetlana Lebedeva. here`s your card... What ails you?'
				 '(Do_You) - Kha-kha-kha... Excuse_Me... I have a fever and sore throat are very. And cough and runny nose.'
				 '(nurse) - the temperature is high?'
				 '(Do_You) - Yes_I_Am, very_much - 39,2... A-and-pchhi!'
				 '(nurse) - I_Get_It. wait - Doctor will come to you.'
				 '(Do_You) - And soon?'
				 '(nurse) - Once able to. your challenge - not only.'
				 '(Do_You) - save... Kha-kha! ...thank_you...'
					 if ninelsex = 1:
						 act 'Is it possible to call Ninel Pavlovna?':
						 cla
						 '(Do_You) - Is it possible to call Ninel Pavlovna? She gave me a regular osmatrivat.'
						 '(nurse) - I recognize, Is it free.'
						 '(Do_You) - Once again.'
						 act '...':gt'housecall','ninel3'
						 end
					 end
					 
					 act 'Back to bed':
					 cla
					 *clr
					 set picrand = RAND (0,6)
					 if picrand = 0:'<center><img src="inBed/sick27.jpg" ></center>'
					 if picrand = 1:'<center><img src="inBed/sick21.jpg" ></center>'
					 if picrand = 2:'<center><img src="inBed/sick22.jpg" ></center>'
					 if picrand = 3:'<center><img src="inBed/sick23.jpg" ></center>'
					 if picrand = 4:'<center><img src="inBed/sick24.jpg" ></center>'
					 if picrand = 5:'<center><img src="inBed/sick25.jpg" ></center>'
					 if picrand = 6:'<center><img src="inBed/sick26.jpg" ></center>'
					 set timerand = RAND (0,5)
					 if timerand = 0:set minut = minut + 30
					 if timerand = 1:set minut = minut + 60
					 if timerand = 2:set minut = minut + 90
					 if timerand = 3:set minut = minut + 120
					 if timerand = 4:set minut = minut + 150
					 if timerand = 5:set minut = minut + 180
					 'You lie in bed, shivering in the chill and wrapped in a blanket. Time drags painfully slow - you can not say, how much time passed, before the doorbell rang.'
						 act 'answer the door':
						 if ninel > 0 and sick=<50:gt'housecall','ninel1'
							 if ninel=0 or sick>50:
							 set doctrnd = RAND (0,1)
							 if doctrnd = 0:dynamic $drPP
							 if doctrnd = 1:gt'housecall','ninel0'
							 end 
						 end
					 end
				 end
			 end
		 end
	 end 
>>>>>>> 152_korr
}
--- korr ---------------------------------