glife/locations/kafeM

# kafeM

if $ARGS[0] = 'start':
	minut += 30
	'You arrive at the cafe and sit at a table. <<$loverdesc[lover_number]>> orders food and wine. While you wait for the food to arrive, <<$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 'kafeM', 'a'
	end

	act 'Smile.':
		cla
		xgt 'kafeM', 'a'
	end

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

if $ARGS[0] = 'a':
	minut += 30
	fat += 1
	'Finally your brought the food. <<$loverdesc[lover_number]>> pours you wine and proposes a toast to you.'

	act 'Eat':
		cla
		xgt 'kafeM', 'b'
	end
end

if $ARGS[0] = 'b':
	gs 'food', 'm_meal'
	gs 'stat'
	'The cafe music starts and <<$loverdesc[lover_number]>> asks to dance.'

	act 'Dance.':
		cla
		loverrelation[lover_number] += 1
		xgt 'kafeM', 'dance'
	end

	act 'Refuse.':
		cla
		loverrelation[lover_number] -= 1
		xgt 'kafeM', 'end'
	end
end

if $ARGS[0] = 'dance':
	minut += 5
	'<center><img <<$set_imgh>> src="images/pc/activities/dance.jpg"></center>'
	'You go out with <<$loverdesc[lover_number]>> to the dance floor. he gives you a hug and you start to dance.'

	if haraklover[lover_number] = 0:
		'<<$loverdesc[lover_number]>> is very formal in his dance, he hugs you and apologises.'

		act 'Finish the dance.':
			cla
			loverrelation[lover_number] += 1
			xgt 'kafeM', 'end'
		end
	elseif haraklover[lover_number] = 1:
		'<<$loverdesc[lover_number]>> very confidently leads you in the dance.'

		act 'Finish the dance.':
			cla
			loverrelation[lover_number] += 1
			xgt 'kafeM', 'end'
		end
	elseif haraklover[lover_number] = 2:
		'<<$loverdesc[lover_number]>> grabs your ass while dancing and presses up against you, through the fabric you can feel his hard cock against your stomach.'
		'He whispers to you, Let''s go to the toilet.'

		act 'Finish the dance.':
			cla
			loverrelation[lover_number] += 1
			xgt 'kafeM', 'end'
		end

		act 'Go to the toilet.':xgt 'kafeM', 'tualet'
	end
end

if $ARGS[0] = 'tualet':
	minut += 30
	pcs_horny += 10
	'<<$loverdesc[lover_number]>> pulls you into the toilet and began to knead your chest and you climb between his legs.'

	act 'Give blowjob':gt 'kafeM', 'bj'
	act 'Bend over the toilet.':gt 'kafeM', 'sex'
end

if $ARGS[0] = 'sex':
	*clr
	stat['vaginal'] += 1
	sexa += 1
	pcs_vag += 1
	pcs_horny += SUB
	loverrelation[lover_number] += 2
	gs 'brosok'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cafe/kafe.jpg"></center>'
	'You pull his dick out of his pants and start masturbating him, <<$loverdesc[lover_number]>> pulls out a condom and put on the penis, then he made you stand over the toilet and stabs his <<dick>> centimeter member into your quivering pussy.'

	if pcs_horny >= 90:
		pcs_horny = 0
		pcs_mood += 15
		pcs_willpwr += 15
		orgasm += 1
		'You feel a warming sensation growing in your loins which quickly grows as his member pounds into you.  You bite your lip and hastily clamp your hand over your mouth to keep from screaming in ecstasy.'
	end

	'Soon <<$loverdesc[lover_number]>> could not resist and finished in a condom.'

	act 'Next.':gt 'kafeM', 'end'
end

if $ARGS[0] = 'bj':
	*clr
	stat['bj'] += 1
	bja += 1
	swallow += 1
	spafinloc = 12
gs 'cum_manage'
	pcs_horny += SUB
	loverrelation[lover_number] += 2
	gs 'brosok'
	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cafe/kafe1.jpg"></center>'
	'You pull his dick out of his pants and start masturbating him, then squat in front of him and take him in your mouth slowly sucking his <<dick>> centimeter member.'
	'Soon <<$loverdesc[lover_number]>> can not resist and finishs in your mouth, filling it with his tart semen.  You attempt to swallow it all, but cum still pours out of your mouth and ran down your lips and chin.'
	'You faithfully look into <<$loverdesc[lover_number]>>''s eyes with your semen smeared face.'

	act 'Next.':gt 'kafeM', 'end'
end

if $ARGS[0] = 'end':
	minut += 30
	'<<$loverdesc[lover_number]>> offered to hold you.'

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

--- kafeM ---------------------------------