# bedrPar
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
minut += 1
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Your bedroom'
! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
''
'Small room in which hardly squeezed cabinet, your bed, desk bed and sisters.'
if komp = 1:'On the table is your laptop.'
gorodokKomp = 0
if sisboyQW > 10:sisboyQW = 10
gs 'family'
! if tanga = 0:tanga = 1
act 'Leave the room':gt 'korrPar'
if rexCarCount >= 9 and sisterHere = 1 and hour < 3 and rexSmsDay ! daystart and smsForRex < 13:
act 'Take your sisters phone':gt 'reks','sms'
end
! WD: add Underwear change
if tanga = 0:
act 'Wear Underwear':
cla
tanga = 1
gt $curloc
end
elseif tanga = 1:
act 'Remove Underwear':
cla
tanga = 0
gt $curloc
end
end
if student > 0 and kursovik < 100:
act 'Write coursework (1:00)':
cla
*clr
minut += 60
kursovik += rand(intel / 20, intel / 10)
if kursovik > 100:kursovik = 100
manna -= 10
''
'You sat on the course work and prepared her for <> percent.'
act 'Leave':gt $curloc
end
end
if horny >= 50 and sisterHere = 0:
act 'Masturbate':gt 'selfplay'
end
if pornMagazine > 0:'Under the mattress you have hidden pornozhurnal.'
if sisterHere = 0 and pornMagazine > 0:dynamic $d_read_porn
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.'
if card > 0:
act 'Take a deck of cards':gt 'card'
end
if dur > 0:'You have hidden <> doses pale lady'
if dur > 0 and narkday ! daystart:
act 'Nyuhnut pale lady 5 min':
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 otsypali dose of powder and its nyuhnuli, then you feel just fine.'
act 'Leave':gt $curloc
end
end
--- bedrPar ---------------------------------