1
0

dinsister.qsrc 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400
  1. # dinsister
  2. $sischecks = {
  3. menu_off = 1
  4. if npc_rel['A33'] < 20:'Your relationship with your sister is scandalous.'
  5. if npc_rel['A33'] >= 20 and npc_rel['A33'] < 40:'Your relationship with your sister is tense.'
  6. if npc_rel['A33'] >= 40 and npc_rel['A33'] < 60:'You and your sister have a normal relationship.'
  7. if npc_rel['A33'] >= 60 and npc_rel['A33'] < 80:'You and your sister have a good relationship.'
  8. if npc_rel['A33'] >= 80:'You have a great relationship with your sister.'
  9. *nl
  10. if StrongNarkota = 0 and narkossister = 1:narkossister = 0
  11. if StrongNarkota > 20 and narkossister = 0 and narkossista = 0:
  12. temp = RAND(1,100)
  13. if temp >= 90:
  14. dynamic $narkosisterspalila
  15. exit
  16. end
  17. end
  18. if narkossister = 1:
  19. if StrongNarkota > 20:
  20. *clr & cla
  21. cla
  22. gs'stat'
  23. pcs_willpwr -= 10
  24. pcs_mood -= 10
  25. '<center><img <<$set_imgh>> src="images/pc/newfear.jpg"></center>'
  26. *nl
  27. 'I can not approach her junked up like this.'
  28. act 'Move away':gt $loc, $metka
  29. end
  30. if StrongNarkota <= 20:
  31. *clr & cla
  32. cla
  33. gs'stat'
  34. pcs_willpwr -= 10
  35. pcs_mood -= 10
  36. narkossister = 0
  37. '<center><img <<$set_imgh>> src="images/pc/newfear.jpg"></center>'
  38. *nl
  39. 'You tell yourself, "Come on <<$pcs_nickname>>, deep breath, focus, you can do this."'
  40. 'You feel your head is clear enough to talk to your sister once more.'
  41. act 'Move away':gt $loc, $metka
  42. end
  43. end
  44. if $clothingworntype = 'nude':
  45. if sisterLesb = 0:
  46. 'Sister looks at you, her eyes wide. "<<$pcs_nickname>>, aren''t you ashamed to go naked here? At times like this, I just don''t understand you.'
  47. else
  48. 'Sister looks at you, her eyes wide. "<<$pcs_nickname>>, you''re so liberated... I wish I could be so free spirited.'
  49. end
  50. end
  51. if pirsA > 0 and pirsA < 10000 and pirsAsister = 0 and sisterpirsadaytalk ! daystart:
  52. sisterpirsadaytalk = daystart
  53. if rand(1,100) >= 75:
  54. 'Your sister looks you in the mouth. "<<$pcs_nickname>>, and what have you got there in your tongue?"'
  55. act 'Nothing':
  56. cla
  57. 'You shake your head. "Nothing." Then turn away, so that your sister does not see your pierced tongue.'
  58. act 'Move away':gt $loc, $metka
  59. end
  60. act 'Show her your tongue piercing':
  61. *clr & cla
  62. pirsAsister = 1
  63. npc_rel['A33'] += 1
  64. minut + 5
  65. gs 'stat'
  66. '<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pirsA>>.jpg"></center>'
  67. *nl
  68. 'You open your mouth and stick out your tongue, showing your sister your tongue piercing.'
  69. 'Your sister smiles, "Wow, you go <<$pcs_nickname>>!"'
  70. 'She seems to approve and spends a few minutes asking you all about it.'
  71. act 'Move away':gt $loc, $metka
  72. end
  73. exit
  74. end
  75. end
  76. if pirsB > 0 and pirsB < 10000 and pirsBsister = 0:
  77. 'Sister looks at your lip, studying your piercing. "That''s so cool, and pretty, I love it!"'
  78. act 'Thank you':
  79. *clr & cla
  80. pirsBsister = 1
  81. gs 'stat'
  82. '<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pirsB>>.jpg"></center>'
  83. *nl
  84. 'You thank your sister for her compliment instinctively playing with your new piercing.'
  85. act 'Move away':gt $loc, $metka
  86. end
  87. exit
  88. end
  89. if pirsC > 0 and pirsC < 10000 and pirsCsister = 0:
  90. pirsCsister = 1
  91. 'Your sister looks at your earrings and reaching up to hold and inspect one closely says, "Well, finally! I thought you would never get your ears pierced."'
  92. end
  93. if pirsD > 0 and pirsD < 10000 and pirsDsister = 0:
  94. pirsDsister = 1
  95. 'Anya is clearly shocked by your nose ring: "Damn, <<$pcs_nickname>>, tell me who did this to you and I''ll get them for you."'
  96. 'She dances around you shadow boxing and you both end up laughing loudly.'
  97. end
  98. if pirsE > 0 and pirsE < 10000 and pirsEsister = 0:
  99. pirsEsister = 1
  100. 'Your sister takes a good look at your eyebrow piercing and says, "Nice, but be careful, don''t accidentally get it caught on something!"'
  101. end
  102. if npc_pregtalk['A33'] = 0 and (($clothingworntype = 'nude' and pregchem > 2688) or ($clothingworntype ! 'nude' and pregchem > 3600)):
  103. npc_pregtalk['A33'] = 1
  104. if $clothingworntype ! 'nude' and pregchem > 3600:
  105. 'With surprise your sister says, "You''re pregnant, <<$pcs_nickname>>!"'
  106. '"How the hell can you tell?"'
  107. 'With a smile, she says, "I have a bionic eye." As she reaches out and rubs your protruding belly, "So, do you know who the father is?"'
  108. else
  109. 'You sister looks at your belly with surprise. "<<$pcs_nickname>>, are you pregnant? And from whom are you pregnant?'
  110. end
  111. $tmpstr = ''
  112. $tmpstr2 = ''
  113. KILLVAR '$specfath'
  114. KILLVAR '$regfath'
  115. if arrpos('$wombpotfath', 'unknown') ! -1 or (arrpos('$wombpotfath', '') ! -1 and arrpos('$wombpotfath', '') < arrsize('$wombpotfath')):
  116. $tmpstr = 'I slept with a guy and didn''t even know his name, but '
  117. end
  118. idx = 0
  119. sz = arrsize('$wombpotfath')
  120. :fathlistloop
  121. if idx < sz:
  122. $fath = $npc_usedname[$wombpotfath[idx]]
  123. if $fath = 'Roma' or $fath = 'Kolka' or $fath = 'Stepfather' or $fath = 'Mikhail, your birthfather':
  124. if $fath = 'Mikhail, your birthfather': $fath = 'our real father'
  125. $specfath[arrsize('$specfath')] = $fath
  126. else
  127. if $fath = 'unknown' or $fath = '':
  128. $fath = 'someone I don''t know'
  129. else
  130. if $tmpstr2 ! '': $tmpstr2 = '<<$tmpstr2>> or '
  131. $tmpstr2 = '<<$tmpstr2>><<$fath>>'
  132. end
  133. end
  134. idx += 1
  135. jump 'fathlistloop'
  136. end
  137. if arrsize('$specfath') > 0 and npc_rel['A33'] > 50:
  138. $tmpa = ''
  139. if $tmpstr2 ! '':
  140. $tmpa = ' You decide to start by telling her the easy news. "Oh, sister, <<$tmpstr>>it''s possible the father is <<$tmpstr2>>. I think it could also be someone we know.'
  141. else
  142. $tmpa = ' You look at her for a moment and then say, "Oh, sister, I think the father might be someone we know."'
  143. end
  144. 'You realize that telling her who the father might be could be difficult.<<$tmpa>>'
  145. idx = 0
  146. sz = arrsize('$specfath')
  147. if sz > 1:
  148. $tmpb = 'begin by telling her '
  149. else
  150. $tmpb = 'tell her '
  151. end
  152. $tmpc = ''
  153. :hardfathloop
  154. if idx < sz:
  155. $fath = $specfath[idx]
  156. if $fath = 'Roma':
  157. 'You <<$tmpb>>the father might <<$tmpc>>be Roma.'
  158. '"You mean my Roma?"'
  159. 'You nod with a forced smile.'
  160. '"Oh, I am so sorry, <<$pcs_nickname>>! This is probably my fault.", she says and hugs you to her strongly.'
  161. pcs_mood += 50
  162. elseif $fath = 'Kolka':
  163. 'You <<$tmpb>>the father could <<$tmpc>>be Kolka.'
  164. '"Seriously? Our little brother?" she asks with a little shock, then quietly asks you. "So, how is he in the bed?"'
  165. 'You feel yourself blushing, as you murmur, "He is really good."'
  166. elseif $fath = 'Stepfather':
  167. 'You <<$tmpb>>the father could <<$tmpc>>be your stepfather.'
  168. '"Oh, what a slut you are!" she smiles happily. "Do you think he will notice it too?"'
  169. elseif $fath = 'our real father':
  170. 'You <<$tmpb>> the father might conceivably <<$tmpc>>be your real father.'
  171. 'Your Sister looks at you with shock - or maybe a little jealousy? "<<$pcs_nickname>>, how did you even find him?"'
  172. 'You explain how you tracked him down through the truck drivers to the where he works now, and how your relationship quickly grew into something unexpected for both of you. "I haven''t told him," you tell her. "Maybe I should. I don''t know."'
  173. 'She listens intently to your story and gives you a hug when you finish. "I don''t know either, <<$pcs_nickname>>, but I hope you take me to meet him someday."'
  174. end
  175. if idx = 0 and sz > 1:
  176. $tmpc = 'also '
  177. $tmpb = 'continue your confession by telling her '
  178. elseif sz > 2 and idx = sz - 2:
  179. $tmpb = 'finish your confession by saying that '
  180. end
  181. idx += 1
  182. jump 'hardfathloop'
  183. end
  184. else
  185. if arrsize('$wombpotfath') = 0:
  186. '"Oh, sister, I have no idea who the father could be! I''m not even sure how I got pregnant!"'
  187. elseif arrsize('$wombpotfath') = 1:
  188. if $wombpotfath[0] = '' or $wombpotfath[0] = 'unknown':
  189. '"Oh, sister, I have no idea whom the father could be!"'
  190. else
  191. '"Oh, sister, <<$tmpstr>>I think the father is <<$tmpstr2>>."'
  192. end
  193. else
  194. '"Oh, sister, <<$tmpstr>>I think the father is <<$tmpstr2>>"'
  195. end
  196. end
  197. end
  198. if cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pav_slut < 75:
  199. sisterknowslut = 1
  200. 'Your Sister looks at you, "<<$pcs_nickname>>, what is that?". Suddenly, her eyes narrow, "<<$pcs_nickname>>, yes it''s sperm! My little sister, well, well! It''s a good thing I noticed, what if it had been <<$npc_nickname[''A29'']>>?!"'
  201. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pav_slut >= 75 and sisterknowslut = 0:
  202. sisterknowslut = 1
  203. 'Your Sister looks at you, "<<$pcs_nickname>>, so the rumours are true, you are <<$gnikname>>"'
  204. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pav_slut >= 75 and sisterknowslut > 0:
  205. 'Your Sister looks at you, "<<$pcs_nickname>>, up to your usual tricks? You could at least wash yourself."'
  206. end
  207. }
  208. $narkosisterspalila = {
  209. menu_off = 1
  210. *clr & cla
  211. gs'stat'
  212. !'sister slept on drugs.'
  213. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
  214. *nl
  215. '"Come on, keep it together, act sober." You think. "I have just got talk normal and not think about it."'
  216. 'Your sister looks at you quizzically. "Are you stoned <<$pcs_nickname>>?"'
  217. act'No':
  218. cla
  219. set narkossister = 1
  220. gs'stat'
  221. 'You adversely shake your head "No." You back away, but it''s very clear you sister could tell that you are stoned.'
  222. act 'Move away':gt $loc, $metka
  223. end
  224. act'Share':
  225. *clr & cla
  226. set narkossista = 1
  227. gs'stat'
  228. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
  229. *nl
  230. 'You tell your sister, that you learned where to buy drugs, and you really wanted to try and it is just this once never again.'
  231. 'Your sister strictly looks at you and says, "<<$pcs_nickname>> I''m not your mother, who would kill you if she found out, but this is the first and last time. It''s not worth it!'
  232. 'If you continue, then your whole life will not be worth shit.'
  233. act 'Move away':gt $loc, $metka
  234. exit
  235. end
  236. }
  237. $d_sister[1]={
  238. menu_off = 1
  239. !scandal with her sister
  240. 'You are trying to talk to your sister but she refuses to talk to you.'
  241. if sistersorryday!daystart:
  242. act'Apologize':
  243. cla
  244. sistersorryday=daystart
  245. npc_rel['A33'] +=(pcs_intel/10)+(pcs_apprnc/20)
  246. gs'stat'
  247. 'You apologize to your sister and it seems she forgives you.'
  248. act 'Move away':gt $loc, $metka
  249. end
  250. end
  251. }
  252. $d_sister[2]={
  253. menu_off = 1
  254. !strained relations
  255. 'You are trying to talk to your sister but she just cuts you off bluntly.'
  256. if sistersorryday!daystart:
  257. act'Try to smooth your relations':
  258. cla
  259. sistersorryday=daystart
  260. npc_rel['A33'] +=(pcs_intel/10)+(pcs_apprnc/20)
  261. gs'stat'
  262. 'You suck up to your sister and she appears to be slowly treating you better.'
  263. act 'Move away':gt $loc, $metka
  264. end
  265. end
  266. }
  267. $d_sister[3]={
  268. !good relationship
  269. 'You start a conversation with your sister.'
  270. if trfatherQW = 0 and rand(0,2) = 0:
  271. trfatherQW = 1
  272. 'You ask about your real father, Anya grins, "<<$pcs_nickname>>, I was 4 years old when they broke up. I don''t even remember what he looks like. <<$npc_nickname[''A29'']>> does not like to talk about him, but as you know, our real father went to live in another town. I also remember, he worked as a long-distance truck driver, maybe sometimes he passes through Pavlovsk."'
  273. else
  274. sisterTalk = rand (1,18)
  275. if sisterTalk = 1:
  276. 'As you chat with your sister, she says it is possible to rent an apartment in the city and live and work there, but she is happy living in Pavlovsk.'
  277. end
  278. if sisterTalk = 2:
  279. 'You chat with your sister, Anya, she tells you the tailor at the Garment factory is a creep who makes his customers wait around in their underwear.'
  280. end
  281. if sisterTalk = 3:
  282. 'You ask Anya about the University. She grins, "I almost went, passed the entrance exam. However, I started working in the summer and got used to having cash. What can I buy with a diploma?"'
  283. end
  284. if sisterTalk = 4:
  285. 'You ask Anya about her boyfriend. She smiles, "Well, I have a boyfriend. Although nothing serious. It''s more like friends with benefits."'
  286. end
  287. if sisterTalk = 5:
  288. 'You start talking with Anya, she tells you about the boys she met, parties she''s been to and cosmetics.'
  289. end
  290. if sisterTalk = 6:
  291. 'You chat with your sister, she tells you about the new dress she brought at the store today.'
  292. end
  293. if sisterTalk = 7:
  294. 'You chat with your sister about movie stars, discussing and sharing fantasies about them, and arguing about which ones are sexier.'
  295. end
  296. if sisterTalk = 8:
  297. 'Anna talks about sports clubs in the community center, and how sport is very good for the figure, but she is too lazy to go there.'
  298. end
  299. if sisterTalk = 9:
  300. 'Anya says, that one of her friends had a kid, but the father denies it and she''s left looking after her kid alone. She says, that if you are smart, you will buy the pill from the pharmacy.'
  301. end
  302. if sisterTalk = 10:
  303. 'Anya says, one winter she went out without a coat and caught a bad cold. You remind her that she spend the whole time complaining about it to you.'
  304. end
  305. if sisterTalk = 11:
  306. 'You chat with your sister, discussing the latest trends in fashion.'
  307. end
  308. if sisterTalk = 12:
  309. 'Anya tells you how used to try various fad diets to make herself beautiful. However she was under weight, her skin looked gaunt and she kept getting acne. Since quitting the diets she is much healthier and looks more beautiful every day.'
  310. 'The last part has you both laughing.'
  311. end
  312. if sisterTalk = 13:
  313. 'You chat with your sister and she tells you that she went dancing before, but she quickly got tired.'
  314. end
  315. if sisterTalk = 14:
  316. 'You chat with your sister and she advises you where you can earn some money.'
  317. end
  318. if sisterTalk = 15:
  319. 'You chat with your sister and she tells you that you can find a lot of interesting bargains if you wander through the market.'
  320. end
  321. if sisterTalk = 16:
  322. 'Anya tells you horror stories about a pretty girl who didn''t wash or shave her legs, and how it became so terrible, that she looked like a bum and had no friends. She advises you to take care of your body.'
  323. end
  324. if sisterTalk = 17:
  325. 'You chat with your sister and she tells you about one of her weird ex-boyfriends who was always so poetically dramatic. In particular, she tells you about how he broke up with her. "He said: Anya, my love, I so deeply cherish you, but we are not meant to be. Like water and oil, no matter how hard we try, we cannot be together!"'
  326. end
  327. if sisterTalk = 18:
  328. 'You chat with your sister, Anya, she asks you how you feel about women''s sexual rights. You spend some time having a very frank and quite revealing conversation.'
  329. end
  330. end
  331. }
  332. $d_sistersexstories[1]={
  333. gs'stat'
  334. sisterStories = rand (1,8)
  335. if sisterStories = 1:
  336. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister1.jpg"></center>'
  337. *nl
  338. 'Your sister boasts to you about how good her boyfriend is in bed.'
  339. end
  340. if sisterStories = 2:
  341. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister2.jpg"></center>'
  342. *nl
  343. 'Your sister tells you a story about her and her girlfriend sucking off their friend on his birthday.'
  344. end
  345. if sisterStories = 3:
  346. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister3.jpg"></center>'
  347. *nl
  348. 'Your sister reveals to you that she just loves it in the ass. With mother having her innocence checked, she cheated a little. With a little blush she tells you that she enjoyed it very much.'
  349. end
  350. if sisterStories = 4:
  351. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister4.jpg"></center>'
  352. *nl
  353. 'Your sister tells you about how she gave her boyfriend a blowjob, "Oh, You should have seen his face!"'
  354. end
  355. if sisterStories = 5:
  356. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister5.jpg"></center>'
  357. *nl
  358. 'Your sister tells you about when in school she got a classmate to help her study foreign languages.'
  359. end
  360. if sisterStories = 6:
  361. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister6.jpg"></center>'
  362. *nl
  363. 'Your sister reveals to you, that she just loves when she is fucked in the mouth.'
  364. end
  365. if sisterStories = 7:
  366. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister7.jpg"></center>'
  367. *nl
  368. 'Your sister reveals to you, that at a party she gave herself to two men at the same time.'
  369. end
  370. if sisterStories = 8:
  371. '<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sex/sister8.jpg"></center>'
  372. *nl
  373. 'Your sister admits to you that she wants to have sex with a black man.'
  374. end
  375. }
  376. --- dinsister ---------------------------------