glife/locations/balkon2

# balkon2
if $ARGS[0] = 'kurit':
	cla
	clr
	*clr
	minut += 10
	vikureno += 1
	siga -= 1
	pcs_sleep += 1
	gs 'stat'
	'<center><img src="images/locations/city/residential/apartment/kurit.jpg"></center>'
	'You lit a cigarette...'

	act 'Throw the cigarette butt over the railing...':gt 'balkon', 'start'
end

if $ARGS[0] = 'demo1':
	cla
	clr
	*clr
	pcs_horny += rand(30, 50)
	minut += 5
	sosedBalDay = daystart

	exhibition_exp += 2

	gs 'stat'
	'<center><font size="5" color="maroon"><b>Balcony</b></font></center>'

	if tanga = 1:'<center><img src="images/locations/city/residential/apartment/balcony_underwear3.jpg"></center>'
	if tanga = 0:'<center><img src="images/locations/city/residential/apartment/balcony_naked3.jpg"></center>'

	'<center>You defiantly pose on the balcony, to the delight of your neighbor. He eagerly looks at you furiously masturbating. 5 minutes later he cums and returns to his apartment.</center>'

	act 'Further':gt 'balkon', 'start'
end

if $ARGS[0] = 'palec1':
	cla
	clr
	*clr
	pcs_horny += rand(10, 30)
	minut += 1
	sosedBalDay = daystart
	gs 'stat'

	if tanga = 1:'<center><img src="images/pc/fuckyou_underwear.jpg"></center>'
	if tanga = 0:'<center><img src="images/pc/fuckyou_naked.jpg"></center>'

	'<center>You showed your neighbor the bird and he goes back indoors.</center>'

	act 'Further':gt 'balkon', 'start'
end

if $ARGS[0] = 'niz':
	cla
	clr
	*clr
	gs 'stat'

	! WD: Uninitialised ~ 'alcohol' USE 'alko'
	if alko < 12:
		if $clothingworntype = 'nude':
			'<center><img src="images/locations/city/residential/apartment/balcony_naked2.jpg"></center>'
		elseif tanga = 1:
			'<center><img src="images/locations/city/residential/apartment/balcony_underwear2.jpg"></center>'
		else
			'<center><img src="images/locations/city/residential/apartment/balcony_dressed2.jpg"></center>'
		end

		act 'Enjoy the view':
			cls
			if hour >= 8 and hour <= 19:
				'<center><img src="images/locations/city/residential/apartment/bal1.jpg"></center>'
			else
				'<center><img src="images/locations/city/residential/apartment/bal2.jpg"></center>'
			end

			'You look at the panorama from your private balcony.'

			act 'Further':gt 'balkon', 'start'
		end
	else
		'You had no idea your apartment was so high. You don''t feel comfortable there ...'

		act 'Further':gt 'balkon', 'start'
	end
end

if $ARGS[0] = 'sosed':
	cla
	clr
	*clr
	gs 'stat'
	'<center><b><font color="maroon">Balcony</font></b></center>'
	'<center><img src="images/locations/city/residential/apartment/sosed.jpg"></center>'
	'<center>Your neighbor to the left of your balcony, looks at you carefully.</center>'

	act 'Demonstrate your body':gt 'balkon2', 'demo1'
	act 'Send the pervert packing':gt 'balkon2', 'palec1'
end

