glife/locations/anfisa_events.qsrc

# anfisa_events

anfisaday = daystart
if $ARGS[0] = 'start':
	*clr & cla
	minut += 5
	npc_QW['Anfisa'] = 1
	anfisa['horny'] = 70
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\walk'+iif(hotcat >= 6,1,2)+'.jpg"></center>'
	'Tanning, you'+iif(npc_QW['Anfisa'] = 1,' again notice', ' notice')+' a drunken girl wandering along the beach with a bottle of wine in her hand, idly inspecting the beach, as if looking for someone among holidaymakers. **'+iif(hotcat < 6,'She slowly walked past, without even looking at you. Apparently you are not the one whom she looks out for, ”Noticing your look, she, smiles back, comes up to you: ** <do>- Hi! Do you mind if I sit here?</do>','')
	if hotcat <= 5:
		act 'Further': gt 'city_nudelake'
	else
		act 'Of course not, Sit':
			npc_QW['Anfisa'] = 2
			*clr & cla
			'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk1.jpg"></center>'
			'The girl sinks into the sand next to you:"Hi, I''m Anfisa, what''s yours?" - she smiles broadly.'
			'"<<$pcs_firstname>>," but my friends calls me "<<$pcs_nickname>>" you respond.'
			'"<<$pcs_firstname>>..." she pauses, as if tasting and savoring the name,"So do I get to call you <<$pcs_nickname>>?"'
			act 'Sure':
				*clr & cla
				'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk2.jpg"></center>'
				'"Of course it''s possible" you smile back.'
				'"That''s great," brightens your newest acquaintance. "Shall we celebrate our new acquaintance?", She nods towards the bottle of wine at her feet.'
				act 'Why not':
					*clr & cla
					minut += 60
					gs 'drugs', 'alcohol', 'wine'
					gs 'stat'
					'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk3.jpg"></center>'
					'You both go find a quieter spot, away from prying eyes, and uncork the bottle. There are no cups - so you take turns drinking from the bottle, passing it back and forth, chatting merrily.'
					'After finishing the bottle, you relax, leaning against your new girlfriend. Suddenly you feel her hand gently stroking your back. And it is very nice!'
					act 'No reaction':
						*clr & cla
						'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\kiss1.jpg"></center>'
						'Seeing that you do not mind, Anfisa slowly brings her face to yours, your eyes meet. Another moment - and your lips merge in a hot kiss.'
						act 'Kiss': gt 'anfisa_events', 'kiss'
					end
					if pcs_horny < 70 and exhibitionist_lvl < 2:
						act 'I can''t':
							*clr & cla
							'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk4.jpg"></center>'
							'"Anfisa, no offense, but '+iif(lesbian = 0,' it''s not like that, I like boys')+'."'
							'"Okay, none taken," smiles Anfisa, winking at you." Maybe another time then, if you change your mind, you''ll find me here."'
							'She stands, waves goodbye and leaves.'
							act 'Watch her go': gt 'city_nudelake'
						end
					end
				end
				act 'Reluctantly no':
					*clr & cla
					minut += 10
					gs 'stat'
					'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk1.jpg"></center>'
					'"Reluctantly no." you answer her, "Just don''t be offended."'
					'"Oh well no so no", Anfisa smiles. "Maybe another time then, if you change your mind, you''ll find me here."'
					'Chating with you for another ten minutes or so, she stands, waves her hand in farewell, and wanders towards the exit'
					act 'Walk away': gt 'city_nudelake'
				end
			end
			act 'Not possible':
				*clr & cla
				'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk5.jpg"></center>'
				'"Well, you and the beech tree," Anfisa grins drunkly. "If you ever thaw, come find me."'
				'The girl rises, swaying, and waving her hand in farewell, wanders off'
				act 'Watch her go': gt 'city_nudelake'
			end
		end
		act 'No':
			*clr & cla
			npc_QW['Anfisa'] = 3
			'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk6.jpg"></center>'
			'"Well, We got one here." she sticks out her tongue and wanders off in search of adventure, leaving you alone.'
			act 'Further': gt 'city_nudelake'
		end
	end
