glife/locations/katjaEvDin.qsrc

# katjaEvDin
!2022/28/01

if $ARGS[0] = 'kiss':
	*clr & cla
	pcs_mood = 100
	gs 'arousal', 'kiss', 3
	katjaQW['horny'] += 10

	if katjaQW['QWstage'] < 3:
		if katjaQW['slut'] < 5:
			katjaQW['slut'] = 10
		else
			katjaQW['slut'] += 5
		end
		katjaQW['QWstage'] = 3
	end

	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/kiss.jpg"></center>'
	'You bring your face to Katja''s and feel her hot breath on your lips. Katja closes her eyes and touches her lips to your lips.'
	'Her nimble tongue darts into your mouth and you suck on her tongue before your tongue goes into Katja''s mouth and she very gently caresses it with her tongue.'
	'Katja finally pushes away from your flushed face and licks her lips.'

	if katjaQW['horny'] >= 60:
		'Katja moves her hands to your chest and gently touches them with her finger.'

		act 'Let her':
			*clr & cla
			gs 'arousal', 'foreplay', 3
			katjaQW['horny'] += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
			'Katja bares your breasts and touches them with her fingers before she bows her head and begins to lick your nipple.'
			gs 'KatjaEvDin', 'sex'
		end

		gs 'willpower', 'foreplay', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Remove her hands (<<will_cost>> Willpower)':
				*clr & cla
				gs 'arousal', 'foreplay', 3
				KatjaQW['dom'] -= 1
				katjaQW['horny'] -= 10
				katjaQW['horny'] = min(katjaQW['horny'], 60)
				gs 'willpower', 'pay', 'resist'
				gs 'arousal', 'end'
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
				'You remove her hands and smile at Katja.'

				act 'Further':
					if $loc = 'katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end
			end
		else
			act 'Remove her hands (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	elseif npc_sex['A14'] > 0:
		act 'Touch her chest':
			menu_off = 1
			*clr & cla
			gs 'arousal', 'foreplay_give', 3
			katjaQW['horny'] += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/touch.jpg"></center>'
			'You touch Katja''s tender breasts and she sighs deeply, biting her lip.'

			if katjaQW['horny'] < rand(0,60):
				'You play with her breasts a little before she moves away from you.'
				'"I''m not in the mood right now <<$pcs_nickname>>. Another time, maybe?"'

				act 'Accept Katja''s decision':
					gs 'arousal', 'end'
					gs 'stat'
					if $loc = 'katja_dorm':
						gt 'katja_dorm', 'talk'
					else
						gt 'KatjaHomeTalk'
					end
				end

				gs 'willpower', 'sex', 'force', 'hard'
				if will_cost <= pcs_willpwr:
					act 'Grab her (<<will_cost>> Willpower)':
						*clr & cla
						gs 'arousal', 'foreplay_give', 3
						KatjaQW['dom'] -= 1
						katjaQW['horny'] -= 10
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/grab.jpg"></center>'
						'You grab Katja firmly so she can''t back away.'
!!{
						if pcs_dom < KatjaQW['dom']:
							gs 'arousal', 'end'
							gs 'stat'
							'Katja pushes your arms apart and pulls away. You understand that she doesn''t want more.'

							if $loc = 'katja_dorm':
								act 'Stop talking': gt 'katja_dorm', 'start'
							elseif mey_vika['key'] = 1:
								Act 'Leave the room': gt 'mey_home', 'start'
							else
								act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
							end
						else}
							'Katja freezes in your arms and you stroke her body and kiss her neck.'

							act 'Lick her breast':
								*clr & cla
								gs 'arousal', 'foreplay_give', 3
								katjaQW['horny'] += 10
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits_katja_get.jpg"></center>'
								'You free Katja''s small, firm breasts from under her clothes and begin to lick them, paying special attention to her nipples. Katja closes her eyes in pleasure and bites her lip.'
								gs 'KatjaEvDin', 'sex'
							end
						end
!!					end
				else
					act 'Grab her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			else
				'Katja moves her hands to your breasts and gently touches them with her finger before she starts squeezing them and you feel her undoing your bra.'

				act 'Let her':
					*clr & cla
					gs 'arousal', 'foreplay', 3
					katjaQW['horny'] += 10
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
					'Katja bares your breasts and touches them with her fingers before she bows her head and begins to lick your nipple.'
					gs 'KatjaEvDin', 'sex'
				end

				act 'Ask her to stop':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/touch.jpg"></center>'
					'You ask Katja to stop, but she ignores you.'
					gs 'willpower', 'foreplay', 'resist', 'hard'

					act 'Give in to her touch':
						*clr & cla
						gs 'arousal', 'foreplay', 3
						KatjaQW['dom'] += 1
						katjaQW['horny'] += 10
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
						'Katja bares your breasts and touches them with her fingers before she bows her head and begins to lick your nipple.'
						gs 'KatjaEvDin', 'sex'
					end
					
					if will_cost <= pcs_willpwr:
						act 'Remove her hands (<<will_cost>> Willpower)':
							*clr & cla
							gs 'arousal', 'foreplay', 3
							KatjaQW['dom'] -= 1
							katjaQW['horny'] -= 10
							katjaQW['horny'] = min(katjaQW['horny'], 60)
							gs 'willpower', 'pay', 'resist'
							gs 'arousal', 'end'
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
							'You remove her hands and smile at Katja.'

							act 'Further':
								if $loc = 'katja_dorm':
									gt 'katja_dorm', 'talk'
								else
									gt 'KatjaHomeTalk'
								end
							end
						end
					else
						act 'Remove her 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
			end
		end
	else
		gs 'arousal', 'end'
		gs 'stat'
		'Katja turns and begins collecting books, pretending that nothing has happened.'

		act 'Talk about something else': 
			if $loc = 'katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
		if $loc = 'katja_dorm':
			act 'Stop talking': gt 'katja_dorm', 'start'
		elseif mey_vika['key'] = 1:
			Act 'Smile and leave the room': gt 'mey_home', 'start'
		else
			act 'Say goodbye and leave':gt 'pav_residential'
		end
	end
