# balkon
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Apartment Balcony</font></b></center>'

	if $clothingworntype = 'nude':
		'<center><img src="images/community/balcony_naked1.jpg"></center>'
	elseif tanga = 0:
		'<center><img src="images/community/balcony_dressed1.jpg"></center>'
	else
		'<center><img src="images/community/balcony_underwear1.jpg"></center>'
	end

	'You went to the balcony.'

	if hour >= 0 and hour <= 6:
		'It''s dark outside. Street lamps illuminate the empty street below.'
	elseif hour = 7:
		'Morning is dawning out on the street, birds are singing in the trees.'
	elseif hour >= 8 and hour <= 19:
		'It''s clear day out on the street. You can see some people walking by.'
	elseif hour >= 20 and hour <= 23:
		'It''s twilight and the street below you is dimly lit.'
	end

	if $clothingworntype = 'nude':
		if sosedBalDay ! daystart:
			if rand(1, 4) = 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'
			else
				'No one pays you any attention.'
			end
		else
			'No one pays you any attention.'
		end
	end

	if sigaret >= 1:act 'Light a cigarette':gt 'balkon2', 'kurit'

	!!!Probably CV edition
	if horny >= 50:
		act 'Masturbate':gt 'balkon2', 'masopt'
	end
	!!!

	act 'Approach the railing':gt 'balkon2', 'niz'
	act 'Leave the balcony':gt 'sitr'
end

--- balkon ---------------------------------