slife/locations/148_bedr

# bedr
<<<<<<< 148_bedr
ACT 'The corridor':
	!if nude = 0:
	gt 'korr'
	!end

=======
ACT 'In the corridor':
	!if nude = 0:
	gt'korr'
	!end
	
>>>>>>> 148_bedr
	!'if nude = 1:
	cla
<<<<<<< 148_bedr
	'You look at the underwear.'
		act 'Wear underwear':
		cla
		set tanga = 1
		gt 'loker','start'
		end
		act 'Do not wear underwear':
		cla
		set tanga = 0
		gt 'loker','start'
		end
=======
	'You`re looking at underwear.'
	     act 'Dress Underwear':
	     cla
	     set tanga = 1
	     gt'loker','start'
	     end
	     
	     act 'Do not wear underwear':
	     cla
	     set tanga = 0
	     gt'loker','start'
	     end
>>>>>>> 148_bedr
	end'
END
$metkaM = $ARGS[0]
$locM = $CURLOC

<<<<<<< 148_bedr
!Новое меню: конец
=======
!The new menu: end
>>>>>>> 148_bedr


<<<<<<< 148_bedr
if magik >= 6 and spellbefshild = 1 and tobiQW = 0: gt 'tobiQW','start'
=======
if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt'tobiQW','start'
>>>>>>> 148_bedr
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 148_bedr
'<center><B><font color = maroon>Bedroom</font></B></center>'
if rembedr = 0: '<center><img src="images\etogame\bedr.jpg"></center>'
if rembedr = 1: '<center><img src="images\etogame\bedr2.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut += 1
=======
'<center><B><font color=maroon>bedroom</font></B></center>'
if rembedr = 0:'<center><img src="pic/bedr.jpg" ></center>'
if rembedr = 1:'<center><img src="pic/bedr2.jpg" ></center>'
clr
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
set minut = minut + 1
>>>>>>> 148_bedr
set housrA = 1
set housrMir = 1
<<<<<<< 148_bedr
set elektro += 1
if nude = 0: set $nude = 'The corridor'
if nude = 1: set $nude = 'Get dressed'
if rembedr = 0: 'Tight little room with a <a href="exec: GT ''bed'',''start''">double bed</a> and an <a href="exec: GT ''budilnik'',''start''">alarm clock</a>. Near the entrance is a small wooden <a href="exec:GT ''loker'',''start''">wardrobe</a>. The windows are closed with faded heavy curtains.'
if rembedr = 1: 'Bright and beautiful room, with a nice <a href="exec: GT ''bed'',''start''">double bed</a>. Near the entrance is a modern <a href="exec:GT ''loker'',''start''">wardrobe</a>. Against the wall are a table and a <a href="exec:GT ''mirror'',''start''">mirror</a>.'
if AutoEnema = 1 and AEnema = 1:
	set minut += 5
	set klismaday = day
	set klismaday1= 1
	set AEnema = 0
	'You put yourself an enema and clean intestines, now your is ass ready for anal sex.'
end
if husbandrinkday = day:
if husbanstrapon = 1: $tempval = 'with anal plug in his ass.'
if husbanstrapon = 2: $tempval = 'after you have put a dildo up his ass.'
if husbanstrapon = 3: $tempval = 'after you fucked him with a strapon.'
'Drunken husband sleeps on the bed <<$tempval>>'
=======
set elektro = elektro + 1
if nude = 0:set $nude = 'In the corridor'
if nude = 1:set $nude = 'get_dressed'
if rembedr = 0:'Tight little room in which the main and almost the only place takes <a href="exec:GT ''bed'',''start''">Double</a>. At the entrance stands a small wooden <a href="exec:GT ''loker'',''start''">cupboard</a> clothes. The window is closed with heavy curtains Fade.'
if rembedr = 1:'Bright and beautiful room, with modern furniture, is dominated by <a href="exec:GT ''bed'',''start''">Double</a>. At the entrance stands a modern <a href="exec:GT ''loker'',''start''">cupboard</a> clothes. Against the wall and table <a href="exec:GT ''mirror'',''start''">mirror</a>'

