father 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341
  1. # father
  2. fatherAge = age + 30
  3. gs 'stat'
  4. gs 'dinfather'
  5. gs 'fathersex'
  6. $metkaM = $ARGS[0]
  7. $locM = $CURLOC
  8. '<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
  9. '<center><img src="images/qwest/alter/father.jpg"></center>'
  10. '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.'
  11. dynamic $fatherRep
  12. act 'Move away':gt $loc, $metka
  13. if week < 6:
  14. if father_go = 0 and hour >= 21:
  15. '"All, Light, enough for today".'
  16. cla
  17. act '<B>Move away</B>':gt $loc, $metka
  18. exit
  19. end
  20. end
  21. if week >= 6:
  22. if father_go = 0 and hour >= 21:
  23. '"All, Light, enough for today".'
  24. cla
  25. act '<B>Move away</B>':gt $loc, $metka
  26. exit
  27. elseif father_go = 1 and hour >= 16:
  28. 'I have to go to the garage.'
  29. cla
  30. act '<B>Move away</B>':gt $loc, $metka
  31. exit
  32. end
  33. end
  34. act 'Chat':
  35. cls
  36. minut+=rand(10,15)
  37. father+=1
  38. gs 'stat'
  39. '<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
  40. '<center><img src="images/qwest/alter/father.jpg"></center>'
  41. 'Stepfather sitting on the couch and watching TV. You sat next to him on the sofa'
  42. dynamic $fatherRep
  43. act '<B>Further</B>':gt $locM, $metkaM
  44. if father<20:
  45. dynamic $d_father[1]
  46. exit
  47. elseif father>=20 and father<40:
  48. dynamic $d_father[2]
  49. exit
  50. elseif father >=40:
  51. if vnesh<=15:
  52. dynamic $d_father[3]
  53. exit
  54. end
  55. if vnesh>15:
  56. dynamic $d_father[4]
  57. exit
  58. end
  59. end
  60. end
  61. act 'Ask for money':
  62. cls
  63. minut += 5
  64. gs 'stat'
  65. '<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
  66. '<center><img src="images/qwest/alter/father.jpg"></center>'
  67. 'Stepfather sitting on the couch and watching TV. You sat next to him on the sofa'
  68. dynamic $fatherRep
  69. act 'Move away':gt $loc, $metka
  70. ''
  71. if fatherPayDay = daystart:
  72. '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."'
  73. else
  74. if father<=40 and TouchedByFather=0 or vnesh<=15 and TouchedByFather=0:
  75. 'You asked for money stepfather, But in response, he only shook his head: - "All my mother`s salary bear, Come here and ask her."'
  76. else
  77. 'You asked for money stepfather, But in response, he only shook his head: - "All my mother`s salary bear, Come here and ask her."'
  78. if father>=40 and father<60 and fatherPayDay ! daystart:FatherMolest = RAND (1,4)
  79. if father>=60 and father<80 and fatherPayDay ! daystart:FatherMolest = RAND (1,2)
  80. if father>=80 and fatherPayDay ! daystart:FatherMolest = 1
  81. if FatherMolest=1:
  82. 'During a call, you notice, stepfather in a good mood today,, so that, perhaps, you have a chance to persuade him...'
  83. act 'Oh please':
  84. cla
  85. minut+=5
  86. gs 'stat'
  87. horny+=RAND(1,5)
  88. '- Well shake-and-aluysta, - drawling ask you, I am looking at him puppy eyes and flapping his expressive eyes.'
  89. if vnesh < 15:fatherLust = 2
  90. if vnesh >= 15 and vnesh < 30:fatherLust = Rand (1,4)
  91. if vnesh >= 30 and vnesh < 50:fatherLust = Rand (1,2)
  92. if vnesh >= 50:fatherLust = 1
  93. if fatherLust>=2:
  94. '- Light, Well, I said,, that I have no money. Come to Mama.'
  95. end
  96. if fatherLust=1:
  97. money+=rand(200,300)
  98. fatherPayDay = daystart
  99. gs 'stat'
  100. '- 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.'
  101. end
  102. act '<B>Move away</B>':gt $loc, $metka
  103. end
  104. if hadsexwithfather=1:
  105. act 'Are not you forgetting?':
  106. cla
  107. minut+=5
  108. money+=rand(300,500)
  109. fatherPayDay = daystart
  110. gs 'stat'
  111. '- Are not you forgetting? - serious voice you say, an apparent reference to your recent him "relationship".'
  112. '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.'
  113. '- Here`s, infection! You can not not take advantage Now! So be, on. Just keep your mouth shut!'
  114. act '<B>Further</B>':gt $locM, $metkaM
  115. end
  116. end
  117. end
  118. if FatherMolest>1:
  119. '- No, Sveta. I`ve already said,. - All appearances, the money from him now, you obviously did not get.'
  120. end
  121. end
  122. end
  123. end
  124. act 'Ask about his mother and':
  125. cls
  126. minut += 5
  127. gs 'stat'
  128. '<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
  129. '<center><img src="images/qwest/alter/father.jpg"></center>'
  130. '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. "'
  131. act 'Move away':gt $loc, $metka
  132. end
  133. act 'Ask about his work':
  134. cls
  135. minut += 5
  136. gs 'stat'
  137. '<center><b><font color="maroon">Stepfather Vladimir Mikhailovich Scriabin</font></b></center>'
  138. '<center><img src="images/qwest/alter/father.jpg"></center>'
  139. '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."'
  140. act 'Move away':gt $loc, $metka
  141. end
  142. if motherKnowSpravka = 1 and hadsexwithfather=0:
  143. cla
  144. father = 0
  145. motherKnowSpravka = 2
  146. '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?"'
  147. act 'Move away':gt $loc, $metka
  148. end
  149. if alko > 0 and alkoday ! daystart:
  150. alkoday = daystart
  151. father -= 1
  152. 'Stepfather sniffed "<<$name>> from you smell alcohol, what is this mess? You''re too young to drink that!"'
  153. end
  154. act 'Ask, as he outfit':
  155. cls
  156. minut+=rand(10,15)
  157. gs 'stat'
  158. '<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
  159. '<center><img src="images/qwest/alter/father.jpg"></center>'
  160. 'Stepfather sitting on the couch watching TV. You sat next to him on the sofa'
  161. dynamic $fatherRep
  162. act '<B>Further</B>':gt $locM, $metkaM
  163. ''
  164. if father<=40 or vnesh<=15:
  165. '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.'
  166. else
  167. 'You, coquettishly smiling stepfather, We were asked to rate your outfit.'
  168. dynamic $din_father_hapri
  169. if father>=40 and father<60:FatherMolest = RAND (1,8)
  170. if father>=60 and father<80:FatherMolest = RAND (1,4)
  171. if father>=80:FatherMolest = RAND (1,2)
  172. if FatherMolest=1:
  173. horny+=RAND(1,5)
  174. gs 'stat'
  175. '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.'
  176. if horny>=50 or TouchedByFather=1:
  177. dynamic $din_vertetzopa
  178. 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.'
  179. end
  180. if horny>=90 or TouchedByFather=1:
  181. dynamic $din_popravit
  182. dynamic $din_potr
  183. end
  184. end
  185. if FatherMolest>1:
  186. 'You twirled on the spot, letting him see themselves from all sides, then go to the complacent view.'
  187. cla
  188. act '<B>Further</B>':gt $locM, $metkaM
  189. end
  190. end
  191. end
  192. act 'Watch TV together':
  193. cls
  194. minut+=60
  195. willpower+=RAND(5,10)
  196. manna+=RAND(10,50)
  197. gs 'stat'
  198. '<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
  199. '<center><img src="images/pics/telek.jpg"></center>'
  200. dynamic $fatherRep
  201. act '<B>Further</B>':gt $locM, $metkaM
  202. if father<20:
  203. dynamic $d_watchtv[1]
  204. exit
  205. elseif father>=20 and father<40:
  206. dynamic $d_watchtv[2]
  207. exit
  208. elseif father >=40:
  209. if vnesh<=15:
  210. dynamic $d_watchtv[3]
  211. exit
  212. end
  213. if vnesh>15:
  214. dynamic $d_watchtv[4]
  215. exit
  216. end
  217. end
  218. end
  219. if mother_go = 1 and hour = 16 and TouchedByFather = 1 and horny >= 50 or hadsexwithfather=1 and mother_go = 1 and hour = 16:
  220. act 'Seduce':
  221. if father<20:
  222. dynamic $d_father[1]
  223. exit
  224. elseif father>=20 and father<40:
  225. dynamic $d_father[2]
  226. exit
  227. elseif father >=40:
  228. if vnesh<=15:
  229. $d_father[3]
  230. exit
  231. end
  232. if vnesh>15:
  233. dynamic $d_fathersex[1]
  234. exit
  235. end
  236. end
  237. end
  238. end
  239. ! WD: Fix old nude variable
  240. if $clothingworntype = 'nude':
  241. 'Stepfather with a smirk looking at you - "Nifiga! Blyadinka growing. Did you ever be ashamed,I-I`m still the man."'
  242. if hadsexwithfather ! 1:
  243. if father>=40:
  244. 'Then he turned away added - "A body so Nitsche, I vdulby... but go get dressed mother home"'
  245. father += 1
  246. act '<B>Move away</B>':gt 'bedrPar'
  247. exit
  248. else
  249. 'Then he turned away added - "Here is a whore ... Run go get dressed"'
  250. father -= 1
  251. act '<B>Move away</B>':gt 'bedrPar'
  252. exit
  253. end
  254. else
  255. if mother_go = 0:$mother_go_text = 'but go get dressed mother home'
  256. 'Continuing to look at you, he added, - "Beauty.. <<$mother_go_text>>"'
  257. if mother_go = 0:
  258. act '<B>Move away</B>':gt 'bedrPar'
  259. exit
  260. end
  261. end
  262. end
  263. if hadsexwithfather=1:fatherwantssex=rand(1,2)
  264. ! WD: Fix old nude variable
  265. ! if nude = 1:
  266. if $clothingworntype = 'nude': fatherwantssex=1
  267. if hadsexwithfather=1 and fatherwantssex=1 and mother_go = 1 and hour = 16 and father>60:
  268. cls
  269. gs 'stat'
  270. '<center><B><font color=maroon>Stepfather Vladimir Skryabin</font></B></center>'
  271. '<center><img src="images/qwest/alter/father.jpg"></center>'
  272. ! WD: Fix old nude variable
  273. if $clothingworntype = 'nude': '- Wow, I see you`ve prepared, I undressed for "Daddy"'
  274. '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."'
  275. act '<B>Move away</B>':gt $loc, $metka
  276. act 'Kneel down':dynamic $d_fatherblow_act[4]
  277. end
  278. if TorgVokzalTimes > 0 and YouCanGar = 0:
  279. act 'Ask for permission to store goods in the garage':
  280. cls
  281. minut += 5
  282. gs 'stat'
  283. '<center><b><font color="maroon">Stepfather Vladimir Skryabin</font></b></center>'
  284. '<center><img src="images/qwest/alter/father.jpg"></center>'
  285. 'You asked for permission to store his stepfather in the garage items.'
  286. if father + dom >= 80:
  287. YouCanGar = 1
  288. 'Stepfather hesitated still allow you to use it for garage storage of goods for sale.'
  289. else
  290. 'Stepfather shook his head "No <<$nickname>>. I have ."'
  291. end
  292. act 'move_away':gt $loc, $metka
  293. end
  294. end
  295. $fatherRep = {
  296. if father<20:'You stepfather terrible scandal.'
  297. if father>=20 and father<40:'You stepfather tensions.'
  298. if father>=40 and father<60:'You have a normal relationship with his stepfather.'
  299. if father>=60 and father<80:'You have a good relationship with his stepfather.'
  300. if father>=80:'You have a great relationship with his stepfather.'
  301. ''
  302. }
  303. --- father ---------------------------------