end

if $ARGS[0] = 'alko':
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\walk2.jpg"></center>'
	'While sunbathing, you notice Anfisa, drunk, walking lazily along the beach, a bottle of wine in her hand. Seeing you, she''s delighted'
	'"Oh, hi, <<$pcs_nickname>>, you miss me?" and without waiting for an invitation, flops on the sand next to you.'
	act 'Smile':
		*clr & cla
		'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk2.jpg"></center>'
		'"Another boring day", Anfisa sighs and glances at you.'
		'"So, <<$pcs_nickname>>, can you keep me company?" she nods at the bottle of wine at her feet..'
		act 'Join her':
			*clr & cla
			minut += 60
			gs 'drugs', 'alcohol', 'wine'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk3.jpg"></center>'
			'You both go find a quieter spot, away from prying eyes, and uncork the bottle. There are no cups - so you take turns drinking from the bottle, passing it back and forth, chatting merrily.**After finishing the bottle, you relax, leaning against your new girlfriend. Suddenly you feel her hand gently stroking your back and it felt nice!'
			act 'Relax':
				*clr & cla
				'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\kiss1.jpg"></center>'
				'Seeing that you do not mind, Anfisa brings her face to yours, your eyes meet. Another moment - and your lips merge in a hot kiss.'
				act 'Kiss': gt 'anfisa_events', 'kiss'
			end
			if pcs_horny < 70 and exhibitionist_lvl < 2:
				act 'Move away':
					*clr & cla
					'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk4.jpg"></center>'
					'" Anfisa, no offense, but '+iif(lesbian = 0,' it''s not like that, I like boys')+'."'
					'"Okay, none taken," smiles Anfisa, winking at you.'
					'"Maybe another time then, if you change your mind, you''ll find me here."'
					'She stands, waves goodbye and leaves.'
					act 'Watch her go': gt 'city_nudelake'
				end
			end
		end
		act 'Not today':
			*clr & cla
			minut += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk1.jpg"></center>'
			'"No offense, but today, I''m just not feeling it" you tell her.'
			'"Oh well no so no" Anfisa smiles.'
			'"Maybe another time then, if you change your mind, you''l find me here."'
			'Chatting with you for a few more minuted, she stands, waves her hand in farewell, and wanders towards the exit'
			act 'Watch her leave': gt 'city_nudelake'
		end
	end
end

if $ARGS[0] = 'talk':
	*clr & cla
	minut += 60
	pcs_mood += 20
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\talk'+rand(8,9)+'.jpg"></center>'
	'For an hour, you and Anfisa sit, hugging, on the beach, just talking about all sorts of nonsence.'
	'"Oh, <<$pcs_nickname>>, look at the time," glancing at her watch, Anfisa catches herself.'
	'"I have to go." Quickly dressing and waving goodbye, she heads for the exit.'
	act 'Back to the beach': gt 'city_nudelake'
end

if $ARGS[0] = 'kiss':
	*clr & cla
	minut -= 5
	if anfisa['sex'] = 0: girl += 1
	anfisa['sex'] += 1
!	lesbian += 1
	protect = 1
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\tits'+iif(pcs_horny < 50,1,2)+'.jpg"></center>'
	'You and Anfisa passionately kiss, forgetting everything in the world. Her hands wander your '+iif(pcs_horny < 50,'','excited ')+'body, bringing pleasure. Tearing away from your lips, she drops below and puts her lips into your chest, caressing and teasing your nipple, '+iif(pcs_horny < 50,'and at the same time running your hand to your pussy, rubbing you in earnest','tearing from your lips a voluptuous moan')+'.'
	gs 'arousal', 'give_kiss', 5, 'lesbian'
	gs 'arousal', 'foreplay', 5, 'lesbian'
	gs 'stat'
	act 'Enjoy': gt 'anfisa_events', 'kuni'
end

