glife/locations/KatjaHomeDin

# KatjaHomeDin
$katja_shower_kiss_home = {
	cls
	KatjaLust += 10
	KatjaSlut += 1
	KatjaHorny += 10
	gs 'stat'
	'<center><img src="images/characters/pavlovsk/school/girl/katja/sex/school/showerkiss.jpg"></center>'
	'Katja gently hugs you with one hand and kisses you on the lips, you feel her soft palm on your naked pussy and her thin finger finds your clitoris begins to rub it.'
	
	gs 'arousal', 'kiss', 10, 'dom', 'lesbian'
	gs 'arousal', 'vaginal_finger', 10, 'dom', 'lesbian'
	minut -= 10
	gs 'stat'
	
	if KatjaSlut >= 10:
		'Katja, gently but firmly puts you on the edge of the tub.'
	elseif KatjaSlut < 10:
		'Katja gently caresses your clitoris with her fingers and her lips begin to kiss your neck, slowly making her way down.'
	end

	act 'Sit on the edge of the tub':
		cls
		KatjaHorny -= 10
		KatjaLust += 1
		KatjaSlut += 1

		if npcSex[14] = 0:npcSex[14] = 1 & girl += 1 & KatjaSlut += 5 & KatjaLust += 5
		
		gs 'stat'
		'<center><img src="images/characters/pavlovsk/school/girl/katja/sex/school/showersex.jpg"></center>'
		'You sat on the edge of the tub and open your legs to expose your wet pussy. Katja gets on her knees in front of you and gently licks your swollen red petals.'
		'Her tongue begins to briskly caress your pussy, not forgetting about the clitoris. Soon bliss enveloped your entire body.'
		'You notice Katja''s hand between her legs and get further turned on watching her pleasure herself while she pleasures you.'
		'Suddenly you are hit by a powerful orgasm, you feel like you might lose consciousness, your whole body bends and convulses and a hot wave washes over you.'

		$orgasm_or = 'yes'
		gs 'arousal', 'cuni', 10, 'dom', 'lesbian'
		gs 'stat'
	
		act 'Get out of the shower':
			gs 'arousal' 'end'
			gt $curloc
		end
	end

	act 'Remove her hands':
		cls
		pcs_dom += 1
		minut += 5
		pcs_horny += 10
		KatjaDom -= 1
		KatjaHorny -= 10
		KatjaLust += 1
		gs 'stat'
		'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
		'You remove her hands and smile at her. Then you dismiss Katja, who shyly looks to the floor and leaves the bathroom.'

		act 'Get out of the shower':
			gs 'arousal' 'end'
			gt $curloc
		end
	end
}

