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 hugged you with one hand and kissed him on the lips, you feel her soft palm lay naked on your pubis and her thin finger fingering your clitoris began to caress him.'

	if KatjaSlut >= 10:
		'Katja gently, but firmly puts you on the edge of the tub.'
	elseif KatjaSlut < 10:
		'Katja gently caresses your clitoris with your fingers and her lips begin to kiss your neck, wading all below.'
	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 pushed open his feet wet pussy. Katja vsala on his knees in front of you and gently licked your swollen red petals. Her tongue began briskly caress your pussy do not forget about the clitoris. Soon bliss enveloped your entire body. Have you noticed how Katja sklznula hand between her legs and began to move there. Suddenly you covered powerful orgasm from kotorgo you almost lose consciousness, your whole body bends in convulsions and hot wave blazhnstva cover 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 have removed her hands and smiled Katja fun. You domylis Katja shyly looked away and left the bathroom.'

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

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

	if kattalkrand = 0:
		if KatjaKnowBJ > 0:
			'- <<$name>>, tell, how are you sucking dick.'
		elseif KatjaKnowBJ = 0:
			'- <<$name>>, and you took in the mouth guys?'
		end

		if bj > 0:
			act 'Tell how you were doing blowjob':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/14.jpg"></center>'
				'You told Katja how you suck dick and that it felt. Katja blushed and bit her lip.'

				act 'further':minut += 15 & gt 'KatjaHomeTalk'
			end
		end
	elseif kattalkrand = 1:
		if KatjaKnowSex > 0:
			'- <<$name>>, tell, how you fucked.'
		elseif KatjaKnowSex = 0:
			'- <<$name>>, and you have fucked guys?'
		end

		if sex > 0:
			act 'Share how you have sex':
				cls
				KatjaLust += 5
				KatjaHorny += 10
				gs 'stat'
				'<center><img src="images/qwest/alter/npc/14.jpg"></center>'
				'Did you tell Katja you were having sex and that it felt. Katja blushed and bit her lip.'

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

	elseif kattalkrand = 2:
		if KatjaKnowAnal > 0:
			'- <<$name>>, tell, how you took in the ass.'
		elseif KatjaKnowAnal = 0:
			'- <<$name>>, and gave you guys in the ass?'
		end

		if anal > 0:
			act 'Tell how you gave in the ass':
				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 as you gave in the ass and that it felt. Katja blushed and bit her lip.'

				act 'further':minut += 15 & gt 'KatjaHomeTalk'
			end
		end
	elseif kattalkrand = 3:
		if KatjaKnowMastr > 0:
			'- <<$name>>, tell, as you mastrubiruesh.'
		elseif KatjaKnowMastr = 0:
			'- <<$name>>, and you mastrubiruesh?'
		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 told Katja how you masturbate in the bathroom. Katja blushed and bit 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 told, it also mastrubiruet, right there in the room fondling herself between her legs.'

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

			if SelfFisting > 0:
				act 'Tell yourself you are stuck his fist in the 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 her ass and even managed to stretch it so, that there can shove a fist. Katja blushed and bit her lip.'

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

	act 'Refuse to talk on such topics':
		cls
		dom += 1
		KatjaDom -= 1
		gs 'stat'
		'You refused to speak with Katja on such topics. Katja was confused and looked down "Sorry, <<$name>>, I did not want to hurt you."'

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

$d_katjahornykiss = {
	'Katja brought his face to your, like_this, that you could 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, to face Katja.'

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

			if katjarand <= KatjaHorny + dom:
				dynamic $din_katja_kiss
			else
				KatjaHorny += 5
				'Katja giggled and pushed his face away from your.'

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

				if dom > 0:
					act 'Seize face Katja':
						cls
						dom -= 1
						KatjaDom -= 5
						KatjaHorny -= 10
						KatjaLust += 1
						gs 'stat'
						'You wrapped around the face with his hands and Katja have brought his lips to hers.'

						if dom < KatjaDom:
							'Katja firmly took your hand and remove them from themselves, allowing you to understand, that it does not intend to kiss.'

							act 'further':minut += 15 & gt 'KatjaHomeTalk'
						else
							'Katja stopped looking into your eyes.'
							dynamic $din_katja_kiss
						end
					end
				end
			end
		elseif KatjaHorny >= 50:
			dynamic $din_katja_kiss
		end
	end
}

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