# parkM

if $ARGS[0] = 'start':
	minut += 30
	'You leisurely stroll through the park.'
	'<<$loverdesc[lover_number]>> tells you an anecdote:<br>'
	gs 'anekdot'
*nl
	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
	act 'Laugh':
		cla
		loverrelation[lover_number] += 1
		xgt 'parkM', 'a'
	end

	act 'Smile':
		cla
		xgt 'parkM', 'a'
	end

	act 'Not funny':
		cla
		loverrelation[lover_number] -= 1
		xgt 'parkM', 'a'
	end
end

if $ARGS[0] = 'a':
	if haraklover[lover_number] = 0:
		gs 'stihi'
		'<<$loverdesc[lover_number]>> reads poetry for you <<$stihi>>.'

		act 'Further':gt 'parkM', 'aa'
	elseif haraklover[lover_number] = 1:
		'<<$loverdesc[lover_number]>> to take you by the hand and leads you through the deserted paths of the park.'

		act 'Further':gt 'parkM', 'aa'
	elseif haraklover[lover_number] = 2:
		'<<$loverdesc[lover_number]>> hugs your waist. "You''re a cool girl." he said and leans in to kiss you on the lips.'

		act 'Kiss':gt'parkM','kiss'
		act 'Step back':
			cla
			pcs_dom += 1
			loverrelation[lover_number] -= 1
			'<<$loverdesc[lover_number]>> does not look happy as you pull away from his kiss, "Okay, <<$pcs_nickname>>, lets keep on trekking."'

			act 'Next':gt 'parkM', 'aa'
		end
	end
end

if $ARGS[0] = 'kiss':
	loverrelation[lover_number] += 1
	'<<$loverdesc[lover_number]>> kisses you and reaches around to gently massage your ass. His touch excites you and <<$loverdesc[lover_number]>> takes you by the hand and drags you into the bushes.'

	gs 'arousal', 'kiss', 15
	gs 'stat'
	
	act 'Stop it':
		cla
		pcs_dom += 1
		loverrelation[lover_number] -= 1
		'<<$loverdesc[lover_number]>> does not look happy as you push his hand away, "Okay, <<$pcs_nickname>>, Let''s keep on going."'

		act 'Further':gt 'parkM', 'aa'
	end

	act 'Go with it':gt 'parkM', 'sexrand'
end

if $ARGS[0] = 'sexrand':
	cla
	clr
	*clr
	loverrelation[lover_number] += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park.jpg"></center>'
	'<<$loverdesc[lover_number]>> pulls you into the bushes and exposes your breasts, suckling on your nipples. You close your eyes, immersed in bliss. <<$loverdesc[lover_number]>> kneels in front of you and starts on your pussy.'

	gs 'arousal', 'breasts', 15
	gs 'arousal', 'cuni', 15
	minut -= 15
	gs 'stat'
	
	act 'Stop it':
		cla
		pcs_dom += 1
		loverrelation[lover_number] -= 1
		'You sidestep and cover your chest, <<$loverdesc[lover_number]>> looks annoyed, "Okay, <<$pcs_nickname>>, Let''s go."'

		act 'Further':gt 'parkM', 'aa'
	end

	act 'Allow':gt 'parkM', 'sexrand1'
end

if $ARGS[0] = 'sexrand1':
	cla
	clr
	*clr
	loverrelation[lover_number] += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park1.jpg"></center>'
	'<<$loverdesc[lover_number]>> bares your pussy and began to caress it gently, then increasing the tempo, you are very excited, your pussy is sopping, aching for more. <<$loverdesc[lover_number]>> whispers to you, "Suck me!"'

	gs 'arousal', 'vaginal_finger', 15
	gs 'stat'
	
	act 'We can not do that here':
		cla
		pcs_dom += 1
		loverrelation[lover_number] -= 1
		'You backed away from him and began to dress, <<$loverdesc[lover_number]>> does not look happy, "Okay, <<$pcs_nickname>>, Let''s go."'

		act 'Next':gt 'parkM', 'aa'
	end

	act 'Get on your knees':gt 'parkM', 'sexrand2'
end

if $ARGS[0] = 'sexrand2':
	cla
	clr
	*clr
	loverrelation[lover_number] += 1
	bja += 1
	gs 'brosok'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park2.jpg"></center>'
	'You kneel in front of <<$loverdesc[lover_number]>> swallowing his sticking <<loverdick[lover_number]>> centimeter member. You cup his balls and began to suck.'
	'After a few minutes <<$loverdesc[lover_number]>> tells you, "Baby, if you continue, I''ll finish. Let''s have sex!"'

	gs 'arousal', 'bj', 15, 'sub'
	gs 'stat'
	
	act 'Continue to suck':gt 'parkM', 'sexrand3'
	act 'Sex':gt 'parkM', 'sexrand4'
end

if $ARGS[0] = 'sexrand3':
	cla
	clr
	*clr
	loverrelation[lover_number] += 1
	spafinloc = 12
gs 'cum_manage'
	swallow += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park3.jpg"></center>'
	'You continued enthusiastically sucking his cock and <<$loverdesc[lover_number]>> moans, grabs you by the hair realising a vigorous stream of burning semen into your mouth.'
	'You choke swallowing it, but his mightly load doesn''t fit in your mouths and pours out spreading onto your chin.'
	'<<$loverdesc[lover_number]>> pulls his member out of your cum-filled mouth stuffed and tucked it into his pants, helping you rise then says goodbye, promising to call you.'

	gs 'arousal', 'bj', 15, 'sub'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Leave':
		if curr_home = 1:
			gt 'gskver', 'start'
		else
			gt 'park', 'start'
		end
	end
end

if $ARGS[0] = 'sexrand4':
	cls
	pose = 1
	gs 'boyStat', $lover[lover_number]
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park4.jpg"></center>'
	'<<$loverdesc[lover_number]>> pulls you to your feet, turns you around and bends you over as he enters you. You have to grab the ground to keep from going over as he pounds you.'
	
	gs 'arousal', 'vaginal', 15, 'sub'
	gs 'arousal', 'end'
	gs 'cum_call', '', $lover[lover_number], 1
	gs 'stat'
	act 'Leave':
		if curr_home = 1:
			gt 'gskver', 'start'
		else
			gt 'park', 'start'
		end
	end
end

if $ARGS[0] = 'aa':
	minut += 30
	'Walked an hour <<$loverdesc[lover_number]>> proposed to hold you.'

	act 'Home':gt 'sexm', 'start'
end

--- parkM ---------------------------------