if $ARGS[0] = 'kiss2':
	*clr & cla
	minut += 5
	if anfisa['sex'] = 0: girl += 1
	anfisa['sex'] += 1
!	lesbian += 1
	anfisa['horny'] += 5
	protect = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\tits'+iif(pcs_horny < 90,3,4)+'.jpg"></center>'
	'You break away from Anya''s lips and move down to her chest.'+iif(pcs_horny < 90,' licking a nipple by chance, you start playing with it, teasing it with the tip of your tongue, then gently licking in circular motions',' You literally bite her nipple, clasping your lips, and passionately caress them, then sucking hard, pulling the nipple ') +', enticing  moans of pleasure from deep within her.'
	act 'Go lower': gt 'anfisa_events', 'ukuni'
end

if $ARGS[0] = 'variant':
	cla
	$boy = 'Anfisa'
	dick = 10
	minut += 5
	protect = 1
	gs 'stat'
	if orgasm['you'] = 0 or orgasm['anfisa'] = 0:
		if pcs_horny > anfisa['horny'] and orgasm['anfisa'] = 0 or pcs_horny < anfisa['horny'] and orgasm['you'] = 1:
			act 'Lick her': gt 'anfisa_events', 'ukuni'
			act 'Fuck her with the bottle': gt 'anfisa_events', 'bvag'
			act 'Insert the bottle in her ass': gt 'anfisa_events', 'banal'
		elseif pcs_horny < anfisa['horny'] and orgasm['you'] = 0 or pcs_horny > anfisa['horny'] and orgasm['anfisa'] = 1:
			act 'Get licked': gt 'anfisa_events', 'kuni'
			act 'Get rimmed': gt 'anfisa_events', 'anuli'
			if pcs_vag >= 10:act 'Beg to be bottle-fucked': gt 'anfisa_events', 'ubvag'
			if pcs_ass >= 10 and rand(0,1) = 1:
				act 'Nod towards the bottle while spreading your asscheeks': gt 'anfisa_events', 'ubanal'
			else
				act 'Sit down on the bottle': gt 'anfisa_events', 'ubsit'
			end
		else
			act 'Trib': gt 'anfisa_events', 'sex'
		end
	else
		act 'Finish': gt 'anfisa_events', 'end'
	end
end

