1
0

father 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652
  1. # father
  2. fatherAge = year - ((npc_dob['A28'] - (npc_dob['A28'] mod 10000)) / 10000)
  3. gs 'stat'
  4. $location_type = 'event'
  5. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  6. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  7. '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.'
  8. $fatherRep = {
  9. *pl
  10. if npc_rel['A28'] < 20:
  11. 'You and your stepfather can''t stand each other, and spend as little time in the same room as possible.'
  12. elseif npc_rel['A28'] < 40:
  13. 'You and your stepfather don''t get along very well.'
  14. elseif npc_rel['A28'] < 60:
  15. 'You have a normal relationship with your stepfather.'
  16. elseif npc_rel['A28'] < 80:
  17. 'You have a good relationship with your stepfather.'
  18. else
  19. 'You have a great relationship with your stepfather.'
  20. end
  21. *pl
  22. }
  23. dynamic $fatherRep
  24. act 'Move away':gt $loc, $metka
  25. !--------------------------------father comments on appearance changes------------------------------------------------
  26. ! hair color
  27. if hcolfronce = 0:
  28. hcolfatherremember = pcs_haircol
  29. hcolfronce = 1
  30. end
  31. if hcolfatherremember ! pcs_haircol:
  32. if pcs_haircol = nathcol:
  33. $texthcol = 'Or, rather, un-dyed your hair. So you decided to go back to your natural color?'
  34. elseif pcs_haircol = 0:
  35. $texthcol = 'So you decided to go with black hair?'
  36. elseif pcs_haircol = 1:
  37. $texthcol = 'So you decided to become a brunette?'
  38. elseif pcs_haircol = 2:
  39. $texthcol = 'So you decided to become a brazen redhead?'
  40. elseif pcs_haircol = 3:
  41. $texthcol = 'So you decided to become a blonde?'
  42. end
  43. 'Your stepfather looks at you for a second, noticing that something is different about you. His eyes widen as he notices your hair. "Oh <<$pcs_nickname>>, I see you dyed your hair! <<$texthcol>>" It looks good on you.'
  44. hcolfatherremember = pcs_haircol
  45. end
  46. ! tongue piercing
  47. if pirsA > 0 and pirsA < 10000 and pirsAfather=0 and pirsadaytalk!daystart:
  48. pirseerand=rand(1,100)
  49. pirsadaytalk=daystart
  50. if pirseerand>=75:
  51. 'Your stepfather looks at your mouth funnily as you greet him. "<<$pcs_nickname>>, do you have something shiny in your mouth?"'
  52. act'"No"':
  53. cla
  54. 'You shake your head: "Umm, no! No I don''t!"'
  55. 'You quickly turn away before he can get a good look at your tongue piercing.'
  56. act 'Move away':gt $loc, $metka
  57. end
  58. act'"Yes, want to see?"':
  59. cls
  60. pirsAfather=1
  61. gs'stat'
  62. '<center><img <<$set_imgh>> src="images/pc/body/piercings/pirsa.jpg" ></center>'
  63. 'You open your mouth and stick out your tongue, showing him your piercing.'
  64. if TouchedByFather=0:'Your stepfather shakes his head: "<<$pcs_nickname>>, tongue piercings are only for lewd women who use their mouth to please men."'
  65. if TouchedByFather>0:'Your stepfather grins: "Nice, I bet you could make someone feel really good with that..."'
  66. act 'Move away':gt $loc, $metka
  67. end
  68. exit
  69. end
  70. end
  71. ! lip piercing
  72. if pirsB > 0 and pirsB < 10000 and pirsBfather=0 and pirsbdaytalk!daystart:
  73. pirsadbytalk=daystart
  74. 'Your stepfather takes a long look at your mouth, specifically at your new piercing. He seems confused and asks: "Why did you get that?"'
  75. act '"Don''t you think it looks cute?"':
  76. cls
  77. pirsBfather=1
  78. gs'stat'
  79. '<center><img <<$set_imgh>> src="images/pc/body/piercings/b1.jpg" ></center>'
  80. 'You shrug. "I don''t know... I just like the way lip rings look, so I got one. Don''t you think it looks cute?"'
  81. if TouchedByFather=0:
  82. 'Your stepfather shakes his head: "Kids these days, always adding new holes to themselves..."'
  83. end
  84. if TouchedByFather>0:
  85. 'Your stepfather grins: "I must admit, it does look sexy on you."'
  86. end
  87. act 'Move away':gt $loc, $metka
  88. end
  89. exit
  90. end
  91. ! earrings
  92. if pirsC > 0 and pirsC < 10000 and pirsCfather=0:
  93. pirsCfather=1
  94. 'Your stepfather looks at your ears, noting your earrings: "I see you got your ears pierced? Your earrings are very cute."'
  95. end
  96. ! nose ring
  97. if pirsD > 0 and pirsD < 10000 and pirsDfather=0:
  98. pirsDfather=1
  99. 'Your stepfather looks a bit shocked at your nose ring: "Jesus, <<$pcs_nickname>>, what is- why?! I understand putting a ring in a bull''s nose to lead them by, but on a person? There''s no reason to do that!"'
  100. end
  101. ! eyebrow piercing
  102. if pirsE > 0 and pirsE < 10000 and pirsEfather=0:
  103. pirsEfather=1
  104. 'Your stepfather looks surprised when he sees your eyebrow piercing: "<<$pcs_nickname>>, why would you want that thing in your eyebrow?" He shakes his head in exasperation. "Kids these days..."'
  105. end
  106. ! lip tattoo
  107. if tatlip>0 and fatherTatLip=0 and npc_rel['A28']>=60:
  108. act 'Show him your lip tattoo':
  109. cls
  110. fatherTatLip=1
  111. minut+=1
  112. gs'stat'
  113. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg" ></center>'
  114. if tatlip = 2: $textFatherTatLip = 'A tattoo on the inside of your lip?! That must''ve hurt like hell... it is cute, though.'
  115. if tatlip ! 2: $textFatherTatLip = 'That''s crazy! Why would you get something like that written on you, much less there?! No one would even think of doing that when I was your age.'
  116. 'You pull your lip down, showing your stepfather the tattoo on the inside of your lip. Your stepfather looks surprised: "<<$textFatherTatLip>>"'
  117. act 'Move away':gt $loc, $metka
  118. end
  119. end
  120. if $clothingworntype = 'nude' and pregTalkFather = 0 and pregtime > 90:
  121. 'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
  122. if npc_sex['A28']!0:
  123. 'You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "It''s not mine, I hope?"'
  124. end
  125. pregTalkFather = 1
  126. elseif $clothingworntype ! 'nude' and pregTalkFather = 0 and pregtime > 150:
  127. 'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
  128. if npc_sex['A28']!0:
  129. 'You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "It''s not mine, I hope?"'
  130. end
  131. pregTalkFather = 1
  132. end
  133. !!----------------------------------------end reaction block---------------------------------------------
  134. if week < 6:
  135. if hour = 8:
  136. '"Alright <<$pcs_nickname>>. It''s getting late, I need to go to work. See you later."'
  137. cla
  138. act '<B>Continue</B>':gt $loc, $metka
  139. exit
  140. end
  141. if father_go = 0 and hour >= 21:
  142. '"Alright <<$pcs_nickname>>. It''s getting late, I need to get to bed. See you tomorrow."'
  143. cla
  144. act '<B>Continue</B>':gt $loc, $metka
  145. exit
  146. end
  147. end
  148. if week >= 6:
  149. if father_go = 0 and hour >= 21:
  150. '"Alright <<$pcs_nickname>>. It''s getting late, I need to get to bed. See you tomorrow."'
  151. cla
  152. act '<B>Continue</B>':gt $loc, $metka
  153. exit
  154. elseif father_go = 1 and hour >= 16:
  155. 'Sorry <<$pcs_nickname>>, I have to go to the garage.'
  156. cla
  157. act '<B>Continue</B>':gt $loc, $metka
  158. exit
  159. end
  160. end
  161. act 'Chat':
  162. cls
  163. minut+=rand(10,15)
  164. npc_rel['A28']+=1
  165. gs 'stat'
  166. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  167. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  168. 'Your stepfather sits on the couch in the living room, he is watching TV. You decide to join for a while and sit down next to him.'
  169. dynamic $fatherRep
  170. act 'Move away':gt $loc, $metka
  171. if npc_rel['A28'] < 20:
  172. gs 'dinfather', 'father 1'
  173. exit
  174. elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
  175. gs 'dinfather', 'father 2'
  176. exit
  177. elseif npc_rel['A28'] >= 40:
  178. if pcs_apprnc + (npc_rel['A28']/10) <= 60:
  179. gs 'dinfather', 'father 3'
  180. exit
  181. end
  182. if pcs_apprnc + (npc_rel['A28']/10)>60:
  183. gs 'dinfather', 'father 4'
  184. exit
  185. end
  186. end
  187. end
  188. if (hour > 10 and week < 6) or week >= 6:
  189. act 'Ask for money':
  190. cls
  191. minut += 5
  192. gs 'stat'
  193. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  194. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  195. 'Your stepfather is sitting on the couch, watching some boring TV show. You sit down next to him.'
  196. dynamic $fatherRep
  197. act 'Move away':gt $loc, $metka
  198. if fatherPayDay = daystart:
  199. 'Trying your cutest face on your stepfather, you ask him for some money. He just shook his head wearily: "No, <<$pcs_nickname>>. I''ve already given you some money today, don''t be greedy."'
  200. else
  201. if (npc_rel['A28'] <= 40 or (pcs_apprnc + (npc_rel['A28']/10)) <= 60) and TouchedByFather = 0:
  202. 'You ask your stepfather for some money, but he shakes his head in response: "I already gave my salary to your mother, go ask her."'
  203. else
  204. 'You ask your stepfather for some money, but he shakes his head in response: "I already gave my salary to your mother, go ask her."'
  205. if npc_rel['A28'] >= 40 and npc_rel['A28'] < 60 and fatherPayDay ! daystart:FatherMolest = RAND(1,4)
  206. if npc_rel['A28'] >= 60 and npc_rel['A28'] < 80 and fatherPayDay ! daystart:FatherMolest = RAND(1,2)
  207. if npc_rel['A28'] >=80 and fatherPayDay ! daystart:FatherMolest = 1
  208. if FatherMolest = 1:
  209. 'While you''re talking with him, you notice your stepfather is in a good mood today. Perhaps you can persuade him...'
  210. act '"Oh please?"':
  211. cla
  212. minut+=5
  213. gs 'stat'
  214. pcs_horny += RAND(1,5)
  215. '"Oh come on, please Daddy?" you beg him, batting your eyelids and trying to look as cute as possible.'
  216. if pcs_apprnc + (npc_rel['A28']/10) >= 200:
  217. fatherLust = 1
  218. elseif pcs_apprnc + (npc_rel['A28']/10) >= 120:
  219. fatherLust = Rand (1,2)
  220. elseif pcs_apprnc + (npc_rel['A28']/10) >= 60:
  221. fatherLust = Rand (1,4)
  222. else
  223. fatherLust = 2
  224. end
  225. if fatherLust >= 2:
  226. '"Sorry <<$pcs_nickname>>, like I said, I have no money. Go ask your mother."'
  227. else
  228. money += rand(200,300)
  229. persuas_exp += rand(0,2)
  230. fatherPayDay = daystart
  231. gs 'stat'
  232. '"Oh, alright then. Just don''t tell your mother!" he says in a tired voice, keeping his eyes on the doorway as he gives you the money. You act genuinely happy as you take the money from him, giving him a kiss on the cheek as you go.'
  233. end
  234. act 'Move away':gt $loc, $metka
  235. end
  236. if npc_sex['A28']!0:
  237. act 'Blackmail him':
  238. cla
  239. minut += 5
  240. money += rand(300,500)
  241. fatherPayDay = daystart
  242. gs 'stat'
  243. '"Aren''t you forgetting something?" you say in a serious voice, referring to your recent intimate moments with him.'
  244. 'Your stepfather is clearly embarrassed by this, and surprised at you for bringing it up. He clears his throat loudly, and the following silence makes you feel slightly uncomfortable. Nevertheless, he reaches for his wallet.'
  245. '"Here you go, you leech! You know you shouldn''t be taking advantage of me like that! Here, take your money and get out of here. Just keep your mouth shut!" You nod and pocket the money, feeling slightly worse for blackmailing him for it.'
  246. act 'Move away':gt $loc, $metka
  247. end
  248. end
  249. end
  250. if FatherMolest > 1:
  251. '"<<$pcs_nickname>>, I already said no."'
  252. end
  253. end
  254. end
  255. end
  256. act 'Ask about him and your mother':
  257. cls
  258. minut += 5
  259. gs 'stat'
  260. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  261. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  262. 'You ask your stepfather how he met your mother. Your stepfather scratches his slightly balding head and replies: "I used to work as a taxi driver back then, drove your mother to places from time to time and we got along very well. Natasha is a strong and independant woman, raising you and Anya all by herself after she left your father. I didn''t know him very well, I''ve only met him a couple of times. All I know is that his name is Mikhail Kuznetsov, and that he moved to a different city soon after he and your mother divorced."'
  263. act 'Move away':gt $loc, $metka
  264. end
  265. act 'Ask about his work':
  266. cls
  267. minut += 5
  268. gs 'stat'
  269. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  270. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  271. 'You ask your stepfather about his work. Your stepfather reaches for his aching joints, with a grimace on his face. "I used to be a taxi driver. It was hard work though, often working many hours a day, and it could be dangerous too. With some money we saved up I bought a Gazelle pickup truck, and now I drive that selling goods and making deliveries. As you know I have two garages; one for our Volga, and the other one for the Gazelle."'
  272. act 'Move away':gt $loc, $metka
  273. end
  274. if motherKnowSpravka = 1 and npc_sex['A28']=0:
  275. cla
  276. npc_rel['A28'] = 0
  277. motherKnowSpravka = 2
  278. 'Your stepfather angrily walked up to you: "Damnit <<$pcs_nickname>>, your mother told me you''re sexually active already! You''re still so young! I know I can''t stop you, but at least have some decency and don''t bring them to our house." His facial expression then softens, and he adds in a milder voice: "And please... be careful, okay?" You can tell your stepfather is very disappointed in you.'
  279. act 'Move away':gt $loc, $metka
  280. exit
  281. end
  282. if alko > 1 and alkoday ! daystart:
  283. alkoday = daystart
  284. npc_rel['A28'] -= 1
  285. 'Your stepfather notices the sharp smell of booze on you and looks disappointed. "<<$pcs_nickname>>, you smell like alcohol, what are you getting yourself into? You''re too young to drink that!"'
  286. end
  287. if TorgVokzalTimes>0 and YouCanGar=0:
  288. act 'Ask him permission to store things in his garage':
  289. cls
  290. minut+=5
  291. gs'stat'
  292. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  293. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg" ></center>'
  294. 'You ask your stepfather if it is okay for you to store some things in his garage.'
  295. if (npc_rel['A28'] + pcs_dom) >= 80 or TouchedByFather = 1:
  296. YouCanGar=1
  297. 'Your stepfather reluctantly agrees to let you store some things in his garage. You can hide some of your trinkets there now.'
  298. else
  299. 'Your stepfather shook his head and said "Sorry <<$pcs_nickname>>. The garage already has more stuff in it than I would like, there''s simply no room."'
  300. end
  301. act 'Move away':gt $loc, $metka
  302. end
  303. end
  304. act 'Ask him what he thinks of your outfit':
  305. cls
  306. minut += rand(10,15)
  307. gs 'stat'
  308. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  309. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  310. 'Your stepfather is sitting on the couch, watching TV. You sat next to him on the sofa.'
  311. dynamic $fatherRep
  312. act 'Move away':gt $loc, $metka
  313. ''
  314. if npc_rel['A28'] <= 40 or (pcs_apprnc + (npc_rel['A28']/10)) <= 60:
  315. 'You ask your stepfather what he thinks of your outfit. It looks like he''s not in the mood to indulge you, and impatiently waves you away with his hand: "Don''t bother me <<$pcs_nickname>>, I''m busy.'
  316. else
  317. 'You move slightly closer towards your stepfather, flirtatiously smile at him and ask him what he thinks of your outfit.'
  318. if pcs_hairbsh <= 0:
  319. pcs_mood -= 5
  320. 'You notice your stepfather keeps glancing at your disheveled hair with a disapproving look on his face. "Silly me, I should really take better care of my hair!" you think to yourself.'
  321. end
  322. if npc_rel['A28'] >= 40 and npc_rel['A28'] < 60:FatherMolest = RAND(1,8)
  323. if npc_rel['A28'] >= 60 and npc_rel['A28'] < 80:FatherMolest = RAND(1,4)
  324. if npc_rel['A28'] >= 80:FatherMolest = RAND(1,2)
  325. if FatherMolest=1:
  326. pcs_horny += RAND(1,5)
  327. gs 'stat'
  328. 'He seems happy to oblige, and asks you to twirl your body so he can look at your outfit from all angles. The approving nod and hungry look in his eyes that follow, show that he would like to do more than just watch.'
  329. if pcs_horny >= 50 or TouchedByFather = 1:
  330. act 'Sway your hips back and forth':
  331. cls
  332. gs 'arousal', 'foreplay', 5, 'incest', 'exhibitionism'
  333. gs 'arousal', 'end'
  334. gs 'stat'
  335. 'In the heat of the moment you gently start to sway your hips back and forth, without even realizing it. When you realize what you''re doing, you stare your stepfather in the eye for a second with a mischievous smile on your lips. You then turn your back to him and keep swaying your ass seductively.'
  336. if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
  337. if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120:fatherLust = Rand (1,4)
  338. if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200:fatherLust = Rand (1,2)
  339. if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather=1:fatherLust = 1
  340. if fatherLust>=2:
  341. pcs_horny -= RAND(1,5)
  342. gs 'stat'
  343. if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim47.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 a bit uncomfortable.'
  344. if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim48.jpg"></center>' & 'You avoid his gaze while you keep swaying your ass back and forth, slowly pulling your clothes away so he can see you''re not wearing any underwear. He sighs wistfully and tries to look away, saying in a stern voice: "<<$pcs_nickname>>, this is not fair, you know I am not made of stone. Don''t show me your bare ass like that." Realizing he wants no more part of your little show, you leave.'
  345. elseif fatherLust=1:
  346. if $pantyworntype ! 'none':
  347. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim49.jpg"></center>'
  348. 'As you slowly sway your ass for his viewing pleasure, you notice your stepfather focusing sharply on your ass crack. It takes a few seconds for you to figure out why, but then you remember one of his fetishes: he likes it when girls don''t wear underwear. You bet you could really turn him on if you took them off.'
  349. if pcs_horny >= 90:
  350. act 'Give him your panties':
  351. cls
  352. gs 'stat'
  353. gs 'underwear', 'dispose'
  354. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim50.jpg"></center>'
  355. 'Wanting to see just how riled up you can get your stepfather, you bend over and slowly pull your panties down. "Is this better, Daddy?" you sweetly ask him, and your stepfather panics while you run your hands over your naked ass, gently kneading your ass cheeks. "<<$pcs_nickname>>, please don''t do that! Someone could come in at any second! What do you think your mother would do to you AND me when she sees this!?" he whispers, as he moves to you and frantically tries to cover you up. You sweetly smile at him and whisper: "Relax Daddy, we''re fine! Here, for later," as you stuff your panties in his pocket.'
  356. act 'Move away':gt $loc, $metka
  357. end
  358. end
  359. elseif $pantyworntype = 'none':
  360. '<center><video autoplay loop src="images/characters/pavlovsk/resident/vladimir/sex/fatherim51.mp4"></video></center>' & 'As you sway your ass in front of your stepfather, you notice his eyes fixating on your ass crack. "What''s this <<$pcs_nickname>>, no panties?" He pushes you down onto your hands and knees and roughly kneads your ass cheeks, pulling them apart. Looks like he is done being teased, and turned the tables on you. He lowers his hands to your upper thighs and pulls your pussy wide open. The wet sheen on your pussy lips gives away how much you enjoy his treatment, and you do your best to stifle your moans so no one else in the house will hear. Thoroughly enjoying the stimulations he is giving you, you can feel your pussy moisten more and more.'
  361. end
  362. end
  363. act 'Move away':gt $loc, $metka
  364. end
  365. if 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 is, at least, pleasantly surprised by your request.'
  366. end
  367. if pcs_horny >= 90 or TouchedByFather = 1:
  368. if $clothingworntype ! 'nude':
  369. act 'Let him touch your clothes':
  370. cls
  371. gs 'arousal', 'foreplay', 5, 'incest', 'exhibitionism'
  372. gs 'arousal', 'end'
  373. gs 'stat'
  374. 'You innocently offer him to have a feel at the fabric, pretending you''re really interested to know what he thinks of your the quality of your clothing. Your stepfather looks at you with a slightly puzzled look on his face. "Go on, touch it, it''s so nice and soft!" you encourage him, and you take his hand and pull it towards you.'
  375. if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
  376. if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120:fatherLust = Rand (1,4)
  377. if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200:fatherLust = Rand (1,2)
  378. if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather=1:fatherLust = 1
  379. if fatherLust>=2:
  380. pcs_horny -= RAND(1,5)
  381. gs 'stat'
  382. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim41.jpg"></center>'
  383. 'Your stepfather clearly doesn''t want to, and is slightly embarrassed by the whole situation. He quickly pulls his hand away and tells you to go straighten your clothes.'
  384. end
  385. if fatherLust=1:
  386. TouchedByFather=1
  387. if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim42.jpg"></center>' & 'Your stepfather smiles and eagerly reaches for your ass, kneading it rougher than you had anticipated. A bit startled at his roughness you squeak out a soft "Oh!" as he gives it a few slaps. He then sits back on the couch, amused at your embarrassed expression and red face. "You''re right, <<$pcs_nickname>>... it''s very soft indeed. Very nice."'
  388. if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim25.jpg"></center>' & 'Judging from your stepfather''s flustered face, he is more than happy to oblige. He grabs you and bends you over the rear of the couch. You can''t see what he''s doing, but immediately feel his hand brushing against your wet pussy. He slides a finger in and pumps it in and out for a little while, filling the room with squishy noises. You let out a needy moan and feel a tinge of regret when he pulls his hand away and helps you back up. "Daddy, you didn''t even touch my clothes!" you pout. He simply gives you a wink and then returns his attention to the TV.'
  389. end
  390. act 'Move away':gt $loc, $metka
  391. end
  392. act 'Adjust your clothes':
  393. cls
  394. gs 'arousal', 'foreplay', 5, 'incest', 'exhibitionism'
  395. gs 'arousal', 'end'
  396. gs 'stat'
  397. 'Encouraged by your stepfather''s reaction, you put your hands on your breasts and pretend you''re straightening your clothes. You run your fingers down to your stomach and groin while plucking at the fabric, giving him one hell of a show. He can''t take his eyes off your body and you can tell your actions make him want you more than ever.'
  398. if pcs_apprnc + (npc_rel['A28']/10) < 60:fatherLust = 2
  399. if pcs_apprnc + (npc_rel['A28']/10) >= 60 and pcs_apprnc + (npc_rel['A28']/10) < 120:fatherLust = Rand (1,4)
  400. if pcs_apprnc + (npc_rel['A28']/10) >= 120 and pcs_apprnc + (npc_rel['A28']/10) < 200:fatherLust = Rand (1,2)
  401. if pcs_apprnc + (npc_rel['A28']/10) >= 200 or TouchedByFather=1:fatherLust = 1
  402. if fatherLust>=2:
  403. pcs_horny -= RAND(1,5)
  404. gs 'stat'
  405. if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim45.jpg"></center>' & 'Your stepfather realizes you''re going too far, and interrupts you by clearing his throat loudly. He tells you to go away, making you feel rather uncomfortable.'
  406. if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim46.jpg"></center>' & 'Deciding to take your teasing to the next level, you pull your clothes to the side and show him your bare pussy. Your stepfather realizes you''re taking it too far, and sends you off: "<<$pcs_nickname>>, stop that. And go put on some underwear, that''s no way for a lady to behave."'
  407. end
  408. if fatherLust=1:
  409. if $pantyworntype ! 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim43.jpg"></center>' & 'You run your hands over your shoulders and slide the straps off to the side, pretending it is an accident. "Oh no, I can be so clumsy sometimes!" you exclaim, while taking way longer than you need to put them back where they need to be. All the while your stepfather''s eyes are glued to your <<$titsize>> breasts, and his face turns beet red.'
  410. if $pantyworntype = 'none':'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/sex/fatherim44.jpg"></center>' & 'You''re not wearing any panties today, and decide to tease your stepfather with it. Moving over to the window you reach for the curtains and begin to rustle them, while the contours of your body are illuminated by the sun. Your clothes are so thin, your stepfather can clearly see the outline of your bare pussy through the semi-transparent clothes. You turn to face him and innocently say "Oh I''m sorry Daddy, I didn''t mean to disturb you. Should I go?" It takes him a few seconds to nod, but his greedy look tells you there are a lot of things he would want to do to you right here, right now.'
  411. end
  412. act 'Move away':gt $loc, $metka
  413. end
  414. end
  415. end
  416. else
  417. 'You twirl on the spot, showing off your outfit from all sides.'
  418. cla
  419. act 'Move away':gt $loc, $metka
  420. end
  421. end
  422. end
  423. act 'Watch TV together':
  424. cls
  425. minut += 60
  426. pcs_willpwr += RAND(5,10)
  427. pcs_mood += RAND(10,50)
  428. gs 'stat'
  429. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  430. '<center><img <<$set_imgh>> src="images/shared/home/telek.jpg"></center>'
  431. dynamic $fatherRep
  432. act 'Move away':gt $loc, $metka
  433. if npc_rel['A28'] < 20:
  434. gs 'dinfather', 'watchtv1'
  435. exit
  436. elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
  437. gs 'dinfather', 'watchtv2'
  438. exit
  439. elseif npc_rel['A28'] >= 40:
  440. if pcs_apprnc + (npc_rel['A28']/10) <= 60:
  441. gs 'dinfather', 'watchtv3'
  442. exit
  443. end
  444. if pcs_apprnc + (npc_rel['A28']/10) > 60:
  445. gs 'dinfather', 'watchtv4'
  446. exit
  447. end
  448. end
  449. end
  450. end
  451. if mother_go = 1 and hour = 16 and TouchedByFather = 1 and pcs_horny >= 50 or npc_sex['A28']!0 and mother_go = 1 and hour = 16:
  452. act 'Seduce him':
  453. if npc_rel['A28'] < 20:
  454. 'Your stepfather seems to misunderstand your advances.'
  455. gs 'dinfather', 'father 1'
  456. exit
  457. elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
  458. 'Your stepfather seems to misunderstand your advances.'
  459. gs 'dinfather', 'father 2'
  460. exit
  461. elseif npc_rel['A28'] >= 40:
  462. if pcs_apprnc + (npc_rel['A28']/10) <= 60:
  463. 'Your stepfather clears his throat and changes the subject.'
  464. gs 'dinfather', 'father 3'
  465. exit
  466. end
  467. if pcs_apprnc + (npc_rel['A28']/10) > 60:
  468. cls
  469. gs 'stat'
  470. minut+=30
  471. npc_rel['A28']+=20
  472. if analplugIN = 1:
  473. gs 'fathersex', 'fatherbend 1'
  474. else
  475. if $pantyworntype ! 'none':
  476. gs 'fathersex', 'fatherbend 2'
  477. else
  478. gs 'fathersex', 'fatherbend 3'
  479. end
  480. end
  481. end
  482. end
  483. end
  484. end
  485. ! WD: Fix old nude variable
  486. if $clothingworntype = 'nude':
  487. if tatvag > 0 and Putsawtatvag = 0 and $pantyworntype = 'none':
  488. if npc_rel['A28'] >= 70:
  489. 'With your naked body on display, your pubic tattoo catches your stepfather''s eye. "Wow, that is one hard to miss tattoo. Obviously you didn''t get that one just for yourself", he says as he moves towards you and has a closer look.'
  490. npc_rel['A28'] += 1
  491. Putsawtatvag = 1
  492. act 'Move away':gt $loc, $metka
  493. exit
  494. else
  495. '"Damn tattoo, I can''t believe you would soil your body like that." Your stepfather obviously doesn''t like the tattoo you have in your pubic area. '
  496. npc_rel['A28'] -= 1
  497. Putsawtatvag = 1
  498. act 'Move away':gt $loc, $metka
  499. exit
  500. end
  501. end
  502. if pirsF > 0 and pirsF < 10000 and PutsawpirsF = 0:
  503. if npc_sex['A28']=0:
  504. if npc_rel['A28'] >= 60:
  505. '"Hey, those look nice on you!" your stepfather says, nodding at your nipple piercings. He seems to like them.'
  506. npc_rel['A28'] += 3
  507. PutsawpirsF = 1
  508. act 'Move away':gt $loc, $metka
  509. exit
  510. else
  511. '"Why would you do that... you should probably take those out", your stepfather says as he shakes his head, pointing at the piercings in your nipples.'
  512. npc_rel['A28'] -= 1
  513. act 'Move away':gt $loc, $metka
  514. exit
  515. end
  516. else
  517. if hour >= 18 and hour < 21:
  518. '"Hey, those look nice on you!" your stepfather says, nodding at your nipple piercings. He seems to like them.'
  519. npc_rel['A28'] += 3
  520. PutsawpirsF = 1
  521. act 'Move away':gt $loc, $metka
  522. exit
  523. else
  524. '"Wow, those are sexy!" your stepfather says, as he reaches out and touches your nipple piercings. You can''t help but let out an involuntary groan. He admires them for a moment, rubbing his fingers on your nipples and lightly tugging at them before he lets you go.'
  525. npc_rel['A28'] += 3
  526. PutsawpirsF = 1
  527. pcs_horny += 10
  528. act 'Move away':gt $loc, $metka
  529. exit
  530. end
  531. end
  532. end
  533. 'Your stepfather stares at your naked body, you can''t help but notice the admiring look on his face mixed with the torment of him knowing that he should know better. "<<$pcs_nickname>>, have you no shame? You shouldn''t be flaunting your naked body like that, you have no idea what kind of effect it has on men!"'
  534. if npc_sex['A28']=0:
  535. if npc_rel['A28'] >= 40:
  536. 'He reluctantly turned his face away from you, and added: "Your body does look fantastic... but you really should go put some clothes on, your mother is around the house somewhere. Who knows what she''ll do when she sees you walking around like this!"'
  537. npc_rel['A28'] += 1
  538. act 'Move away':gt 'bedrPar'
  539. exit
  540. else
  541. 'He decisively turns his face away from you, avoiding the looks of your naked body. "Don''t be such a whore <<$pcs_nickname>>, go put some clothes on right now."'
  542. npc_rel['A28'] -= 1
  543. act 'Move away':gt 'bedrPar'
  544. exit
  545. end
  546. else
  547. if mother_go = 0:$mother_go_text = '"You really should go put some clothes on though, your mother is home."'
  548. 'His eyes never stop looking at your naked body, you can tell he''s very much impressed by your beauty as you walk around the room.<<$mother_go_text>>"'
  549. if mother_go = 0:
  550. act 'Move away':gt 'bedrPar'
  551. exit
  552. end
  553. end
  554. end
  555. if npc_sex['A28']!0 and pirsG > 0 and pirsG < 10000 and PutsawpirsG = 0 and (hour <= 18 or hour > 21):
  556. act 'Show off your pubic piercing':
  557. cls
  558. gs'stat'
  559. minut += 5
  560. pcs_horny += 15
  561. PutsawpirsG = 1
  562. if pcs_pubes > 10:
  563. '<center><img <<$set_imgh>> src="images/pc/body/piercings/glob.jpg" ></center>'
  564. 'Moving closer to your stepfather, you tease him by showing him your somewhat hairy pussy. He doesn''t know you have a pubic piercing yet, and you plan on showing it off today. As you absently rub your fingers through your bush, the glint of metal catches his eye and he pushes your hand away before you get a chance to tell him about it. "Well well, what do we have here?" he mutters, gently rubbing his fingers over the shiny new piercing. "<<$pcs_nickname>>, you are such a horny devil... I love it, we''re going to have a lot of fun with this." He spends the next few minutes rubbing and tugging on your new piercing, making lewd comments the whole time. After that he reluctantly lets you go, leaving you hornier than before.'
  565. act 'Move away':gt $loc, $metka
  566. else
  567. '<center><img <<$set_imgh>> src="images/pc/body/piercings/g.jpg" ></center>'
  568. 'Moving closer to your stepfather, you tease him by showing him your smooth pussy. He doesn''t know you have a pubic piercing yet, and you plan on showing it off today. As you absently rub your fingers over your labia, the glint of metal catches his eye and he pushes your hand away before you get a chance to tell him about it. "Well well, what do we have here?" he mutters, gently rubbing his fingers over the shiny new piercing. "<<$pcs_nickname>>, you are such a horny devil... I love it, we''re going to have a lot of fun with this." He spends the next few minutes rubbing and tugging on your new piercing, making lewd comments the whole time. After that he reluctantly lets you go, leaving you hornier than before.'
  569. act 'Move away':gt $loc, $metka
  570. end
  571. end
  572. end
  573. if npc_sex['A28']!0:fatherwantssex = rand(1,2)
  574. if $clothingworntype = 'nude': fatherwantssex = 1
  575. if npc_sex['A28']!0 and fatherwantssex = 1 and mother_go = 1 and hour = 16 and npc_rel['A28'] > 60:
  576. cls
  577. gs 'stat'
  578. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  579. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  580. ! WD: Fix old nude variable
  581. if $clothingworntype = 'nude': 'You give your stepfather a lewd smile. "I figured my clothes would only get in the way Daddy, so I took them off for you."'
  582. 'Knowing words are not neccessary, your stepfather simply unbuttons his pants revealing his stiff cock: "<<$pcs_nickname>>, help your old man out will you?"'
  583. act 'Change your mind and leave':gt $loc, $metka
  584. act 'Get down on your knees': gs 'fathersex', 'fatherblow4'
  585. end
  586. --- father ---------------------------------