glife/sugarcube/src/npcs/family/stepfather/father.tw

:: father[event]
	<!-- !! Model used - anton nilsson-->
	<<set _location_dad = $npcs.location('A28')>>
	<<set $pc.fatherAge = $npc($npc_father).age>>

	<h2>Your stepfather, <<=$npc('A28').fullname>></h2>

	<<if _location_dad.activity.includes('dressingUp')>>
		<<image "characters/pavlovsk/resident/vladimir/dressSelect.jpg">>
		<p>
			<<npc 'A28'>><</npc>> is standing in front of the wardrobe, deciding what to wear today. "Not now, $pc.name_nick, I need to get dressed."
		</p>
	<<else>>
		<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
		
		<<=$npc($npc_father).notes>> He is $pc.fatherAge years old.
		/*<<fatherRep>>*/

		<<actCLA 'Ask for money'>>
			<<addtime 1>>
			<h2>Your stepfather, <<=$npc('A28').fullname>></h2>
			<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
			You ask your stepfather for some money, but he shakes his head in response: "I already gave my salary to your mother, go ask her."
			<<ret 'Move away'>>
		<</actCLA>>
	<</if>>

	<<ret>>

:: father_events
/*
<!-- !--------------------------------father comments on appearance changes-------------------------------------------------->
<!-- ! hair color-->
<<if getvar("$hcolfronce") == 0>>
	<<set $hcolfatherremember = $pc.hairColor>>
	<<set $hcolfronce = 1>>
<</if>>
<<if $hcolfatherremember != $pc.hairColor>>
	<<if $pc.hairColor == $pc.hairColorNatural>>
		<<set $texthcol = 'Or, rather, un-dyed your hair. So you decided to go back to your natural color?'>>
	<<elseif $pc.hairColor == 0>>
		<<set $texthcol = 'So you decided to go with black hair?'>>
	<<elseif $pc.hairColor == 1>>
		<<set $texthcol = 'So you decided to become a brunette?'>>
	<<elseif $pc.hairColor == 2>>
		<<set $texthcol = 'So you decided to become a brazen redhead?'>>
	<<elseif $pc.hairColor == 3>>
		<<set $texthcol = 'So you decided to become a blonde?'>>
	<</if>>
	<p>Your stepfather does a double take of you as he notices your hair. "Oh $pc.name_nick, I see you dyed your hair! $texthcol" It looks good on you. He takes one last look at your new hair and goes back to watching T.V.</p>
	<<set $hcolfatherremember = $pc.hairColor>>
<</if>>
<!-- ! tongue piercing-->
<<if $pc.decoGet('piercing','tongue') > 0 and $pc.decoGet('piercing','tongue') < 10000 and getvar("$pirsAfather") == 0 and $pirsadaytalk != $time.daystart>>
	<<set $pirseerand = rand(1,100)>>
	<<set $pirsadaytalk = $time.daystart>>
	<<if getvar("$pirseerand") >= 75>>
		<p>Your stepfather looks at your mouth with a curious look as you greet him. "$pc.name_nick, do you have something shiny in your mouth?"</p>
		<<actCLA '"No"'>>
			<p>You shake your head: "Umm, no! No I don't!"</p>
			You quickly turn away before he can get a good look at your tongue piercing.
			<<actCLA 'Move away'>>
				<<gt $location>>
			<</actCLA>>
		<</actCLA>>
		<<actCLA '"Yes, would you like to see it?"'>>
			<<set $pirsAfather = 1>>
			<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pirsA>>.jpg" ></center>
			You open your mouth and stick out your tongue and wiggle it at him showing him your piercing.
			<<if getvar("$TouchedByFather") == 0>>
				<p>Your stepfather shakes his head: "$pc.name_nick, tongue piercings are only for lewd women who use their mouth to please men."</p>

			<</if>>
			<<if getvar("$TouchedByFather") > 0>>
				Your stepfather grins: "Nice, I bet you could make someone feel really good with that..."

			<</if>>
			<<actCLA 'Move away'>>
				<<gt $location>>
			<</actCLA>>
		<</actCLA>>
		$exit
	<</if>>
<</if>>
<!-- ! lip piercing-->
<<if $pc.decoGet('piercing','lip') > 0 and $pc.decoGet('piercing','lip') < 10000 and getvar("$pirsBfather") == 0 and $pirsbdaytalk != $time.daystart>>
	<<set $pirsadbytalk = $time.daystart>>
	<p>Your stepfather takes a long look at your mouth, specifically at your new piercing. He seems confused and asks: "Why did you get that?"</p>
	<<actCLA '"Don`t you like it? I thought it looked kind of cute."'>>
		<<set $pirsBfather = 1>>
		<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pirsB>>.jpg" ></center>
		<p>You shrug. "I don't know... I just like the way lip rings look, so I got one. Don't you think it looks cute?"</p>
		<<if getvar("$TouchedByFather") == 0>>
			Your stepfather shakes his head: "Kids these days, always adding new holes to themselves..."

		<</if>>
		<<if getvar("$TouchedByFather") > 0>>
			Your stepfather grins: "I must admit, it does look sexy on you."

		<</if>>
		<<actCLA 'Move away'>>
			<<gt 'father'>>
		<</actCLA>>
	<</actCLA>>
	$exit
<</if>>
<!-- ! earrings-->
<<if $pc.decoGet('piercing','ears') > 0 and $pc.decoGet('piercing','ears') < 10000 and getvar("$pirsCfather") == 0>>
	<<set $pirsCfather = 1>>
	Your stepfather looks at your ears, noting your earrings: "I see you got your ears pierced. Your earrings are very cute."
<</if>>
<!-- ! nose ring-->
<<if $pc.decoGet('piercing','nose') > 0 and $pc.decoGet('piercing','nose') < 10000 and getvar("$pirsDfather") == 0>>
	<<set $pirsDfather = 1>>
	<p>Your stepfather looks a bit shocked at your nose ring: "Jesus, $pc.name_nick, what is- why?! I understand putting a ring in a bull's nose to lead them by, but on a person? There's no reason to do that!"</p>
<</if>>
<!-- ! eyebrow piercing-->
<<if $pc.decoGet('piercing','eyebrow') > 0 and $pc.decoGet('piercing','eyebrow') < 10000 and getvar("$pirsEfather") == 0>>
	<<set $pirsEfather = 1>>
	<p>Your stepfather looks surprised when he sees your eyebrow piercing: "$pc.name_nick, why would you want that thing in your eyebrow?" He shakes his head in exasperation. "Kids these days..."</p>
<</if>>
<!-- ! lip tattoo-->
<<if getvar("$tatlip") > 0 and getvar("$pc.fatherTatLip") == 0 and $npc('A28').rel >= 60>>
	<<actCLA 'Show him your lip tattoo'>>
		<<set $pc.fatherTatLip = 1>>
		<<set $time.minutes += 1>>
		<center><img <<$set_imgh>> src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg" ></center>
		<<if getvar("$tatlip") == 2>>
			<<set $textFatherTatLip = 'A tattoo on the inside of your lip?! That must`ve hurt like hell... it is cute, though.'>>

		<</if>>
		<<if getvar("$tatlip") != 2>>
			<<set $textFatherTatLip = 'That`s crazy! Why would you get something like that written on you, much less there?! No one would even think of doing that when I was your age.'>>

		<</if>>
		<p>You pull your lip down, showing your stepfather the tattoo on the inside of your lip. Your stepfather looks surprised: "$textFatherTatLip"</p>
		<<actCLA 'Move away'>>
			<<gt $location>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<<if $wardrobe.clothingworntype == 'nude' and $npc('A28').pregtalk == 0 and func('body_din','pregnancyVisibility') == 1>>
	<p>Your stepfather looks at your belly with a surprised look on his face. He shakes his head in disappointment before looking back at you.: "$pc.name_nick, you're pregnant?"</p>
	<<if $npc('A28').sex != 0>>
		<p>You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "All i can say is that i hope the baby is not mine... i'm so disappointed in you "$pc.name_nick"</p>

	<</if>>
	<<set $npc('A28').pregtalk = 1>>
<<elseif $wardrobe.clothingworntype != 'nude' and $npc('A28').pregtalk == 0 and func('body_din','pregnancyVisibility') == 1>>
	<p>Your stepfather looks at your belly with a surprised look on his face. He shakes his head in disappointment before looking back at you.: "$pc.name_nick, you're pregnant?"</p>
	<<if $npc('A28').sex != 0>>
		<p>You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "All i can say is that i hope that the baby is not mine... i'm so disappointed in you "$pc.name_nick"</p>

	<</if>>
	<<set $npc('A28').pregtalk = 1>>
<</if>>
<!-- !!----------------------------------------end reaction block----------------------------------------------->
<<if $time.weekday < 6 and (($time.hour == 8 and $time.minutes > 30) or $time.hour >= 9) and $time.hour < 17>>
	<p>"Alright $pc.name_nick. I need to leave for work now or i'll be late. See you later."</p>
	<<actCLA '<B>Continue</B>'>>
		<<gt $location>>
	<</actCLA>>
	$exit
<</if>>
<<if $time.hour >= 22>>
	<p>"Alright $pc.name_nick. It's getting late, I need to get to bed. See you tomorrow."</p>
	<<actCLA '<B>Continue</B>'>>
		<<gt $location>>
	<</actCLA>>
	$exit
<</if>>
<<actCLA 'Chat'>>
	<<gt 'father_chat'>>
<</actCLA>>
<<if ($time.hour > 10 and $time.weekday < 6) or $time.weekday >= 6>>
	<<if $pc.isSchoolStudent>>*/
		<<actCLA 'Ask for money'>>
			<<addtime 2>>

			<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
			<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
			/*Your stepfather is sitting on the couch, watching some boring TV show. You sit down next to him.
			<<fatherRep>>*/
			<<ret 'Move away'>>
			/*
			<<if $pc.fatherPayDay == $time.daystart>>
				<p>Trying your cutest face on your stepfather, you ask him for some money. He just shakes his head wearily: "No, $pc.name_nick. I've already given you some money today, don't be greedy."</p>
			<<else>>
				<<if (npc_rel['A28'] <= 40 or pcs_apprnc + ($npc('A28').rel / 10)) <= 60 and getvar("$TouchedByFather") == 0>>*/
					You ask your stepfather for some money, but he shakes his head in response: "I already gave my salary to your mother, go ask her."
				/*<<else>>
					You ask your stepfather for some money, but he shakes his head in response: "I already gave my salary to your mother, go ask her."
					<<if $npc('A28').rel >= 40 and $npc('A28').rel < 60 and $pc.fatherPayDay != $time.daystart>>
						<<set $FatherMolest = rand(1,4)>>

					<</if>>
					<<if $npc('A28').rel >= 60 and $npc('A28').rel < 80 and $pc.fatherPayDay != $time.daystart>>
						<<set $FatherMolest = rand(1,2)>>

					<</if>>
					<<if $npc('A28').rel >= 80 and $pc.fatherPayDay != $time.daystart>>
						<<set $FatherMolest = 1>>

					<</if>>
					<<if getvar("$FatherMolest") == 1>>
						While you're talking with him, you notice your stepfather is in a good mood today. Perhaps you can persuade him...
						<<actCLA '"Oh please?"'>>
							<<set $menu_off = 1>>
							<<set $time.minutes += 5>>
							<<set $pc.horny += rand(1,5)>>
							<p>"Oh come on, please Daddy?" you beg him, batting your eyelids and trying to look as cute as possible.</p>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 200>>
								<<set $pc.fatherLust = 1>>
							<<elseif $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 120>>
								<<set $pc.fatherLust = rand(1,2)>>
							<<elseif $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 60>>
								<<set $pc.fatherLust = rand(1,4)>>
							<<else>>
								<<set $pc.fatherLust = 2>>
							<</if>>
							<<if getvar("$pc.fatherLust") >= 2>>
								<p>"Sorry $pc.name_nick, like I said, I have no money. Go ask your mother."</p>
							<<else>>
								<<set $finances.cash += rand(200,300)>>
								<<run $pc.skillExperienceGain('persuasion',rand(0,2))>>
								<<set $pc.fatherPayDay = $time.daystart>>
								<p>"Oh, alright then. Just don't tell your mother!" he says in a tired voice, keeping his eyes on the doorway as he gives you the money. You act genuinely happy as you take the money from him, giving him a kiss on the cheek as you go.</p>
							<</if>>
							<<actCLA 'Move away'>>
								<<gt $location>>
							<</actCLA>>
						<</actCLA>>
						<<if $npc('A28').sex != 0>>
							<<actCLA 'Blackmail him'>>
								<<set $menu_off = 1>>
								<<set $time.minutes += 5>>
								<<set $finances.cash += rand(300,500)>>
								<<set $pc.fatherPayDay = $time.daystart>>
								<p>"Aren't you forgetting something?" you say in a serious voice, referring to your recent intimate moments with him.</p>
								Your stepfather is clearly embarrassed by this, and surprised at you for bringing it up. He clears his throat loudly, and the following silence makes you feel slightly uncomfortable. Nevertheless, he reaches for his wallet.
								<p>"Here you go, you leech! You know you shouldn't be taking advantage of me like that! Here, take your money and get out of here. Just keep your mouth shut!" You nod and pocket the money, feeling slightly worse for blackmailing him for it.</p>
								<<actCLA 'Move away'>>
									<<gt $location>>
								<</actCLA>>
							<</actCLA>>
						<</if>>
					<</if>>
					<<if getvar("$FatherMolest") > 1>>
						<p>"$pc.name_nick, I already said no."</p>

					<</if>>
				<</if>>
			<</if>>*/
		<</actCLA>>
	/*<</if>>*/
	/*<<actCLA 'Ask about him and your mother'>>
		<<set $menu_off = 1>>
		<<set $time.minutes += 5>>

		<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
		<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
		You ask your stepfather how he met your mother. Your stepfather scratches his slightly balding head and replies: "I used to work as a taxi driver back then, drove your mother to places from time to time and we got along very well. Natasha is a strong and independant woman, raising you and Anya all by herself after she left your father. I didn''t know him very well, I've only met him a couple of times. All I know is that his name is Mikhail Kuznetsov, and that he moved to a different city soon after he and your mother divorced."
		<<actCLA 'Move away'>>
			<<gt 'father'>>
		<</actCLA>>
	<</actCLA>>
	<<actCLA 'Ask about his work'>>
		<<set $menu_off = 1>>
		<<set $time.minutes += 5>>

		<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
		<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
		<p>You ask your stepfather about his work. Your stepfather reaches for his aching joints, with a grimace on his face. "I used to be a taxi driver. It was hard work though, often working many hours a day, and it could be dangerous too. With some money we saved up I bought a Gazelle pickup truck, and now I drive that selling goods and making deliveries. As you know I have two garages; one for our Volga, and the other one for the Gazelle."</p>
		<<actCLA 'Move away'>>
			<<gt 'father'>>
		<</actCLA>>
	<</actCLA>>
	<<if getvar("$motherKnowSpravka") == 1 and $npc('A28').sex == 0 and $pc.isSchoolStudent>>
		<<set $menu_off = 1>>
		<<set $npc('A28').rel = 0>>
		<<set $motherKnowSpravka = 2>>
		<p>Your stepfather angrily walked up to you: "Damnit $pc.name_nick, your mother told me you're sexually active already! You're still so young! I know I can't stop you, but at least have some decency and don't bring them to our house." His facial expression then softens, and he adds in a milder voice: "And please... be careful, okay?" You can tell your stepfather is very disappointed in you.</p>
		<<actCLA 'Move away'>>
			<<gt 'father'>>
		<</actCLA>>
		$exit
	<</if>>
	<<if $pc.alko > 1 and $pc.alkoday != $time.daystart>>
		<<set $pc.alkoday = $time.daystart>>
		<<run $npcs.dec('A28','rel',1)>>
		<p>Your stepfather notices the sharp smell of booze on you and looks disappointed. "$pc.name_nick, you smell like alcohol, what are you getting yourself into? You're too young to drink that!"</p>
	<</if>>
	<<if getvar("$TorgVokzalTimes") > 0 and getvar("$YouCanGar") == 0 and $pc.isSchoolStudent>>
		<<actCLA 'Ask him permission to store things in his garage'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 5>>

			<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
			<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
			You ask your stepfather if it is okay for you to store some things in his garage.
			<<if $npc('A28').rel >= 60 or getvar("$TouchedByFather") == 1>>
				<<set $YouCanGar = 1>>
				Your stepfather reluctantly agrees to let you store some things in his garage. You can hide some of your trinkets there now.
			<<else>>
				<p>Your stepfather shook his head and said "Sorry $pc.name_nick. The garage already has more stuff in it than I would like, there's simply no room."</p>
			<</if>>
			<<actCLA 'Move away'>>
				<<gt 'father'>>
			<</actCLA>>
		<</actCLA>>
	<</if>>
	<<actCLA 'Ask him what he thinks of your outfit'>>
		<<set $menu_off = 1>>
		<<set $time.minutes += rand(10,15)>>

		<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
		<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
		Your stepfather is sitting on the couch, watching TV. You sat next to him on the sofa.
		<<fatherRep>>
		<<actCLA 'Move away'>>
			<<gt 'father'>>
		<</actCLA>>
		<p></p>
		<<if $npc('A28').rel <= 40 or ($pc.pcs_apprnc + ($npc('A28').rel / 10)) <= 60>>
			<p>You ask your stepfather what he thinks of your outfit. It looks like he's not in the mood to indulge you, and impatiently waves you away with his hand: "Don't bother me $pc.name_nick, I'm busy."</p>
		<<else>>
			You move slightly closer towards your stepfather, flirtatiously smile at him and ask him what he thinks of your outfit.
			<<if $pc.pcs_hairbsh <= 0>>
				<<set $pc.mood -= 5>>
				<p>You notice your stepfather keeps glancing at your disheveled hair with a disapproving look on his face. "Silly me, I should really take better care of my hair!" you think to yourself.</p>
			<</if>>
			<<if $npc('A28').rel >= 40 and $npc('A28').rel < 60>>
				<<set $FatherMolest = rand(1,8)>>

			<</if>>
			<<if $npc('A28').rel >= 60 and $npc('A28').rel < 80>>
				<<set $FatherMolest = rand(1,4)>>

			<</if>>
			<<if $npc('A28').rel >= 80>>
				<<set $FatherMolest = rand(1,2)>>

			<</if>>
			<<if getvar("$FatherMolest") == 1 and getvar("$locat['Kolka_athome']") == 0>>
				<<set $pc.horny += rand(1,5)>>
				He seems happy to oblige, and asks you to twirl your body so he can look at your outfit from all angles. The approving nod and hungry look in his eyes that follow, show that he would like to do more than just watch.
				<<if $pc.horny >= 50 or getvar("$TouchedByFather") == 1>>
					<<actCLA 'Sway your hips back and forth'>>
						<<arouse 'foreplay' 5 `['incest','exhibitionism']`>>
						
						In the heat of the moment you gently start to sway your hips back and forth, without even realizing it. When you realize what you're doing, you stare your stepfather in the eye for a second with a mischievous smile on your lips. You then turn your back to him and keep swaying your ass seductively.
						<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) < 60>>
							<<set $pc.fatherLust = 2>>

						<</if>>
						<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 60 and $pc.pcs_apprnc + ($npc('A28').rel / 10) < 120>>
							<<set $pc.fatherLust = rand(1,4)>>

						<</if>>
						<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 120 and $pc.pcs_apprnc + ($npc('A28').rel / 10) < 200>>
							<<set $pc.fatherLust = rand(1,2)>>

						<</if>>
						<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 200 or getvar("$TouchedByFather") == 1>>
							<<set $pc.fatherLust = 1>>

						<</if>>
						<<if getvar("$pc.fatherLust") >= 2>>
							<<set $pc.horny -= rand(1,5)>>
							<<if $wardrobe.isWearingPanties>>
								<<image "characters/pavlovsk/resident/vladimir/sex/fatherim47.jpg">>

							<</if>>
							<<if !$wardrobe.isWearingPanties>>
								<<image "characters/pavlovsk/resident/vladimir/sex/fatherim48.jpg">>

							<</if>>
						<<elseif getvar("$pc.fatherLust") == 1>>
							<<if $wardrobe.isWearingPanties>>
								<<image "characters/pavlovsk/resident/vladimir/sex/fatherim49.jpg">>
								As you slowly sway your ass for his viewing pleasure, you notice your stepfather focusing sharply on your ass crack. It takes a few seconds for you to figure out why, but then you remember one of his fetishes: he likes it when girls don't wear underwear. You bet you could really turn him on if you took them off.
								<<if $pc.horny >= 90>>
									<<actCLA 'Give him your panties'>>
										<<gs 'panties' 'dispose'>>
										<<image "characters/pavlovsk/resident/vladimir/sex/fatherim50.jpg">>
										<p>Wanting to see just how riled up you can get your stepfather, you bend over and slowly pull your panties down. "Is this better, Daddy?" you sweetly ask him, and your stepfather panics while you run your hands over your naked ass, gently kneading your ass cheeks. "$pc.name_nick, please don't do that! Someone could come in at any second! What do you think your mother would do to you AND me if she saw this!?" he whispers, as he moves to you and frantically tries to cover you up. You sweetly smile at him and whisper: "Relax daddy, we're fine! Here, for later," as you stuff your panties in his pocket.</p>
										<<actCLA 'Move away'>>
											<<gt $location>>
										<</actCLA>>
									<</actCLA>>
								<</if>>
							<<elseif !$wardrobe.isWearingPanties>>
								<<set $TouchedByFather = 1>>
								<<video "characters/pavlovsk/resident/vladimir/sex/fatherim51.mp4">>
							<</if>>
						<</if>>
						<<actCLA 'Move away'>>
							<<gt $location>>
						<</actCLA>>
					<</actCLA>>
					<<if getvar("$pc.fatherLust") == 1>>
						Even though he did not expect this from you, you can tell by the spark in his eyes and his heavier breathing that he is, at least, pleasantly surprised by your request.

					<</if>>
				<</if>>
				<<if $pc.horny >= 90 or getvar("$TouchedByFather") == 1>>
					<<if $wardrobe.clothingworntype != 'nude'>>
						<<actCLA 'Let him touch your clothes'>>
							<<arouse 'foreplay' 5 `['incest','exhibitionism']`>>
							
							<p>You innocently offer him to have a feel at the fabric, pretending you're really interested to know what he thinks of your the quality of your clothing. Your stepfather looks at you with a slightly puzzled look on his face. "Go on, touch it, it's so nice and soft!" you encourage him, and you take his hand and pull it towards you.</p>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) < 60>>
								<<set $pc.fatherLust = 2>>

							<</if>>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 60 and $pc.pcs_apprnc + ($npc('A28').rel / 10) < 120>>
								<<set $pc.fatherLust = rand(1,4)>>

							<</if>>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 120 and $pc.pcs_apprnc + ($npc('A28').rel / 10) < 200>>
								<<set $pc.fatherLust = rand(1,2)>>

							<</if>>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 200 or getvar("$TouchedByFather") == 1>>
								<<set $pc.fatherLust = 1>>

							<</if>>
							<<if getvar("$pc.fatherLust") >= 2>>
								<<set $pc.horny -= rand(1,5)>>
								<<image "characters/pavlovsk/resident/vladimir/sex/fatherim41.jpg">>
								Your stepfather clearly doesn''t want to, and is slightly embarrassed by the whole situation. He quickly pulls his hand away and tells you to go straighten your clothes.
							<</if>>
							<<if getvar("$pc.fatherLust") == 1>>
								<<set $TouchedByFather = 1>>
								<<if $wardrobe.isWearingPanties>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim42.jpg">>

								<</if>>
								<<if !$wardrobe.isWearingPanties>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim25.jpg">>

								<</if>>
							<</if>>
							<<actCLA 'Move away'>>
								<<gt $location>>
							<</actCLA>>
						<</actCLA>>
						<<actCLA 'Adjust your clothes'>>
							<<arouse 'foreplay' 5 `['incest','exhibitionism']`>>
							
							Encouraged by your stepfather''s reaction, you put your hands on your breasts and pretend you're straightening your clothes. You run your fingers down to your stomach and groin while plucking at the fabric, giving him one hell of a show. He can't take his eyes off your body and you can tell your actions make him want you more than ever.
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) < 60>>
								<<set $pc.fatherLust = 2>>

							<</if>>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 60 and $pc.pcs_apprnc + ($npc('A28').rel / 10) < 120>>
								<<set $pc.fatherLust = rand(1,4)>>

							<</if>>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 120 and $pc.pcs_apprnc + ($npc('A28').rel / 10) < 200>>
								<<set $pc.fatherLust = rand(1,2)>>

							<</if>>
							<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) >= 200 or getvar("$TouchedByFather") == 1>>
								<<set $pc.fatherLust = 1>>

							<</if>>
							<<if getvar("$pc.fatherLust") >= 2>>
								<<set $pc.horny -= rand(1,5)>>
								<<if $wardrobe.isWearingPanties>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim45.jpg">>

								<</if>>
								<<if !$wardrobe.isWearingPanties>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim46.jpg">>

								<</if>>
							<</if>>
							<<if getvar("$pc.fatherLust") == 1>>
								<<if $wardrobe.isWearingPanties>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim43.jpg">>

								<</if>>
								<<if !$wardrobe.isWearingPanties and $time.dayStage < 5>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim44.jpg">>

								<</if>>
								<<if !$wardrobe.isWearingPanties and $time.dayStage >= 5>>
									<<image "characters/pavlovsk/resident/vladimir/sex/fatherim44.jpg">>

								<</if>>
							<</if>>
							<<actCLA 'Move away'>>
								<<gt $location>>
							<</actCLA>>
						<</actCLA>>
					<</if>>
				<</if>>
			<<else>>
				You twirl on the spot, showing off your outfit from all sides.
				<<actCLA 'Move away'>>
					<<gt 'father'>>
				<</actCLA>>
			<</if>>
		<</if>>
	<</actCLA>>
	<<if getvar("$locat['Stepdad']") == 10>>
		<<actCLA 'Watch TV together'>>
			<<set $menu_off = 1>>
			<<set $time.minutes += 60>>
			<<set $pc.mood += rand(10,50)>>

			<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
			<<image "shared/home/telek.jpg">>
			<<fatherRep>>
			<<actCLA 'Move away'>>
				<<gt $location>>
			<</actCLA>>
			<<if $npc('A28').rel < 20>>
				<<gs 'dinfather' 'watchtv1'>>
				$exit
			<<elseif $npc('A28').rel >= 20 and $npc('A28').rel < 40>>
				<<gs 'dinfather' 'watchtv2'>>
				$exit
			<<elseif $npc('A28').rel >= 40>>
				<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) <= 0>>
					<<gs 'dinfather' 'watchtv4'>>
					$exit
				<</if>>
				<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) > 60>>
					<<gs 'dinfather' 'watchtv4'>>
					$exit
				<</if>>
			<</if>>
		<</actCLA>>
	<</if>>
<</if>>
<<if getvar("$locat['Stepdad']") == 10 and getvar("$locat['Mom_athome']") == 0 and getvar("$locat['Kolka_athome']") == 0 and getvar("$TouchedByFather") == 1 and ($pc.horny >= 50 or $npc('A28').sex != 0)>>
	<<actCLA 'Seduce him'>>
		<<set $menu_off = 1>>
		<<if $npc('A28').rel < 20>>
			Your stepfather seems to misunderstand your advances.
			<<gs 'dinfather' 'father 1'>>
			$exit
		<<elseif $npc('A28').rel >= 20 and $npc('A28').rel < 40>>
			Your stepfather seems to misunderstand your advances.
			<<gs 'dinfather' 'father 2'>>
			$exit
		<<elseif $npc('A28').rel >= 40>>
			<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) <= 60>>
				Your stepfather clears his throat and changes the subject.
				<<gs 'dinfather' 'father 3'>>
				$exit
			<</if>>
			<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) > 60>>
				<<set $time.minutes += 30>>
				<<set $npc('A28').rel += 20>>
				<<if getvar("$pc.analplugin") == 1>>
					<<gs 'fathersex' 'fatherbend_1'>>
				<<else>>
					<<if $wardrobe.isWearingPanties>>
						<<gs 'fathersex' 'fatherbend_2'>>
					<<else>>
						<<gs 'fathersex' 'fatherbend_3'>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<</actCLA>>
<</if>>
<!-- ! WD: Fix old nude variable-->
<<if $wardrobe.clothingworntype == 'nude'>>
	<<set $menu_off = 1>>
	<<if getvar("$tatvag") > 0 and getvar("$Putsawtatvag") == 0 and !$wardrobe.isWearingPanties>>
		<<if $npc('A28').rel >= 70>>
			With your naked body on display, your pubic tattoo catches your stepfather''s eye. "Wow, that is one hard to miss tattoo. Obviously you didn''t get that one just for yourself", he says as he moves towards you and has a closer look.
			<<set $npc('A28').rel += 1>>
			<<set $Putsawtatvag = 1>>
			<<actCLA 'Move away'>>
				<<gt $location>>
			<</actCLA>>
			$exit
		<<else>>
			"Damn tattoo, I can't believe you would soil your body like that." Your stepfather obviously doesn''t like the tattoo you have in your pubic area.
			<<run $npcs.dec('A28','rel',1)>>
			<<set $Putsawtatvag = 1>>
			<<actCLA 'Move away'>>
				<<gt $location>>
			<</actCLA>>
			$exit
		<</if>>
	<</if>>
	<<if $pc.decoGet('piercing','nipple') > 0 and $pc.decoGet('piercing','nipple') < 10000 and getvar("$PutsawpirsF") == 0>>
		<<if $npc('A28').sex == 0>>
			<<if $npc('A28').rel >= 60>>
				<p>"Hey, those look nice on you!" your stepfather says, nodding at your nipple piercings. He seems to like them.</p>
				<<set $npc('A28').rel += 3>>
				<<set $PutsawpirsF = 1>>
				<<actCLA 'Move away'>>
					<<gt $location>>
				<</actCLA>>
				$exit
			<<else>>
				"Why would you do that... you should probably take those out", your stepfather says as he shakes his head, pointing at the piercings in your nipples.
				<<run $npcs.dec('A28','rel',1)>>
				<<actCLA 'Move away'>>
					<<gt $location>>
				<</actCLA>>
				$exit
			<</if>>
		<<else>>
			<<if $time.hour >= 18 and $time.hour < 21>>
				<p>"Hey, those look nice on you!" your stepfather says, nodding at your nipple piercings. He seems to like them.</p>
				<<set $npc('A28').rel += 3>>
				<<set $PutsawpirsF = 1>>
				<<actCLA 'Move away'>>
					<<gt $location>>
				<</actCLA>>
				$exit
			<<else>>
				<p>"Wow, those are sexy!" your stepfather says, as he reaches out and touches your nipple piercings. You can't help but let out an involuntary groan. He admires them for a moment, rubbing his fingers on your nipples and lightly tugging at them before he lets you go.</p>
				<<set $npc('A28').rel += 3>>
				<<set $PutsawpirsF = 1>>
				<<set $pc.horny += 10>>
				<<actCLA 'Move away'>>
					<<gt $location>>
				<</actCLA>>
				$exit
			<</if>>
		<</if>>
	<</if>>
	<p>Your stepfather stares at your naked body, you can't help but notice the admiring look on his face mixed with the torment of him knowing that he should know better. "$pc.name_nick, have you no shame? You shouldn't be flaunting your naked body like that, you have no idea what kind of effect it has on men!"</p>
	<<if getvar("$locat['Mom_athome']") == 1>>
		<<set $mother_go_text = '"You really should go put some clothes on though, your mother is home. Who knows what she`ll do when she sees you walking around like this!"'>>

	<</if>>
	<<if $npc('A28').sex == 0>>
		<<if $npc('A28').rel >= 40 or $pc.hotcat > 5>>
			<p>"You look fantastic," he says, reluctantly turning his face away from you. $mother_go_text</p>
			<<set $npc('A28').rel += 1>>
		<<else>>
			<p>He decisively turns his face away from you, avoiding the looks of your naked body. "Don't be such a whore $pc.name_nick, go put some clothes on right now."</p>
			<<run $npcs.dec('A28','rel',1)>>
		<</if>>
	<<else>>
		<p>His eyes never stop looking at your naked body, you can tell he's very much impressed by your beauty as you walk around the room. $mother_go_text</p>
	<</if>>
	<<actCLA 'Move away'>>
		<<gt 'bedrPar'>>
	<</actCLA>>
<</if>>
<<if $npc('A28').sex != 0 and $pc.decoGet('piercing','pussy') > 0 and $pc.decoGet('piercing','pussy') < 10000 and getvar("$PutsawpirsG") == 0 and ($time.hour <= 18 or $time.hour > 21)>>
	<<actCLA 'Show off your pubic piercing'>>
		<<set $menu_off = 1>>
		<<set $time.minutes += 5>>
		<<set $pc.horny += 15>>
		<<set $PutsawpirsG = 1>>
		<center><img <<$set_imgh>> src="images/pc/body/piercings/g<<pirsG>>.jpg" ></center>
		<p>Moving closer to your stepfather, you tease him by showing him your pussy. He doesn't know you have a pubic piercing yet, and you plan on showing it off today. As you absently rub your fingers across your labia, the glint of metal catches his eye and he pushes your hand away before you get a chance to tell him about it. "Well well, what do we have here?" he mutters, gently rubbing his fingers over the shiny new piercing. "$pc.name_nick, you are such a horny devil... I love it, we're going to have a lot of fun with this." He spends the next few minutes rubbing and tugging on your new piercing, making lewd comments the whole time. After that he reluctantly lets you go, leaving you hornier than before.</p>
		<<actCLA 'Move away'>>
			<<gt $location>>
		<</actCLA>>
	<</actCLA>>
<</if>>
<<if $npc('A28').sex != 0>>
	<<set $pc.fatherwantssex = rand(1,2)>>

<</if>>
<<if $wardrobe.clothingworntype == 'nude'>>
	<<set $pc.fatherwantssex = 1>>

<</if>>
<<if $npc('A28').sex != 0 and getvar("$pc.fatherwantssex") == 1 and getvar("$locat['Mom_athome']") == 0 and getvar("$locat['Kolka_athome']") == 0 and $npc('A28').rel > 60>>
	<<set $menu_off = 1>>

	<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
	<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
	<!-- ! WD: Fix old nude variable-->
	<<if $wardrobe.clothingworntype == 'nude'>>
		You give your stepfather a lewd smile. "I figured my clothes would only get in the way Daddy, so I took them off for you."

	<</if>>
	<p>No words are neccessary, your stepfather simply unbuttons his pants revealing his stiff cock. "$pc.name_nick, help your old man out will you?"</p>
	<<actCLA 'Change your mind and leave'>>
		<<gt $location>>
	<</actCLA>>
	<<actCLA 'Get down on your knees'>>
		<<gs 'fathersex' 'fatherblow4'>>
	<</actCLA>>
<</if>>
:: fatherRep_macro[widget]
<<widget 'fatherRep'>>

		<<if $npc('A28').rel < 20>>
			You and your stepfather can't stand each other, and spend as little time in the same room as possible.
		<<elseif $npc('A28').rel < 40>>
			You and your stepfather don't get along very well.
		<<elseif $npc('A28').rel < 60>>
			You have a normal relationship with your stepfather.
		<<elseif $npc('A28').rel < 80>>
			You have a good relationship with your stepfather.
		<<else>>
			You have a great relationship with your stepfather.
		<</if>>

<</widget>>
:: father_chat
<<set $time.minutes += rand(10,15)>>
<<set $npc('A28').rel += 1>>

<h2>Your stepfather, <<=$npc('A28').firstname>> <<=$npc('A28').lastname>></h2>
<<image "characters/pavlovsk/resident/vladimir/father.jpg">>
<<if $loc == $sitrPar>>
	Your stepfather is sitting on the couch in the living room, he is watching TV. You decide to join him for a while and sit down next to him.
<<else>>
	Your stepfather is sitting by the dinner table eating and reading the newspaper.
<</if>>
<p><<fatherRep>></p>
<<actCLA 'Move away'>>
	<<gt 'father'>>
<</actCLA>>
<<if getvar("$npc('A28').rel") < 20>>
	<<gs 'dinfather' 'father 1'>>
<<elseif getvar("$npc('A28').rel") >= 20 and getvar("$npc('A28').rel") < 40>>
	<<gs 'dinfather' 'father 2'>>
<<elseif getvar("$npc('A28').rel") >= 40>>
	<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) <= 60>>
		<<gs 'dinfather' 'father 3'>>
	<</if>>
	<<if $pc.pcs_apprnc + ($npc('A28').rel / 10) > 60>>
		<<gs 'dinfather' 'father 4'>>
	<</if>>
<</if>> */