end

if $ARGS[0] = 'strapon_main':
	*clr & cla
	menu_off = 1
	gs'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_ready.jpg"></center>'
	!! Added a variable to check if you''ve given Katja an orgasm and are going for round 2 so that a different message will show.
	if KatjaQW['orgasm_day'] ! daystart:
		if katjaQW['horny'] < 20:
			'Katja looks calm and indifferent.'
		elseif katjaQW['horny'] < 40:
			'Katja looks at you with amusement.'
		elseif katjaQW['horny'] < 60:
			'Katja has a slight blush on her cheeks as she looks at you mischievously.'
		elseif katjaQW['horny'] < 80:
			'Katja blushes and languidly looks at you.'
		else
			'Katja''s face is flushed bright red and her chest heaves from deep breathing.'
		end
	else
		if katjaQW['horny'] < 20:
			'Katja looks calm and in control of her breathing again.'
		elseif katjaQW['horny'] < 40:
			'Katja looks at you with amusement. Her breathing seems to be almost back to normal.'
		elseif katjaQW['horny'] < 60:
			'Katja has a slight blush on her cheeks and she looks at you mischievously, still breathing a bit hard.'
		elseif katjaQW['horny'] < 80:
			'Katja blushes and languidly looks at you, obviously still unable to get her breath fully under control again.'
		else
			'Katja''s face is flushed red and her chest heaves from gulping down all the air she can manage. You delight in the fact that you pushed her over the edge so hard.'
		end
	end
	if katjaQW['horny'] > 10 and katjaQW['horny'] < 100:
		act 'Make Katja suck the strap-on': gt 'KatjaEvDin', 'strapon_bj'
		act 'Fuck Katja with the strap-on': gt 'KatjaEvDin', 'strapon_miss'
		act 'Fuck Katja in the ass with the strap-on': gt 'KatjaEvDin', 'strapon_anal'
	end

	if katjaQW['horny'] < 0:katjaQW['horny'] = 0
	gs 'arousal', 'end'

	act 'Get dressed and talk about something else':
		if $loc = 'katja_dorm':
			gt 'katja_dorm', 'talk'
		else
			gt 'KatjaHomeTalk'
		end
	end
	if $loc = 'katja_dorm':
		act 'Get dressed and stop talking': gt 'katja_dorm', 'start'
	elseif mey_vika['key'] = 1:
		Act 'Smile and leave the room': 
			gt 'mey_home', 'start'
		end
	else
		act 'Say goodbye and leave':
			minut += 5
			gt 'pav_residential'
		end
	end
end

if $ARGS[0] = 'strapon_bj':
	*clr & cla
	minut+=5
	gs'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_bj.jpg"></center>'
	'You grab a handful of Katja''s red hair and keep a good hold on it as you pull her face over to the strap-on and smack her lips with it a few times until she opens her mouth. Once her mouth is open, you slide it in and let her suck it before you buck your hips forward and start fucking her mouth and throat with the strap-on, your hand in her hair holding her head in place as you do so.'
	if katjaQW['strapon_bj'] = 0: katjaQW['strapon_bj'] = 1
	gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
	gs 'stat'

	if dick < npc_throat['A14']:
		katjaQW['slut'] += 1
		katjaQW['horny'] += 5
		'Katja expertly swallows the strap-on to the hilt. Her eyes water slightly, but she''s very practiced at deep throating and easily takes the dildo all the way down her throat.'
		gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
		gs 'stat'
	elseif dick < npc_throat['A14']*2:
		katjaQW['horny'] -= 5
		'Katja tries to accommodate the dildo plunging down her throat. Although she keeps gagging, her eyes shed tears and saliva drips from her mouth, she''s able to take it.'
	else
		katjaQW['horny'] -= 10
		'Katja tries to accommodate the dildo plunging down her throat, but she keeps gagging, her eyes shed tears, snot runs from her nose and saliva drips from her mouth.'
	end

	if dick > npc_throat['A14']: npc_throat['A14'] += 1

	if katjaQW['horny'] >= 100:
		katjaQW['horny'] = 0
		katjaQW['slut'] += 5
		KatjaQW['orgasm_day'] = daystart
		'Katja moans and bites her lip, looking like she''s already about to orgasm just from sucking the strap-on. "You look so pretty with that big cock slamming home in your throat baby!" you tell her as her hand darts to her clit and she starts to rub herself furiously. In mere seconds, she pushes herself over the edge and starts to tremble violently, all the while moaning around the dildo still pumping her throat.'
	end

	act 'Further':gt 'KatjaEvDin', 'strapon_main'
