# balkon
if $ARGS[0] = 'start':
CLOSE ALL
cla
*clr
set minut += 5
gs 'stat'
'Apartment Balcony'
!Картинка!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if nude = 0:
'
'
end
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.'
end
if hour = 7:
'Morning is dawning out on the street, birds are singing in the trees.'
end
if hour >= 8 and hour <= 19:
'It''s clear day out on the street. You can see some people walking by. '
end
if hour >= 20 and hour <= 23:
'It''s twilight and the street below you is dimly lit.'
end
!Если голая!!!!!
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.'
end
if temp = 2:
'You no one pays you any attention.'
end
if temp = 3:
'You no one pays you any attention.'
end
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'
end
act 'Leave the balcony': gt 'sitr'
act 'Approach the railing': gt 'balkon2','niz'
end
--- balkon ---------------------------------