glife/locations/billsvid.qsrc

# billsvid

if $ARGS[0] = '':
	menu_off = 1
	$location_type = 'event'
	minut += 60
	bilrand = 0
	pcs_mood += 10
	bilsvidukiy = 0
	bilsvidkiy = 0
	gs 'stat'
	'<center><b>Pool</b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/0.jpg"></center>'
	'You and <<$telsob>> rent a booth'

	act 'Play':
		if $telsob = 'Alla':
			alla += 1

			if alla >= 20:
				bilrand = rand(0, 10)
				if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
				if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
				if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
			elseif alla < 20:
				gt 'billsvid', '3'
			end
		elseif $telsob = 'Masha':
			masha += 1

			if masha >= 20:
				bilrand = rand(0, 10)
				if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
				if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
				if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
			elseif masha < 20:
				gt 'billsvid', '3'
			end
		elseif $telsob = 'Kate':
			npc_rel['A219'] += 1

			if npc_rel['A219'] >= 20:
				bilrand = rand(0, 10)
				if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
				if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
				if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
			else
				gt 'billsvid', '3'
			end
		elseif $telsob = $loverdesc[lover_number]:
			!! date with girlfriend	
			loverrelation[lover_number] += 1
			
			if loverrelation[lover_number] >= 20:
				bilrand = rand(0, 10)
				if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
				if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
				if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
			else
				gt 'billsvid', '3'
			end
		end
	end
end

if $ARGS[0] = '1':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/1.jpg"></center>'
	'When you once again leaned over the table to play a shot, <<$telsob>> leans over and slips her hands on your hips, then upwards to cup your breasts.'

	gs 'arousal', 'foreplay', 5, 'lesbian'
	gs 'stat'
	
	gs 'willpower', 'cuni', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Not now <<$telsob>> (<<will_cost>> Willpower)':
			gs 'willpower', 'cuni', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'billsvid', '3'
		end
	else
		act 'Not now <<$telsob>> (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Kiss her':
		*clr & cla
		lesbian += 1
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/2.jpg"></center>'
		'You turn around and kiss her, in response <<$telsob>> quickly takes off her clothes, helps you strip and throws you against the table, you jump on it, and continue to kiss.'

		gs 'arousal', 'kiss', 5, 'lesbian'
		gs 'stat'
	
		act 'Lick her':gt 'billsvid', '10'
		gs 'willpower', 'cuni', 'force'
		if will_cost <= pcs_willpwr:
			act 'Get licked (<<will_cost>> Willpower)':
				gs 'willpower', 'cuni', 'force'
				gs 'willpower', 'pay', 'force'
				gs 'stat'
				gt 'billsvid', '11'
			end
		else
			act 'Get licked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
end

if $ARGS[0] = '10':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/4.jpg"></center>'
	'She leans over the table and squatting yourself behind her, you press your lips to her pussy. You kiss her and caress with your tongue until she came.'

	gs 'arousal', 'cuni_give', 5, 'lesbian'
	gs 'stat'
		
	gs 'willpower', 'cuni', 'force'
	if will_cost <= pcs_willpwr:
		act 'Get licked (<<will_cost>> Willpower)':
			gs 'willpower', 'cuni', 'force'
			gs 'willpower', 'pay', 'force'
			gs 'stat'
			gt 'billsvid', '11'
		end
	else
		act 'Get licked (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
	if bilsvidukiy = 0:act 'Ask her to play with a cue':gt 'billsvid', '13'
end

if $ARGS[0] = '11':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/3.jpg"></center>'
	'You stand in front of the table, legs spread, and <<$telsob>> dropping to her knees in front of you begins to kiss your pussy, but her tongue does not bring you to the desired state.'

	gs 'arousal', 'cuni', 5, 'lesbian'
	gs 'stat'
	
	act 'Lick her':gt 'billsvid', '10'

	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
	if bilsvidukiy = 0:
		gs 'willpower', 'sex', 'force'
		if will_cost <= pcs_willpwr:
			act 'Ask her to play with a cue (<<will_cost>> Willpower)':
				gs 'willpower', 'sex', 'force'
				gs 'willpower', 'pay', 'force'
				gs 'stat'
				gt 'billsvid', '13'
			end
		else
			act 'Ask her to play with a cue (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
end