$d_katjaSextalk = {
	'Reddening Katja looks at you thoughtfully.'
	kattalkrand = rand(0, 4)

	if kattalkrand = 0:
		if KatjaKnowBJ > 0:
			'"<<$pcs_nickname>>, tell me, how are you at sucking dick."'
		elseif KatjaKnowBJ = 0:
			'"<<$pcs_nickname>>, have you ever given a guy a blowjob?"'
		end

		if stat['bj'] > 0:
			act 'Tell her about blowjobs':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				KatjaKnowBJ = 1
				gs 'stat'
				'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
				'You tell Katja how you sucked dick and what it felt like. Katja blushes and bites her lip.'

				act 'further':minut += 15 & gt 'KatjaHomeTalk'
			end
		end
	elseif kattalkrand = 1:
		if KatjaKnowSex > 0:
			'"<<$pcs_nickname>>, tell me how you have fucked."'
		elseif KatjaKnowSex = 0:
			'"<<$pcs_nickname>>, have you had sex with a guy?"'
		end

		if stat['vaginal'] > 0:
			act 'Tell her about sex':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				KatjaKnowSex = 1
				gs 'stat'
				'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
				'You tell Katja about the times you have had sex and how it felt. Katja blushes and bites her lip.'

				act 'further':minut += 15 & gt 'KatjaHomeTalk'
			end
		end

	elseif kattalkrand = 2:
		if KatjaKnowAnal > 0:
			'"<<$pcs_nickname>>, tell me how you took it in the ass."'
		elseif KatjaKnowAnal = 0:
			'"<<$pcs_nickname>>, have you ever had a guy stick it in your ass?"'
		end

		if stat['anal'] > 0:
			act 'Tell her about anal':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				KatjaKnowAnal = 1
				gs 'stat'
				'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
				'You told Katja about the times you have had anal sex and what it felt like. Katja blushes and bites her lip.'

				act 'further':minut += 15 & gt 'KatjaHomeTalk'
			end
		end
	elseif kattalkrand = 3:
		if KatjaKnowKuni > 0:
			'"<<$pcs_nickname>>, tell me how you lick pussy."'
		elseif KatjaKnowKuni = 0:
			'"<<$pcs_nickname>>, have you gone down on a girl?"'
		end

		if stat['cuni'] > 0 or lesbian > 0:
			act 'Tell her about licking pussy':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				KatjaKnowKuni = 1
				gs 'stat'
				'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
				'You tell Katja about the times you have had gone down on another girl and how it felt. Katja blushes and bites her lip.'

				if (pcs_dom - sub + 20) < KatjaDom:
					pcs_dom -= 2
					act 'Katja tells you to show her':
						cls
						minut += 15
						pcs_horny += 20
						KatjaHorny = 0
						KatjaLust += 5
						KatjaDom += 2
						katja_dom_sex = 1
						gs 'stat'
						'<center><img src="images/characters/pavlovsk/school/girl/katja/sex/school/kuni2.jpg"></center>'
						'Katja tells you to show her how you lick pussy, at first you are a bit confused and then you notice she is pulling her panties off. Once she has them off she opens her legs wide. "Go on <<$pcs_nickname>> show me how you do it, please."'
						'You pause a moment more in surprise then anything, but her glistening wet pussy is enough to convince you, you lean forward and places your face between her legs and begin to lick her pussy.'
						'You suck on her clit and slip your tongue inside of her, working her pussy for all you are worth. She begins to moan loudly and buck her hips grinding your face into her crotch. As she gets close to orgasm she grabs your hair and holds your face against her pussy, rubbing herself against your face as much as you are licking her, leaving your face coated in the juices from her pussy.'
						'Her orgasm hits her hard, leaving her unable to talk as her body spasms. Once Katja''s orgasm passes pass you lick her clean of all her pussy juices, making sure not to miss a single spot. When you raise up to look at Katja she has a smile but also a new look, you are not quite sure what it is, confidence maybe? "Well arn''t you just a good little girl." Then she kisses you deeply, breaking the kiss you start to lean back and spread your legs but she is already shaking her head no.'
						'"Sorry <<$pcs_nickname>> maybe next time, we need to finish our homework." She says sweetly, you pause a moment and then nod in understand and you see that new look intensify on her face as she smiles, while the two of you finish your homework.'

						gs 'arousal' 'cuni_give', 15, 'sub', 'lesbian'
						gs 'stat'
						
						act 'Further':
							gs 'arousal', 'end'
							gt 'KatjaHomeTalk'
						end
					end
				else
					act 'Further':minut += 15 & gt 'KatjaHomeTalk'
				end
			end
		end
	elseif kattalkrand = 4:
		if KatjaKnowMastr > 0:
			'"<<$pcs_nickname>>, tell me how you masturbate."'
		elseif KatjaKnowMastr = 0:
			'"<<$pcs_nickname>>, do you masturbate?"'
		end

		if stat['mast'] > 0:
			act 'Tell how you masturbate':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				! WD: Uninitialised ~ 'KatjaKnowMastr'
				KatjaKnowMastr = 1
				gs 'stat'
				'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
				'You tell Katja how you masturbate in the bathroom. Katja blushes and bites her lip.'

				if KatjaMastr = 0:
					act 'further':minut += 15 & gt 'KatjaHomeTalk'
				elseif KatjaMastr > 0:
					act 'further':
						cls
						KatjaLust += 5
						KatjaHorny += 10
						gs 'stat'
						'<center><img src="images/shared/sex/mast/mastr.jpg"></center>'
						'Katja says, she also masturbates, right here in the room, fondling herself between her legs.'

						act 'further':minut += 15 & gt 'KatjaHomeTalk'
					end
				end
			end

			if SelfFisting > 0:
				act 'Tell her how you stuck your fist in your ass':
					cls
					KatjaLust += 10
					KatjaHorny += 20

					if SelfFistingKnow = 0:SelfFistingKnow = 1

					gs 'stat'
					'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
					'You told Katja how you masturbate your ass and even managed to stretch it so much, that you can shove a fist into it.'
					'Katja blushes and bites her lip.'

					act 'further':minut += 15 & gt 'KatjaHomeTalk'
				end
			end
		end
	end

	act 'Refuse to talk about such topics':
		cls
		pcs_dom += 1
		KatjaDom -= 1
		gs 'stat'
		'You refused to speak with Katja about such topics. Katja looks confused and looking down mummbles. "Sorry, <<$pcs_nickname>>, I didn''t mean to pry."'

		act 'further':minut += 15 & gt 'KatjaHomeTalk'
	end
}

$d_katjahornykiss = {
	'Katja brings her face to yours, so close, that you can feel her hot breath on her skin.'

	act 'Bring your face close to hers':
		cls
		gs 'stat'
		'<center><img src="images/characters/pavlovsk/school/head/14.jpg"></center>'
		'You move even closer to Katja''s face.'

		if KatjaHorny < 50:
			katjarand = rand(0, 50)

			if katjarand <= KatjaHorny + pcs_dom:
				act 'Kiss': gt 'katjaEv', 'kiss'
			else
				KatjaHorny += 5
				'Katja giggles and pushes your face away from her.'

				act 'further':minut += 15 & gt 'KatjaHomeTalk'

				if pcs_dom > 0:
					act 'Seize Katja''s face':
						cls
						pcs_dom -= 1
						KatjaDom -= 5
						KatjaHorny -= 10
						KatjaLust += 1
						gs 'stat'
						'You wrapped your hands around her face and bring you lips to Katja''s.'

						if pcs_dom < KatjaDom:
							'Katja firmly takes your hands and removes them from her face, allowing you to understand, that she does not intend to kiss you.'

							act 'further':minut += 15 & gt 'KatjaHomeTalk'
						else
							'Katja looks into your eyes.'
							act 'Kiss': gt 'katjaEv', 'kiss'
						end
					end
				end
			end
		elseif KatjaHorny >= 50:
			act 'Kiss': gt 'katjaEv', 'kiss'
		end
	end
}

--- KatjaHomeDin ---------------------------------