glife/locations/spalnya

# spalnya
CLOSE ALL

$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC

minut += 5
tanhouse1 = 1
gs 'stat'
'<center><b>Bedroom</b></center>'
'<center><img src="images/img/centr/spaln.jpg"></center>'

'The room is a very good size, there is  a <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>.'
'Also, an expensive 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>) stands against a wall, beside which stands a make-up table with a <a href="exec:gt ''mirror'', ''start''">mirror</a> on it.'
if komp = 1:
	$komp = ' with your <a href="exec:gt ''Komp'', ''start''">laptop</a> on it'
else
	$komp = ''
end
'A luxury <a href="exec:gt ''divan'', ''start''">leather sofa</a> against a wall. Mounted on the wall opposite the sofa is a huge plasma <a href="exec:gt ''TV'', ''start''">TV</a>. Under the window is a new <a href="exec:gt ''stol'', ''start''">desk</a><<$komp>>.'
if obruch > 0:'<br>A hula hoop stands in corner of the room. '
if skak > 0:'A jump rope is on a shelf. '
if bookYog > 0:'A yoga mat is rolled up in a corner. '

if mishka > 0:'On a shelf is <<mishka>> teddy bear'

sports = 0
$sportStringPrefix = ''

if obruch > 0 and obruchday ! daystart:
	$sitrobr = $sportStringPrefix + ' <a href="exec:dynamic $sitrobrd">twist hoop</a>'
	sports = 1
	$sportStringPrefix = ', '
else
	$sitrobr = ''
end

if bookYog > 0 and bookYogday ! daystart:
	$sitryog = $sportStringPrefix + ' <a href="exec:dynamic $sitryogd">meditation</a>'
	sports = 1
	$sportStringPrefix = ', '
else
	$sitryog = ''
end

if skak > 0 and skakday ! daystart:
	$sitrskak = $sportStringPrefix + ' <a href="exec:dynamic $sitrskakd">jumping rope</a>'
	sports = 1
	$sportStringPrefix = ', '
else
	$sitrskak = ''
end

if pressday ! daystart:
	$sitrpress = $sportStringPrefix + ' <a href="exec:dynamic $sitrpressd">abdominal exercises</a>'
	sports = 1
	$sportStringPrefix = ', '
else
	$sitrpress = ''
end

if pushday ! daystart:
	$sitrpush = ' <a href="exec:dynamic $sitrpushd">push-ups</a>'
	sports = 1
	$sportStringPrefix = ', '
else
	$sitrpush = ''
end


if sports = 1:
	$sportsitr = '<<$sitrpush>><<$sitrpress>><<$sitrskak>><<$sitrobr>><<$sitr_tread>><<$sitryog>>'
	'The room has enough space for a variety of sporting activities:<<$sportsitr>>.'
end

if suhbelo2 > 0:'<br>Lying on the table are <<suhbelo2>> pieces of dried laundry, that need <a href="exec:dynamic $gladbelo">to be ironed</a>.'

act 'Goto the corridor':
	if $clothingworntype ! 'nude':
		gt 'house'
		else
		msg'<b><font color = red>You need to get dressed.</font></b>'
		gt $CURLOC
	end
end

act 'Study (2:00)':
	cla
	minut += 120
	intel += 1
	'You spend two hours studying and now feel a little smarter.'

	act 'Finish':gt 'spalnya'
end

if student > 0 and kursovik < 100:
	act 'Write course work (1:00)':
		cla
		*clr
		minut += 60
		kursovik += rand(intel / 20, intel / 10)

		if kursovik > 100:kursovik = 100

		manna -= 10
		'<center><img src="images/etogame/study.jpg"></center>'
		'You work on your course work and have now completed <<kursovik>> percent.'

		act 'Finish':gt 'spalnya'
	end
end

gs 'events', 'read'

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

if sick >= 1:
	act 'Get some bed rest (illness)':
		cla
		*clr
		minut += 240
		sick -= 1
		if sick < 0:sick = 0
		gs'stat'

		'<center><img src="images/inBed/sick+rand(11,17)+.jpg"></center>'

		'You lie in bed, coughing, sneezing and blowing your nose'
 
		act 'Get up': gt 'bedr'
	end
end

if horny >= 50:
	act 'Masturbate':
		gt'selfplay'
	end
end

if pornMagazine > 0:'Under your mattress you hide a porn magazine.' & dynamic $d_read_porn

if tanga = 0 and clrbelo > 0:
	act 'Wear underwear':
		cla
		tanga = 1
		gt'spalnya'
	end
else
	act 'Remove underwear':
		cla
		tanga = 0
		gt'spalnya'
	end
end

if dur > 0:'You have hidden <<dur>> doses pale lady'

if dur > 0 and narkday ! daystart:
	act 'Take some coke (0:05)':
		cla
		*clr
		minut += 5
		narkday = daystart
		health = vital * 10 + stren * 5
		willpower = intel * 5 + will * 5
		manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
		horny = 100
		nark += 10
		dur -= 1
		'<center><img src="images/etogame/dur.jpg"></center>'
		'You take a small dose of coke and not long after you just start to feel great.'

		act 'Leave':gt $curloc
	end
end

--- spalnya ---------------------------------