!!!Probably CV edition
if $ARGS[0] = 'masopt':
	cla
	*clr
	clr
	gs 'stat'
	minut += 15
	stat['mast'] += 1
	if pcs_exhibition < 30:exhibition_exp += rand(1,3)
	pcs_mood += 15
	pcs_willpwr += 15
	pcs_horny = 0
	orgasm += 1
	'<center><img src="images/locations/city/residential/apartment/sex/balcony_dildo.jpg"></center>'

	if dildo = 1:
		act 'Masturbate your pussy with your dildo':
			cla
			*clr
			pcs_vag += rand(0, 2)
			badildo = rand(1, 2)

			if badildo = 1:'<center><img src="images/locations/city/residential/apartment/sex/balcony_dildo1.jpg"></center>'
			if badildo = 2:'<center><img src="images/locations/city/residential/apartment/sex/balcony_dildo2.jpg"></center>'

			'After pleasuring yourself intensily with the dildo you reach orgasm and feel more serene.'

			act 'Finish':gt 'balkon', 'start'
		end

		act 'Masturbate and use your dildo with your ass':
			cla
			*clr
			minut += 10
			analorgasm += 1
			stat['anal'] += 1
			anus += rand(0, 2)
			'<center><img src="images/locations/city/residential/apartment/sex/balcony_anal1.gif"></center>'
			'It feels like your whole ass is burning'

			act 'Continue':
				cla
				*clr
				'<center><img src="images/locations/city/residential/apartment/sex/balcony_anal2.gif"></center>'
				'An immense pleasure overtake you. Your body shivers like you were standing naked in a cold breeze.'

				act 'Go back':gt 'balkon', 'start'
			end
		end
	end

	act 'Masturbate':
		cla
		*clr
		pcs_vag += rand(0, 1)
		gt 'balkon2', 'finger'
	end
end

if $ARGS[0] = 'finger':
	cla
	*clr
	clr
	'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-1.jpg"></center>'
	'You lick your fingers preparing them for your pussy.'

	act 'Insert finger':
		cla
		*clr
		if spdirtyf > 0: dirtyplay = 1
		'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-2.jpg"></center>'
		'Slowly you put your finger into your pussy.'

		act 'Next':
			cla
			*clr
			'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-3.jpg"></center>'
			'It feels like heaven. Slowly you pussy gets wet.'

			act 'Stand':
				cla
				*clr
				'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-4.jpg"></center>'
				if pcs_exhibition >= 35:

					exhibition_exp += 2
					'You look around to see if you have an audience.'

					visit = rand(0, 0)

					if visit = 0:
						pcs_vag += 1
						'You can''t see anyone.'

						act 'Insert fingers':gt 'balkon2', 'finger_solo'
					else
						'I notice that someone seems to be enjoying the show as much as I am.'

						!!act 'Invite':gt 'balkon2', 'beatafriend'
						act 'Ignore and continue to play':gt 'balkon2', 'finger_solo'
					end
				else
					'Overtaken by the thrill of the risk of being caught in such a compromising act and the diligent work of your skilled fingers brings you to an intense orgasm.'
					'Still a bit dizzy, you gather up your clothes.'

					act 'Dress':gt 'balkon', 'start'
				end
			end
		end
	end
end

if $ARGS[0] = 'finger_solo':
	cla
	*clr
	clr
	'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-5.jpg"></center>'
	'The feeling is now so intense that you ignore everything around you.'

	act 'Next':
		cla
		*clr
		'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-6.jpg"></center>'
		'Your pussy is so wet that your juices run down the back of your hand and drip onto the ground and all you can think is "Faster!Faster!"'

		act 'Faster':
			cla
			*clr
			'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-7.jpg"></center>'
			'Ohh ahh...'

			act 'Faster':
				cla
				*clr
				'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-8.jpg"></center>'
				'Ohh ahh...'

				act 'Do it':
					cla
					*clr
					'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-9.jpg"></center>'
					'You can''t hold on any longer!'

					act 'Orgasm':
						cla
						*clr
						'<center><img src="images/locations/city/residential/apartment/sex/balcony_orgasm.jpg"></center>'
						'You are shivering after such intense pleasure. You can see some of your neighbours even applauding your performance.'
						'A bit surprised with the audience you try to gather your clothes.'

						act 'Dress':
							cla
							*clr
							'<center><img src="images/locations/city/residential/apartment/sex/balcony_mas1-10.jpg"></center>'

							act 'Leave':gt 'balkon', 'start'
						end
					end
				end
			end
		end
	end
end
!!!

--- balkon2 ---------------------------------