end

if $ARGS[0] = 'strapon_miss':
	*clr & cla
	gs'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_miss.jpg"></center>'
	'You lay Katja on her back and spread her legs before crawling between them and rubbing the dildo against her wet pussy. You slide it into her and start to fuck her, slowly working the dildo balls deep into her as you start to fuck her harder.'

	if katjaQW['strapon_vag'] = 0: katjaQW['strapon_vag'] = 1
	gs 'arousal', 'vaginal_strap_give', 5, 'lesbian', 'dom'
	gs 'stat'

	if npc_vag['A14'] < 1:
		'Katja groans and bites her lip in pain as the strap-on enters her. You glance down and notice blood on the strap-on. You just popped Katja''s cherry...'
		katjaQW['slut']-=10
		katjaQW['horny'] = 0
		npc_vag['A14'] += 3
	elseif dick > npc_vag['A14'] + 5:
		if npc_vag['A14'] < dick: npc_vag['A14'] += 1
		if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
		katjaQW['slut']-=1
		katjaQW['horny'] -= 10
		'Katja bites her lip and moans as you fuck her with the strap-on and she gradually starts to get into it. She winces from time to time from one of your hard thrusts into her, but she reluctantly tolerates it.'
	elseif dick > npc_vag['A14'] + 3 or katjaQW['horny'] < 10:
		if npc_vag['A14'] < dick: npc_vag['A14'] += 1
		if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
		katjaQW['horny'] += 5
		katjaQW['slut'] += 1
		'Katja bites her lip and moans as you fuck her with the strap-on and she gradually starts to get into it. She closes her eyes and enjoys the sensations.'
	else
		if npc_vag['A14'] < dick: npc_vag['A14'] += 1
		if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
		if rand(1,2) = 2:
			katjaQW['horny'] += 10
			'You fuck Katja hard and fast and she moans in an excited voice and rolls her eyes in pleasure.'
		else
			katjaQW['horny'] += 20
			'You fuck Katja hard and fast and she moans in an excited voice. "Faster, harder, deeper! Yes, fuck me! Pound me!"'
		end
		katjaQW['slut']+=1
	end

	if katjaQW['horny'] >= 100:
		katjaQW['horny'] = 0
		katjaQW['slut'] += 5
		KatjaQW['orgasm_day'] = daystart
		'Katja moans and bites her lip, looking like she''s already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds, you feel her starting to tremble violently. You let her ride out her orgasm while slowly pushing the dildo in and out of her a few more times, listening to her sweet moaning while she tries to regain her breath.'
	end

	act 'Further':gt 'KatjaEvDin', 'strapon_main'
end

if $ARGS[0] = 'strapon_anal':
	*clr & cla
	gs'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon_anal.jpg"></center>'
	'You roll Katja onto her stomach and spread her legs. Spreading her ass cheeks with your hands, you being to rub her anus with your fingers before grabbing a bottle of lube and lubing up your fingers. You slide two into her ass, stretching it a little while lubing it up. You then lube up the dildo before leaning over and sliding it slowly into her ass. You start slowly fucking her ass.'

	if katjaQW['strapon_ass'] = 0: katjaQW['strapon_ass'] = 1
	gs 'arousal', 'anal_strap_give', 5, 'lesbian', 'dom'
	gs 'stat'

	if npc_ass['A14'] <= 1:
		katjaQW['slut'] -= 5
		katjaQW['horny'] = 0
		'Katja squeals when you push the dildo into her very tight ass. Even with all the lube, it is very tight and difficult to work it deeper into her. She cries out in pain and tears flow from her eyes as you fuck her ass.'
	elseif dick > npc_ass['A14'] + 5:
		katjaQW['slut'] -= 1
		katjaQW['horny'] -= 30
		'It takes some effort to get the dildo to slide into Katja''s tight ass, but you slowly work your way down until you''re balls deep inside her, causing her to cry out in pain. Her hands grasp at the sheets tightly and she bites the pillow as you fuck her ass.'
	elseif dick > npc_ass['A14'] + 3 or katjaQW['horny'] < 10:
		katjaQW['horny'] -= 5
		'It takes a bit of effort to get the dildo to slide into Katja''s ass, but you slowly work your way down until you are balls deep inside her, causing her to cry out a little in pain. Her hands grasp at the sheets tightly, caught between intense pleasure and pain as her moans echo both sensations.'
	elseif dick > npc_ass['A14']:
		katjaQW['horny'] += 5
		'The dildo slides into Katja''s ass fairly easily, and you slowly work your way down until you''re balls deep inside her. She moans in pleasure as you roughly fuck her ass.'
	else
		katjaQW['horny'] += 10
		katjaQW['slut'] += 1
		'The strap-on easily slides into Katja''s ass all the way to the hilt. She moans in pleasure as you roughly fuck her ass.'
	end

	if npc_ass['A14'] < dick: npc_ass['A14'] += 1
	if npc_ass['A14']*2 < dick: npc_ass['A14'] += 1

	if katjaQW['horny'] >= 100:
		katjaQW['horny'] = 0
		katjaQW['slut'] += 5
		KatjaQW['orgasm_day'] = daystart
		'Katja moans and bites her lip, looking like she''s already about to orgasm. You lock gazes with her while you increase the pace of your thrusts. After only a few seconds, you feel her starting to tremble violently. You let her ride out her orgasm while slowly thrusting the dildo in and out of her a few more times, listening to her sweet moaning while she tries to regain her breath.'
	end

	act'Further':gt 'KatjaEvDin', 'strapon_main'