if husbandrinkday=day:
if husbanstrapon=1:'Drunk husband sleeps on the bed with an anal plug in the ass.'
if husbanstrapon=2:'Drunk husband sleeps on the bed after you have developed his ass dildo.'
if husbanstrapon=3:'Drunk husband sleeps on the bed after you fucked his threesome.'
>>>>>>> 148_bedr
end

<<<<<<< 148_bedr
if husband > 0 and husbandrink ! 10 and husbandrinkday ! day:
	if hour > 22 or hour < 7:
	'<a href="exec: gt ''husb'',''start'' ">Husband is sleeping on the bed.</a>'
	end
end
if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! day:
	cla
	'Your husband approached you and said, "Honey my ass hurts do you know if maybe I fell yesterday"'
	act 'Lie':
		cla
		set husbanstrapon = 0
		'"No dear, I do not know" you said making an innocent face. Husband shrugged and walked away'
		act 'Finish': gt 'bedr'
		end
	act 'Confess':
		cla
		if husbanstrapon = 1: '"Honey you were so drunk last night that I decided to teach you a lesson and put a anal plug in your ass. I´ll never do it again, forgive me please" you said.'
		if husbanstrapon = 2: '"Dear, I wanted to make you a happy so I started to give you a blowjob, but you did not finish, so I inserted a finger into your ass, but once again you did not finish so I took a dildo and you burst, I even gave you a secong blowjob. Forgive me, but you enjoyed it so much that I could not stop. I just wanted to make you happy dear" you lied to your husband.'
		if husbanstrapon = 3: '"Dear, I wanted to make you a happy so I started to give you a blowjob, but you did not finish, so I inserted a finger into your ass, but once again you did not finish when I put in a second finger you began to move your ass towards my fingers moaning heavily, I thought that you like it so I put on a strapon. You enjoyed it so much that you finished over and over again, and I continued until I was tired then licked all the sperm off your body and went to sleep. I just wanted to make you happy and you were enjoying it although you do not remember it. Forgive me please" you lied to your husband.'
		if harakHusb = 2:
			set husbizvradd = 0
			set husbharmin = 0
			set husbandMark = 0
			set husband = 0
			set divorced += 1
			set fingal += 1
			set minut += 120
			'The next thing you feel is a powerful punch in the face. When you came back to your senses you realized that your husband and his things were gone. He filed for divorce.'
			end
		if harakHusb = 1:
			if husbanstrapon = 1: '"Look, do not do it again," he said and left.'
			if husbanstrapon = 2: set husbizvradd += 1 & '"Do not do it again, I´m still a man and I´m not supposed to get fucked in my ass," he said and left.'
			if husbanstrapon = 3:
				if intel > 40 or izvratH = 1: set husbharmin += 1 & '"Are you serious, I´m not a bitch that wanted to be fucked," he yelled, but then you started to cry and said that you only wanted to please him, he looked at you and said, sighing, "Yes, I believe you wanted to please me, but do not do it again."'
				if intel <= 40:
					set husbizvradd = 0
					set husbharmin = 0
					set husbandMark = 0
					set husband = 0
					set divorced += 1
					set fingal += 1
					set minut += 120
					'The next thing you feel is a powerful punch in the face. When you came back to your senses you realized that your husband and his things were gone. He filed for divorce.'
					end
				end
			end
		if harakHusb = 0:
			if husbanstrapon = 1: '"I´m sorry I will not get so drunk again," he said and left.'
			if husbanstrapon = 2: set husbizvradd += 1 & '"You´re so thoughtful, rather that scolding me, you´re still wanted to make me happy, thank you dear," he said and left.'
			if husbanstrapon = 3: set husbizvradd += 1 & '"I really like it?" he asked. You nodded. "Well then, thank you dear, but the next time you should ask me first," he said, and left'
			end
		act 'Finish': set husbanstrapon = 0 & gt 'bedr'
		end
	end
