glife/locations/bedrPar

# bedrPar
CLOSE ALL
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = ''
$loc = 'bedrPar'
$location_type = 'private'
clr
minut += 1
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)

if magik >= 6 and spellbefshild = 1 and tobiQW = 0 and sisterHere < 2:gt 'tobiQW', 'start'

if sisboyday + 1 = daystart and hour = 18:gt'sisterQW','sisboyQW_expel'

'<center><h1><font color="maroon">Your bedroom</font></h1></center>'
! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
'<center><img src="images/qwest/alter/bedrpar.jpg"></center>'
*nl
'A small room in which you and your sister live. It contains a wardrobe where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>. On top of it is a <a href="exec:gt ''clothing'', ''view_clothing_list'', ''store''">suitcase</a> where you can store some clothes in. There''s also your <a href="exec:gt ''bed2''">bed</a>, a <a href="exec:gt ''stol'' ,''stolPar''">desk</a> and your sister''s bed. You hide your birth control in a drawer in your desk.'
if komp = 1:'Your <a href="exec:gorodokKomp = 1 & GT ''Komp'',''start''">laptop</a> is on the desk.'
gorodokKomp = 0

gad = 0

if Astat_Qstlvl[33] > 10:Astat_Qstlvl[33] = 10

gs'dinsister'

if clrbelo <= 4: clrbelo = 5

act 'Exit the room':
	gt'korrPar'
end
if sisboyparty_day + 1 = daystart and sisboyparty = -1 and hour = 22:
	gs'family'
else
	gs'family'

	if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
		act 'Take your sister''s phone':gt 'reks','sms'
	end

	if student > 0 and kursovik < 100:
		act 'Do coursework (1:00)':
			cla
			*clr
			minut += 60
			kursovik += rand(pcs_intel / 20, pcs_intel / 10)

			if kursovik > 100:kursovik = 100

			manna -= 10
			'<center><img src="images/etogame/study.jpg"></center>'
			'You sit down at the desk and do your coursework, you''ve finished <<kursovik>> percent of it.'

			act 'Leave your desk':gt $curloc
		end
	end

	if pcs_horny >= 50 and sisterHere = 0:
		act 'Masturbate':gt 'selfplay'
	end
	if pornMagazine > 0:'You have hidden your porn magazines under the mattress of your bed.'
	if sisterHere = 0 and pornMagazine > 0:gs 'events', 'read_porn'

	gs 'events', 'read'

	if tovarL > 0:'You currently have <<tovarL>> trinkets to sell at the station. The maximum you can carry with you is 30.'

	
	if vcard > 0:
		act 'Look at your deck of vintage porn cards':gt 'card'
	end
	if card > 0:
		act 'Look at your deck of new porn cards':gt 'card'
	end

!	if card > 0:
!		if card > 1:
!			act 'Look at your deck of vintage porn cards':gt 'card'
!		elseif card = 2:
!			act 'Look at your deck of new porn cards':gt 'card'
!		elseif card = 1 and card = 2:
!			act 'Look at your deck of vintage porn cards':gt 'card'
!			act 'Look at your deck of new porn cards':gt 'card'			
!		end
!	end

	if dur > 0:'You have hidden <<dur>> doses of Pale Lady.'

	if dur > 0 and narkday ! daystart:
		act 'Use some Pale Lady (0:05)':
			cla
			*clr
			minut += 5
			narkday = daystart
			health = pcs_vital * 10 + pcs_stren * 5
			willpower = pcs_intel * 5 + will * 5
			manna = (pcs_intel * magik) + magik * 100 + pcs_vital * 10 + rikudo
			pcs_horny = 100
			nark += 10
			dur -= 1
			'<center><img src="images/etogame/dur.jpg"></center>'
			'You snort some Pale Lady, feeling dizzy for just a moment. After that you feel fantastic, and incredibly horny.'

			act 'Continue':gt $curloc
		end
	end
end

if tanga = 0:
	act 'Wear underwear':
		cla
		tanga = 1
		gt $curloc
	end
elseif tanga = 1:
	act 'Take off your underwear':
		cla
		tanga = 0
		gt $curloc
	end
end

gs 'events', 'sport'

if gobelen>0:'You have <<gobelen>> completed tapestries.'
if poSkill>=50 and tkan>0:'You have enough fabric for <<tkan>> lessons.'
if poSkill>=50 and tkan<=0:'You do not have any fabric.'
if poSkill>=200:
	if newgobelen=0 and tkan>0:
		act'Start a new tapestry':
			cls
			tkan-=1
			newgobelen=1
			minut+=15
			gs'stat'
			'You spend 15 minutes at the embroidery frame, preparing the fabric and outlining the pattern for the tapestry.'
			act'Set the tapestry aside':gt $curloc
		end
	end
	if newgobelen>=1:
		'Your tapestry is <<newgobelen/10>> percent finished.'
		act'Work on the tapestry for an hour':
			cls
			minut+=60
			poSkill+=rand(0,1000)
			gobramax=poSkill/100
			gobramin=poSkill/200
			newgobelen+=rand(gobramin,gobramax)
			gs'stat'
			if newgobelen<1000:'You spent an hour working on your tapestry, which is now <<newgobelen/10>> percent finished.'
				if newgobelen>=1000:
				newgobelen=0
				gobelen+=1
				'Your work on the tapestry is done.'
			end
			act'Set the tapestry aside':gt $curloc
		end
	end
end


--- bedrPar ---------------------------------