$text = ''
$text[1] = 'Burying your face between her legs, you'+iif(lesbian<20,' ineptly',' skillfully')+' lick her pussy by dragging your'+iif(lesbian<20,' inexperienced','') +' tongue along the entire length her slit'+iif(lesbian<20,'',', not forgetting the clitoris')+','
$text[2] = 'You'+iif(lesbian<20,' timidly','')+'kiss her pussy, sucking her labia, sometimes'+iif(lesbian <20,' your inexperienced tongue hits the clitoris ',' penetrating between them to lick the clitoris')+','
$text[3] = 'You'+iif(lesbian <20,' cautiously',' quickly')+' drive your'+iif(lesbian <20,' inexperienced',' skillful') + 'tongue from top to bottom, sliding'+iif(lesbian<20,' along the entire length of her pussy',' along her entire crotch')+','+iif(lesbian<20,' sometimes gently touching the clitoris', ' penetrating the vagina and caressing her clitoris')+','
$text[4] = 'With her fingers spreading your lips, she skillfully licks, running her tongue along the entire length of your pussy and tickling your clit,'
$text[5] = 'She kisses your pussy, sucking your lips, sometimes trying to insert a playful tongue into your <<$vaginatipe2>> vagina,'
$text[6] = 'She clearly is skillful as she licks your pussy, randomly making circular motions and gently teasing your clitoris,'
$text[7] = 'Spreading your ass cheeks with her fingers, she skillfully licks your <<$anustipe>> anus,'
$text[8] = 'She licks your anus, sometimes her playful tongue'+iif(anus <= 10,' trys to penetrate ',iif(anus <= 15,' penetrates',' easily penetrates '))+' your <<$anustipe3>> asshole, '
$text[9] = 'She takes energetic flicks at your ass with her tongue, sometimes pausing to give it a quick swirl'
$text[10] = 'You take the bottle and slide the neck into her pussy, she kisses you while with one hand controling the bottle the other caresses her breast,'
$text[11] = 'Using one hand to play with her nipples, you give her a passionate kiss while your free hand picks up the bottle, sticks it in her cunt and you start to bottle fuck her,'
$text[12] = 'You take the narrow end of the bottle and stick it in her well-excited cunt, moving it in and out, while caressing her breast with your other hand,'
$text[13] = 'You take the bottle,'+iif(lubri> 0,'apply some lube ', 'lick the neck, slobbering ') + 'on it, and gently insert it into her ass, fucking her with it, '
$text[14] = 'Taking a bottle in your hand, you'+iif(lubri> 0, 'squirt some lube on it', 'diligently lick its neck, trying to leave the maximum amount of saliva on it')+', and gently slide it into her ass, starting to fuck her with it, '
$text[15] = 'You take the bottle,'+iif(lubri> 0, 'apply some lube', 'spit on it good')+', and gently push it into her ass, starting to fuck her ass with it, '
$text[16] = iif(pcs_horny <60,' causing a storm of sensations in your belly.',iif(pcs_horny <80,' causing you to moan in pleasure.',' tearing groans of pleasure from your lips as you thrust your hips towards her.'))
$text[17] = iif(anfisa['horny'] <60, 'making her whole body shudder with every touch.',iif(anfisa['horny'] <80, ' bringing moans of pleasure from her lips.',' causing her to arch her body and moan passionately.'))
$text[18] = 'Gradually, a pleasant pulsating warmth builds up then ripples out from your sex, then these feelings overwhelm you, and your body is rocked with hot waves of orgasm. You involuntarily shout with pleasure, shaking and shuddering all over.'
$text[19] = 'After a while, her body trembling <<$boy>> archs up in orgasm, moaning loudly, no longer able to constrain herself.'
$text[20] = 'Gradually, pleasant warmth and pulsation increase in the lower abdomen, then sensations fall on you and your entire body is covered with hot waves of orgasm. At the same time, you notice that <<$boy>> trembled with all her body and her pussy began to throb rhythmically. She arches in orgasm and no longer containing herself groans in a high voice. '

