glife/locations/lezbsex.qsrc

# lezbsex
if $ARGS[0] = 'start':
	gs 'stat'
	girl += 1
	lesbian += 1
	picrand = rand(0, 1)

	if lezbsexhome = 1:
		$lezbsexname = $loverdesc[lover_number]
	else
		$lezbsexname = 'the girl'
	end
	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/lezbsexstart.jpg"></center>'
	xgt 'lezbsex', 'var'
end

if $ARGS[0] = 'startloverhome':
	lezbsexhome = 1
	pcs_horny += 10
	minut += 15
	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/lezbsexhome.jpg"></center>'

	'You spend some time with <<$loverdesc[lover_number]>> in the kitchen when she gets impatient and caresses you.'
	act 'Kiss her back and take her to the bedroom':
		loverrelation[lover_number] += 2
		gt 'lezbsex', 'start'
	end
	act 'Stop her and say goodbye':	
		loverrelation[lover_number] -= 4
		killvar 'lezbsexhome'
		gt 'homes_properties', 'go_straight_home'
	end
end

if $ARGS[0] = 'var':
	gs 'stat'

	if picrand ! 11:act 'Get eaten out':gt 'lezbsex', 'kuni'

	act 'Eat her out':gt 'lezbsex', 'ukuni'

	if picrand ! 12 and picrand ! 13 and picrand ! 14 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21:act 'Get a rimjob':gt 'lezbsex', 'anuli'
	if picrand ! 12 and picrand ! 13 and picrand ! 14 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21:act 'Give her a rimjob':gt 'lezbsex', 'uanuli'
	if strapon = 1 and picrand ! 11 and picrand ! 12 and picrand ! 13 and picrand ! 14 and picrand ! 15 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 19 and picrand ! 20 and picrand ! 21 and picrand ! 22:
		act 'Strapon-fuck her':gt 'lezbsex', 'svag'
		act 'Strapon-fuck her in the ass':gt 'lezbsex', 'sanal'
		act 'Get strapon-fucked':gt 'lezbsex', 'usvag'
		act 'Get strapon-fucked in the ass':gt 'lezbsex', 'usanal'
	end

	if dildo = 1 and picrand ! 12 and picrand ! 19 and picrand ! 20 and picrand ! 22:
		act 'Play with the dildo':gt 'lezbsex', 'dvag'

		if picrand ! 11 and picrand ! 15 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21:act 'Anal play with the dildo':gt 'lezbsex', 'danal'
		if picrand ! 11:act 'Let her play with the dildo':gt 'lezbsex', 'udvag'
		if picrand ! 11 and picrand ! 14 and picrand ! 15 and picrand ! 16 and picrand ! 17 and picrand ! 18 and picrand ! 21:act 'Let her put the dildo in your ass':gt 'lezbsex', 'udanal'
	end
end

