glife_ij/locations/garfather.qsrc

# garfather

fatherAge = year - (((npc_dob['A28']) - (npc_dob['A28'] mod 10000)) / 10000)
gs 'stat'
gs 'dinSex'

$metka = ''
$loc = 'garfather'
$location_type = 'event'
$menu_loc = 'garfather'
$menu_arg = ''
menu_off = 0

'<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
'Your stepfather is a greying, slightly flabby man working as a truck driver. He is <<fatherAge>> years old. Your mother divorced your biological father and married Vladimir when you were only one year old. You''ve never seen your biological father since their divorce, and as such you have no real memory of him.'

dynamic $fatherRep

act 'Leave': gt 'gargazel'

if hour >= 21: exit

act 'Chat':
	cls
	menu_off = 1
	minut += rand(10,15)
	gs 'stat'
	'<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
	'Your stepfather is sitting on a chair, twirling some kind of dirty car part in his hands. You sit down next to him on a nearby chair.'

	dynamic $fatherRep

	if npc_rel['A28'] < 20:
		!He hates you
		'You try to have a conversation with your stepfather, but he dislikes you too much to even pretend to be interested in what you have to say.'
		if sorryday ! daystart:
			gs 'willpower', 'misc', 'self'
			if will_cost <= pcs_willpwr:
				act 'Apologize (<<will_cost>> Willpower)':
					cla
					gs 'willpower', 'pay', 'self'
					sorryday = daystart
					npc_rel['A28'] += (pcs_intel/10) + (pcs_apprnc/20)
					gs 'stat'
					'You profusely apologize to your stepfather, and after a while you can tell his attitude towards you is slightly milder.'
					act 'Move away':gt $loc, $metka
				end
			else
				act 'Apologize (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'Move away':gt $loc, $metka
	elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
		!He doesn''t like you very much
		'You try to have a conversation with your stepfather, but he''s not really interested and barely has anything to contribute while you do all the talking.'
		if sorryday ! daystart:
			gs 'willpower', 'misc', 'self'
			if will_cost <= pcs_willpwr:
				act 'Try to get on his good side (<<will_cost>> Willpower)':
					cla
					gs 'willpower', 'pay', 'self'
					sorryday = daystart
					npc_rel['A28'] += (pcs_intel/10) + (pcs_apprnc/20)
					gs 'stat'
					'You spend some time trying to get on your stepfather''s good side, and you feel like he likes you a bit more after you show interest in the things he enjoys.'
					act 'Move away':gt $loc, $metka
				end
			else
				act 'Try to get on his good side (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'Move away':gt $loc, $metka
	elseif npc_rel['A28'] >= 40:
		if pcs_apprnc + (npc_rel['A28']/10) <= 60:
			!good relations but he is not attracted to you
			gs 'dinfather', 'garchat'
		else
			!good relations and he finds you attractive
			talkrand = rand(1,100)
			if talkrand >= 20:
				gs 'dinfather', 'garchat'
			elseif talkrand < 20:
				'You relax and share funny stories with your stepfather.'
				if npc_rel['A28'] >= 40 and npc_rel['A28'] < 60: FatherMolest = rand(1,8)
				if npc_rel['A28'] >= 60 and npc_rel['A28'] < 80: FatherMolest = rand(1,4)
				if npc_rel['A28'] >= 80: FatherMolest = rand(1,2)
				if FatherMolest = 1:
					gs 'dinfather', 'gar_act1'
					gs 'dinfather', 'gar_act2'
					gs 'dinfather', 'gar_act3'
				else
					gs 'dinfather', 'garchat'
				end
			end
		end
	end
end

