# bedrPar
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
'
Your bedroom'
'
'
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 cabinet, your bed, desk bed and sisters.'
if tanga = 0:
tanga = 1
end
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
if student > 0 and kursovik < 100:
act 'Write coursework (1:00)':
cla
*clr
set minut += 60
set kursovik += RAND(intel / 20, intel / 10)
if kursovik > 100:
set kursovik = 100
end
set manna -= 10
'
'
'You sat on the course work and prepared her for <> percent.'
act 'Exit':
gt $curloc
end
end
end
if horny >= 50 and sisterHere = 0:
act 'Masturbate':
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 <> One unit of small goods. The maximum you can keep in your room 30 One unit of product.'
end
if card > 0:
act 'Take a deck of cards':
gt'card'
end
end
if dur > 0:
'You have hidden <> doses pale lady'
end
if dur > 0 and narkday ! day:
act 'Nyuhnut pale lady 5 min':
cla
*clr
set 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 += 10
set dur -= 1
'
'
'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
act 'Go_Out':
gt $curloc
end
end
end
--- bedrPar ---------------------------------