if $ARGS[0] = '12':
	*clr & cla
	bilsvidkiy = 1
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/6.jpg"></center>'
	'<<$telsob>> climbs on the table and spreads her legs wide. Picking up the cue you deside to try and pot the pink in the middle pocket. <<$telsob>> diligently responds your movements and rhythm. A few minutes later collapsing on the table in a shuddering orgasm.'

	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian'
	gs 'stat'
	
	if bilsvidukiy = 0:
		gs 'willpower', 'sex', 'force'
		if will_cost <= pcs_willpwr:
			act 'Ask her to play with a cue (<<will_cost>> Willpower)':
				gs 'willpower', 'sex', 'force'
				gs 'willpower', 'pay', 'force'
				gs 'stat'
				gt 'billsvid', '13'
			end
		else
			act 'Ask her to play with a cue (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end

	act 'Finish':gt 'billsvid', '3'
end

if $ARGS[0] = '13':
	*clr & cla
	pcs_vag += 1

	bilsvidukiy = 1
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/5.jpg"></center>'
	'You sit on the edge of the table, throwing one leg on the table. "How''s my cueing action?" <<$telsob>> jokes as she dramatically uses her tongue to moisten her cue, before quickly inserting it into you pussy. You squeal in surprise. She diligently fucks you with the cue, turning it in different directions, you''re massaging your clitoris with a finger. After a few minutes pleasant sensations spread through your body and you float into a world of orgasm.'

	$orgasm_or = 'yes'
	gs 'arousal', 'vaginal_dildo', 5, 'lesbian'
	gs 'stat'
	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'

	act 'Finish':gt 'billsvid', '3'
end

if $ARGS[0] = '2':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/10.jpg"></center>'
	'During the game <<$telsob>> is constantly trying to put her arms around you, she wraps her hand around your hips, then casually touchs your chest.'

	gs 'arousal', 'foreplay', 5, 'lesbian'
	gs 'stat'
	
	gs 'willpower', 'cuni', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Continue to play <<$telsob>> (<<will_cost>> Willpower)':
			gs 'willpower', 'cuni', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'billsvid', '3'
		end
	else
		act 'Continue to play <<$telsob>> (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Kiss her':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/11.jpg"></center>'
		'When <<$telsob>> once again put her hand on your stomach, you move closer to her and kiss. Her hand immediately slipped under your clothes and massages your breast.'

		gs 'arousal', 'kiss', 5, 'lesbian'
		gs 'stat'
	
		act 'Proceed':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/12.jpg"></center>'
			'<<$telsob>> knelt down and taking off your clothes starts to kiss you down toward your crotch, until her tongue is under your pussy.'

			gs 'arousal', 'foreplay', 5, 'lesbian'
			gs 'stat'
	
			act 'Lick her':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/13.jpg"></center>'
				'Lifting her knee onto the table you kneel below her, pull her panties aside and begin to kiss her pussy, caress it with your tongue and suck it between your lips.'

				gs 'arousal', 'cuni_give', 5, 'lesbian'
				gs 'stat'
	
				act 'Proceed':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/14.jpg"></center>'
					'turning to face you, you help her onto the table and spreading her legs continue to caress her pussy with your tongue until she cums.'

					gs 'arousal', 'cuni_give', 5, 'lesbian'
					gs 'stat'
	
					act 'Your turn':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/15.jpg"></center>'
						'When <<$telsob>> has finished, you climb on the table and position your pussy right in front of her face, <<$telsob>> immediately begins to caress you with her lips, and parting you with her fingers she tries to thrust her tongue even deeper.'

						gs 'arousal', 'cuni', 5, 'lesbian'
						gs 'stat'
	
						act 'Lick her':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/16.jpg"></center>'
							'You turn around so that your face is above her pussy, and start licking her. In a few minutes you feel as her body shake and <<$telsob>> groans strongly pressing against your pussy, and then you are shrouded in pleasant waves of orgasm.'

							$orgasm_or = 'yes'
							gs 'arousal', 'cuni', 5, 'lesbian'
							gs 'stat'
							
							act 'Finish':gt 'billsvid', '3'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = '3':
	cla
	minut += 60
	gs 'arousal', 'end'
	gs 'stat'

	if $telsob = $loverdesc[lover_number]:
		'When you have finished playing, <<$telsob>> looks at you and waits for your next move.'
		act 'Say goodbye': gt 'torgcentr'
		act 'Invite her to your home': gt 'lezbsex', 'startloverhome'
	else
		'When you have finished playing, <<$telsob>> says that she needs to run and leaves.'
		act 'Leave': gt 'torgcentr'
	end
end

--- billsvid ---------------------------------