glife/locations/father

# father
fatherAge = age + 30
gs 'stat'
gs 'dinfather'
gs 'fathersex'

$metkaM = $ARGS[0]
$locM = $CURLOC

'<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
'<center><img src="images/qwest/alter/father.jpg"></center>'
'Your stepfather is a grey and slightly flabby man working as a truck driver. He is <<fatherAge>> years. Your mother divorced your father and married Vladimir Mikhailovich when you were one year. You do not remember your real father on account of never having seen him.'

dynamic $fatherRep

act 'Move away':gt $loc, $metka

if week < 6:
	if father_go = 0 and hour >= 21:
		'"All, Light, enough for today".'
		cla
		act '<B>Move away</B>':gt $loc, $metka
		exit
	end
end
if week >= 6:
	if father_go = 0 and hour >= 21:
		'"All, Light, enough for today".'
		cla
		act '<B>Move away</B>':gt $loc, $metka
		exit
	elseif father_go = 1 and hour >= 16:
		'I have to go to the garage.'
		cla
		act '<B>Move away</B>':gt $loc, $metka
		exit
	end
end

act 'Chat':
	cls
	minut+=rand(10,15)
	father+=1
	gs 'stat'
	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
	'<center><img src="images/qwest/alter/father.jpg"></center>'
	'Stepfather sitting on the couch and watching TV. You sat next to him on the sofa'

	dynamic $fatherRep
	act '<B>Further</B>':gt $locM, $metkaM

	if father<20:
		dynamic $d_father[1]
		exit
	elseif father>=20 and father<40:
		dynamic $d_father[2]
		exit
	elseif father >=40:
		if vnesh<=15:
			dynamic $d_father[3]
			exit
		end
		if vnesh>15:
			dynamic $d_father[4]
			exit
		end
	end
end

act 'Ask for money':
	cls
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
	'<center><img src="images/qwest/alter/father.jpg"></center>'
	'Stepfather sitting on the couch and watching TV. You sat next to him on the sofa'
	dynamic $fatherRep
	act 'Move away':gt $loc, $metka

	''
	if fatherPayDay=day:
		'Built up a face sweetly, you began to beg money from his stepfather, what he just shook his head wearily: - "No, Sveta. I`ve already given money. Let us call it a day."'
	else
		if father<=40 and TouchedByFather=0 or vnesh<=15 and TouchedByFather=0:
			'You asked for money stepfather, But in response, he only shook his head: - "All my mother`s salary bear, Come here and ask her."'
		else
			'You asked for money stepfather, But in response, he only shook his head: - "All my mother`s salary bear, Come here and ask her."'
			if father>=40 and father<60 and fatherPayDay!day:FatherMolest = RAND (1,4)
			if father>=60 and father<80 and fatherPayDay!day:FatherMolest = RAND (1,2)
			if father>=80 and fatherPayDay!day:FatherMolest = 1
			if FatherMolest=1:
				'During a call, you notice, stepfather in a good mood today,, so that, perhaps, you have a chance to persuade him...'
				act 'Oh please':
					cla
					minut+=5
					gs 'stat'
					horny+=RAND(1,5)
					'- Well shake-and-aluysta, - drawling ask you, I am looking at him puppy eyes and flapping his expressive eyes.'
					if vnesh < 15:fatherLust = 2
					if vnesh >= 15 and vnesh < 30:fatherLust = Rand (1,4)
					if vnesh >= 30 and vnesh < 50:fatherLust = Rand (1,2)
					if vnesh >= 50:fatherLust = 1
					if fatherLust>=2:
						'- Light, Well, I said,, that I have no money. Come to Mama.'
					end

					if fatherLust=1:
						money+=rand(200,300)
						fatherPayDay=day
						gs 'stat'
						'- Eh... Okay. Just do not tell my mother! - he said in a tired voice, shooting eyes in the kitchen. You portray genuine delight, take the money, She kisses him on the cheek and happily go.'
					end
					act '<B>Move away</B>':gt $loc, $metka
				end

				if hadsexwithfather=1:
					act 'Are not you forgetting?':
						cla
						minut+=5
						money+=rand(300,500)
						fatherPayDay=day
						gs 'stat'
						'- Are not you forgetting? - serious voice you say, an apparent reference to your recent him "relationship".'
						'Stepfather clearly embarrassed and surprised your trick. His eloquent "Cough-cough" It leads you into the feeling and you feel uncomfortable from-for their behavior.'
						'- Here`s, infection! You can not not take advantage Now! So be, on. Just keep your mouth shut!'
						act '<B>Further</B>':gt $locM, $metkaM
					end
				end
			end

			if FatherMolest>1:
				'- No, Sveta. I`ve already said,. - All appearances, the money from him now, you obviously did not get.'
			end
		end
	end
