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 begins to get impatient and starts caressing 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'
		dynamic $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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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.  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
	
	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/anuli<<picrand>>.jpg"></center>'
	'She kisses your buttocks in ever decreasing circles, eventually getting to the center 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.  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
	
	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/uanuli<<picrand>>.jpg"></center>'
	'You kiss her buttocks in ever decreasing circles, eventually getting to the center 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.  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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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 centering 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', 'dom'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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, and as she adjusts to the backdoor invasion you push in and out, faster and faster.'

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

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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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 centering 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', 'sub'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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', 'sub'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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 are driving one shaft into her cunny with one hand and caressing her breasts with a second dildo.'

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

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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/danal<<picrand>>.jpg"></center>'
	'You take a dildo, making sure she''s watching you as 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', 'sub'
	gs 'stat'
	
	act 'Continue': xgt 'lezbsex', 'var'
	act 'Finish': gt 'lezbsex', 'end'
end

if $ARGS[0] = 'udvag':
	cla
	*clr
	minut += 5
	pcs_horny += 10

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<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 with it.'

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


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

	if pcs_horny >= 80:
		pcs_horny = 0
		orgasm += 1
	end

	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/udanal<<picrand>>.jpg"></center>'
	'<<$lezbsexname>> spits in the crack of your ass, 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 at it pushes farther and farther inside, bringing you that unique back-door pleasure.'

	gs 'arousal', 'anal_dildo', 5, 'lesbian', 'sub'
	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 good time and leaves.'
	act 'Leave':
		if gfsex = 1:
			killvar 'gfsex'
			gt 'dateF', $dateFType
		end
		if lezbsexhome = 1:
			killvar 'lezbsexhome'
			dynamic $go_straight_home
		end
		if $sexloc = 'stwork': gt 'stwork', 'start'
		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 ---------------------------------