glife/locations/kafeM.qsrc

# 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
	if pcs_hydra >= 100:
		pcs_hydra -= 5
	else
		pcs_hydra -= 10
	end
	fat += 1
	'Finally the food is served. <<$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'
	'Music begins to play in the cafe and <<$loverdesc[lover_number]>> asks if you would like to dance.'

	act 'Dance':
		cla
		loverrelation[lover_number] += 1
		xgt 'kafeM', 'dance'
	end
	gs 'willpower', 'misc', 'resist', 'easy'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			cla
			loverrelation[lover_number] -= 1
			xgt 'kafeM', 'end'
		end
	else
		act 'Refuse(<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end	
end

if $ARGS[0] = 'dance':
	minut += 5
	'<center><img <<$set_imgh>> src="images/pc/activities/dance.jpg"></center>'
	'You go with <<$loverdesc[lover_number]>> to the dance floor. He puts his arms around you and you start to dance.'

	if haraklover[lover_number] = 0:
		'<<$loverdesc[lover_number]>> is very reserved in his dance. He holds you a bit awkwardly and apologizes.'

		act 'Finish the dance':
			cla
			loverrelation[lover_number] += 1
			xgt 'kafeM', 'end'
		end
	elseif haraklover[lover_number] = 1:
		'<<$loverdesc[lover_number]>> leads you confidently 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 against you. You can feel his hard cock against your stomach through the clothes.'
		'He whispers to you, Let''s go to the toilet.'
		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Finish the dance (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				cla
				loverrelation[lover_number] -= 1
				xgt 'kafeM', 'end'
			end
		else
			act 'Finish the dance(<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	

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

if $ARGS[0] = 'tualet':
	'<<$loverdesc[lover_number]>> pulls you inside the toilet and begins to knead your chest as you get ready for the act.'
	gs 'arousal', 'foreplay', 5
	gs 'stat'

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

if $ARGS[0] = 'sex':
	*clr
	sexa += 1
	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]>> puts on a condom, then makes you stand over the toilet and pushes his <<dick>> centimeter member in your quivering pussy.'
	gs 'arousal', 'vaginal', 15, 'sub'
	gs 'arousal', 'end'
	gs 'stat'

	'Soon <<$loverdesc[lover_number]>> can no longer hold back and finishes in a condom.'

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

if $ARGS[0] = 'bj':
	*clr
	bja += 1
	swallow += 1
	spafinloc = 12
	gs 'cum_manage'
	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 any longer and finishes in your mouth, filling it with his tart semen. You try to swallow it all, but cum still pours out of your mouth, running down your lips and chin.'
	'You faithfully look <<$loverdesc[lover_number]>> in the eyes with your semen smeared face.'
	gs 'arousal', 'bj', 15, 'sub'
	gs 'arousal', 'end'
	gs 'stat'

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

if $ARGS[0] = 'end':
	'<<$loverdesc[lover_number]>> offers to hold you.'

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

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