1
1

father 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554
  1. # father
  2. fatherAge = year - ((npc_dob['A28'] - (npc_dob['A28'] mod 10000)) / 10000)
  3. gs 'stat'
  4. gs 'dinfather'
  5. gs 'fathersex'
  6. $metkaM = $ARGS[0]
  7. $locM = $CURLOC
  8. $location_type = 'event'
  9. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  10. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  11. '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.'
  12. dynamic $fatherRep
  13. act 'Move away':gt $loc, $metka
  14. !--------------------------------father comments on appearance changes------------------------------------------------
  15. ! hair color
  16. if hcolfronce = 0:
  17. hcolfatherremember = pcs_haircol
  18. hcolfronce = 1
  19. end
  20. if hcolfatherremember ! pcs_haircol:
  21. if pcs_haircol = nathcol:
  22. $texthcol = 'Or, rather, un-dyed your hair. So you decided to go back to your natural color?'
  23. elseif pcs_haircol = 0:
  24. $texthcol = 'So you decided to become a brunette?'
  25. elseif pcs_haircol = 1:
  26. $texthcol = 'So you decided to go with black hair?'
  27. elseif pcs_haircol = 2:
  28. $texthcol = 'So you decided to become a brazen redhead?'
  29. elseif pcs_haircol = 3:
  30. $texthcol = 'So you decided to become a blonde?'
  31. end
  32. '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.'
  33. hcolfatherremember = pcs_haircol
  34. end
  35. ! tongue piercing
  36. if pirsA >= 1 and pirsAfather=0 and pirsadaytalk!daystart:
  37. pirseerand=rand(1,100)
  38. pirsadaytalk=daystart
  39. if pirseerand>=75:
  40. 'Your stepfather looks at your mouth funnily as you greet him. "<<$pcs_nickname>>, do you have something shiny in your mouth?"'
  41. act'"No"':
  42. cla
  43. 'You shake your head: "Umm, no! No I don''t!"'
  44. 'You quickly turn away before he can get a good look at your tongue piercing.'
  45. act 'Move away':gt $loc, $metka
  46. end
  47. act'"Yes, want to see?"':
  48. cls
  49. pirsAfather=1
  50. gs'stat'
  51. '<center><img src="images/pc/body/piercings/pirsa.jpg" ></center>'
  52. 'You open your mouth and stick out your tongue, showing him your piercing.'
  53. if TouchedByFather=0:'Your stepfather shakes his head: "<<$pcs_nickname>>, tongue piercings are only for lewd women who use their mouth to please men."'
  54. if TouchedByFather>0:'Your stepfather grins: "Nice, I bet you could make someone feel really good with that..."'
  55. act 'Move away':gt $locM, $metkaM
  56. end
  57. exit
  58. end
  59. end
  60. ! lip piercing
  61. if pirsB = 1 and pirsBfather=0 and pirsbdaytalk!daystart:
  62. pirsadbytalk=daystart
  63. 'Your stepfather takes a long look at your mouth, specifically at your new piercing. He seems confused and asks: "Why did you get that?"'
  64. act '"Don''t you think it looks cute?"':
  65. cls
  66. pirsBfather=1
  67. gs'stat'
  68. '<center><img src="images/pc/body/piercings/b.jpg" ></center>'
  69. '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?"'
  70. if TouchedByFather=0:
  71. 'Your stepfather shakes his head: "Kids these days, always adding new holes to themselves..."'
  72. end
  73. if TouchedByFather>0:
  74. 'Your stepfather grins: "I must admit, it does look sexy on you."'
  75. end
  76. act 'Move away':gt $locM, $metkaM
  77. end
  78. exit
  79. end
  80. ! earrings
  81. if pirsC = 1 and pirsCfather=0:
  82. pirsCfather=1
  83. 'Your stepfather looks at your ears, noting your earrings: "I see you got your ears pierced? Your earrings are very cute."'
  84. end
  85. ! nose ring
  86. if pirsD = 1 and pirsDfather=0:
  87. pirsDfather=1
  88. '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!"'
  89. end
  90. ! eyebrow piercing
  91. if pirsE = 1 and pirsEfather=0:
  92. pirsEfather=1
  93. '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..."'
  94. end
  95. ! lip tattoo
  96. if tatlip>0 and fatherTatLip=0 and npc_rel['A28']>=60:
  97. act 'Show him your lip tattoo':
  98. cls
  99. fatherTatLip=1
  100. minut+=1
  101. gs'stat'
  102. '<center><img src="images/pc/body/tattoos/tatlip<<tatlip>>.jpg" ></center>'
  103. if tatlip = 2: $textFatherTatLip = 'A tattoo on the inside of your lip?! That must''ve hurt like hell... it is cute, though.'
  104. 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.'
  105. 'You pull your lip down, showing your stepfather the tattoo on the inside of your lip. Your stepfather looks surprised: "<<$textFatherTatLip>>"'
  106. act 'Move away':gt $locM, $metkaM
  107. end
  108. end
  109. if $clothingworntype = 'nude' and pregTalkFather = 0 and pregtime > 90:
  110. 'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
  111. if hadsexwithfather=1:
  112. '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?"'
  113. end
  114. pregTalkFather = 1
  115. elseif $clothingworntype ! 'nude' and pregTalkFather = 0 and pregtime > 150:
  116. 'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
  117. if hadsexwithfather=1:
  118. '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?"'
  119. end
  120. pregTalkFather = 1
  121. end
  122. !!----------------------------------------end reaction block---------------------------------------------
  123. if week < 6:
  124. if hour = 8:
  125. '"Alright <<$pcs_nickname>>. It''s getting late, I need to go to work. See you later."'
  126. cla
  127. act '<B>Continue</B>':gt $loc, $metka
  128. exit
  129. end
  130. if father_go = 0 and hour >= 21:
  131. '"Alright <<$pcs_nickname>>. It''s getting late, I need to get to bed. See you tomorrow."'
  132. cla
  133. act '<B>Continue</B>':gt $loc, $metka
  134. exit
  135. end
  136. end
  137. if week >= 6:
  138. if father_go = 0 and hour >= 21:
  139. '"Alright <<$pcs_nickname>>. It''s getting late, I need to get to bed. See you tomorrow."'
  140. cla
  141. act '<B>Continue</B>':gt $loc, $metka
  142. exit
  143. elseif father_go = 1 and hour >= 16:
  144. 'Sorry <<$pcs_nickname>>, I have to go to the garage.'
  145. cla
  146. act '<B>Continue</B>':gt $loc, $metka
  147. exit
  148. end
  149. end
  150. act 'Chat':
  151. cls
  152. minut+=rand(10,15)
  153. npc_rel['A28']+=1
  154. gs 'stat'
  155. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  156. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  157. '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.'
  158. dynamic $fatherRep
  159. act 'Move away':gt $locM, $metkaM
  160. if npc_rel['A28'] < 20:
  161. dynamic $d_father[1]
  162. exit
  163. elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
  164. dynamic $d_father[2]
  165. exit
  166. elseif npc_rel['A28'] >= 40:
  167. if pcs_apprnc <= 60:
  168. dynamic $d_father[3]
  169. exit
  170. end
  171. if pcs_apprnc>60:
  172. dynamic $d_father[4]
  173. exit
  174. end
  175. end
  176. end
  177. if (hour > 10 and week < 6) or week >= 6:
  178. act 'Ask for money':
  179. cls
  180. minut += 5
  181. gs 'stat'
  182. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  183. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  184. 'Your stepfather is sitting on the couch, watching some boring TV show. You sit down next to him.'
  185. dynamic $fatherRep
  186. act 'Move away':gt $loc, $metka
  187. if fatherPayDay = daystart:
  188. '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."'
  189. else
  190. if (npc_rel['A28'] <= 40 or pcs_apprnc <= 60) and TouchedByFather = 0:
  191. '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."'
  192. else
  193. '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."'
  194. if npc_rel['A28'] >= 40 and npc_rel['A28'] < 60 and fatherPayDay ! daystart:FatherMolest = RAND(1,4)
  195. if npc_rel['A28'] >= 60 and npc_rel['A28'] < 80 and fatherPayDay ! daystart:FatherMolest = RAND(1,2)
  196. if npc_rel['A28'] >=80 and fatherPayDay ! daystart:FatherMolest = 1
  197. if FatherMolest = 1:
  198. 'While you''re talking with him, you notice your stepfather is in a good mood today. Perhaps you can persuade him...'
  199. act '"Oh please?"':
  200. cla
  201. minut+=5
  202. gs 'stat'
  203. pcs_horny += RAND(1,5)
  204. '"Oh come on, please Daddy?" you beg him, batting your eyelids and trying to look as cute as possible.'
  205. if pcs_apprnc >= 200:
  206. fatherLust = 1
  207. elseif pcs_apprnc >= 120:
  208. fatherLust = Rand (1,2)
  209. elseif pcs_apprnc >= 60:
  210. fatherLust = Rand (1,4)
  211. else
  212. fatherLust = 2
  213. end
  214. if fatherLust >= 2:
  215. '"Sorry <<$pcs_nickname>>, like I said, I have no money. Go ask your mother."'
  216. else
  217. money += rand(200,300)
  218. fatherPayDay = daystart
  219. gs 'stat'
  220. '"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.'
  221. end
  222. act 'Move away':gt $loc, $metka
  223. end
  224. if hadsexwithfather=1:
  225. act 'Blackmail him':
  226. cla
  227. minut += 5
  228. money += rand(300,500)
  229. fatherPayDay = daystart
  230. gs 'stat'
  231. '"Aren''t you forgetting something?" you say in a serious voice, referring to your recent intimate moments with him.'
  232. '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.'
  233. '"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.'
  234. act 'Move away':gt $locM, $metkaM
  235. end
  236. end
  237. end
  238. if FatherMolest > 1:
  239. '"<<$pcs_nickname>>, I already said no."'
  240. end
  241. end
  242. end
  243. end
  244. act 'Ask about him and your mother':
  245. cls
  246. minut += 5
  247. gs 'stat'
  248. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  249. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  250. '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."'
  251. act 'Move away':gt $loc, $metka
  252. end
  253. act 'Ask about his work':
  254. cls
  255. minut += 5
  256. gs 'stat'
  257. '<center><b><font color="maroon">Your stepfather, Vladimir Mikhailovich Scriabin</font></b></center>'
  258. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  259. '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."'
  260. act 'Move away':gt $loc, $metka
  261. end
  262. if motherKnowSpravka = 1 and hadsexwithfather=0:
  263. cla
  264. npc_rel['A28'] = 0
  265. motherKnowSpravka = 2
  266. '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.'
  267. act 'Move away':gt $loc, $metka
  268. exit
  269. end
  270. if alko > 0 and alkoday ! daystart:
  271. alkoday = daystart
  272. npc_rel['A28'] -= 1
  273. '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!"'
  274. end
  275. if TorgVokzalTimes>0 and YouCanGar=0:
  276. act 'Ask him permission to store things in his garage':
  277. cls
  278. minut+=5
  279. gs'stat'
  280. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  281. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg" ></center>'
  282. 'You ask your stepfather if it is okay for you to store some things in his garage.'
  283. if (npc_rel['A28'] + pcs_dom) >= 80 or TouchedByFather = 1:
  284. YouCanGar=1
  285. 'Your stepfather reluctantly agrees to let you store some things in his garage. You can hide some of your trinkets there now.'
  286. else
  287. '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."'
  288. end
  289. act 'Move away':gt $locM, $metkaM
  290. end
  291. end
  292. act 'Ask him what he thinks of your outfit':
  293. cls
  294. minut += rand(10,15)
  295. gs 'stat'
  296. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  297. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  298. 'Your stepfather is sitting on the couch, watching TV. You sat next to him on the sofa.'
  299. dynamic $fatherRep
  300. act 'Move away':gt $locM, $metkaM
  301. ''
  302. if npc_rel['A28'] <= 40 or pcs_apprnc <= 60:
  303. '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.'
  304. else
  305. 'You move slightly closer towards your stepfather, flirtatiously smile at him and ask him what he thinks of your outfit.'
  306. dynamic $din_father_hapri
  307. if npc_rel['A28'] >= 40 and npc_rel['A28'] < 60:FatherMolest = RAND(1,8)
  308. if npc_rel['A28'] >= 60 and npc_rel['A28'] < 80:FatherMolest = RAND(1,4)
  309. if npc_rel['A28'] >= 80:FatherMolest = RAND(1,2)
  310. if FatherMolest=1:
  311. pcs_horny += RAND(1,5)
  312. gs 'stat'
  313. '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.'
  314. if pcs_horny >= 50 or TouchedByFather = 1:
  315. dynamic $din_vertetzopa
  316. 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.'
  317. end
  318. if pcs_horny >= 90 or TouchedByFather = 1:
  319. dynamic $din_popravit
  320. dynamic $din_potr
  321. end
  322. end
  323. if FatherMolest > 1:
  324. 'You twirl on the spot, showing off your outfit from all sides.'
  325. cla
  326. act 'Move away':gt $locM, $metkaM
  327. end
  328. end
  329. end
  330. act 'Watch TV together':
  331. cls
  332. minut += 60
  333. pcs_willpwr += RAND(5,10)
  334. pcs_mood += RAND(10,50)
  335. gs 'stat'
  336. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  337. '<center><img src="images/shared/home/telek.jpg"></center>'
  338. dynamic $fatherRep
  339. act 'Move away':gt $locM, $metkaM
  340. if npc_rel['A28'] < 20:
  341. dynamic $d_watchtv[1]
  342. exit
  343. elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
  344. dynamic $d_watchtv[2]
  345. exit
  346. elseif npc_rel['A28'] >= 40:
  347. if pcs_apprnc <= 60:
  348. dynamic $d_watchtv[3]
  349. exit
  350. end
  351. if pcs_apprnc > 60:
  352. dynamic $d_watchtv[4]
  353. exit
  354. end
  355. end
  356. end
  357. end
  358. if mother_go = 1 and hour = 16 and TouchedByFather = 1 and pcs_horny >= 50 or hadsexwithfather=1 and mother_go = 1 and hour = 16:
  359. act 'Seduce him':
  360. if npc_rel['A28'] < 20:
  361. 'Your stepfather seems to misunderstand your advances.'
  362. dynamic $d_father[1]
  363. exit
  364. elseif npc_rel['A28'] >= 20 and npc_rel['A28'] < 40:
  365. 'Your stepfather seems to misunderstand your advances.'
  366. dynamic $d_father[2]
  367. exit
  368. elseif npc_rel['A28'] >= 40:
  369. if pcs_apprnc <= 60:
  370. 'Your stepfather clears his throat and changes the subject.'
  371. dynamic $d_father[3]
  372. exit
  373. end
  374. if pcs_apprnc > 60:
  375. dynamic $d_fathersex[1]
  376. exit
  377. end
  378. end
  379. end
  380. end
  381. ! WD: Fix old nude variable
  382. if $clothingworntype = 'nude':
  383. if tatvag > 0 and Putsawtatvag = 0 and tanga = 0:
  384. if npc_rel['A28'] >= 70:
  385. '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.'
  386. npc_rel['A28'] += 1
  387. Putsawtatvag = 1
  388. act 'Move away':gt $loc, $metka
  389. exit
  390. else
  391. '"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. '
  392. npc_rel['A28'] -= 1
  393. Putsawtatvag = 1
  394. act 'Move away':gt $loc, $metka
  395. exit
  396. end
  397. end
  398. if pirsF > 0 and PutsawpirsF = 0:
  399. if hadsexwithfather ! 1:
  400. if npc_rel['A28'] >= 60:
  401. '"Hey, those look nice on you!" your stepfather says, nodding at your nipple piercings. He seems to like them.'
  402. npc_rel['A28'] += 3
  403. PutsawpirsF = 1
  404. act 'Move away':gt $loc, $metka
  405. exit
  406. else
  407. '"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.'
  408. npc_rel['A28'] -= 1
  409. act 'Move away':gt $loc, $metka
  410. exit
  411. end
  412. else
  413. if hour >= 18 and hour < 21:
  414. '"Hey, those look nice on you!" your stepfather says, nodding at your nipple piercings. He seems to like them.'
  415. npc_rel['A28'] += 3
  416. PutsawpirsF = 1
  417. act 'Move away':gt $loc, $metka
  418. exit
  419. else
  420. '"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.'
  421. npc_rel['A28'] += 3
  422. PutsawpirsF = 1
  423. pcs_horny += 10
  424. act 'Move away':gt $loc, $metka
  425. exit
  426. end
  427. end
  428. end
  429. '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!"'
  430. if hadsexwithfather ! 1:
  431. if npc_rel['A28'] >= 40:
  432. '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!"'
  433. npc_rel['A28'] += 1
  434. act 'Move away':gt 'bedrPar'
  435. exit
  436. else
  437. '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."'
  438. npc_rel['A28'] -= 1
  439. act 'Move away':gt 'bedrPar'
  440. exit
  441. end
  442. else
  443. if mother_go = 0:$mother_go_text = '"You really should go put some clothes on though, your mother is home."'
  444. '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>>"'
  445. if mother_go = 0:
  446. act 'Move away':gt 'bedrPar'
  447. exit
  448. end
  449. end
  450. end
  451. if hadsexwithfather = 1 and pirsG = 1 and PutsawpirsG = 0 and (hour <= 18 or hour > 21):
  452. act 'Show off your labia piercing':
  453. cls
  454. gs'stat'
  455. minut += 5
  456. pcs_horny += 15
  457. PutsawpirsG = 1
  458. if pcs_pubes > 10:
  459. '<center><img src="images/pc/body/piercings/glob.jpg" ></center>'
  460. 'Moving closer to your stepfather, you tease him by showing him your somewhat hairy pussy. He doesn''t know you have a piercing in your labia 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.'
  461. act 'Move away':gt $loc, $metka
  462. else
  463. '<center><img src="images/pc/body/piercings/g.jpg" ></center>'
  464. 'Moving closer to your stepfather, you tease him by showing him your smooth pussy. He doesn''t know you have a piercing in your labia 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.'
  465. act 'Move away':gt $loc, $metka
  466. end
  467. end
  468. end
  469. if hadsexwithfather = 1:fatherwantssex = rand(1,2)
  470. ! WD: Fix old nude variable
  471. ! if nude = 1:
  472. if $clothingworntype = 'nude': fatherwantssex = 1
  473. if hadsexwithfather = 1 and fatherwantssex = 1 and mother_go = 1 and hour = 16 and npc_rel['A28'] > 60:
  474. cls
  475. gs 'stat'
  476. '<center><B><font color=maroon>Your stepfather, Vladimir Mikhailovich Scriabin</font></B></center>'
  477. '<center><img src="images/characters/pavlovsk/resident/vladimir/father.jpg"></center>'
  478. ! WD: Fix old nude variable
  479. 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."'
  480. 'Knowing words are not neccessary, your stepfather simply unbuttons his pants revealing his stiff cock: "<<$pcs_nickname>>, help your old man out will you?"'
  481. act 'Change your mind and leave':gt $loc, $metka
  482. act 'Get down on your knees':dynamic $d_fatherblow_act[4]
  483. end
  484. $fatherRep = {
  485. if npc_rel['A28'] < 20:
  486. 'You and your stepfather can''t stand each other, and spend as little time in the same room as possible.'
  487. elseif npc_rel['A28'] < 40:
  488. 'You and your stepfather don''t get along very well.'
  489. elseif npc_rel['A28'] < 60:
  490. 'You have a normal relationship with your stepfather.'
  491. elseif npc_rel['A28'] < 80:
  492. 'You have a good relationship with your stepfather.'
  493. else
  494. 'You have a great relationship with your stepfather.'
  495. end
  496. *nl
  497. }
  498. --- father ---------------------------------