end

if $ARGS[0] = 'strapon_start':
	*clr & cla
	menu_off = 1
	gs'stat'
	if katjaQW['horny'] >= 100: katjaQW['horny'] = 80
	'You grab your handbag and pull out the toy.'
	act 'Strap it on':
		*clr & cla
		minut += 3
		gs 'boystat', 'D<<strapnumber>>'
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/strapon.jpg"></center>'
		'You put the strap-on harness on and buckle it in place as Katja bites her lip watching you.'
		act 'Make Katja suck the strap-on': gt 'KatjaEvDin', 'strapon_bj'
		act 'Fuck Katja with the strap-on': gt 'KatjaEvDin', 'strapon_miss'
		act 'Fuck Katja in the ass with the strap-on': gt 'KatjaEvDin', 'strapon_anal'
	end
end

if $ARGS[0] = 'sex':
	menu_off = 1
	act 'relax':
		*clr & cla
		if pcs_horny < 50:pcs_horny = 50
		gs 'stat'

		if katjaQW['slut'] >= 20:
			katjaQW['slut'] += 1
			'Katja puts her hand between your legs. You become aroused and your pussy becomes wet.'
			gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'dom'
			gs 'stat'

			act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'

		else
			katjaQW['slut'] += 1
			katjaQW['horny'] = min(katjaQW['horny'], 40)
			'Katja is embarrassed and pulls her hand away from you.'
			gs 'arousal', 'end'

			act 'Talk about something else':
				if $loc = 'katja_dorm':
					gt 'katja_dorm', 'talk'
				else
					gt 'KatjaHomeTalk'
				end
			end
			if $loc = 'katja_dorm':
				act 'Stop talking': gt 'katja_dorm', 'start'
			elseif mey_vika['key'] = 1:
				act 'Leave the room': 
					gt 'mey_home', 'start'
				end
			else
				act 'Say goodbye and go home':
					gt 'pav_residential'
				end
			end
		end
	end

	act 'Touch Katja between her legs':
		*clr & cla

		if pcs_horny < 50:pcs_horny = 50
		gs 'stat'

		if katjaQW['slut'] >= 20:
			katjaQW['slut'] += 1
			'You put your hand between her legs, feeling her wet pussy under her panties.'
			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'dom'
			gs 'stat'

			act 'Lick Katja': gt 'KatjaEvDin', 'kuni'
		else
			katjaQW['slut'] += 1
			katjaQW['horny'] = min(katjaQW['horny'], 40)
			'Katja is embarrassed and removes your hand.'

			act 'Talk about something else':
				gs 'arousal', 'end'
				if $loc = 'katja_dorm':
					gt 'katja_dorm', 'talk'
				else
					gt 'KatjaHomeTalk'
				end
			end
			if $loc = 'katja_dorm':
				act 'Stop talking': 
					gs 'arousal', 'end'
					gt 'katja_dorm', 'start'
				end
			elseif mey_vika['key'] = 1:
				act 'Leave the room': 
					gs 'arousal', 'end'
					gt 'mey_home', 'start'
				end
			else
				act 'Say goodbye and go home':
					gs 'arousal', 'end'
					gt 'pav_residential'
				end
			end
		end
	end

	!!This is for a scene of using a dildo on Katja. Such a scene is not yet written.
	!!if (katjaQW['slut'] >= 30) and katjaQW['horny'] >= 30 and mc_inventory['dildo_small'] > 0:
	!!	act 'Grab a dildo': gt 'KatjaEvDin', 'dildo'
	!!end

	if katjaQW['slut'] >= 40 and katjaQW['horny'] >= 40 and npc_sex['A14'] > 0 and mc_inventory['strapon'] > 0:
		act 'Get your strap-on': gt 'KatjaEvDin', 'strapon_start'
	end

	if katjaQW['slut'] >= 40 and katjaQW['horny'] >= 40 and npc_sex['A14'] > 0 and  katjaQW['fisted_vag'] > 0:
		act 'Use your fist on Katja': gt 'KatjaEvDin', 'fisting'
	end
end

if $ARGS[0] = 'kuni':
	*clr & cla
	menu_off = 1
	katjaQW['slut'] += 1
	katjaQW['horny'] = 0

	if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & katjaQW['slut'] += 5

	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
	'You lean in between Katja''s legs and begin to lick her pussy. She moans and closes her eyes, enjoying your tongue, and after a few minutes, she shivers and her pussy starts to contract rhythmically.'
	'Katja clutches your hair, no longer able to hold back as she moans loudly in orgasm. She then pushes your head away from her.'
	gs 'arousal', 'cuni_give', 5, 'lesbian'
	gs 'stat'

	if pcs_horny >= 50:
		'Katja smiles at you. "That was great <<$pcs_nickname>>. Spread your legs."'
		act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'
	else
		act 'Talk about something else':
			gs 'arousal', 'end'
			if $loc = 'katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
		if $loc = 'katja_dorm':
			act 'Stop talking': 
				gs 'arousal', 'end'
				gt 'katja_dorm', 'start'
			end
		elseif mey_vika['key'] = 1:
			act 'Leave the room': 
				gs 'arousal', 'end'
				gt 'mey_home', 'start'
			end
		else
			act 'Say goodbye and go home':
				gs 'arousal', 'end'
				gt 'pav_residential'
			end
		end
	end