end

act 'Ask about his mother and':
	cls
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
	'<center><img src="images/qwest/alter/father.jpg"></center>'
	'You asked his stepfather as he met my mother. Stepfather scratched begin balding head and answered. "I then worked as a taxi driver. Busing like Natasha, your mother. She even then was quite soplyushkoy, but has managed to leave her husband for the class-mate and give birth to you with Anya. Your father I did not know, I saw only a couple of times. Know that his name Mikhail Kuznetsov. He left somewhere in another city. "'

	act 'Move away':gt $loc, $metka
end

act 'Ask about his work':
	cls
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
	'<center><img src="images/qwest/alter/father.jpg"></center>'
	'You asked about his stepfather''s work. Stepfather reached crunching joints. "Before Takser. Tired now. And dangerous and old. Bought Gazelle and now I''m on pickup truck breed products hucksters. Know yourself, I have two garages, one worth our Volga, Gazelle else I got you."'

	act 'Move away':gt $loc, $metka
end

if motherKnowSpravka = 1 and hadsexwithfather=0:
	cla
	father = 0
	motherKnowSpravka = 2
	'Stepfather angrily walked up to you, "Oh damn, do not have time to get off the pot, and already someone has twisted pussy! Hem you bring in who will bring?"'

	act 'Move away':gt $loc, $metka
end

if alko > 0 and alkoday ! day:
	alkoday = day
	father -= 1
	'Stepfather sniffed "<<$name>> from you smell alcohol, what is this mess? You''re too young to drink that!"'
end

act 'Ask, as he outfit':
	cls
	minut+=rand(10,15)
	gs 'stat'
	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
	'<center><img src="images/qwest/alter/father.jpg"></center>'
	'Stepfather sitting on the couch watching TV. You sat next to him on the sofa'

	dynamic $fatherRep
	act '<B>Further</B>':gt $locM, $metkaM

	''
	if father<=40 or vnesh<=15:
		'You asked stepfather evaluate your outfit. It, that-the unhappy muttering under his breath, You waved a hand: - Do not bother, Sveta, I`m busy.'
	else
		'You, coquettishly smiling stepfather, We were asked to rate your outfit.'
		dynamic $din_father_hapri

		if father>=40 and father<60:FatherMolest = RAND (1,8)
		if father>=60 and father<80:FatherMolest = RAND (1,4)
		if father>=80:FatherMolest = RAND (1,2)

		if FatherMolest=1:
			horny+=RAND(1,5)
			gs 'stat'
			'It, It seems, quite seriously reacted to your request, and asked for a little whirl, to look over your outfit from all sides. By approving nods you understand, the clothes he had to taste better, than he would like to show you.'
			if horny>=50 or TouchedByFather=1:
				dynamic $din_vertetzopa
				if fatherLust=1:'"- Oh..." - Stepfather did not expect this from you, but his involuntary exhalation and kindled eyes you know, he is, least, very pleasant.'
			end

			if horny>=90 or TouchedByFather=1:
				dynamic $din_popravit
				dynamic $din_potr
			end
		end

		if FatherMolest>1:
			'You twirled on the spot, letting him see themselves from all sides, then go to the complacent view.'
			cla
			act '<B>Further</B>':gt $locM, $metkaM
		end
	end
end

