glife/locations/ParkKafe.qsrc

# ParkKafe

if $ARGS[0] = 'start':
	$loc = 'ParkKafe'
	$metka = 'start'
	$menu_loc = 'ParkKafe'
	$menu_arg = 'start'
	menu_off = 0
	$location_type = 'public_indoors'
	minut += 5
	gs 'stat'
	park_food = (pcs_ate + pcs_drank)
	'<center><B><font color=maroon>Park Cafe</font></B></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/parkcafe.jpg"></center>'
	*nl

	act 'Leave the cafe': gt 'parkKafe', 'end'

	act 'Sit down at a table':
		gt 'parkKafe', 'table'
	end

	if money >= 350:
		act 'Order take-out (0:20) (350 <b>₽</b>)':money -= 350 & gt 'food', 'f_food'
	end
	'Whilst sitting and eating in the summer cafe. You take a moment and enjoy the beautiful scenery.'
	*nl
end

if $ARGS[0] = 'table':
	*clr & cla
	$loc = 'ParkKafe'
	$metka = 'table'
	$menu_loc = 'ParkKafe'
	$menu_arg = 'table'
	menu_off = 0
	'<center><B><font color=maroon>Park Cafe</font></B></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/parkcafe.jpg"></center>'
	*nl
	'Whilst sitting and eating in the summer cafe. You take a moment and enjoy the beautiful scenery.'
	act 'Get up from the table': gt 'parkKafe', 'start'
	act 'Order from the menu (0:05)': gs 'food_menu'
	if park_food < (pcs_ate + pcs_drank):
		pk_rand = rand(1, 7)
		*nl
		if pk_rand = 1:'You look around and notice the cafe visitors, strolling past is a <a href="exec:gt ''ParkKafe'', ''youth''">Youth</a>.'
		if pk_rand = 2:'You look around and notice the cafe visitors, sitting alone is a young <a href="exec:gt ''ParkKafe'', ''the_boy''">Man</a>.'
		if pk_rand = 3:'You are watching the world go by, when you see some <a href="exec:gt ''ParkKafe'', ''negros''">Africans</a>.'
		if pk_rand = 4:'You are watching the world go by, when you see a <a href="exec:gt ''ParkKafe'', ''woman''">woman</a> looking imperious.'
		if pk_rand = 5:'You look around and notice the cafe visitors, you see a solid older <a href="exec:gt ''ParkKafe'', ''man''">man</a>.'
		if pk_rand = 6:'You are watching the cafe visitors and notice two <a href="exec:gt ''ParkKafe'', ''Armenians''">Armenians</a> sitting at a table.'
		if pk_rand = 7:'You are watching the cafe visitors and notice two <a href="exec:gt ''ParkKafe'', ''guys''">sporty guys</a> sitting at a table and drinking beer.'
	end
end

if $ARGS[0] = 'guys':
	menu_off = 1
	cla
	gs 'stat'
	
	if hotcat >= 5: 
		if parkara > 0:
			'Jora Senya notices you, but continues to drink beer with his friends.'
			
			act 'Leave': gt 'parkKafe', 'end', 'cafe'
		else
			'Your looks were noticed by the guys and one of them comes up to you and asks you to join them.'
			
			gs 'willpower', 'drink', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Leave (<<will_cost>> Willpower)':
					gs 'willpower', 'drink', 'resist'
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					gt 'parkKafe', 'end', 'cafe'
				end
			else
				act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
			
			act 'Drink beer with the guys':
				cla
				gs 'drugs', 'alcohol', 'beer'
				'You drink a glass of beer, while the guys order another. One of them quietly slipped something into your glass. You got drunk very quickly and the guys guide you to the nearest woods.'
				if rand(0, 1) = 0:
					if parkara = 0:guy += 2 & parkara = 1
					stat['vaginal'] += 1
					stat['bj'] += 2
					gs 'boyStat', 'A44'
					spafinloc = 12
					gs 'cum_manage'
					gs 'npcgeneratec', 0, 'Sporty Guy', rand(18,35)
					gs 'boyStat', $npclastgenerated
					spafinloc = 12
					gs 'cum_manage'
					'<center><img <<$set_imgh>> src="images/characters/city/jora/sex/022.jpg"></center>'
					'The guys shove you on your knees and quickly take out their members. You don''t understand exactly what''s going on, but comply by sucking the cock slapping at your face.'

					if rand(1, 100) <= stat['bj']:
						pcs_horny = 0
						orgasm += 1
						'You orgasm.'
					else
						pcs_horny += 10
						'You are not satisfied'
					end

					'They finish in your mouth and you swallow their sperm greedily'

					act 'Become acquainted':gt 'parkkafe', 'klof 1'
				else
					if parkara = 0:guy += 2 & parkara = 1

					stat['vaginal'] += 1
					gs 'cum_manage'
					pcs_vag += 1
					gang += 1
					spafinloc = 4
					gs 'cum_manage'
					pcs_ass += 1
					stat['anal'] += 1
					'<center><img <<$set_imgh>> src="images/characters/city/jora/sex/004.jpg"></center>'
					'One guy lies down and roughly pulls you on top. He groans in pleasure when his hard member rubs against your tight pussy, he starts fucking your pussy relentlessly. The other guy lines up behind you and shoves his penis up your ass. You moan in pain, and pleasure at the sensation of being filled in both holes.'

					if rand(1, 100) <= stat['bj']:
						pcs_horny = 0
						orgasm += 1
						'You orgasm.'
					else
						pcs_horny += 10
						'You are not satisfied'
					end

					'One of them finishes deep inside you, while the other pulls out and cums on your ass.'

					act 'Become acquainted':gt 'parkkafe', 'klof 1'
				end
			end
		end
	else
		'You look at them intensely, but you don''t think they notice you.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	end