end

if $ARGS[0] = 'fisting':
	*clr & cla
	menu_off = 1
	katjaQW['slut'] += 1
	katjaQW['horny'] = 0
	if npc_vag['A14'] < 33: 
		npc_vag['A14'] += 3
	else 
		npc_vag['A14'] = 36
	end
	if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & katjaQW['slut'] += 5

	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/home/fisting/fisting_repeat.jpg"></center>'
	'After making sure Katja is well lubed and ready, she lays back to spread her legs for you. As she massages her clit with a toy, you slide your fingers in one at a time, working them in, out and around, bringing her pleasure with each thrust. She cries out in orgasm more than once, which makes her more wet and ready.'
	'With a final push, you tuck your thumb in and curl your hand to slide it all the way in, till her netherlips clench around your wrist. You give her only a few moments of rest before twisting and thrusting your hand more vigorously within her pussy. It doesn''t take Katja long before her climax breaks again and she arches her back and attempts to keep her voice down as you continue to move your hand and fingers inside of her, but eventually, you slow down and slide your hand out of her.'
	'Katja tries to catch her breath as she continues to have aftershock orgasms, while you watch her pussy close slowly around something that isn''t there. Eventually, you climb up and lay next to her, holding her as she shakes with her final orgasms and kissing her softly until you are ready for something else...'
	gs 'arousal', 'vaginal_fist_give', 5, 'lesbian'
	gs 'stat'

	if pcs_horny >= 50:
		act 'Ask Katja to go down on you': gt 'KatjaEvDin', 'kuni_p'
	else
		act 'Talk about something else':
			gs 'arousal', 'end'
			if $loc = 'katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
		if $loc = 'katja_dorm':
			act 'Stop talking':
				gs 'arousal', 'end'
				gt 'katja_dorm', 'start'
			end
		elseif mey_vika['key'] = 1:
			act 'Leave the room': 
				gs 'arousal', 'end'
				gt 'mey_home', 'start'
			end
		else
			act 'Say goodbye and go home':
				gs 'arousal', 'end'
				gt 'pav_residential'
			end
		end
	end
end

if $ARGS[0] = 'kuni_p':
	*clr & cla
	menu_off = 1
	katjaQW['slut'] += 1

	if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & katjaQW['slut'] += 5

	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni.jpg"></center>'
	'Katja moves her head between your legs and you feel her tongue begin to toy with your clitoris, causing you to moan softly.'
	'After a while, you feel a sensation building inside you before it finds release and you''re in the throes of a powerful orgasm.'
	'Soon, the feeling becomes too much and you gently lift Katja''s head away from you.'

	$orgasm_or = 'yes'
	gs 'arousal', 'cuni', 5, 'lesbian', 'dom'
	gs 'stat'

	if katjaQW['horny'] > 0:
		'Katja smiles at you. "That was great <<$pcs_nickname>>. Come on now, my turn."'
		act 'Lick Katja': gt 'KatjaEvDin', 'kuni'
	else
		act 'Talk about something else':
			gs 'arousal', 'end'
			if $loc = 'katja_dorm':
				gt 'katja_dorm', 'talk'
			else
				gt 'KatjaHomeTalk'
			end
		end
		if $loc = 'katja_dorm':
			act 'Stop talking':
				gs 'arousal', 'end'
				gt 'katja_dorm', 'start'
			end
		elseif mey_vika['key'] = 1:
			act 'Leave the room': 
				gs 'arousal', 'end'
				gt 'mey_home', 'start'
			end
		else
			act 'Say goodbye and go home':
				gs 'arousal', 'end'
				gt 'pav_residential'
			end
		end
	end
end

