# spalnya
CLOSE ALL
$metka = $ARGS[0]
$loc = $CURLOC
$metkaM = ''
$locM = 'spalnya'
$location_type = 'private'
minut += 5
tanhouse1 = 1
gs 'stat'
'
Bedroom'
''
'The room is a very good size, there is a double bed and an alarm clock.'
'Also, an expensive wardrobe (where you can organize your clothes or pick something to wear) stands against a wall, beside which stands a make-up table with a mirror on it.'
if komp = 1:
$komp = ' with your laptop on it'
else
$komp = ''
end
'A luxury leather sofa against a wall. Mounted on the wall opposite the sofa is a huge plasma TV. Under the window is a new desk<<$komp>>.'
if obruch > 0:'
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 <> teddy bear'
gs 'events', 'sport'
if suhbelo2 > 0:'
Lying on the table are <> pieces of dried laundry, that need to be ironed.'
act 'Goto the corridor':
if $clothingworntype ! 'nude':
gt 'house'
else
msg'You need to get dressed.'
gt $CURLOC
end
end
act 'Study (2:00)':
cla
minut += 120
intel += 1 + (mentats_dose - rand(0,mentats_dose))
'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
''
'You work on your course work and have now completed <> 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'
''
'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.' & gs 'events', '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 <> 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
''
'You take a small dose of coke and not long after you just start to feel great.'
act 'Leave':gt $curloc
end
end
--- spalnya ---------------------------------