slife/locations/164_bedPar

# bedPar
<<<<<<< 164_bedPar
gs 'stat'

if nude = 0: '<center><img src="images\pics\bed.jpg"></center>'
if nude = 1: '<center><img src="images\pics\son.jpg"></center>'

'You lie on the bed. Clock wound <<timer>> hours <<timerM>> minutes.'

act 'Set Alarm Clock': gt 'budilnik','start'

act 'Undress and go to bed':
	SAVEGAME 'altavtosave.sav'
	cls
	gs 'bed2'
end

act 'Get out of bed':
	cla
	gt $locM, $metkaM
end
=======
gs'stat'

if nude = 0:'<center><img src="pics/bed.jpg" ></center>'
if nude = 1:'<center><img src="pics/son.jpg" ></center>'
'You `re lying on the bed. Service on the wound <<timer>> hours, <<timerM>> minutes.'

     act 'Free Service':gt'budilnik','start'
     
     !if son < 10:
		 act 'Undress and go to bed':
		 SAVEGAME 'altavtosave.sav'
		 cls
		 '<center><img src="pics/son.jpg" ></center>'
		 if analplugIN = 1:set analplugIN = 0&'Before going to bed you remove a butt plug.'
		 if vibratorIN=1:set vibratorIN=0&'Before going to bed .'
		 if mop > 1:set mop = 0&set vidageday = vidageday - 1&'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
		 set health = health + 5
		 set hapri = 0
		 InSleep=1
		 'You sleep and you dream about nothing.'
		 :loopson
		 set minut = minut + 1
		 set stime = stime + 1
		 if stime = 60:set stime = 0&set son = son + 3
		 clr
		 gs'stat'
			 if hour = timer and minut = timerM:
			 'alarm goes off'
			 set manna = manna - 10
				 act 'Get out of bed and get dressed (15 minutes)':
				 cla
				 !set numdress=odedosna
				 set InSleep=0
				 set minut+=15
				 set tanga = 1
				 !set nude=0
				 gt $locM, $metkaM
				 end
			 exit
			 end
			 if son > 23 and dosip = 0:
			 'You woke up on, that slept'
			 	 act 'Get out of bed and get dressed (15 minutes)':
				 cla
				 !set numdress=odedosna
				 set InSleep=0
				 set minut+=15
				 set tanga = 1
				 !set nude=0
				 gt $locM, $metkaM
				 end
			 exit
			 end
		 jump 'loopson'
		 end
     !end


	 act 'Get out of bed':
	 cla
	 gt $locM, $metkaM
	 end










>>>>>>> 164_bedPar
--- bedPar ---------------------------------