end

if $ARGS[0] = 'klof 1':
	menu_off = 1
	cla
	*clr
	minut += 5
	klofQW = 1
	clr
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/city/jora/11 1.jpg"></center>'
	'You try to rise from the grass in front of the guys, your legs and hands are shaking from the rough pounding they gave you. Your vagina feels itchy as warm gooey sperm tickles down your legs. "Did you like it baby?" Asks one of the guys mockingly.'

	act 'Yes':gt 'event', 'klof 2'
	gs 'willpower', 'prostitution', 'resist'
	if will_cost <= pcs_willpwr:
		act 'No, walk away (<<will_cost>> Willpower)':
			gs 'willpower', 'prostitution', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'parkKafe', 'end'
		end
	else
		act 'No, walk away (<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] = 'Armenians':
	menu_off = 1
	cla
	gs 'stat'
	
	if hotcat >= 4:
		'Your looks were noticed by the Armenians and one of them comes over to your table with a bottle of champagne.'

		gs 'willpower', 'drink', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				gs 'willpower', 'drink', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'parkKafe', 'end', 'cafe'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	
		act 'Drink together':
			cla & *clr
			'You drink champagne with an Armenian, as his friend moves smoothly to your table too. You drink and have fun. Soon you are drunk and the Armenians take you to the back room of the cafe.'

			if rand(0, 1) = 0:
				if parkarman = 0:guy += 2 & parkarman = 1
				stat['bj'] += 2
				gs 'npcgeneratec', 0, 'Armenian', rand(18,45)
				gs 'boyStat', $npclastgenerated
				spafinloc = 12
				gs 'cum_manage'
				gs 'npcgeneratec', 0, 'Armenian', rand(18,45)
				gs 'boyStat', $npclastgenerated
				spafinloc = 12
				gs 'cum_manage'
				'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/parkbj.jpg"></center>'
				'The Armenians shove you on your knees as they take out their mighty members. They use them to poke you in your face, until you start sucking both members.'

				if rand(1,100) <= bj:
					pcs_horny = 0
					orgasm += 1
					'You orgasmed.'
				else
					pcs_horny += 10
					'You were not satisfied'
				end

				'They finish in your mouth and laughing, they leave you there.'

				act 'Leave': gt 'parkKafe', 'end'
			else
				if parkarman = 0:guy += 2 & parkarman = 1

				stat['vaginal'] += 1
				stat['bj'] += 1
				gang += 1
				spafinloc = 12
				gs 'cum_manage'
				spafinloc = 4
				gs 'cum_manage'
				pcs_vag += 1
				'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/cafe/ara2.jpg"></center>'
				'The Armenians bend you over, one of them shoves his cock in your mouth. The other one stands behind you and shoves his penis deep into your vagina. They go on and eagerly fuck you in both holes.'

				if rand(1,100) <= bj:
					pcs_horny = 0
					orgasm += 1
					'You orgasm.'
				else
					pcs_horny += 10
					'You are not satisfied'
				end

				'One of them finishes in your mouth and you greedily swallow it all, while the other hastily pulls out and cums on your ass.'

				act 'Leave': gt 'parkKafe', 'end'
			end
		end
	else
		'You look at them intensely, but you don''t think they notice you.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	end
end

if $ARGS[0] = 'man':
	menu_off = 1
	cla
	gs 'stat'
	
	if hotcat >= 6:
		cla
		'A man walks up to you and invites you to dance.'

		gs 'willpower', 'sex', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				gs 'willpower', 'sex', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'parkKafe', 'end', 'cafe'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		act 'Dance':
			cla
			'He dances well and confidently leads you during your dance. After the dance comes to an end, you sit down at a table with him, he orders an expensive wine and various snacks, you start to relax as he showers you with gallant compliments.'
			'Your Cavalier invites you to the sauna.'

			act 'In the sauna':
				cla
				gs 'dinsexFX'
				gs 'npcgeneratec', 0, 'Respectable Man', rand(18,45)
				gs 'boyStat', $npclastgenerated
				dick = rand (12, 18)
				if pcs_hydra >= 100:
					pcs_hydra -= 5
				else
					pcs_hydra -= 10
				end
				silavag = 2

				if saunasex = 0:saunasex = 1 & guy += 1

				'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/cafe/sauna.jpg"></center>'
				'In the sauna you two are completely naked, having fun and enjoying yourselves.'
				dynamic $vagstart
				'The two of you have very passionate sex'
				dynamic $vagend

				act 'Leave': gt 'parkKafe', 'end', 'street'
			end
		end
	else
		'You stealthily glance at the respectable man, but it doesn''t look like he noticed you.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	end
