# bedrPar
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
<<<<<<< 154_bedrPar
'<center><B><font color = maroon>Your bedroom</font></B></center>'
'<center><img src="images\qwest\alter\<<$loc>>.jpg "></center>'
clr
set minut += 1
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'Small room in which hardly squeezed <a href="exec:GT ''loker'',''start''">cabinet</a>, your <a href="exec:GT ''bedPar''">bed</a>, <a href="exec:GT ''stolPar''">desk</a> bed and sisters.'

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 ass ready for anal sex.'
end

gs 'family'

act 'Leave the room':
	gt 'korrPar'
end
=======
'<center><B><font color=maroon>Your bedroom</font></B></center>'
'<center><img src="qwest/alter/<<$loc>>.jpg" ></center>'
clr
set minut = minut + 1
gs'stat'
fcolor=rgb(0,0,0)
bcolor=rgb(255,255,255)
LCOLOR = rgb(106,90,205)
'A small room in which barely squeezed <a href="exec:GT ''loker'',''start''">cupboard</a>, your <a href="exec:GT ''bedPar''">bed</a>, <a href="exec:GT ''stolPar''">desk</a> Bed and sisters.'

if tanga = 0:tanga = 1

gs'family'

	 	 act 'Exit the room':
		 gt'korrPar'
		 end
>>>>>>> 154_bedrPar

if student > 0 and kursovik < 100:
<<<<<<< 154_bedrPar
	act 'Write coursework (1:00)':
	cla
	*clr
	set minut += 60
	set kursovik += RAND(intel/20, intel/10)
	if kursovik > 100: set kursovik = 100
	set manna -= 10
	'<center><img src="images\etogame\study.jpg"></center>'
	'You sat on the course work and prepared her for <<kursovik>> percent.'
	act 'Exit': gt $curloc
	end
=======
     act 'write kursovik 1 h':
     cla
     *clr
     set minut = minut + 60
     set kursovik = kursovik + RAND (intel/20,intel/10)
     if kursovik > 100:set kursovik = 100
     set manna = manna - 10
     '<center><img src="pic/study.jpg" ></center>'
     'You sat on coursework and prepare it for <<kursovik>> percent.'
     act 'Go_Out':gt $curloc
     end
>>>>>>> 154_bedrPar
end

<<<<<<< 154_bedrPar
if horny >= 50 and sisterHere = 0:
	act 'Masturbate':
	gt 'selfplay'
	end
end
=======
	 if horny>=50 and sisterHere=0:
	 	 act 'mastrubirovat':
		 gt'selfplay'
		 end
	 end
if pornMagazine>0:
'Under the mattress you have hidden pornozhurnal.'
end
if sisterHere=0 and pornMagazine>0:
dynamic $d_read_porn
end

dynamic $d_read_book


if tovarL>0:'You have kept <<tovarL>> One unit of small goods. The maximum you can keep in your room 30 One unit of product.'



if card>0:
	 act 'Take a deck of cards':
	 gt'card'
	 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



>>>>>>> 154_bedrPar
--- bedrPar ---------------------------------