act 'Watch TV together':
	cls
	minut+=60
	willpower+=RAND(5,10)
	manna+=RAND(10,50)
	gs 'stat'
	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
	'<center><img src="images/pics/telek.jpg"></center>'

	dynamic $fatherRep
	act '<B>Further</B>':gt $locM, $metkaM

	if father<20:
		dynamic $d_watchtv[1]
		exit
	elseif father>=20 and father<40:
		dynamic $d_watchtv[2]
		exit
	elseif father >=40:
		if vnesh<=15:
			dynamic $d_watchtv[3]
			exit
		end
		if vnesh>15:
			dynamic $d_watchtv[4]
			exit
		end
	end
end

if mother_go = 1 and hour = 16 and TouchedByFather = 1 and horny >= 50 or hadsexwithfather=1 and mother_go = 1 and hour = 16:
	act 'Seduce':
		if father<20:
			dynamic $d_father[1]
			exit
		elseif father>=20 and father<40:
			dynamic $d_father[2]
			exit
		elseif father >=40:
			if vnesh<=15:
				$d_father[3]
				exit
			end
			if vnesh>15:
				dynamic $d_fathersex[1]
				exit
			end
		end
	end
end

! WD: Fix old nude variable
! if nude = 1:
if $clothingworntype = 'nude':
	'Stepfather with a smirk looking at you - "Nifiga! Blyadinka growing. Did you ever be ashamed,I-I`m still the man."'
	if hadsexwithfather ! 1:
		if father>=40:
			'Then he turned away added - "A body so Nitsche, I vdulby... but go get dressed mother home"'
			father += 1
			act '<B>Move away</B>':gt 'bedrPar'
			exit
		else
			'Then he turned away added - "Here is a whore ... Run go get dressed"'
			father -= 1
			act '<B>Move away</B>':gt 'bedrPar'
			exit
		end
	else
		if mother_go = 0:$mother_go_text = 'but go get dressed mother home'
		'Continuing to look at you, he added, - "Beauty.. <<$mother_go_text>>"'
		if mother_go = 0:
			act '<B>Move away</B>':gt 'bedrPar'
			exit
		end
	end
end

if hadsexwithfather=1:fatherwantssex=rand(1,2)
! WD: Fix old nude variable
! if nude = 1:
if $clothingworntype = 'nude': fatherwantssex=1
if hadsexwithfather=1 and fatherwantssex=1 and mother_go = 1 and hour = 16 and father>60:
	cls
	gs 'stat'
	'<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
	'<center><img src="images/qwest/alter/father.jpg"></center>'
	! WD: Fix old nude variable
	! if nude = 1:
	if $clothingworntype = 'nude': '- Wow, I see you`ve prepared, I undressed for "Daddy"'
	'Not having to say a word stepfather, you notice, he unbuttons his pants and pulls out a ready to fight a member: "Svetik, Rejoice old."'
	act '<B>Move away</B>':gt $loc, $metka
	act 'Kneel down':dynamic $d_fatherblow_act[4]
end

if TorgVokzalTimes > 0 and YouCanGar = 0:
	act 'Ask for permission to store goods in the garage':
		cls
		minut += 5
		gs 'stat'
		'<center><b><font color="maroon">Stepfather Vladimir Skryabin</font></b></center>'
		'<center><img src="images/qwest/alter/father.jpg"></center>'
		'You asked for permission to store his stepfather in the garage items.'

		if father + dom >= 80:
			YouCanGar = 1
			'Stepfather hesitated still allow you to use it for garage storage of goods for sale.'
		else
			'Stepfather shook his head "No <<$nickname>>. I have ."'
		end

		act 'move_away':gt $loc, $metka
	end
end

$fatherRep = {
	if father<20:'You stepfather terrible scandal.'
	if father>=20 and father<40:'You stepfather tensions.'
	if father>=40 and father<60:'You have a normal relationship with his stepfather.'
	if father>=60 and father<80:'You have a good relationship with his stepfather.'
	if father>=80:'You have a great relationship with his stepfather.'
	''
}

--- father ---------------------------------