# 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 ---------------------------------