# korr
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>'
	xgt $curloc
	else
	'<B><font color=red>You have to get dressed.</font></B>'
	xgt $curloc
	end
END
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>'
	xgt $curloc
	else
	'<B><font color=red>You have to get dressed.</font></B>'
	xgt $curloc
	end
	
END
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
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
set housrA = 1
set housrMir = 0
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

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

if bfA < 0:
'<B><font color=red>Your guy does not call you, apparently he threw you.</font></B>'
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
'<B><font color=red>The phone rings</font></B>'
end 
if bfB > 1 and boydayB ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyB:
set ring = 1
set ringB = 1
'<B><font color=red>The phone rings</font></B>'
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh >= vneshBoyC:
set ring = 1
set ringC = 1
'<B><font color=red>The phone rings</font></B>'
end

if bfA > 1 and boydayA ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyA:
'<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>'
set bfB = 0
end
if bfC > 1 and boydayC ! day and hour >= 5 and hour < 20 and vnesh < vneshBoyC:
'<B><font color=red><<$boyC>> you do not call, apparently he threw you.</font></B>'
set bfC = 0
end

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>.'

if bfA = 1 or bfB = 1 or bfC = 1:
     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

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
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

exit
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
exit
end

if gopstop>30:gt 'police','1'


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
end

$ninel0={
cla
*clr
'<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
}

$drPP={
cla
*clr
'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
}

$polidin={
cla
*clr
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 
}
--- korr ---------------------------------