if $ARGS[0] = 'ukuni':
	*clr & cla
	anfisa['horny'] += iif(lesbian < 20,10,20)
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\ukuni'+iif(anfisa['horny'] < 100,rand(1,3),4)+'.jpg"></center>'
	'You kiss her breasts, gradually descending lower and lower, until you reach her '+iif(anfisa['horny'] < 50,'',iif(anfisa['horny'] < 70,' excited',' inflamed'))+' pussy. '+$text[rand(1,3)] + $text[17] + $text[iif(anfisa['horny'] < 100,'',19)]
	gs 'arousal', 'cuni_give', 10, 'lesbian'
	gs 'stat'
	if anfisa['horny'] >= 100: orgasm['anfisa'] = 1 & anfisa['horny'] = 0
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'kuni':
	*clr & cla
	pcs_horny += rand(15,25)
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\kuni'+iif(pcs_horny < 100,rand(1,2),3)+'.jpg"></center>'
	'<<$boy>> holds her tongue over your thighs, kisses your mound and slides down to your vagina. '+$text[rand(4,6)] + $text[16] + $text[iif(pcs_horny < 100,'',18)]
	gs 'arousal', 'cuni', 10, 'lesbian'
	gs 'stat'
	if pcs_horny >= 100: pcs_horny = 0 & orgasm += 1 & orgasm['you'] = 1
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'anuli':
	*clr & cla
	pcs_horny += rand(10,20)
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\anuli'+iif(pcs_horny < 100,rand(1,3),rand(4,5))+'.jpg"></center>'
	$text[rand(7,9)] + $text[16] + $text[iif(pcs_horny < 100,'',18)]
	gs 'arousal', 'cuni', 10, 'lesbian'
	gs 'stat'
	if pcs_horny >= 100: pcs_horny = 0 & orgasm += 1 & orgasm['you'] = 1
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'bvag':
	*clr & cla
	anfisa['horny'] += 20
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\bvag'+iif(anfisa['horny'] < 100,rand(1,2),3)+'.jpg"></center>'
	$text[rand(10,12)] + $text[17] + $text[iif(anfisa['horny'] < 100,'',19)]
	if anfisa['horny'] >= 100: orgasm['anfisa'] = 1 & anfisa['horny'] = 0
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'banal':
	*clr & cla
	dick = 10
	i = rand(1,2)
	anfisa['horny'] += 10
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\banal'+iif(i = 1,iif(anfisa['horny'] < 100,1,2),iif(anfisa['horny'] < 100,rand(4,5),6))+'.jpg"></center>'
	$text[rand(13,15)] + $text[17] + $text[iif(anfisa['horny'] < 100,'',19)]
	if anfisa['horny'] >= 100: orgasm['anfisa'] = 1 & anfisa['horny'] = 0
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'ubvag':
	*clr & cla
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\ubvag'+iif(pcs_horny < 60,1,iif(pcs_horny < 80,2,iif(pcs_horny < 100,3,4)))+'.jpg"></center>'
	frost = 0
	orgasm['you'] = orgasm

	if vibratorIN = 1:vibratorIN = 0 & 'You remove your vibrator.'

	if pcs_horny/10 + vagina + alko < dick and lubri > 0:
		lubri -= 1
		lubonus += 5
		iif(rand(1,2) = 1,'You squeezed some lubricant into your hand and started rubbing your vagina with it.','Having squeezed out some lube, you began to carefully massage it into your pussy.')
	end

	if pcs_vag > 0:
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groan in pain when the <<$dick_girth>> bottle enters your pussy. Tears flow from your eyes and between your legs feels as if you drove in a red-hot rod<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bite your lip in pain when the <<$dick_girth>> bottle enters your pussy.  You feel pain between your legs<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ', even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You flinch at the sudden pain when the <<dick>>cm dildo enters your pussy, but the pain between your legs slowly calms down and becomes quite tolerable. You are trying to be excited while moving the <<$dick_girth>> bottle inside your pussy <<$temp_mens>>, you don''t want it to go out.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You flinch, from feeling your pussy being stretched, with a thrust from a <<$dick_girth>> bottle. Between your legs feels a little nice, when you fuck yourself with the bottle<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You flinch, from feeling your pussy being stretched, with a thrust from a <<$dick_girth>> bottle. Between your legs feels a little nice, when you fuck yourself with the bottle. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling subsides and feels nice until the end of<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You''re startled by a pleasant sensation, when your pussy ravishly starts taking the bottle. Between your legs becomes very warm, and you feel a pleasant sensation, when a strong <<$dick_girth>> bottle moves back and forth in your wet pussy<<$temp_mens>>. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling descends on you and your entire body is covered in hot waves of orgasm. You start giving out involuntarily shouts of pleasure while ravishing the bottle.'
		if (vgrdif + vltdif) <  -3: 'You feel the bottle penetrating your pussy. Between your legs feels nice, but the <<$dick_girth>> bottle is a bit too small for your pussy. Gradually, a warm and throbbing feeling grows in your lower abdomen, then the feeling slightly subsides and remains steady until the end of<<$temp_mens>>.'
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	else
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		'You bite your lip in pain while tears stream from your eyes when the bottle enters you, breaking your hymen. You cry out in pain and afterwards reveals a bloody bottle<<$temp_mens>>.'
		gs 'arousal','vaginal_dildo',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	killvar '$temp_mens'

	gs 'arousal', 'vaginal_dildo', 10, 'lesbian'
	gs 'stat'
	orgasm['you'] = iif(orgasm['you'] > orgasm,1,0)
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'ubanal':
	*clr & cla
	frost = 0
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\ubanal'+iif(pcs_horny < 100,rand(1,4),5)+'.jpg"></center>'
	if analplugin = 1:
		if pcs_ass < 16:
			'Anfisa pulls the plug out of your narrow and tight ass.'
			analplugout = 1 & analplugin = 0
		else
			'Anfisa pulls the plug out of your ass.'
			analplugout = 1 & analplugin = 0
		end
	end

	if lubri = 0:
		'Nobody has lube, so Anfisa drops a gob of spit onto your ass and rubs it around.'
		gs 'arousal', 'anal_finger', 1,'lube'
	else
		'Anfisa borrows your lube, squeezes some out and works it into your ass.'
		gs 'arousal', 'anal_finger', 1,'lube'
	end
	'Anfisa massages your anus with her fingers.'

	if pcs_ass < 10:'You groan in pain as she inserts three fingers into your ass.'
	if pcs_ass >= 10:'She start to stretch your asshole using three fingers.'

	'She pulls her fingers from your ass and replaces them with the bottle neck.'

	'She stops for a moment, giving your ass time to adjust, and then starts to slowly work it in, stretching you.'

	if (agrdif + altdif) >= 20:'You scream and bite your lip from a sharp pain when the bottle enters your ass.'
	if (agrdif + altdif) <  20:'You moan when the bottle enters your ass.'

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You feel like your anus is stretching when the bottle enters you. You start to moan rhythmically in unison with the bottle''s movements inside of you.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You moan in pleasure when the bottle moves inside your ass.'
	end
	gs 'arousal','anal_dildo', ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]

	gs 'arousal', 'anal_dildo', 10, 'lesbian'
	gs 'stat'
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'ubsit':
	*clr & cla
	dick = 10
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\ubsit'+iif(pcs_horny < 100,rand(1,2),3)+'.jpg"></center>'
	gs 'dinsex2', 'd_analsex_bottle'
	gs 'arousal', 'anal_dildo', 10, 'lesbian'
	gs 'stat'
	
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'sex':
	*clr & cla
	pcs_horny += rand(5,15)
	anfisa['horny'] += iif(lesbian < 20,5,15)
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\sex'+iif(pcs_horny < 100,1,2)+'.jpg"></center>'
	'You sit opposite each other, intertwining your legs until pussies are touching, and then start moving your hips caressing each other, ' + $text[16] + $text[iif(pcs_horny < 100,'',20)]
	if pcs_horny >= 100: pcs_horny = 0 & orgasm += 1 & orgasm['anfisa'] = 1 & orgasm['you'] = 1 & anfisa['horny'] = 0
	if anfisa['horny'] >= 100: orgasm['anfisa'] = 1 & anfisa['horny'] = 0
	gs'anfisa_events', 'variant'
