Browse Source

Second pass on stepfather interactions

Should all be working now.
Still needs translation fixes.
Monztah 9 years ago
parent
commit
fbe01d0643
4 changed files with 269 additions and 11 deletions
  1. 4 0
      glife.qproj
  2. BIN
      glife.txt
  3. 264 11
      locations/father
  4. 1 0
      locations/gargazel

+ 4 - 0
glife.qproj

@@ -41,6 +41,8 @@
       <Location name="time"/>
       <Location name="kid"/>
       <Location name="subkid"/>
+      <Location name="fathersex"/>
+      <Location name="dinfather"/>
     </Folder>
     <Folder name="Альтернатива - Alternative">
       <Location name="alterStart"/>
@@ -278,9 +280,11 @@
       <Location name="fbSex"/>
     </Folder>
     <Folder name="Городок - Town">
+      <Location name="misha"/>
       <Location name="gorodok"/>
       <Location name="garmassiv"/>
       <Location name="gargazel"/>
+      <Location name="garfather"/>
       <Location name="Gshveyfab"/>
       <Location name="Gotel"/>
       <Location name="Gresep"/>

BIN
glife.txt


+ 264 - 11
locations/father

@@ -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 ---------------------------------

+ 1 - 0
locations/gargazel

@@ -1,6 +1,7 @@
 # gargazel
 $metka = $ARGS[0]
 $loc = $CURLOC
+fatherdrunk=0
 clr
 gs 'stat'
 '<center><h4>Garage</h4></center>'