!!New Katja pcs_dom stuff, this can only happen if the scene in KatjaHomeDin where Katja got you to go down on her and not return the favor happened.
!!anytime after that action when you go to Katja''s house and she is horny I am thinking 70+ this happens.
if $ARGS[0] = 'kuni_dom':
	*clr & cla
	menu_off = 1
	katjaQW['slut'] += 1
	katjaQW['horny'] = 0

	if npc_sex['A14'] = 0:npc_sex['A14'] = 1 & girl += 1 & katjaQW['slut'] += 5

	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
	'You lean in between Katja''s legs and begin to lick her pussy. She moans and closes her eyes, enjoying your tongue, and after a few minutes, she shivers and her pussy starts to contract rhythmically.'
	'Katja clutches your hair, no longer able to hold back as she moans loudly in orgasm. She then pushes your head away from her.'

	gs 'arousal', 'cuni_give', 5, 'lesbian', 'sub'
	gs 'stat'

	if pcs_horny >= 50:
		if katjaQW['dom'] < rand(-50,50) or (katjaQW['strapon_bj'] + katjaQW['strapon_vag'] + katjaQW['strapon_ass']) < 3:
			'Katja smiles at you. "That was great <<$pcs_nickname>>, spread your legs."'
			act 'Spread your legs': gt 'KatjaEvDin', 'kuni_p'
		else
			'She looks at you with a satisfied grin, aware you''re horny as well. She smiles at you with a mischievous look in her eye. "That was great <<$pcs_nickname>>, but I think that''s enough of that for today."'
			gs 'willpower', 'sex', 'resist', 'hard'
			if will_cost <= pcs_willpwr:
				act 'Say goodbye and go home (<<will_cost>> Willpower)':
					gs 'arousal', 'end'
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					if $loc = 'katja_dorm':
						gt 'uni_dorm', 'second_floor'
					else
						gt 'pav_residential'
					end
				end
			else
				act 'Say goodbye and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end	

			act 'Beg her to give you a turn':
				*clr & cla
				katjaQW['dom'] += 1
				pcs_horny += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/myturn.jpg"></center>'
				'You beg her to give you a turn, but she shakes her head. "Sorry <<$pcs_nickname>>, I''m just not in the mood to go down on you. If you really want something, I''ve got this..." She pulls out a strap-on harness with a rather large dildo attached to it and gives you a wicked grin. You can tell she is just itching to use it on you.'
				gs 'willpower', 'sex', 'resist', 'hard'
				if will_cost <= pcs_willpwr:
					act 'Decline and go home (<<will_cost>> Willpower)':
						gs 'arousal', 'end'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						if $loc = 'katja_dorm':
							gt 'uni_dorm', 'second_floor'
						else
							gt 'pav_residential'
						end
					end
				else
					act 'Decline and go home (<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':
					*clr & cla
					pcs_horny += 10
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katjanewtoy.jpg"></center>'
					'You bite your lower lip. You''re turned on at the idea of Katja using that to fuck you. You nod your head and start undressing as Katja grins and starts putting the harness on. "Sweet! This is going to be fun <<$pcs_nickname>>. I can''t wait to fuck you with this."'

					act 'Blowjob':
						*clr & cla
						gs 'stat'
						'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapbj.mp4"></video></center>'
						'As you get naked, she makes sure the harness is securely in place before she looks over at you and grins, swinging her hips back and forth to make the dildo swing along with her, which makes her giggle. After she amuses herself, she looks at you with a wicked grin and walks over.'
						'She grabs you by your hair, not too hard but not very gently either, pulls you off the bed and gets you down in front of her on your knees. Once you''re on your knees, she pushes the head of the dildo against your lips and slides it into your mouth. With a firm hold on your hair, she starts fucking your mouth and is soon ramming the dildo down your throat.'
						'No matter how used to being throat fucked you are, she makes you gag. She buries it to the base in your throat and leaves it there until you start to gag before going back to roughly fucking your mouth. Each time she makes you gag, you can hear her giggle, clearly enjoying herself.'
						'With tears running down your cheeks and saliva dripping from your mouth, she finally pulls your head away by your hair. "Okay, I think we got this wet enough, don''t you? Ready for round two?"'
						gs 'arousal', 'dildo_suck', 5, 'lesbian', 'sub', 'rough', 'deepthroat'
						gs 'stat'

						gs 'willpower', 'vaginal', 'resist', 'hard'
						if will_cost <= pcs_willpwr:
							act 'Decline and go home (<<will_cost>> Willpower)':
								gs 'arousal', 'end'
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								if $loc = 'katja_dorm':
									gt 'uni_dorm', 'second_floor'
								else
									gt 'pav_residential'
								end
							end
						else
							act 'Decline and go home (<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':
							*clr & cla
							pcs_horny += 15
							gs 'stat'
							'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapfuck.mp4"></video></center>'
							'You nod your head and Katja pulls you up to your feet by your hair. She grabs you on either side of the head and licks some of the saliva off your chin before slowly moving her tongue up to your mouth. You eagerly open your mouth and she gives you a passionate kiss, forcing her tongue into your mouth and then pushes you onto the bed. "That''s my good little fuck slut, now get on your hands and knees like a good little slut!" You get on all fours as she kneels down behind you and gives your ass a hard smack.'
							'She holds the dildo with one hand and starts rubbing it against your pussylips while using the other to grab your hair again and pull your head back as she slides the dildo into your wet pussy. She barely has the tip all the way in when she pulls back on your hair, forcing you to lean back as she thrusts her hips forward, shoving the dildo the full length of the dildo inside you.'
							'Before she even gives you a chance to get used to it, she starts roughly and furiously fucking you. Your moans get louder as the pleasure builds. "Yeah, you love this, don''t you bitch?!" 
							"Yes, yes please fuck me. Use me!" you moan back and she doubles her efforts before she finally pulls out of you, keeping hold of your hair as she drags you off the bed. She takes you over to her desk and bends you over it.'
							'"Reach back and pull those ass cheeks apart so I can fuck you in the ass!" she commands. You don''t know if you can resist her, you don''t know if you even want to.'
							gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub', 'rough'
							gs 'stat'

							gs 'willpower', 'anal', 'resist', 'hard'
							if will_cost <= pcs_willpwr:
								act 'Decline and go home (<<will_cost>> Willpower)':
									gs 'arousal', 'end'
									gs 'willpower', 'pay', 'resist'
									gs 'stat'
									if $loc = 'katja_dorm':
										gt 'uni_dorm', 'second_floor'
									else
										gt 'pav_residential'
									end
								end
							else
								act 'Decline and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
						
							act 'Surrender your ass':
								*clr & cla
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/katstrapanal.jpg"></center>'
								'You grab your ass cheeks and pull them apart. Almost at once, you feel the head of the dildo pressing against your asshole. "That''s my good little butt slut. We''ll have you trained in no time."'
								'With only the lubrication from your pussy, she slides it into your ass. She is gentle at first, working it in slowly as she thrusts in and out at a steady pace, gradually working it deeper and deeper into your ass. Once she has pushed the full length into your ass, she starts to pick up the pace and fuck you harder. You start moaning in a mixture of pleasure and pain.'
								'She keeps picking up speed and soon the sound of her hips slapping against your ass can be heard over your moaning. She seems to lose herself in the act and stops paying attention to you. You don''t think she would even notice if you orgasmed. After a good few minutes of this, she starts panting as she gets tired.'
								gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub', 'rough'
								
								if pcs_horny >= 100:
									$orgasm_or = 'yes'
									$orgasm_txt = 'It is then that your orgasm hits you. It is sudden and amazingly intense.'
									gs 'arousal', 'anal_strap', -1, 'lesbian', 'sub', 'rough'
								end
								gs 'arousal', 'end'
								gs 'stat'
								
								'Yet she doesn''t slow down her furious pace. Finally unable to keep it up anymore, she collapses on your back. You can feel her sweat on your back and her heavy breathing in your ear as she rests against you with the dildo still firmly up your ass.'
								'You take the time to rest and relax yourself, coming down from the pounding you just received. A few minutes later, she kisses your back and your neck before climbing off you and pulling the dildo out slowly. Getting up yourself, you see her taking the harness off and tossing it aside. You notice that her thighs are slick with sweat and her own juices. She grabs you by the neck and gives you a passionate, deep and very long kiss. "My god <<$pcs_nickname>>, that was amazing! I hope I didn''t hurt you too much and you enjoyed it as much as I did. No wonder boys fuck us like that, that was amazing!" she says upon breaking the kiss.'
								'She falls back on her bed, still breathing hard and looking at you with a somewhat possessive look as you lie down next to her. "It was wonderful. I''m glad you enjoyed it too, even if you were a little rough at times." She leans over and gives you another kiss. "Sorry, but that was beyond description. We''re going to have to do that again sometime." The two of you lay quietly for a while, basking in the aftermath. You know something in your relationship has changed and you think for the better. After a while, you get up and get dressed.'

								act 'Talk about something else':
									if $loc = 'katja_dorm':
										gt 'katja_dorm', 'talk'
									else
										gt 'KatjaHomeTalk'
									end
								end
								if $loc = 'katja_dorm':
									act 'Stop talking': gt 'katja_dorm', 'start'
								elseif mey_vika['key'] = 1:
									Act 'Leave the room': gt 'mey_home', 'start'
								else
									act 'Say goodbye and go home':gt 'pav_residential'
								end
							end
						end
					end
				end
			end
		end
	else
		gs 'arousal', 'end'
		if $loc = 'katja_dorm':
			act 'Stop talking': gt 'katja_dorm', 'start'
		elseif mey_vika['key'] = 1:
			Act 'Leave the room': gt 'mey_home', 'start'
		else
			act 'Say goodbye and go home':gt 'pav_residential'
		end
	end
