|
@@ -1,27 +1,138 @@
|
|
|
# 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 gray and slightly flabby man working driver. He <<fatherAge>> years. Your mother divorced your father and married Vladimir Mikhailovich when you were one year. Your real father you do not remember and have never seen.'
|
|
|
+'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 father < 20:'You stepfather 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.'
|
|
|
+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 'Move away':gt $locM, $metkaM
|
|
|
+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 'Asking for money':
|
|
|
+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>'
|
|
|
- 'You asked the stepfather of money, he shook his head. "I bring all salary mother, so go and ask her."'
|
|
|
-
|
|
|
+ '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':
|
|
@@ -46,7 +157,7 @@ act 'Ask about his work':
|
|
|
act 'Move away':gt $loc, $metka
|
|
|
end
|
|
|
|
|
|
-if motherKnowSpravka = 1:
|
|
|
+if motherKnowSpravka = 1 and hadsexwithfather=0:
|
|
|
cla
|
|
|
father = 0
|
|
|
motherKnowSpravka = 2
|
|
@@ -61,6 +172,139 @@ if alko > 0 and alkoday ! day:
|
|
|
'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
|
|
|
+
|
|
|
+if nude=1:
|
|
|
+ '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)
|
|
|
+if nude=1: 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>'
|
|
|
+ if nude=1:'- 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
|
|
@@ -81,4 +325,13 @@ if TorgVokzalTimes > 0 and YouCanGar = 0:
|
|
|
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 ---------------------------------
|