end

if $ARGS[0] = 'end':
	*clr & cla
	minut += 15
	orgasm['you'] = 0
	orgasm['anfisa'] = 0
	protect = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="images\locations\city\residential\lake\sex\anfisa\end.jpg"></center>'
	if analplugout = 1:
		rand(1,3)
		if rand = 1:
			analplugin = 1
			'"One minute, hold still. Don''t forget this," Anfisa says as she inserts the plug back up your ass.'
			'She grins: "There that looks much better", as she gives your ass a playful slap' 
		end
		if rand = 2:
			analplugin = 1
			'You take your butt plug and put it back into your anus. You grin: "I just love how this looks...and feels"' 
		end
		if rand = 3:
			analplugin = 0
			'You take your butt plug and put it into your purse. Your anus has to rest for a while now.' 
		end
		killvar 'analplugout'
	end
	'You and Anfisa, tired but very satisfied, sit side by side for some time, resting and idly talking about all sorts of trivia. Finally, Anfisa, glancing at her watch, says that it''s time for her to go and begins to dress.
 '+iif(anfisa['sex'] = 1,'I''m usually here on the beach in good weather, come sometime','See you soon, <<$pcs_nickname>>')+', she tells you and smiles as she leaves.'
	act 'Watch her go': gt 'city_nudelake'
end


--- anfisa_events ---------------------------------