if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
	'<<$husName>> came home drunk and fell asleep on the bed.'
	'"That pig" you thought and then you came up with an idea "Maybe I should teach him a lesson so he won´t get drunk again"'
	if analplug = 1:
		act 'Insert anal plug in his ass':
			set husbandrinkday = day
			set husbandrink = 11
			set husbanstrapon = 1
			set minut += 10
			cla
			*clr
			'<center><img src="images\img\hasb\h0.jpg"></center>'
			if analplugin = 1: 'You pull the cork out of his ass.'
			if analplugin = 0: 'You go take an anal plug and put it into his ass.'
			'<<$husName>> moved, but did not wake up'
			if dildo > 0:
				act 'Insert Dildo':
					cla
					*clr
					set minut += 20
					set husbanstrapon = 2
					set swallow += 1
					set cumlip += 1
					set horny += 30
					'<center><img src="images\img\hasb\h1.jpg"></center>'
					'You pull out the plug and started to insert dildo in its place, <<$husName>> did not even budge. You began to slowly move the dildo inside trying not to wake your husband. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. With dildo in his ass, his dick began to throb ready to finish. You touched his penis with your tongue, you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
					act 'Finish': gt 'bedr'
					end
				end
			if strapon > 0:
				act 'Strapon':
					cla
					*clr
					set minut += 20
					set husbanstrapon = 3
					set swallow += 1
					set cumlip += 1
					set horny += 30
					'<center><img src="images\img\hasb\h2.jpg"></center>'
					'You put on the strapon and pulling out the plug slowly start to put it in his ass, <<$husName>> began to move but did not wake up. You began to slowly move your hips trying not to wake him. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. Realizing that he won´t wake up you start to move faster and not hesitating drove the entire length of the strapon in his ass. His cock stood up and you started to stroke it, feeling that he is about to finish you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
					act 'Finish': gt 'bedr'
					end
				end
			act 'Finish': gt 'bedr'
			end
		end
	end

if son > 10:
	'You are not tired.'
	act 'Try to sleep':gt'bed2','dosip'
else
	act 'Undress and go to bed':gt'bed2'
end

if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
		cla
		set tanga = 1
		gt 'bedr'
		end
	else
		act 'Remove Underwear':
		cla
		set tanga = 0
		gt 'bedr'
		end
	end
if nude = 0:
	act 'Get undressed':
	set nude = 1
	gt 'bedr'
	end
else
	act 'Get dressed':
	set nude = 0
	gt 'bedr'
	end
end


=======
if husband>0 and husbandrink!10 and husbandrinkday!day:
	 if hour>22 or hour<7:
	 '<a href="exec: gt''husb'',''start'' ">On the bed sleeping husband.</a>'
	 end
