# balkon
if $ARGS[0] = 'start':
close all
cla
*clr
set minut += 5
gs 'stat'
'Apartment Balcony'
!!Картинка!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if nude = 0:'
'
if nude = 1:
if tanga = 0:'
'
if tanga = 1:'
'
end
'You went to the balcony.'
!!Погода!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if hour >= 0 and hour <= 6:'It''s dark outside. Street lamps illuminate the empty street below.'
if hour = 7:'Morning is dawning out on the street, birds are singing in the trees.'
if hour >= 8 and hour <= 19:'It''s clear day out on the street. You can see some people walking by. '
if hour >= 20 and hour <= 23:'It''s twilight and the street below you is dimly lit.'
!!Если голая!!!!!
if nude = 1:
if sosedBalDay ! day:Set temp = rand(1, 4)
if sosedBalDay = day:Set temp = rand(1, 3)
if temp = 1:'You no one pays you any attention.'
if temp = 2:'You no one pays you any attention.'
if temp = 3:'You no one pays you any attention.'
if temp = 4:
'A neighbor from the opposite building is out on his balcony and looking at your naked body.'
act 'Look at the neighbor':gt 'balkon2', 'sosed'
end
end
if horny >= 50:act 'Masturbate':gt 'balkon2', 'masopt'
act 'Leave the balcony':gt 'sitr'
act 'Approach the railing':gt 'balkon2', 'niz'
end
--- balkon ---------------------------------