glife/locations/cafe3.qsrc

# cafe3

menu_off = 1

if $ARGS[0] = 'house':
	*clr & cla
	money += 100
	gs 'stat'
	'<<$boydesc>> pays your bill and hails a taxi.'
	'You sit down with him in the backseat of the cab <<$boydesc>> puts his hand on your knee and begins stroking it slowly getting closer towards your pussy.'
	gs 'arousal', 'foreplay', 15
	gs 'stat'
	
	act 'Enjoy caresses':
		cla
		
		'<<$boydesc>> made it to your pussy and starts to caress it with his fingers.'
		gs 'arousal', 'vaginal_finger', 15
		gs 'stat'

		act 'Try to remove his hands':
			cla
			'You try to remove his hands from your crotch, but <<$boydesc>> turns to you begins to fondle your breasts through your clothes with his hands.'
			gs 'arousal', 'foreplay', 15
			gs 'stat'
			
			act 'Continue':BDcafe = 1 & gt 'BDsex', 'start'
		end

		act 'Caress his cock':
			cla
			'You get into the guys pants and get hold of his <<dick>> centimeter dick and begin to caress it.'
			gs 'arousal', 'hj', 15, 'sub'
			gs 'stat'
			derand = rand(0, 100)

			if derand >= 95:
				'<<$boydesc>> groans and takes you by the neck, he then begins to move your face closer to his member.'

				act 'Suck it':
					cla
					*clr
					guy += 1
					gs 'stat'
					'<center><video autoplay loop src="images/shared/sex/blowjob/car.mp4"></video></center>'
					'You bend, bringing your face to his groin and your lips wrap around his cock and you start sucking him.'
					gs 'arousal', 'bj', 15, 'sub'
					gs 'stat'
					gs 'dinSex', 'std_trigger_oral'
					'Finally, the guy fills your mouth with his hot sperm you have nowhere to go so you swallow it. The taxi stopped and <<$boydesc>> you puts you out on the street.'
					swallow += 1
					sexpartkno = 1
					spafinloc = 12
					gs 'arousal', 'end'
					gs 'stat'
					gs 'cum_manage'

					act 'Leave':gt 'street'
				end

				act 'Try to remove his hands':
					cla
					'You tried to remove the guys hands from your head, but <<$boydesc>> turns to you and begins to fondle your breasts through your clothes with his hands.'
					gs 'arousal', 'foreplay', 15, 'sub'
					gs 'stat'
					
					act 'Continue':BDcafe = 1 & gt 'BDsex', 'start'
				end
			else
				act 'Continue':BDcafe = 1 & gt 'BDsex', 'start'
			end
		end
	end
	gs 'willpower', 'action', 'resist', 'medium'
	if will_cost <= pcs_willpwr:
		act 'Try to remove his hands (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			'You tried to remove his hands from your crotch, but <<$boydesc>> turns to you and begins to fondle your breasts through your clothes with his hands.'
			gs 'arousal', 'foreplay', 15, 'sub'
			gs 'stat'
			
			act 'Continue':BDcafe = 1 & gt 'BDsex', 'start'
		end
	else
		act 'Try to remove his hands (<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] = '0':
	*clr & cla
	minut += 15
	gs 'stat'
	gs 'dinsexFX'
	deyst = rand(1, 100)

	if deyst < 70:
		'<<$boydesc>> puts you on the bed and undresses.'
		dick = rand (8, 20)
		silavag = rand (0,2)
		deysts = rand(1, 3)

		if deysts = 1:
			guy += 1
			dynamic $vagstart
			picrand = rand(1, 5)
			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vagmis<<picrand>>.jpg"></center>'

			pose = 0
			'<<$boydesc>> pushes your legs apart and enters you.'
			dynamic $vagend
			gs 'arousal', 'vaginal', 15, 'sub'
			gs 'stat'

			act 'Leave':gt 'street'
		elseif deysts = 2:
			guy += 1
			dynamic $vagstart
			picrand = rand(1, 5)
			'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/vagdog<<picrand>>.jpg"></center>'
			'<<$boydesc>> helps you onto all fours and enters you.'

			pose = 1
			dynamic $vagend
			gs 'arousal', 'vaginal', 15, 'sub'
			gs 'stat'
			
			act 'Leave':gt 'street'
		elseif deysts = 3:
			guy += 1
			dynamic $vagstart
			picrand = rand(1, 5)
			'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/vagcow<<picrand>>.jpg"></center>'
			'<<$boydesc>> lays down on the bed and pulls you on top of him, you feel his penis enter you.'
			'His cock goes into you and you start to pump up and down on it.'
			pose = 0
			dynamic $vagend
			gs 'arousal', 'vaginal', 15, 'sub'
			gs 'stat'
			
			act 'Leave':gt 'street'
		end
	elseif deyst < 85:
		'<<$boydesc>> tells you that he wants you to suck it'
		gs 'willpower', 'bj', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Refuse (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'cafe3', '0'
			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	

		act 'Suck it':
			guy += 1
			picrand = rand(13, 22)
			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
			'<<$boydesc>> pulls out his dick'
			'You take his penis into your mouth and suck it.'
			'<<$boydesc>> moans that he''s about to finish.'
			gs 'arousal', 'bj', 15, 'sub'
			gs 'stat'

			act 'Remove from mouth':
				*clr
				cla
				bjrand = rand(1, 100)

				if bjrand < 50:'You have time to take his member out of your mouth, <<$boydesc>>s cum just misses you.'
				if bjrand >= 50:
					sexpartkno = 1
					spafinloc = 11
					gs 'cum_manage'
					'<<$boydesc>> ends on your face.'
					gs 'arousal', 'end'
					gs 'stat'
				
				end
				picrand = rand(11, 15)

				if bjrand >= 50 or repa = 6:'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial<<picrand>>.jpg"></center>'

				'You try to wipe off the sperm of your face, but that just makes it worse.'

				act 'Leave':gt 'street'
			end

			act 'Suck on':
				*clr
				cla

				picrand = rand(20, 29)
				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<picrand>>.jpg"></center>'
				'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
				act 'Swallow':
					cla
					swallow += 1
					sexpartkno = 1
					spafinloc = 12
					gs 'cum_manage'
					gs 'arousal', 'end'
					gs 'stat'
					'<<$boydesc>> looks at you as you swallow his sperm.'

					act 'Leave':gt 'street'
				end

				act 'Spit out':
					cla
					'You go into the bathroom and spit the cum into the basin.'
					sexpartkno = 1
					spafinloc = 12
					sexvolume = 2
					gs 'cum_manage'
					gs 'arousal', 'end'
					gs 'stat'

					act 'Leave':gt 'street'
				end
			end
		end
	else
		'<<$boydesc>> tells you that he wants to fuck your ass.'

		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Refuse (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'cafe3', '0'
			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	

		act 'Agree':
			cla
			guy += 1

			if lubri > 0:lubri = lubri - 1

			picrand = rand(1, 10)
			'<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal2<<picrand>>.jpg"></center>'
			'<<$boydesc>> bends you over and lubricates your ass with some cream, you feel like it''s boiling down into your tight anus.'
			'With a sharp pain his penis easily enters. <<$boydesc>> fucks you in the ass smoothly, careful not to damage anything.'
			'You feel like your anus is filled with a warm liquid. You get yourself up and into the bathroom then you get dressed.'
			sexpartkno = 1
			spafinloc = 3
			gs 'arousal', 'anal', 15, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			gs 'cum_manage'

			act 'Leave':gt 'street'
		end
	end
end

if $ARGS[0] = 'toilet':
	cla
	gs 'dinsexFX'
	'You went to the toilet with a guy, <<$boydesc>> you began to kiss and caress. Then he asks you to suck it.'

	gs 'willpower', 'bj', 'resist', 'medium'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			guy += 1
			dick = rand (8, 20)
			silavag = rand (0,2)
			dynamic $vagstart2
			'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/vagtualet.jpg"></center>'
			'You attempt to abandon your hot lover but he refuses, he turns your back to him and bends you forwards.'
			'You feel <<$boydesc>> bare your ass and something solid against your vagina.'
			'You''re fucked doggy style in the toilet.'
			dynamic $vagend
			gs 'arousal', 'vaginal', 15, 'sub', 'rough'
			gs 'arousal', 'end'
			gs 'stat'

			act 'Leave':gt 'kafe', 'start'
		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	

	act 'Suck it':
		cla
		guy += 1
		gs 'dinSex', 'std_trigger_oral'
		picrand = rand(13, 22)
		'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
		'<<$boydesc>> pulls out his dick'
			'You take his penis in your mouth and suck it.'
			'<<$boydesc>> moans that he''s about to finish.'
			gs 'arousal', 'bj', 15, 'sub'
			gs 'stat'

			act 'Remove from mouth':
			*clr & cla
			bjrand = rand(1, 100)

			if bjrand < 50: 'You have time to take his member out of your mouth, <<$boydesc>>s cum just misses you.'
			if bjrand >= 50:
				sexpartkno = 1
				spafinloc = 11
				gs 'cum_manage'
				'<<$boydesc>> ends on your face.'
				gs 'arousal', 'end'
				gs 'stat'
			end

			picrand = rand(11, 15)

			if bjrand >= 50 or repa = 6:'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial<<picrand>>.jpg"></center>'


			act 'Leave':gt 'kafe', 'start'
		end

		act 'Suck on':
			*clr & cla
			picrand = rand(20, 29)
			'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<picrand>>.jpg"></center>'
			'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
			act 'Swallow':
				cla
				swallow += 1
				sexpartkno = 1
				spafinloc = 12
				gs 'cum_manage'
				'<<$boydesc>> looks at you as you swallow his sperm.'
				gs 'arousal', 'end'
				gs 'stat'

				act 'Leave':gt 'kafe', 'start'
			end

			act 'Spit out':
				cla
				'You go into the bathroom and spit the cum into the basin.'
				sexpartkno = 1
				spafinloc = 12
				sexvolume = 2
				gs 'cum_manage'
				gs 'arousal', 'end'
				gs 'stat'
				
				act 'Leave':gt 'kafe', 'start'
			end
		end
	end
end

if $ARGS[0] = 'kompashka':
	cla
	gs 'dinSex', 'std_trigger'
	gs 'dinSex', 'std_trigger_oral'
	picrand = rand(1, 15)
	'<center><img <<$set_imgh>> src="images/shared/sex/group/gang<<picrand>>.jpg"></center>'
	'You are driving somewhere with the guys in a car. You''re drunk and you sit on the back seat with two guys finally, the machine stops and you get out of the car.'
	'They undress you, and you feel like you have been mislead. You try to say something but at this point a cock is inserted into your mouth.'
	'You are raped in all your holes and more than once. Heavily drunk, you can not concentrate and remember the details. With a vague feeling throughout your body, you remember hands and penises. Next thing you know you are outside your apartment.'
	$boydesc1 = $boydesc
	temp[1] = npc_dob[$boy]
	temp[1] = year - (temp[1] - (temp[1] mod 10000)) / 10000
	guy += 3
	temp = 4
	sexpartkno = 1
	:cafe3rapeloop
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 3
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 4
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 12
	gs 'cum_manage'
	sexvolume = 20
	spafinloc = 11
	gs 'cum_manage'
	temp -= 1
	gs 'npcgeneratec', 0, 'Rapist friend of <<$boydesc1>>', temp[1]
	gs 'boyStat', $npclastgenerated
	if temp > 0:
		jump 'cafe3rapeloop'
	end
	rape += 1
	gang += 1

	gs 'arousal', 'bj', 240, 'sub', 'gangbang', 'humiliation'
	gs 'arousal', 'hj', 240, 'sub', 'gangbang', 'humiliation'
	gs 'arousal', 'vaginal', 240, 'sub', 'gangbang', 'humiliation'
	gs 'arousal', 'anal', 240, 'sub', 'gangbang', 'humiliation' 
	minut -= 720
	gs 'arousal', 'end'
	gs 'stat'

	act 'Leave':gt 'street'
end

if $ARGS[0] = 'coffee':
	cla
	gs 'dinSex', 'std_trigger'
	guy += 1
	gs 'stat'
	gs 'dinsexFX'
	dick = rand (8, 20)
	silavag = rand (0,2)
	picrand = rand(1, 5)
	'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vagmis<<picrand>>.jpg"></center>'
	'<<$boydesc>> agrees to your proposal. You bring him home, there''s a long embrace and you snuggle on the bed.'
	dynamic $vagstart
	'You gaze into <<$boydesc>>s eyes and he enters with all his manly force.'
	pose = 0
	dynamic $vagend
	gs 'arousal', 'foreplay', 20
	gs 'arousal', 'vaginal', 20
	minut -= 20
	gs 'arousal', 'end'
	gs 'stat'

	act 'Show him out':gt 'Korr'
end

--- cafe3 ---------------------------------