end
if husbandrink=11 and husbanstrapon>0 and husbandrinkday!day:
	 cla
	 'To you approached my husband and asked "Dear my ass hurts something you do not know maybe I fell yesterday failed"'
	 act'to_lie':
		 cla
		 set husbanstrapon=0
		 '"No dear " Say you`re making an innocent person. Husband shrugged and walked away'
		 act'End_Up':gt'bedr'
		 end
	 act'confess':
		 cla
		 if husbanstrapon=1:'"Dear yesterday you got so drunk, I decided to teach a lesson to you. But I `ll never, please forgive me" Say you.'
		 if husbanstrapon=2:'"Dear , but you did not finish and then I put you finger in the ass, but again you did not finish and I took the dildo, here you burst, I even made ​​you a blowjob again, forgive me, but you were so good that I could not stop, I just wanted to give you a nice way" Say you invent much of its history.'
		 if husbanstrapon=3:'Dear , but you did not finish and then I put you finger in the ass, but again you did not finish and I put in a second if you start moving towards my ass Palchikov and much moaning, you were so good that I decided, What did you like and put them strapon. You really were very good, you finished over and over again, but I still continued to, I was tired then licked all, all the sperm from your body and went to bed, I just wanted to give you a pleasant and you were nice though and you do not remember, please forgive me" Say you invent much of its history.'
		 if harakHusb=2:
			 set husbizvradd=0
			 set husbharmin=0
			 set husbandMark=0
			 set husband=0
			 set divorced+=1
			 set fingal+=1
			 set minut+=120
			 'The next thing you feel is a powerful slap in the face. When you came to their senses we realized that neither her husband, nor his things no. He filed for divorce.'
			 end
		 if harakHusb=1:
			 if husbanstrapon=1:'"Look, do not mess it anymore" he said.'
			 if husbanstrapon=2:set husbizvradd+=1&'"Well, but see no joke so more, I`m still a man " he said.'
			 if husbanstrapon=3:
				 if intel>40 or izvratH=1:set husbharmin+=1&'"Are you quite ohrenela, I`m that bitch, what-I would fuck" he shouted, but then you let the tears and began to lament that only wanted to please him, He looked at you and said "Yes_I_Am, I believe , I wanted to make nice, but more so do not do."'
				 if intel<=40:
					 set husbizvradd=0
					 set husbharmin=0
					 set husbandMark=0
					 set husband=0
					 set divorced+=1
					 set fingal+=1
					 set minut+=120
					 'The next thing you feel is a powerful slap in the face. When you came to their senses we realized that neither her husband, nor his things no. He filed for divorce.'
					 end
				 end
			 end
		 if harakHusb=0:
			 if husbanstrapon=1:'"I`m sorry I will not be so drunk" he said.'
			 if husbanstrapon=2:set husbizvradd+=1&'"You`re so thoughtful, Instead of scolding me, you still nice I do, thank you dear" he said.'
			 if husbanstrapon=3:set husbizvradd+=1&'"I really liked it?" he asked, you nodded affirmatively, "Well then, but the next time you still ask my consent" he said'
			 end
		 act'End_Up':set husbanstrapon=0&gt'bedr'
		 end
	 end
if husbandrink=10 and hour>20 and hour<23 and husbanstrapon=0:
	 '<<$husName>> keeled home very drunk and crashing on the bed fell asleep in clothes.
	 "That is a pig" swore you and then you head climbed bad thoughts "Can teach him a lesson, that would not get drunk before bezchuvstviya"'
	 if analplug = 1:
		 act 'Paste it anal plug':
			 set husbandrinkday=day
			 set husbandrink=11
			 set husbanstrapon=1
			 set minut+=10
			 cla
			 *clr
			 '<center><img src="img/hasb/h0.jpg" ></center>'
			 if analplugin=1:'You pull the plug out of his ass and enter it akuratno, husband in the ass.'
			 if analplugin=0:'You go to take a bath tube and enter it akuratno, his anus.'
			 '<<$husName>> moved, but did not wake up, see hard plucked'
			 if dildo>0:
				 act'insert dildo':
					 cla
					 *clr
					 set minut+=20
					 set husbanstrapon=2
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 set horny+=30
					 '<center><img src="img/hasb/h1.jpg" ></center>'
					 'You pull out the plug and insert in its place dildo, <<$husName>> did not even budge. You began to slowly move the dildo trying not to wake her husband. Shortly before your face began to climb his cock, and <<$husName>> began to softly moan, but never woke up. You already being wielded dildo in his anus, and it started to throb dildo ready to cum. You wrapped around his cock with his lips and tongue to touch you should head in the mouth you hit the jet of sperm, you swallow it and carefully cleared his cock from the remnants of sperm, pulled on his pants.'
					 act'End_Up':gt'bedr'
					 end
				 end
			 if strapon>0:
				 act'dress strap':
					 cla
					 *clr
					 set minut+=20
					 set husbanstrapon=3
					 set swallow = swallow + 1
					 set cumlip = cumlip + 1
					 set horny+=30
					 '<center><img src="img/hasb/h2.jpg" ></center>'
					 'You put the strap and pulling out the plug Medley enter it into the anus of her husband, <<$husName>> stirred, but did not wake up. You began to slowly move her hips trying not to wake her husband. Shortly before your face began to climb his cock, and <<$husName>> began to softly moan, but never woke up. Realizing that in this state . His cock stood up and you vskhativ his hand, began to masturbate feeling, that he is about to finish . As soon as you touch the tongue into the mouth of the head as you hit the jet of sperm, you swallow it and carefully cleared his cock from the remnants of sperm, pulled on his pants.'
					 act'End_Up':gt'bedr'
					 end
				 end
			 act'End_Up':gt'bedr'
			 end
		 end
	 end