if $ARGS[0] = 'ukuni':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/ukuni<<picrand>>.jpg"></center>'
	'You begin by kissing her breasts, moving gradually down her body, lower and lower, until you are facing her pussy. You start by gently caressing her swollen lips with up and down tongue lapping, up and down the swollen mound and moist slit, and getting ready to focus the tip of your tongue directly on her clitoris. Next, you part her outer lips with your fingers, spreading her pouty inner lips, giving you full access to her puffy pink clitoris.'

	gs 'arousal', 'cuni_give', 5, 'lesbian'
	gs 'arousal', 'vaginal_finger_give', 5, 'lesbian'
	minut -=5
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'kuni':
	cla
	*clr
	
	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/kuni<<picrand>>.jpg"></center>'
	'She begins by dragging her tongue up your thighs to your crotch and plants light kisses from the top of your slit down to the opening of your vagina.  Her tongue pushes into your slickened hole a few times, then slides back up your cunny to caress your tingling clitoris again.'

	gs 'arousal', 'cuni', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'anuli':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/anuli<<picrand>>.jpg"></center>'
	'She kisses your buttocks in ever-decreasing circles, eventually reaching the centre where your puckered anus is waiting. Reaching her goal, she licks all around the tender star to get it plenty moist, then firmly pushes her tongue forward, penetrating your ass with just the tip. Finally, she retracts it, again licking all around your anus, and repeats her tongue invasion into that most private entrance.'

	gs 'arousal', 'rimming', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'uanuli':
	cla
	*clr
	
	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/uanuli<<picrand>>.jpg"></center>'
	'You kiss her buttocks in ever-decreasing circles, eventually reaching the centre where her puckered anus is waiting. Reaching your goal, you lick all around the tender star to get it plenty moist, then firmly push your tongue forward, penetrating her ass with just the tip. Finally, you retract it, again licking all around her anus and repeating your tongue invasion into that most private entrance.'

	gs 'arousal', 'rimming_give', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'svag':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/svag<<picrand>>.jpg"></center>'
	'You put on the strap-on, adjusting it to your hips and centring it, and then insert it slowly into her pussy.  She moans and grinds back at you while you fuck her with it.'

	gs 'arousal', 'vaginal_strap_give', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'sanal':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/sanal<<picrand>>.jpg"></center>'
	'You suck on the shaft to get it well-lubed, then put on the strap-on and gently insert it into <<$lezbsexname>>''s anus, pressing into her slowly at first. Then, as she adjusts to the backdoor invasion, you push in and out, faster and faster.'

	gs 'arousal', 'anal_strap_give', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'usvag':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/usvag<<picrand>>.jpg"></center>'
	'You watch as she puts on the strap-on, adjusting it to her hips and centring the fake cock, and then she moves to you and inserts it slowly into your pussy.  You moan and grind back at her while she fucks you with it.'

	gs 'arousal', 'vaginal_strap', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'usanal':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/usanal<<picrand>>.jpg"></center>'
	'She spits on the crack of your ass, collecting some saliva to moisten the tip of the strap-on and slowly presses it against your pucker, firmly pushing it into you as you adjust to the invasion.  You feel the fullness of it as it moves in and out of your ass with every thrust, pumping faster and deeper.'

	gs 'arousal', 'anal_strap', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'dvag':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/dvag<<picrand>>.jpg"></center>'
	'You take a dildo and poke her wet pussy with it.  She pulls your face to hers and kisses you while you drive one shaft into her cunny with one hand and caress her breasts with a second dildo.'

	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'danal':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/danal<<picrand>>.jpg"></center>'
	'You take a dildo, ensuring that she''s watching you slowly lick it, trying to cover it with the maximum amount of your thick saliva, and gently insert it into  <<$lezbsexname>>''s anus.  At first, you ease it in slowly, getting her used to the invasion, then push it deeper, stroking it into her faster and faster.'

	gs 'arousal', 'anal_dildo_give', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'udvag':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/udvag<<picrand>>.jpg"></center>'
	'<<$lezbsexname>> inserts the dildo into your wet pussy, moving it in and out while constantly twisting and turning it in her hands to stimulate your love hole as much as possible.'
	
	gs 'arousal', 'vaginal_dildo', 5, 'lesbian'
	gs 'stat'

	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end


if $ARGS[0] = 'udanal':
	cla
	*clr

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/udanal<<picrand>>.jpg"></center>'
	'<<$lezbsexname>> spits in your asscrack, watching it slowly glide down to your pucker as she collects some of the saliva and rubs it all around the tip of the dildo before pressing it against your anus. You feel it stretching your puckered hole as it pushes farther inside, bringing you that unique back-door pleasure.'

	gs 'arousal', 'anal_dildo', 5, 'lesbian'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'end':
	cla
	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/lezbsexstart.jpg"></center>'
	'When you have finished playing, <<$lezbsexname>> thanks you for the excellent time and leaves.'
	act 'Leave':
		if gfsex = 1:
			killvar 'gfsex'
			gt 'dateF', $dateFType
		end
		if lezbsexhome = 1:
			killvar 'lezbsexhome'
			gt 'homes_properties', 'go_straight_home'
		end
		if $sexloc = 'stwork': gt 'stwork', 'start'
		if $sexloc = 'uni_dorm': gt 'uni_dorm', 'dorm_room'
		if picrand = 22:gt 'city_center'
		if picrand = 21:gt 'vann', 'start'
		if picrand = 19 or picrand = 20:gt 'office', 'work'

		gt $sexloc, 'start'
	end
end

--- lezbsex ---------------------------------