glife/locations/KatjaHomeDin

# KatjaHomeDin
$katja_shower_kiss_home = {
	cls
	horny += 10
	KatjaLust += 10
	KatjaSlut += 1
	KatjaHorny += 10
	gs 'stat'
	'<center><img src="images/qwest/alter/katja/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.'

	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
		minut += 5
		horny += 10
		KatjaHorny -= 10
		KatjaLust += 1
		KatjaSlut += 1

		if npcSex[14] = 0:npcSex[14] = 1 & girl += 1 & KatjaSlut += 5 & KatjaLust += 5

		lesbian += 1
		orgasm += 1
		horny = 0
		gs 'stat'
		'<center><img src="images/qwest/alter/katja/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 forgeting about the clitoris. Soon bliss enveloped your entire body.'
		'You notice Katjas 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.'

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

	act 'Remove her hands':
		cls
		dom += 1
		minut += 5
		horny += 10
		KatjaDom -= 1
		KatjaHorny -= 10
		KatjaLust += 1
		gs 'stat'
		'<center><img src="images/qwest/alter/npc/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':gt $curloc
	end
}

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

	if kattalkrand = 0:
		if KatjaKnowBJ > 0:
			'"<<$name>>, tell me, how are you at sucking dick."'
		elseif KatjaKnowBJ = 0:
			'"<<$name>>, have you taken a guy in your mouth?"'
		end

		if bj > 0:
			act 'Tell her about blowjobs':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/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:
			'"<<$name>>, tell me how you fucked."'
		elseif KatjaKnowSex = 0:
			'"<<$name>>, have you had sex with a guy?"'
		end

		if sex > 0:
			act 'Tell her about sex':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/14.jpg"></center>'
				'You tell Katja you were having 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:
			'"<<$name>>, tell me how you took it in the ass."'
		elseif KatjaKnowAnal = 0:
			'"<<$name>>, have you had guys in your ass?"'
		end

		if anal > 0:
			act 'Tell her about anal':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				! WD: Uninitialised ~ 'KatjaKnowAnal'
				KatjaKnowAnal = 1
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/14.jpg"></center>'
				'You told Katja how you 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 KatjaKnowMastr > 0:
			'"<<$name>>, tell me how you masturbate."'
		elseif KatjaKnowMastr = 0:
			'"<<$name>>, do you masturbate?"'
		end

		if mastr > 0:
			act 'Tell how you masturbate':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				! WD: Uninitialised ~ 'KatjaKnowMastr'
				KatjaKnowMastr = 1
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/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/qwest/alter/katja/mastr.jpg"></center>'
						'Katja says, shs 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/qwest/alter/npc/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
		dom += 1
		KatjaDom -= 1
		gs 'stat'
		'You refused to speak with Katja about such topics. Katja looks confused and looking down mummbles. "Sorry, <<$name>>, I didn''t mean to hurt you."'

		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/qwest/alter/npc/14.jpg"></center>'
		'You move even closer to Katjas face.'

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

			if katjarand <= KatjaHorny + dom:
				dynamic $din_katja_kiss
			else
				KatjaHorny += 5
				'Katja giggles and pushes your face away from her.'

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

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

						if 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.'
							dynamic $din_katja_kiss
						end
					end
				end
			end
		elseif KatjaHorny >= 50:
			dynamic $din_katja_kiss
		end
	end
}

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