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
	sosedBalDay = daystart
	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>'
	
	gs 'arousal', 'voyeur', 5, 'exhibitionism'
	gs 'arousal', 'end'
	gs 'stat'

	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'
	if pcs_exhibition < 30:exhibition_exp += rand(1,3)
	pcs_mood += 15
	pcs_willpwr += 15
	'<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.'
			$orgasm_or = 'yes'
			gs 'arousal', 'vaginal_dildo', 10, 'exhibitionism'
			gs 'arousal', 'end'
			gs 'stat'
			
			act 'Finish':gt 'balkon', 'start'
		end

		act 'Masturbate and use your dildo with your ass':
			cla
			*clr
			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.'
			
			gs 'arousal', 'anal_dildo', 10, 'exhibitionism'
			gs 'stat'

			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.'
				
				$orgasm_or = 'yes'
				gs 'arousal', 'end'
				gs 'stat'

				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.'
	
	gs 'arousal', 'foreplay', 5, 'exhibitionism'
	gs 'stat'

	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.'
		
		gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
		gs 'stat'

		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.'
			
			gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
			gs 'stat'

			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.'
					
					gs 'arousal', 'end'
					gs 'stat'

					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.'

	gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
	gs 'stat'
		
	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!"'
		
		gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
		gs 'stat'

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

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

				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!'
					
					gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
					gs 'stat'

					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.'
						
						$orgasm_or = 'yes'
						gs 'stat'

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

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

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