end

!!School and dance actions
if $ARGS[0] = 'kiss_events':
	cla
	if katjaQW['school_kiss'] = 0:
		katjaQW['school_kiss'] += 1
		'As you kiss Katja, someone sighs loudly, probably appreciating the view. However, when you could break away from Katja''s lips, there is no one there.'
		if $loc = 'pav_disco':
			act 'Return to the dance': gt 'pav_disco'
		else
			act 'Continue': gt 'gschool_lessons', 'short_break'
		end
	elseif katjaQW['school_kiss'] = 1:
		katjaQW['school_kiss'] += 1
		if pcs_haircol = 0:
			$textEvent = 'fire in the night'
		elseif pcs_haircol = 1:
			$textEvent = 'the sun in the autumn sky'
		elseif pcs_haircol = 2:
			$textEvent = 'two intertwining flames'
		elseif pcs_haircol = 3:
			$textEvent = 'the sun at the dawn'
		else
			$textEvent = 'a fiery rainbow'
		end
		'As you kiss Katja, someone sighs loudly, probably appreciating the view.'
		'"Like <<$textEvent>>, you girls are just so a part of each other. Are all girls as close as the two of you?" You''re so surprised with this unexpectedly accurate comparison and turn to Ivan, who tenderly looks at you and Katja.'
		'"Thank you. And I don''t know." you reply. He sighs again and leaves misty-eyed.'
		if $loc = 'pav_disco':
			act 'Return to the dance': gt 'pav_disco'
		else
			act 'Continue': gt 'gschool_lessons', 'short_break'
		end
	elseif katjaQW['school_kiss'] >= 2:
		if ($loc = 'pav_disco' and discoenable['A3'] = 1) or $loc ! 'pav_disco':
			'As you kiss Katja, someone sighs loudly, probably appreciating the view.'
			'"How beautiful." It''s Ivan again; it seems like he was waiting for you or something. Not being distracted, you continue to kiss Katja.'
			'"Look, look! Lesbians!" one guy yells and points at you and Katja.'
			act 'Glare at the moron':gt 'katjaEvDin', 'moron'
		else
			act 'Return to dance': gt 'pav_disco'
		end
	end