if tanga=0 and clrbelo>0:
	 act 'Dress Underwear':
		 cla
		 set tanga = 1
		 gt'bedr'
		 end
     else
		 act 'Remove underwear':
		 cla
		 set tanga = 0
		 gt'bedr'
		 end
     end

>>>>>>> 148_bedr
if saveday ! day:
set saveday = day
SAVEGAME 'avtosave.sav'
end

<<<<<<< 148_bedr
if dur > 0:
'You have stashed <<dur>> doses of the pale lady'
end

if sick >= 1:
	act 'Go to sleep (illness)':
	cla
	*clr
	set minut += 240
	set sick -= 1
	if sick < 0: sick = 0
	set picrand = RAND(0,6)
	gs 'stat'
	if picrand = 0: '<center><img src="images\inBed\sick17.jpg"></center>'
	if picrand = 1: '<center><img src="images\inBed\sick11.jpg"></center>'
	if picrand = 2: '<center><img src="images\inBed\sick12.jpg"></center>'
	if picrand = 3: '<center><img src="images\inBed\sick13.jpg"></center>'
	if picrand = 4: '<center><img src="images\inBed\sick14.jpg"></center>'
	if picrand = 5: '<center><img src="images\inBed\sick15.jpg"></center>'
	if picrand = 6: '<center><img src="images\inBed\sick16.jpg"></center>'
	'You are lying in bed, coughing, sneezing and blowing your nose'
	act 'Measure temperature': gt 'bedr'
	end
end

if dur > 0 and narkday ! day:
	act 'Sniff pale lady (0:05)':
	cla
	*clr
	set minut += 5
	set narkday = day
	set health = vital * 10 + stren * 5
	set willpower = intel * 5 + will * 5
	set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
	set horny = 100
	set nark += 10
	set dur -= 1
	'<center><img src="images\etogame\dur.jpg"></center>'
	'You sniff dose of powder, then you start to feel just great.'
	act 'Exit': gt 'bedr'
	end
end
=======
 if sick >= 1:
	 act 'Go to bed rest (disease)':
	 cla
	 *clr
	 set minut = minut + 240
	 set sick = sick - 1 
	 if sick<0:sick=0
	 set picrand = RAND (0,6)
	 gs'stat'
	 if picrand = 0:'<center><img src="inBed/sick17.jpg" ></center>'
	 if picrand = 1:'<center><img src="inBed/sick11.jpg" ></center>'
	 if picrand = 2:'<center><img src="inBed/sick12.jpg" ></center>'
	 if picrand = 3:'<center><img src="inBed/sick13.jpg" ></center>'
	 if picrand = 4:'<center><img src="inBed/sick14.jpg" ></center>'
	 if picrand = 5:'<center><img src="inBed/sick15.jpg" ></center>'
	 if picrand = 6:'<center><img src="inBed/sick16.jpg" ></center>'
	 'You lie in bed, coughing, sneezing and blowing her nose'
	 act 'Pomeroy temperature':gt'bedr'
	 end
 end

if dur > 0:
'You have hidden <<dur>> doses pale lady'
end
if dur > 0 and narkday ! day:
     act 'Nyuhnut pale lady 5 min':
     cla
     *clr
     set minut = minut + 5
     set narkday = day
     set health = vital*10 + stren*5
	 set willpower = intel*5 + will*5
	 set manna = (intel*magik) + magik*100 + vital*10 + rikudo 
	 set horny = 100
	 set nark = nark + 10
	 set dur = dur - 1
     '<center><img src="pic/dur.jpg" ></center>'
     'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
     act 'Go_Out':gt $curloc
     end
end

>>>>>>> 148_bedr
--- bedr ---------------------------------