act 'Help':
	cls
	menu_off = 1
	minut += 60
	gs 'sweat', 'add', 10
	hndiwrk_exp += rand(0,3)
	gs 'stat'
	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
	'Your stepfather is sitting on a chair, twirling some kind of dirty car part in his hands. You sit down next to him on a nearby chair.'

	dynamic $fatherRep

	if npc_rel['A28'] < 20:
		!scandal stepfather
		'You offer to help your stepfather out in the garage. He waves you away and grumpily says "Get out of the way <<$pcs_nickname>>, can''t you see I''m busy? Besides, why would I want to be around you?"'
		if sorryday ! daystart:
			gs 'willpower', 'misc', 'self'
			if will_cost <= pcs_willpwr:
				act 'Apologize (<<will_cost>> Willpower)':
					cla
					gs 'willpower', 'pay', 'self'
					sorryday = daystart
					npc_rel['A28'] += (pcs_intel/10) + (pcs_apprnc/20)
					gs 'stat'
					'You profusely apologize to your stepfather, and after a while you can tell his attitude towards you is slightly milder.'
					act 'Move away':gt $loc, $metka
				end
			else
				act 'Apologize (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'Move away':gt $loc, $metka
	elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
		!strained relations
		'You ask your stepfather if there''s anything you can do to help him out in the garage, but he shrugs and shakes his head. "And what would you even do? Maybe you should go help your mother in the kitchen, that seems to suit your skill set better."'
		if sorryday ! daystart:
			gs 'willpower', 'misc', 'self'
			if will_cost <= pcs_willpwr:
				act 'Try to get on his good side (<<will_cost>> Willpower)':
					cla
					gs 'willpower', 'pay', 'self'
					sorryday = daystart
					npc_rel['A28'] += (pcs_intel/10) + (pcs_apprnc/20)
					gs 'stat'
					'You spend some time trying to get on your stepfather''s good side, and you feel like he likes you a bit more after you show interest in the things he enjoys.'
					act 'Move away':gt $loc, $metka
				end
			else
				act 'Try to get on his good side (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'Move away':gt $loc, $metka
	elseif npc_rel['A28'] >= 40:
		if pcs_apprnc + (npc_rel['A28']/10) <= 60:
			!gg good relations but he is not attracted to you
			gs 'dinfather', 'garhelpchat'
		else
			!good relations and Messrs attractive
			talkrand = rand(1,100)
			if talkrand >= 20:
				gs 'dinfather', 'garhelpchat'
			else
				'You help your stepfather while he works on the Gazelle, handing him the bolts and tools he needs.'
				if npc_rel['A28'] >= 40 and npc_rel['A28']<60: FatherMolest = rand(1,8)
				if npc_rel['A28'] >= 60 and npc_rel['A28']<80: FatherMolest = rand(1,4)
				if npc_rel['A28'] >= 80: FatherMolest = rand(1,2)
				if FatherMolest = 1:
					if pcs_horny >= 60 or TouchedByFather = 1:
						gs 'willpower', 'exhib', 'self'
						if will_cost <= pcs_willpwr:
							act 'Spread your legs (<<will_cost>> Willpower)':
								cls
								gs 'willpower', 'exhib', 'self'
								gs 'willpower', 'pay', 'self'
								gs 'arousal', 'flash', 5
								gs 'arousal', 'end'
								gs 'stat'
								'While pretending not to notice, you slowly spread your legs as you talk.'

								if pcs_apprnc + (npc_rel['A28']/10) < 60: fatherLust = 2
								if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120: fatherLust = rand(1,4)
								if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200: fatherLust = rand(1,2)
								if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather = 1: fatherLust = 1
								if fatherLust >= 2:
									pcs_horny -= rand(1,5)
									gs 'stat'
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim31.jpg"></center>' & 'You notice your stepfather''s eyes darting down while you talk, and suddenly his face turns beet red. You look down and notice your skimpy underwear did a very poor job of hiding your pussy. Your stepfather is clearly embarrassed and surprised. He loudly clears his throat and says "<<$pcs_nickname>> don''t do that, that''s no way for a lady to behave. And go put some normal underwear on."'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim24.jpg"></center>' & 'You notice your stepfather''s eyes darting down while you talk, and suddenly his face turns beet red. "What''s wrong?" you ask him innocently, knowing full well you''re not wearing underwear and that he has a great view of your bare pussy. You''re not fooling him though, and he doesn''t appreciate your teasing in the slightest. "<<$pcs_nickname>>, stop that at once and go put some pants on."'
								end
								if fatherLust = 1:
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim20.jpg"></center>' & 'Your stepfather realizes what you''re up to and pulls you closer to him, desire burning in his eyes. He runs his hands over your ass cheeks and thighs, petting and kneading them, and then pushes your panties to the side. Two of his fingers are exploring your sphincter, rubbing and teasing you. "Is there something you want, <<$pcs_nickname>>?" he asks with a smug grin on his face, knowing he turned the tables on you. All you can do is whimper in response.'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim26.jpg"></center>' & 'Your stepfather gets a glimpse of your bare pussy and realizes what you''re up to. "<<$pcs_nickname>>... are you not wearing panties? Get down on the ground and spread your legs for me, Daddy has to know now." You do as he says, lie down on the ground and spread your legs wide. He kneels in front of you, pulls your clothes to the side and rubs your pussy and thighs with his rough calloused hands. "Just as I thought, you little minx!" he says with a grin on his face. After he had his fun he helps you get back up and even helps you straighten your clothes, his hands lingering on your hips and ass a few seconds longer than is needed.'
								end
								act 'Move away':gt $loc, $metka
							end
						else
							act 'Spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end
					if pcs_horny >= 50 or TouchedByFather = 1:
						gs 'willpower', 'exhib', 'self', 'easy'
						if will_cost <= pcs_willpwr:
							act '''Accidentally'' drop the wrench (<<will_cost>> Willpower)':
								cla
								gs 'willpower', 'exhib', 'self', 'easy'
								gs 'willpower', 'pay', 'self'
								gs 'arousal', 'flash', 5
								gs 'arousal', 'end'
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/garage/father/sex/father.gar.pre<<rand(0,5)>>.jpg"></center>'

								'Feeling horny, you decide to tease your stepfather while you help him in the garage. You let the wrench slip out of your hand, the loud clattering of metal on the stone floor ringing throughout the garage. "Oops! I can be so clumsy sometimes..." you say with a smile, bending over to pick up the wrench without bending your knees. In this pose, you give your stepfather a great view of your ass.'
								if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
								if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120:fatherLust = rand(1,4)
								if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200:fatherLust = rand(1,2)
								if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather=1:fatherLust = 1
								if fatherLust >=2:
									cls
									pcs_horny -= rand(1,5)
									gs 'stat'
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim29.jpg"></center>' & 'Even though your body is definitely having an effect on him your stepfather is clearly embarrassed, and surprised you would do such a thing. He clears his throat loudly and looks at you disapprovingly, and the silence that follows makes you feel uncomfortable.'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim27.jpg"></center>' & 'The sight of your ass makes your stepfather uncomfortable. "Clumsy you say? It seems like that wrench is not the only thing you let slip today", he snarks, referring to your lack of underwear. His snarky tone and disapproving look make you feel a bit awkward.'
								else
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim29.jpg"></center>'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim27.jpg"></center>'
									'Even though he did not expect this from you, you can tell by the spark in his eyes and his heavier breathing that he definitely likes what he sees.'
								end
								act 'Move away':gt $loc, $metka
							end
						else
							act '''Accidentally'' drop the wrench (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end
					if pcs_horny >= 30 or TouchedByFather = 1:
						act 'Fondle your breasts as you talk':
							cls
							gs 'arousal', 'flashlite', 5
							gs 'arousal', 'foreplay', 5, 'incest', 'exhibitionism'
							gs 'arousal', 'end'
							minut -= 5
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim28.jpg"></center>'
							'In a moment of horniness, you slowly and teasingly bend over with a playful smile on your lips, providing your stepfather with an amazing view of your <<$titsize>> breasts.'

							if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
							if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120:fatherLust = rand(1,4)
							if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200:fatherLust = rand(1,2)
							if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather=1:fatherLust = 1
							if fatherLust>=2:
								pcs_horny -= rand(1,5)
								gs 'stat'
								'Your stepfather is clearly embarrassed, and surprised you would do such a thing. He clears his throat loudly and looks at you disapprovingly, and the silence that follows makes you feel a bit uncomfortable.'
							elseif 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 definitely likes what he sees.'
							end
							act 'Move away':gt $loc, $metka
						end
					else
						gs 'dinfather', 'garhelpchat'
					end
				else
					gs 'dinfather', 'garhelpchat'
				end
			end
		end
	end
end

if pcs_horny > 50 and npc_sex['A28'] ! 0:

	gs 'willpower', 'sex', 'self'
	if will_cost <= pcs_willpwr:
		act 'Seduce your stepfather (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'self'
			gs 'boyStat', 'A28'
			menu_off = 1
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/garage/father/sex/father.gar.pre<<rand(0,5)>>.jpg"></center>'
			'You walk up to the Gazelle and pick up a sponge. Bending slightly forwards, you begin washing the car and simultaneously putting your ass on display for your stepfather.'
			'"- Oh..." - Stepfather did not expect this from you, but his involuntary exhalation and kindled eyes tell you he is enjoying it very much.'
			'Your stepfather walks up behind you and puts his hands on your ass. He leisurely begins to knead your butt.'

			gs 'arousal', 'foreplay', 3, 'sub', 'incest'
			gs 'stat'

			act 'Get down on your knees':
				*clr & cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bimbo.knees<<rand(1,3)>>.jpg"></center>'
				'You fall on your knees in front of your stepfather and place the palm of your hand on his crotch. You can feel his erection through the fabric of his jeans, and begin to caress him. After a while you unzip his pants and pull out his cock, taking a firm grasp on it with one hand.'

				gs 'arousal', 'hj', 3, 'sub', 'incest'
				gs 'stat'

				act 'Take his dick in your mouth':
					*clr & cla
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/garage/father/sex/father.gar.0,<<rand(0,4)>>.jpg"></center>'
					'Your stepfather opens the passenger side door of the Gazelle, and you sit down on the seat. He places a hand on your head and guides his dick towards your mouth.'
					'You leisurely lick your stepfather''s dick, caress his balls, and then take his cock in your mouth. Soon the cock began to throb, giving signs of an early end.'

					gs 'arousal', 'bj', 5, 'sub', 'incest'
					gs 'stat'

					act 'Suck him off and swallow his sperm':
						cls
						if npc_rel['A28'] < 100: npc_rel['A28'] += 2
						fatherSuck += 1
						sexpartkno = 1
						spafinloc = 12
						gs 'cum_manage'
						swallow += 1
						pcs_hydra += 5
						gs 'stat'
						'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum1,<<rand(0,10)>>.mp4"></video></center>'

						'You continue to suck your stepfather''s dick as it continues throbbing. Suddenly, he arches his back and you feel cum begin to pour into your mouth. Although you try your best, the amount of cum flowing from your stepfathers dick is simply too much for you, and some of it instead flows out of your mouth and down your chin. Soon your <<$boydesc>> finishes and you pull his cock out of your sperm-smelling mouth. You can feel the taste of sperm in your mouth, and your <<$liptalk3>> are wet with cum.'

						gs 'arousal', 'bj', 10, 'sub', 'incest'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Move away':gt 'gargazel'
					end

					act 'Take his load on your face':
						cls
						if npc_rel['A28'] < 100: npc_rel['A28'] += 2
						fatherSuck += 1
						sexpartkno = 1
						spafinloc = 11
						gs 'cum_manage'
						facial += 1
						gs 'stat'
						gar_rand1 = rand(0,100)
						if gar_rand1 < 49:'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,<<rand(0,8)>>.jpg"></center>'
						if gar_rand1 => 50:'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,<<rand(0,8)>>.jpg"></center>'
						'You stop sucking on your stepfather''s cock just as he reaches orgasm, and a jet of sperm immediately hits you in the face. You squeeze your eyes shut for fear of getting cum in your eyes and feel another jet of hot sperm land on your face.'

						gs 'arousal', 'bj', 10, 'sub', 'incest'
						gs 'arousal', 'end'
						gs 'stat'

						act 'Move away':gt 'gargazel'
					end
				end

				act 'Bend over, leaning against the Gazelle':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/garage/father/sex/father.gar.1,<<rand(0,2)>>.jpg"></center>'
					'Your stepfather grabs you and pulls you up from your knees, turning you to face the Gazelle. You plant your hands on the car, and arch your back to give him easier access to your ass and pussy. Once you''re in position, he begins caressing your pussy and then slams his dick in.'

					gs 'arousal', 'vaginal', 10, 'sub', 'incest'
					gs 'stat'

					gs 'dinSex', 'wear_condom'
					gs 'dinsex','vaginal_sex',10
					act 'Continue':
						cla
						*clr
						gs 'stat'
						sexpartkno = 1
						if npc_rel['A28'] < 100:npc_rel['A28'] += 3
						if fathersex = 0:guy += 1
						FatherSex += 1
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/garage/father/sex/father.gar.cum1,0.jpg"></center>'
						if protect = 0:
							'After a thorough fucking, you feel your stepfather''s cock begin to throb within you. Your stepfather''s body spasms, his cock filling your pussy with his sperm.'
							gs 'arousal', 'vaginal', 10, 'sub', 'incest'
							gs 'cum_manage'
							gs 'cuminsidereact', 'your stepfather'
						else
							'After a thorough fucking, you feel your stepfather''s cock begin to throb within you. Your stepfather''s body spasms, his cock filling the condom with his sperm.'
							gs 'arousal', 'vaginal', 10, 'sub', 'incest'
							gs 'cum_manage'
						end
						gs 'arousal', 'end'
						gs 'stat'

						act 'Move away':gt 'gargazel'
					end
				end
			end
		end
	else
		act 'Seduce your stepfather (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if fatherdrunk=1:
	cla
	*clr
	minut+=60
	gs 'stat'
	'<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
	'Your stepfather is a greying, slightly flabby man who works as a truck driver. He is <<fatherAge>> years old. Your mother divorced your biological father and married Vladimir when you were only one year old. You''ve never seen your biological father since their divorce, and as such you have no real memory of him.'

	dynamic $fatherRep
	act 'Leave': gt 'gargazel'

	if npc_rel['A28']<20:
		!scandal stepfather
		'You approach your stepfather and uncle Misha and try to ask if you can join them, but your stepfather cuts you off before you can even finish your sentence. "<<$pcs_nickname>>, get out of here! This is a no bitch zone!" he shouts, laughing drunkenly as he waves you off. Uncle Misha finds your stepfather''s degrading talk hilarious, and joins in. You''re clearly not welcome in the garage.'
		if sorryday!daystart:
			gs 'willpower', 'misc', 'self'
			if will_cost <= pcs_willpwr:
				act 'Persist and ask if you can join them (<<will_cost>> Willpower)':
					cla
					gs 'willpower', 'pay', 'self'
					menu_off = 1
					gs 'stat'
					'You try to get your stepfather to let you join them but he''s equally persistent in telling you to get lost, being quite rude about it too. He really doesn''t like you at all.'
					act 'Move away':gt 'gargazel'
				end
			else
				act 'Persist and ask if you can join them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'Move away':gt 'gargazel'
	elseif npc_rel['A28']>=20 and npc_rel['A28']<40:
		!strained relations
		'You ask your stepfather if you can join them, but he''ll have none of it. "<<$pcs_nickname>>, isn''t it past your bedtime? *Hic!* Shoo, go home! *Hic!*"'
		if sorryday!daystart:
			gs 'willpower', 'misc', 'self'
			if will_cost <= pcs_willpwr:
				act 'Try to persuade him (<<will_cost>> Willpower)':
					cla
					gs 'willpower', 'pay', 'self'
					cla
					menu_off = 1
					gs 'stat'
					'You do your best, but your stepfather remains adamant and sends you home.'
					act 'Move away':gt 'gargazel'
				end
			else
				act 'Try to persuade him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'Move away':gt 'gargazel'
	elseif npc_rel['A28'] >=40:
		if pcs_apprnc + (npc_rel['A28']/10) <= 60:
			gs 'dinfather', 'gardrunkchat'
		else
			!good relations and Messrs attractive
			talkrand = rand(0,100)
			if talkrand >= 20: gs 'dinfather', 'gardrunkchat'
			if talkrand < 20:
				'You relax and have some drinks with the guys, happy to just sit back and listen to the funny stories they exchange.'
				if npc_rel['A28']>=40 and npc_rel['A28']<60:FatherMolest = rand(1,8)
				if npc_rel['A28']>=60 and npc_rel['A28']<80:FatherMolest = rand(1,4)
				if npc_rel['A28']>=80:FatherMolest = rand(1,2)
				if FatherMolest=1:
					'You can''t help but notice that your uncle Misha is staring at you the whole time. You feel like he''s not just undressing you in his mind, but that he''s fucking you in all sorts of positions with reckless abandon.'
					 if pcs_horny >= 50 and sosedknow=1:
						gs 'willpower', 'exhib', 'self', 'easy'
						if will_cost <= pcs_willpwr:
							act 'Show him your breasts (<<will_cost>> Willpower)':
								cls
								gs 'willpower', 'exhib', 'self', 'easy'
								gs 'willpower', 'pay', 'self'
								gs 'arousal', 'flash', 5
								gs 'arousal', 'end'
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim33.jpg"></center>'
								'In a moment of horniness, you slowly and teasingly bend over with a playful smile on your lips, providing uncle Misha with an amazing view of your <<$titsize>> breasts.'

								if (pcs_apprnc + (npc_rel['A54']/10)) < 60: mishalust = 2
								if (pcs_apprnc + (npc_rel['A54']/10)) >= 60 and (pcs_apprnc + (npc_rel['A54']/10)) < 120: mishalust = rand(1,4)
								if (pcs_apprnc + (npc_rel['A54']/10)) >= 120 and (pcs_apprnc + (npc_rel['A54']/10)) < 200: mishalust = rand(1,2)
								if (pcs_apprnc + (npc_rel['A54']/10)) >= 200: mishaLust = 1
								if mishaLust>=2:
									pcs_horny -= rand(1,5)
									gs 'stat'
									'Uncle Misha is clearly embarrassed, and surprised you would do such a thing. He clears his throat loudly and looks at you disapprovingly, and the silence that follows makes you feel a bit uncomfortable. You''re happy he at least had enough decency to not clue in your stepfather, who happened to have his back turned against you.'
								else
									'You try to be discrete so your stepfather doesn''t notice what you just did, and uncle Misha is quite flustered by the show you just gave him. He stumbles over his words while your stepfather talks to him about bumpers, as you smile mischievously and give uncle Misha a wink when your stepfather looks away.'
								end
								act 'Move away':gt $loc, $metka
							end
						else
							act 'Show him your breasts (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					 end
					if pcs_horny >= 60 or TouchedByFather=1:
						gs 'willpower', 'exhib', 'self', 'easy'
						if will_cost <= pcs_willpwr:
							act 'Get their attention by dropping your bottle (<<will_cost>> Willpower)':
								cls
								gs 'willpower', 'exhib', 'self', 'easy'
								gs 'willpower', 'pay', 'self'
								gs 'arousal', 'flash', 5
								gs 'arousal', 'end'
								gs 'stat'
								'Even though you''re horny and want the guys to notice you, they are paying more attention to their booze and their conversation. You can change that. Making sure it doesn''t break, you ''accidentally'' drop your bottle and bend over to pick it up without bending your knees, giving them a spectacular view of your ass. You make a show of trying to reduce the spillage, wiping the floor while staying in your current position.'

								if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
								if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120: fatherLust = rand(1,4)
								if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200: fatherLust = rand(1,2)
								if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather = 1: fatherLust = 1
								if fatherLust >= 2:
									pcs_horny -= rand(1,5)
									gs 'stat'
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim35.jpg"></center>'&'Your stepfather is clearly embarrassed, and surprised you would do such a thing. He clears his throat loudly and looks at you disapprovingly, and the silence that follows makes you feel a bit uncomfortable. Uncle Misha just has a smug grin on his face.'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/pc/fatherim34.jpg"></center>'&'Your stepfather is clearly embarrassed, and surprised you would do such a thing. He clears his throat loudly and looks at you disapprovingly, and the silence that follows makes you feel a bit uncomfortable. Neither of them seem to have noticed you''re not wearing panties.'
								else
									if $pantyworntype ! 'none':
										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim37.jpg"></center>'
										'You stick your ass out as much as you can, showing off your ass as much as you can. As you turn around, you notice that both your stepfather and uncle''s gazes are glued to your ass. You simply smile and return to the table as they blubber and try to find excuses.'
										act 'Tease them some more':
											cls
											gs 'arousal', 'flash', 5
											gs 'arousal', 'end'
											gs 'stat'
											'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim38.jpg"></center>'
											'You sit back down, still having their full attention. You try to excuse your behavior: "I''m sorry guys, my clothes rub my pussy raw, bending over normally makes me feel very uncomfortable."'
											act 'Show them your pussy when they ask':
												cls
												gs 'arousal', 'flash', 5
												gs 'arousal', 'end'
												gs 'stat'
												'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim39.jpg"></center>'
												'Uncle Misha is onto your act, and decides to push you to your limits. He smiles and says: "Oh really, <<$pcs_nickname>>? Why don''t you show us, maybe we can help you. Isn''t that right, Vladimir?" Too turned on to decline, you pull your panties to the side and show them your pussy. It''s really not all that sore, but your arousal has coloured it nice and red and it makes your pussy lips look a bit more puffy. The guys didn''t think you would actually follow through with this, and are flabbergasted when you do.'
												act 'Move away':gt $loc, $metka
											end
										end
									elseif $pantyworntype = 'none':
										cls
										gs 'arousal', 'flash', 5
										gs 'arousal', 'flash', 5
										gs 'arousal', 'vaginal_finger', 5, 'exhibitionism', 'rough'
										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim40.jpg"></center>'
										'Slightly disappointed, you move away from the table. Lost in your own thoughts, you don''t notice your uncle Misha''s legs and trip over them. Since you''re not wearing any underwear, you''re giving your uncle one hell of a show as you fall down onto your hands and knees. He immediately reaches out and runs his fingers over your wet pussy lips. He fingers you briefly, then returning his fingers to his nose to take a deep whiff. "You have nice holes, <<$pcs_nickname>>, young and juicy..." Realizing he won''t do anything more with your stepfather right there in the room, you get up and fix your clothes before sitting back down at the table.'
										gs 'arousal', 'end'
										minut -= 10
										gs 'stat'
									end
								end
								act 'Continue':gt $loc, $metka
							end
						else
							act 'Get their attention by dropping your bottle (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					 end
					if pcs_horny >= 75 or TouchedByFather=1:
						gs 'willpower', 'exhib', 'self', 'easy'
						if will_cost <= pcs_willpwr:
							act 'Spread your legs (<<will_cost>> Willpower)':
								cls
								gs 'willpower', 'exhib', 'self', 'easy'
								gs 'willpower', 'pay', 'self'
								minut += 5
								pcs_horny += rand(1,5)
								'You, pretending to not notice, slowly spread your legs while you talk with the guys.'

								if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
								if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120: fatherLust = rand(1,4)
								if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200: fatherLust = rand(1,2)
								if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather = 1: fatherLust = 1
								if fatherLust >= 2:
									pcs_horny -= rand(1,5)
									gs 'stat'
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim31.jpg"></center>' & 'Trying to direct Uncle Misha''s attention to something across the room, your stepfather signals you to cover yourself up with agitated hand movements.'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim52.jpg"></center>' & 'Your stepfather notices what you''re trying to do. After he distracts uncle Misha for long enough, he turns to you and whispers: "<<$pcs_nickname>>, don''t... just don''t. You have no idea what you''re getting yourself into." Intimidated by the gravity of his voice, you do as he says and cover up.'
								else
									if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim20.jpg"></center>' & 'Your stepfather realizes what you''re up to and pulls you closer to him, desire burning in his eyes. He runs his hands over your ass cheeks and thighs, petting and kneading them, and then pushes your panties to the side. Two of his fingers are exploring your sphincter, rubbing and teasing you. "Is there something you want, <<$pcs_nickname>>?" he asks with a smug grin on his face, knowing he turned the tables on you. All you can do is whimper in response. He pulls away his hand just in time, before uncle Misha notices what''s going on.'
									if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim25.jpg"></center>' & 'Noticing your stepfather''s blush, you realize at least one person at the table noticed you''re not wearing any underwear. When your uncle Misha looks away, he quickly reaches for you and fingers your wet pussy. A needy moan escapes your lips as he pulls his hand way, and he quickly starts a conversation about wind shield wipers. Your uncle Misha has no idea what just went down.'
								end
								act 'Continue':gt $loc, $metka
							end
						else
							act 'Spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end
				else
					gs 'dinfather', 'gardrunkchat'
				end
			end
		end
	end
end

--- garfather ---------------------------------