end

if $ARGS[0] = 'moron':
	*clr
	cla
	'<center><img <<$set_imgh>> src="images/pc/reactions/glare.jpg"></center>'
	'You glare at the moron calling you lesbians.'
	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Sing a different tune (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'self'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/frenchkiss.jpg"></center>'
			'Looking at Ivan, then at this idiot, it seems that Ivan didn''t notice him. You sigh. "Is that really necessary? She is my best friend and we want to kiss. You just seem jealous!'
			'"Lesbians! Lesbians!" He continues to scream like a freak so much so that people begin to gather around to find out what''s happening. Ivan steps over next to you and puts his hand on your shoulder, giving the idiot a glare as well. Boosted by Ivan''s support, you continue. "We like boys, just not assholes like you!" With those words, you stand on your tiptoes and, clasping Ivan''s head in your hands, give him a long passionate kiss with lots of tongue.'

			act 'Kiss again':
				*clr
				cla
				if flag_KissEV = 0: flag_KissEV = 1
				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/prohorov_3.jpg"></center>'
				'"And I can kiss all the boys," you say under the joyous hubbub of guys gathering near you. You begin to kiss all the boys in succession, carefully avoiding the one that called you a lesbian.'
				'Seeing this, he seems offended. "The redhead doesn''t like guys, I bet." he says with a smirk, hoping Katja will kiss him to prove him wrong.'
				'"Wrong again loser!" Katja replies and just as you did she starts going around kissing the boys.'
				if $loc = 'pav_disco':
					'After kissing the last boy, you turn back and make sure Katja kisses all of them too. You now realize the guys are hoping for more and quickly drag Katja away before you accidentally start an orgy.'
					act 'Return to dance': gt 'pav_disco'
				else
					'Just as you kiss the last boy, you turn around to see how Katja is doing with her kissing, but the bell rings and you all rush to class.'
					act 'Continue': gt 'gschool_lessons', 'short_break'
				end
			end
		end
	else
		act 'Sing a different tune (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Keep silent':
		*clr
		cla
		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/punch.jpg"></center>'
		'Ivan turns to glare at the guy. "Shut the fuck up!" he says in a menacing tone.'
		'They snort at Ivan. "Lesbian lover."'
		'Ivan doesn''t reply, and just punches him in the face, dropping him with a single hit.'
		'A bit shocked but also pleased Ivan would defend you like that, you smile at him. "Thank you Ivan. Seriously, that was sweet." Katja just nods, dumbfounded.'
		'Ivan shrugs, looking a little embarrassed, but it''s obvious, he is pleased with himself.'
		act 'Thank Ivan':
			*clr & cla
			if katjaQW['sex_clossedness'] = 0 and katjaQW['boy_block'] !  1:
				if npc_sex['A3'] > 0 and npc_sex['A14'] > 0 and $loc ! 'pav_disco' and katjaQW['slut'] >= 40 and katjaQW['horny'] >= 40:
					if katjaQW['school_kiss'] =2: katjaQW['school_kiss'] = 3
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/whisper.jpg"></center>'
					'Approaching Ivan, you get up on your tiptoes and, clasping your arms around his neck, give him a kiss before whispering to him. "Like kissing girls?" Ivan replies with only a dumbfounded nod. "Well, then we can show you our appreciation, right Katja?"'
					'Katja nods, only half paying attention before she realizes what you said and looks at you and Ivan as her eyes light up with lustful fire. "Right."'
					act 'Hug Katja': gt 'katja_sex','prohorov_sex'
				else
					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/frenchkiss.jpg"></center>'
					'"Thank you, Ivan." You make out with him and he responds by passionately kissing you back before quickly leaving.'
					'"Well, these athletes are hot..." Katja says with a sigh while looking at Ivan''s ass as he walks away.'
					if knowKatjaPreg = 1:
						'You snort and look at Katja "Just what you need when you already have one inside."'
					else
						'You only snort at Katja''s words, although Ivan does have a fine-looking ass...'
					end
					if $loc = 'pav_disco':
						act 'Return to the dance': gt 'pav_disco'
					else
						act 'Continue': gt 'gschool_lessons', 'short_break'
					end
				end
			else
				'You give Ivan a quick hug and say "Thank you, Ivan" and Katja not holding back also says thank you to him and give him a hug.'
				if katjaQW['boy_block'] !  1:
					'"Well, these athletes are hot..." Katja says with a sigh while looking at Ivan''s ass as he walks away.'
					if knowKatjaPreg = 1:
						'You snort and look at Katja "Just what you need when you already have one inside."'
					else
						'You only snort at Katja''s words, although Ivan does have a fine-looking ass...'
					end
				end
				if $loc = 'pav_disco':
					act 'Return to the dance': gt 'pav_disco'
				else
					act 'Continue': gt 'gschool_lessons', 'short_break'
				end
			end
		end
	end
end

--- katjaEvDin ---------------------------------