end

if $ARGS[0] = 'woman':
	menu_off = 1
	cla
	gs 'stat'
	'You stealthily glance at the imperious woman, but she doesn''t seem to noticed you.'

	act 'Leave': gt 'parkKafe', 'end', 'cafe'
end

if $ARGS[0] = 'youth':
	menu_off = 1
	cla
	gs 'stat'
	
	if hotcat >= 4:
		'A tipsy young man approaches you and invites you to go and enjoy their company.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'

		act 'Go with him':
			cla
			'You joined their table and started talking with the cheerful and noisy group of young people. You had a good time and they invite you to continue having fun with them at a late night party held at their apartment.'
			
			gs 'willpower', 'drink', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Leave (<<will_cost>> Willpower)':
					gs 'willpower', 'drink', 'resist'
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					gt 'parkKafe', 'end'
				end
			else
				act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end

			act 'Party!':
				minut += 60
				cls
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/cafe/student.jpg"></center>'
				'You continue to enjoy yourself at the flat. As the night went on most people went home, you were left alone with one girl and six guys. The guys started kissing with the girl, eventually she got on her knees. The boys eagerly got their members out, the girl started stroking two of them with her hands, while the rest guys started masturbating in front of her face'
				
				gs 'willpower', 'bj', 'resist'
				if will_cost <= pcs_willpwr:
					act 'Leave (<<will_cost>> Willpower)':
						gs 'willpower', 'bj', 'resist'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						gt 'parkKafe', 'end', 'street'
					end
				else
					act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end

				act 'Join her':
					cls
					minut += 30
					pcs_horny += 20
					gs 'stat'

					if studentsex = 0:studentsex = 1 & guy += 6

					i = 0
					:partybj
					gs 'npcgeneratec', 0, 'Youth', rand(16,20)
					gs 'boyStat', $npclastgenerated
					spafinloc = 12
					gs 'cum_manage'
					swallow += 1
					stat['bj'] += 1
					i += 1
					if i >= 6:jump 'partybj'

					'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/cafe/student2.jpg"></center>'
					'The boys continued jerking off in front of your face, as you and the girl kept on caressing and licking their cocks. Finally they starting taking turns ejaculating in your mouth. The other girl also has her mouthful, she turns to you with a mouth full of sperm and tries to kiss you.'

					act 'Kiss her':
						cls
						minut += 15
						pcs_horny += 20
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/cafe/student3.jpg"></center>'
						'You kiss the girl, you both have mouths full of sperm and you are sharing it as you kiss, you finally get tired and you both swallow the cum in your mouths.'

						act 'Leave': gt 'parkKafe', 'end', 'street'
					end
				end
			end
		end
	else
		'You look at the group of snickering youths, but they don''t seem to notice you.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	end
end

if $ARGS[0] = 'negros':
	menu_off = 1
	cla
	gs 'stat'
	
	if hotcat >= 5 and afra < 1:
		afra = 1
		'A few of the Africans come over to your table, they are quite unrestrained, talking a lot in English, grabbing your back and chest. One of them introducing himself as DeMarcus, he tells you that they are all students from Africa and live in the dorm, he gives you directions on how to get to the hostel and find them.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	else
		'You stealthily glance at the Africans, but it looks like they overlooked you.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	end
end

if $ARGS[0] = 'the_boy':
	menu_off = 1
	cla
	gs 'stat'
	
	if hotcat >= 5 or gosh = 1:
		if gosh = 1:
			'You secretly look at the young boy. It''s Gosha, but it looks like he didn''t notice you.'

			act 'Leave': gt 'parkKafe', 'end', 'cafe'
		else
			gosh = 1
			'A young man comes to your table and introduces himself as Gosha, you become acquainted with him, you learn that he is a student and that he lives in the hostel. Gosha tells you how to get to the hostel and how to find his dorm.'

			act 'Leave': gt 'parkKafe', 'end', 'cafe'
		end
	elseif hotcat < 5 and gosh = 0:
		'You secretly look at the young boy, but it looks like he didn''t notice you.'

		act 'Leave': gt 'parkKafe', 'end', 'cafe'
	end
end

if $ARGS[0] = 'end':
	minut += 5
	gs 'stat'
	killvar 'pk_rand'
	killvar 'park_food'
	if $ARGS[1] = 'street':
		gt 'street'
	elseif $ARGS[1] = 'cafe':
		gt 'parkKafe', 'start'
	else
		gt 'park', 'start'
	end
end

--- ParkKafe ---------------------------------