din_van 42 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141
  1. # din_van
  2. !!pcs_leghair = leg hair 0 - 3 for smooth <= 6 for stubble <= 9 for light after that hairy
  3. !!pcs_pubes = pubes 0 - 3 for smooth <= 10 for stubble <= 20 for light hair after that its hairy
  4. !!stanok = razor
  5. !!$brit = shaving dynamic
  6. $showerdin = {
  7. if hypnoAddict = 0:
  8. cumspclnt = 1
  9. else
  10. cumspclnt = 18
  11. end
  12. gs 'cum_cleanup'
  13. pcs_hairbsh = 0
  14. pcs_makeup = 1
  15. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  16. }
  17. $bteeth = {
  18. if pcs_breath ! 1:
  19. act 'Brush your teeth (0:05)':
  20. cla
  21. *clr
  22. minut += 5
  23. cumspclnt = 2
  24. gs 'cum_cleanup'
  25. pcs_breath = 1
  26. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/brushteeth.jpg"></center>'
  27. *nl
  28. 'You brush your teeth and now they are clean and minty fresh.'
  29. act 'Finish':gt $locM, $metkaM
  30. end
  31. end
  32. }
  33. $dryOff = {
  34. act 'Get out and dry off':
  35. if indorf = 0 and vanr_lock = 0 and $loc = 'vanrPar':
  36. gs 'vanrPar', 'peek'
  37. else
  38. mirror_steam = hour & gt $locM, $metkaM
  39. end
  40. end
  41. }
  42. $shower = {
  43. act 'Take a shower (0:15)':
  44. cla
  45. *clr
  46. shampoo -= 1
  47. minut += 15
  48. if clrbelo > 0 and tanga = 1:
  49. clrbelo -= 1
  50. dirtbelo += 1
  51. elseif clrbelo = 0 and tanga = 1:
  52. tanga = 0
  53. dirtbelo += 1
  54. end
  55. if shampoo < 0:
  56. shampoo = 0
  57. end
  58. dynamic $showerdin
  59. if frost > 0:frost = 0
  60. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/dush.gif"></center>'
  61. *nl
  62. 'You undress and turn on the water in the shower. When it hits the right temperature you enter the shower and let the warm water rain down on you.'
  63. if daystart < 10 and StoryLine = 0:
  64. pcs_horny += rand(6,10)
  65. 'It''s really arousing to see your new body with all its smooth curves, breasts with large nipples, wide hips, and smooth legs. You begin to lather your body noticing how soft and tender it feels. Once you''re sure you didn''t miss a single spot on your feminine body you begin to wash yourself off, continuing to experience new and strange sensations.'
  66. elseif daystart < 30 and StoryLine = 0:
  67. pcs_horny += rand(2,6)
  68. 'You have already gotten used to your feminine body and its softness doesn''t surprise you very much anymore. But you still let your hands wander a bit over your soft curves before you begin to wash yourself in earnest.'
  69. else
  70. pcs_horny += rand(0,2)
  71. 'You carefully soap yourself trying not to miss any spot and then wash off.'
  72. end
  73. if hypnoAddict > 0:'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
  74. if btwarn > 0:
  75. if btwarn = 1: $weightwarn = 'losing'
  76. if btwarn = 2: $weightwarn = 'gaining'
  77. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  78. killvar '$weightwarn' & btwarn = 0
  79. end
  80. if normbuffpick = 1:
  81. *nl
  82. '<b>You notice that your muscles are starting to show through your skin.</b>'
  83. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  84. end
  85. if vanr_lock = 0 and $loc = 'vanrPar':
  86. *nl
  87. 'In your absentmindedness you forgot to close the door.'
  88. 'The idea that the door is open occupies your mind while you are showering. It would be very embarrassing if your brother or stepfather looked in at the wrong time.'
  89. end
  90. if pcs_horny >= 40:
  91. act 'Use the shower head on your pussy':
  92. cla
  93. *clr
  94. minut += 30
  95. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash2.gif"></center>'
  96. *nl
  97. 'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
  98. if pcs_horny >= 90:
  99. pcs_horny = 0
  100. stat['mast'] += 1
  101. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  102. orgasm += 1
  103. pcs_mood += 15
  104. pcs_willpwr += 15
  105. 'Soon you feel a warm wave spreading over your entire body and you shudder as an orgasm overtakes you.'
  106. else
  107. pcs_horny += 5
  108. pcs_mood += 10
  109. pcs_willpwr += 10
  110. 'At first it feels very nice, but after a while it starts to be a little bit painful. You decide to stop masturbating.'
  111. end
  112. if hypnoAddict ! 0:
  113. 'You unconsciously avoid spraying water into your vagina.'
  114. else
  115. cumspclnt = 8
  116. gs 'cum_cleanup'
  117. end
  118. dynamic $dryOff
  119. end
  120. end
  121. dynamic $brit
  122. dynamic $dryOff
  123. end
  124. }
  125. $bath = {
  126. act 'Soak in the bath (0:30)':
  127. cla
  128. *clr
  129. shampoo -= 1
  130. minut += 30
  131. pcs_sweat = 7 + rand(0,4)
  132. pcs_mood += 20
  133. if clrbelo > 0 and tanga = 1:
  134. clrbelo -= 1
  135. dirtbelo += 1
  136. elseif clrbelo = 0 and tanga = 1:
  137. tanga = 0
  138. dirtbelo += 1
  139. end
  140. if shampoo < 0:
  141. shampoo = 0
  142. end
  143. dynamic $showerdin
  144. if frost > 0:frost = 0
  145. pcs_skin += 1
  146. gs 'stat'
  147. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
  148. *nl
  149. 'While the bathtub fills up you get undressed and then dip a toe into the water. It has just the right temperature so you climb in and let yourself sink into the warm water.'
  150. if daystart < 10 and StoryLine = 0:
  151. pcs_horny += rand(6,10)
  152. 'You stare at those smooth, soft legs sticking out of the water. You''re still not used to this new body and the look of all this roundness.'
  153. 'Starting to soap yourself you unwittingly turn your attention to your breasts. They''re so soft and big, and when you touch them you feel an unfamiliar but pleasant sensation. You take your time getting familiar with your new body, then you begin to wash yourself in earnest.'
  154. elseif daystart < 30 and StoryLine = 0:
  155. pcs_horny += rand(2,6)
  156. 'You have become a little accustomed to your female body and casually soap up all these soft curves and rinse yourself off, rubbing your hands all over your feminine body to make sure you didn''t miss a spot.'
  157. else
  158. pcs_horny += rand(0,2)
  159. 'You lean back and relax for a while. Then you begin to lather your body, gently gliding your soft hands over your smooth curves, and wash yourself thoroughly.'
  160. end
  161. if $loc = 'vanrPar':
  162. dynamic $brother_voyeurism
  163. end
  164. if btwarn > 0:
  165. if btwarn = 1: $weightwarn = 'losing'
  166. if btwarn = 2: $weightwarn = 'gaining'
  167. '<font color="red"><b>You seem to be <<$weightwarn>> weight.</b></font>'
  168. killvar '$weightwarn' & btwarn = 0
  169. end
  170. if normbuffpick = 1:
  171. ''
  172. '<b>You notice that your muscles are starting to show through your skin.</b>'
  173. act 'Examine yourself closer while drying off and getting dressed...': gt 'din_van', 'buffpick'
  174. end
  175. if obdysh = 1:vannmastrand = rand(0, 5)
  176. if pcs_horny >= 40:
  177. act '"Wash" your pussy':
  178. cla
  179. *clr
  180. if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'
  181. minut += 30
  182. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash7.gif"></center>'
  183. *nl
  184. 'You turn on the faucet, lift your legs and scoot your ass over to align your pussy with the jet of warm water.'
  185. if pcs_horny >= 90:
  186. pcs_horny = 0
  187. stat['mast'] += 1
  188. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  189. orgasm += 1
  190. pcs_mood += 15
  191. pcs_willpwr += 15
  192. 'Soon you feel like warm waves wash trough your entire body and you begin to shudder as you reach your peak.'
  193. else
  194. pcs_horny += 5
  195. pcs_mood += 10
  196. pcs_willpwr += 10
  197. 'It feels really nice at first, but after a while it gets a bit uncomfortable and your legs fall asleep. You better stop before an awkward accident happens.'
  198. end
  199. dynamic $dryOff
  200. end
  201. end
  202. if pcs_horny >= 50:
  203. act 'Masturbate':gt 'selfplay', 'start'
  204. end
  205. dynamic $brit
  206. dynamic $dryOff
  207. end
  208. }
  209. $brit = {
  210. 'Your razor blade looks in good enough shape for <b><<stanok>></b> more shaves.'
  211. if pcs_leghair > 3 and pcs_pubes > 3 and stanok > 1:
  212. act 'Shave your legs and pussy (0:15)':
  213. cla
  214. *clr
  215. minut += 15
  216. pcs_leghair = 0
  217. pcs_pubes = 0
  218. pcs_horny += 5
  219. stanok -= 2
  220. if obdysh = 1 and obbritinvent = 0:
  221. britrand = rand(0, 5)
  222. if britrand = 5:gt 'vann', 'brit1'
  223. end
  224. if $loc ='Gadbana':
  225. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.gif"></center>'
  226. else
  227. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  228. end
  229. *nl
  230. if daystart < 10 and StoryLine = 0:
  231. 'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
  232. 'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
  233. elseif daystart < 30 and StoryLine = 0:
  234. pcs_mood += 10
  235. 'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
  236. else
  237. 'You lather up your legs and crotch and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  238. end
  239. act 'Put the razor away':cla & dynamic $brit
  240. end
  241. end
  242. if pcs_leghair > 3 and stanok > 0:
  243. act 'Shave your legs (0:10)':
  244. cla
  245. *clr
  246. minut += 10
  247. pcs_leghair = 0
  248. pcs_horny += 5
  249. stanok -= 1
  250. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.jpg"></center>'
  251. *nl
  252. if daystart < 10 and StoryLine = 0:
  253. 'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
  254. 'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
  255. elseif daystart < 30 and StoryLine = 0:
  256. pcs_mood += 10
  257. 'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
  258. else
  259. 'You lather up your legs and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth legs, making sure you didn''t miss a spot.'
  260. end
  261. act 'Put the razor away':cla & dynamic $brit
  262. end
  263. end
  264. if pcs_pubes > 3 and stanok > 0:
  265. act 'Shave your pussy (0:10)':
  266. cla
  267. *clr
  268. minut += 10
  269. pcs_pubes = 0
  270. pcs_horny += 5
  271. stanok -= 1
  272. if obdysh = 1 and obbritinvent = 0:
  273. britrand = rand(0, 5)
  274. if britrand = 5:gt 'vann', 'brit1'
  275. end
  276. if $loc ='Gadbana':
  277. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.gif"></center>'
  278. else
  279. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  280. end
  281. *nl
  282. 'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  283. act 'Put the razor away':cla & dynamic $brit
  284. end
  285. end
  286. dynamic $dryOff
  287. }
  288. $tampon = {
  289. if sanpad > 0 and mesec > 0 and isprokp = 0 and isprok = 0 and tanga = 1:
  290. act 'Use a sanitary pad (0:05)':
  291. cla
  292. *clr
  293. sanpad -= 1
  294. isprokp = 1
  295. minut += 5
  296. pcs_mood -= 5
  297. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  298. *nl
  299. 'You use a sanitary pad.'
  300. act 'Finish':gt $locM, $metkaM
  301. end
  302. end
  303. if tampon > 0 and mesec > 0 and isprok = 0 and isprokp = 0:
  304. act 'Use a tampon (0:05)':
  305. cla
  306. *clr
  307. tampon -= 1
  308. isprok = 1
  309. minut += 5
  310. pcs_mood -= 5
  311. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  312. *nl
  313. 'You use a tampon.'
  314. act 'Finish':gt $locM, $metkaM
  315. end
  316. end
  317. }
  318. $quickwash = {
  319. if spdirty > 0:
  320. act 'Quick wash (0:15)':
  321. cla
  322. *clr
  323. if clrbelo > 0 and tanga = 1:
  324. clrbelo -= 1
  325. dirtbelo += 1
  326. elseif clrbelo = 0 and tanga = 1:
  327. tanga = 0
  328. dirtbelo += 1
  329. end
  330. cumspclnt = 4
  331. gs 'cum_cleanup'
  332. if pcs_sweat < 30:
  333. pcs_sweat = 15 + rand(0,4)
  334. else
  335. pcs_sweat -= 10 + rand(0,4)
  336. end
  337. minut += 15
  338. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash5.jpg"></center>'
  339. *nl
  340. 'You give yourself a catlick, thus removing any traces of cum.'
  341. act 'Finish':gt $locM, $metkaM
  342. end
  343. end
  344. }
  345. $wearpan = {
  346. if tanga = 0 and clrbelo > 0:
  347. act 'Wear Underwear':
  348. cla
  349. tanga = 1
  350. clrbelo -= 1
  351. gt $locM, $metkaM
  352. end
  353. end
  354. }
  355. $removepan = {
  356. if tanga = 1:
  357. act 'Remove Underwear':
  358. cla
  359. tanga = 0
  360. dirtbelo += 1
  361. gt $locM, $metkaM
  362. end
  363. end
  364. }
  365. $basin = {
  366. dynamic $removepan
  367. if cumloc[11] = 1 or cumloc[12] = 1:
  368. act 'Clean the sperm from your face (0:10)':
  369. cla
  370. *clr
  371. pcs_makeup = 1
  372. cumspclnt = 9
  373. gs 'cum_cleanup'
  374. cumspclnt = 13
  375. gs 'cum_cleanup'
  376. if pcs_sweat > 19 : pcs_sweat -= 5
  377. minut += 10
  378. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
  379. *nl
  380. 'You clean your face and get rid of any trace of cum.'
  381. act 'Finish':gt $locM, $metkaM
  382. end
  383. end
  384. if body_write > 0 or face_write > 0:
  385. act 'Wash the writings off your body (0:10)':
  386. cla
  387. *clr
  388. body_write = 0
  389. face_write = 0
  390. minut += 10
  391. gs'stat'
  392. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
  393. *nl
  394. 'You wash off the indecent inscriptions on your body.'
  395. act 'Finish':gt $locM, $metkaM
  396. end
  397. end
  398. if pcs_makeup ! 1:
  399. act 'Wash off cosmetics (0:10)':
  400. cla
  401. pcs_makeup = 1
  402. cumspclnt = 9
  403. gs 'cum_cleanup'
  404. cumspclnt = 11
  405. gs 'cum_cleanup'
  406. minut += 10
  407. *nl
  408. 'You wash off your makeup.'
  409. act 'Finish':gt $locM, $metkaM
  410. end
  411. end
  412. }
  413. $pirTongue = {
  414. cla
  415. *clr
  416. i = 1
  417. :looptongue_pir
  418. if dyneval('RESULT = PirsA<<i>>_owned') = 1:*p '<a href="exec:pirsA = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/a<<i>>.jpg" height="250" ></a>'
  419. i += 1
  420. if i <= 3:jump 'looptongue_pir'
  421. }
  422. $pirLip = {
  423. cla
  424. *clr
  425. i = 1
  426. :looplip_pir
  427. if dyneval('RESULT = PirsB<<i>>_owned') = 1:*p '<a href="exec:pirsB = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/b<<i>>.jpg" height="250" ></a>'
  428. i += 1
  429. if i <= 1:jump 'looplip_pir'
  430. }
  431. $pirEars = {
  432. cla
  433. *clr
  434. i = 1
  435. :loopears_pir
  436. if dyneval('RESULT = PirsC<<i>>_owned') = 1:*p '<a href="exec:pirsC = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/c<<i>>.jpg" height="250" ></a>'
  437. i += 1
  438. if i <= 15:jump 'loopears_pir'
  439. }
  440. $pirNose = {
  441. cla
  442. *clr
  443. i = 1
  444. :loopnose_pir
  445. if dyneval('RESULT = PirsD<<i>>_owned') = 1:*p '<a href="exec:pirsD = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/d<<i>>.jpg" height="250" ></a>'
  446. i += 1
  447. if i <= 7:jump 'loopnose_pir'
  448. }
  449. $pirBrow = {
  450. cla
  451. *clr
  452. i = 1
  453. :loopbrow_pir
  454. if dyneval('RESULT = PirsE<<i>>_owned') = 1:*p '<a href="exec:pirsE = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/e<<i>>.jpg" height="250" ></a>'
  455. i += 1
  456. if i <= 2:jump 'loopbrow_pir'
  457. }
  458. $pirNips = {
  459. cla
  460. *clr
  461. i = 1
  462. :loopnipple_pir
  463. if dyneval('RESULT = PirsF<<i>>_owned') = 1:*p '<a href="exec:pirsF = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/f<<i>>.jpg" height="250" ></a>'
  464. i += 1
  465. if i <= 2:jump 'loopnipple_pir'
  466. }
  467. $pirNavel = {
  468. cla
  469. *clr
  470. i = 1
  471. :loopnavel_pir
  472. if dyneval('RESULT = PirsN<<i>>_owned') = 1:*p '<a href="exec:pirsN = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/n<<i>>.jpg" height="250" ></a>'
  473. i += 1
  474. if i <= 1:jump 'loopnavel_pir'
  475. }
  476. $pirPubic = {
  477. cla
  478. *clr
  479. i = 1
  480. :looppubic_pir
  481. if dyneval('RESULT = PirsG<<i>>_owned') = 1:*p '<a href="exec:pirsG = <<i>> & pierWearCount += 1 & dynamic $pirManage"><img src="images/pc/body/piercings/g<<i>>.jpg" height="250" ></a>'
  482. i += 1
  483. if i <= 4:jump 'looppubic_pir'
  484. }
  485. $pirManage = {
  486. cls
  487. *nl
  488. if pirsA > 0:
  489. if pirsA < 10000:
  490. '<a href="exec:pirsA = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove tongue piercing</a>.'
  491. else
  492. '<a href="exec:dynamic $pirTongue">Insert tongue piercing</a>.'
  493. end
  494. end
  495. if pirsB > 0:
  496. if pirsB < 10000:
  497. '<a href="exec:pirsB = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove lip piercing</a>.'
  498. else
  499. '<a href="exec:dynamic $pirLip">Insert lip piercing</a>.'
  500. end
  501. end
  502. if pirsC > 0:
  503. if pirsC < 10000:
  504. '<a href="exec:pirsC = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove ear piercings</a>.'
  505. else
  506. '<a href="exec:dynamic $pirEars">Insert ear piercings</a>.'
  507. end
  508. end
  509. if pirsD > 0:
  510. if pirsD < 10000:
  511. '<a href="exec:pirsD = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nose piercing</a>.'
  512. else
  513. '<a href="exec:dynamic $pirNose">Insert nose piercing</a>.'
  514. end
  515. end
  516. if pirsE > 0:
  517. if pirsE < 10000:
  518. '<a href="exec:pirsE = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove eyebrow piercing</a>.'
  519. else
  520. '<a href="exec:dynamic $pirBrow">Insert eyebrow piercing</a>.'
  521. end
  522. end
  523. if pirsF > 0:
  524. if pirsF < 10000:
  525. '<a href="exec:pirsF = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove nipple piercings</a>.'
  526. else
  527. '<a href="exec:dynamic $pirNips">Insert nipple piercings</a>.'
  528. end
  529. end
  530. if pirsN > 0:
  531. if pirsN < 10000:
  532. '<a href="exec:pirsN = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove navel piercing</a>.'
  533. else
  534. '<a href="exec:dynamic $pirNavel">Insert navel piercing</a>.'
  535. end
  536. end
  537. if pirsG > 0:
  538. if pirsG < 10000:
  539. '<a href="exec:pirsG = 10000 & pierWearCount -= 1 & dynamic $pirManage">Remove pussy piercings</a>.'
  540. else
  541. '<a href="exec:dynamic $pirPubic">Insert pussy piercings</a>.'
  542. end
  543. end
  544. act'<b>Back</b>':gt $locM, $metkaM
  545. }
  546. if $ARGS[0] = 'private':
  547. if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings.'
  548. !WD: heal chafe
  549. if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>></b> applications.'
  550. if tampon = 0 and sanpad = 0:
  551. '<b><font color="red">You have no tampons left.</font></b>'
  552. elseif tampon = 1:
  553. '<font color="red">You have only <b><<tampon>></b> tampon left.</font>'
  554. else
  555. 'You have <b><<tampon>></b> tampons.'
  556. end
  557. if sanpad = 0 and tampon = 0:
  558. '<b><font color="red">You have no pads left.</font></b>'
  559. elseif sanpad = 1:
  560. '<font color="red">You have only <b><<sanpad>></b> pads left.</font>'
  561. else
  562. 'You have <b><<sanpad>></b> pads.'
  563. end
  564. if dirtbelo > 0 and poroshok > 0 and $loc ! 'vanrPar' and $loc ! 'tanvanr':
  565. act 'Wash clothes':
  566. cla
  567. *clr
  568. minut += dirtbelo * 5
  569. clrbelo += dirtbelo
  570. poroshok -= 1
  571. dirtbelo = 0
  572. pcs_mood -= 10
  573. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  574. *nl
  575. 'You soak the clothes in the basin and pour in washing powder, then you wash your clothes until they are finally clean.'
  576. act 'Finish':gt $locM, $metkaM
  577. end
  578. end
  579. if shampoo > 0 or $loc = 'vanrPar':
  580. if $loc = 'vanrPar':
  581. if shampoo < 1:shampoo = 1
  582. 'You are using your parents'' shampoo.'
  583. else
  584. 'You have enough shampoo for <b><<shampoo>></b> uses.'
  585. end
  586. dynamic $shower
  587. dynamic $bath
  588. elseif shampoo = 0 and $loc = 'tanvanr':
  589. shampoo = 1
  590. 'You can use Tanyas shampoo.'
  591. else
  592. '<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
  593. end
  594. if painkiller > 0:
  595. $pluralS = 's'
  596. if painkiller = 1:$pluralS = ''
  597. 'You have <b><<painkiller>></b> painkiller<<$pluralS>>.'
  598. if pain['total'] > 0 and pain['killer'] = 0:
  599. act 'Take a painkiller':
  600. cla
  601. pain['killer'] += 1
  602. painkiller -= 1
  603. water += 20
  604. gs 'stat'
  605. *nl
  606. 'You take a painkiller and gulp it down with a glass of water.'
  607. act 'Finish':gt $locM, $metkaM
  608. end
  609. end
  610. end
  611. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
  612. if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $locM, $metkaM">Inject silicone into breast implants</a>'
  613. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $locM, $metkaM">Drain silicone from breast implants</a>'
  614. if breastpump > 0:'<a href="exec:gt ''shortgs'', ''milk_me''">Use breast pump</a></center>'
  615. dynamic $bteeth
  616. dynamic $tampon
  617. if clrbelo <= 4 and $loc = 'vanrPar': clrbelo = 5
  618. dynamic $wearpan
  619. dynamic $basin
  620. if bcream_have > 0:
  621. pl'<a href="exec:dynamic $use_bcream & gt $locM, $metkaM"><b>Apply breast cream.</b></a> Uses left: <<bcream_have>>.'
  622. end
  623. if dirtbelo > 0 and BuyHous = 0 and $loc = 'vanrPar':
  624. *nl
  625. 'In the bathroom you find the laundry Mom washed for you.'
  626. clrbelo += dirtbelo
  627. dirtbelo = 0
  628. end
  629. if (cumloc[6] = 1 or cumloc[7] = 1):
  630. act 'Wipe the cum off your clothes (0:10)':
  631. cla
  632. *clr
  633. cumspclnt = 6
  634. gs 'cum_cleanup'
  635. minut += 10
  636. gs 'stat'
  637. '<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
  638. *nl
  639. 'You remove the traces of cum from your clothes.'
  640. act 'Finish':gt $locM, $metkaM
  641. end
  642. end
  643. if pcs_leghair > 3 and pcs_pubes > 3 and stanok > 1:
  644. act 'Shave your legs and pussy (0:15)':
  645. cla
  646. *clr
  647. minut += 15
  648. pcs_leghair = 0
  649. pcs_pubes = 0
  650. pcs_horny += 5
  651. stanok -= 2
  652. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  653. *nl
  654. if daystart < 10 and StoryLine = 0:
  655. 'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
  656. 'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
  657. elseif daystart < 30 and StoryLine = 0:
  658. pcs_mood += 10
  659. 'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
  660. else
  661. 'You lather up your legs and crotch and then start carefully shaving them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  662. end
  663. act 'Return to showering':gt $locM, $metkaM
  664. end
  665. end
  666. if pcs_leghair > 3 and stanok > 0:
  667. act 'Shave your legs (0:10)':
  668. cla
  669. *clr
  670. minut += 10
  671. pcs_leghair = 0
  672. pcs_horny += 5
  673. stanok -= 1
  674. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.jpg"></center>'
  675. *nl
  676. 'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
  677. act 'Return to showering':gt $locM, $metkaM
  678. end
  679. end
  680. if pcs_pubes > 3 and stanok > 0:
  681. act 'Shave your pussy (0:10)':
  682. cla
  683. *clr
  684. minut += 10
  685. pcs_pubes = 0
  686. pcs_horny += 5
  687. stanok -= 1
  688. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  689. *nl
  690. 'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  691. act 'Return to showering':gt $locM, $metkaM
  692. end
  693. end
  694. if analplug = 1 and analplugin = 1:
  695. act 'Remove your butt plug (0:05)':
  696. cla
  697. *clr
  698. minut += 5
  699. analplugIN = 0
  700. if pcs_ass < 30:pcs_ass += 1
  701. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  702. *nl
  703. 'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check
  704. act 'Finish':gt $locM, $metkaM
  705. end
  706. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  707. act 'Insert your butt plug (0:05)':
  708. cla
  709. *clr
  710. minut += 5
  711. analplugIN = 1
  712. if pcs_ass < 10:pcs_ass += 5
  713. if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
  714. if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)
  715. '<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
  716. *nl
  717. if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
  718. if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
  719. act 'Finish':gt $locM, $metkaM
  720. end
  721. end
  722. if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
  723. act 'Give yourself an enema (0:05)':
  724. cla
  725. *clr
  726. cumspclnt = 7
  727. gs 'cum_cleanup'
  728. minut += 5
  729. klismaday = daystart
  730. klismaday1 = 1
  731. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
  732. *nl
  733. 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  734. act 'Finish':gt $locM, $metkaM
  735. end
  736. end
  737. if vibrator = 1 and vibratorIN = 1:
  738. act 'Remove the vibrator (0:05)':
  739. cla
  740. *clr
  741. minut += 5
  742. vibratorIN = 0
  743. if pcs_vag < 30:pcs_vag += 1
  744. '<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
  745. *nl
  746. 'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
  747. act 'Finish':gt $locM, $metkaM
  748. end
  749. elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
  750. act 'Insert the vibrator in your vagina (0:05)':
  751. cla
  752. *clr
  753. minut += 5
  754. vibratorIN = 1
  755. if pcs_vag < 30:pcs_vag += 2
  756. '<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
  757. *nl
  758. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  759. act 'Finish':gt $locM, $metkaM
  760. end
  761. end
  762. if mosolmaz > 0 and mosol > 0:
  763. act 'Rub ointment onto your pussy (0:05)':
  764. cla
  765. minut += 5
  766. mosolmaz -= 1
  767. mosol -= 5
  768. 'You take a tube of cream and rub it onto your itchy vulva.'
  769. act 'Finish':gt $locM, $metkaM
  770. end
  771. end
  772. !For now, the pregnancy reactions use bimbolevel as a chack. Once the pregnancy fetish is added to the game, the check will likely change to that.
  773. if pregtest > 0:
  774. act 'Do a pregnancy test (0:05)':
  775. cla
  776. minut += 5
  777. pregtest -= 1
  778. gs 'stat'
  779. if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
  780. knowpreg = 1
  781. thinkpreg = 1
  782. 'As you look at the test in your hand, you are'
  783. act 'Horrified':gt 'din_van', 'HorrifiedReact1'
  784. act 'Concerned':gt 'din_van', 'ConcernedReact1'
  785. act 'Excited':gt 'din_van', 'ExcitedReact1'
  786. elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
  787. knowpreg = 1
  788. thinkpreg = 1
  789. 'As you look at the test in your hand, you are'
  790. act 'Excited':gt 'din_van', 'ExcitedReact1'
  791. act 'Aroused':gt 'din_van', 'ArousedReact1'
  792. elseif pregchem > 120 and knowpreg = 0 and huband = 1 and kid = 0 and pregTalkPC = 0:
  793. knowpreg = 1
  794. thinkpreg = 1
  795. gt 'din_van', 'WifeReact1'
  796. elseif pregchem > 120 and knowpreg = 0 and huband = 1 and kid > 0 and pregTalkPC = 0:
  797. knowpreg = 1
  798. thinkpreg = 1
  799. gt 'din_van', 'WifeReact2'
  800. elseif pregTalkPC = 1:
  801. 'The test showed two strips. You are pregnant.'
  802. else
  803. knowpreg = 0
  804. 'The test showed one band. Not pregnant.'
  805. end
  806. act 'Finish':gt $locM, $metkaM
  807. end
  808. end
  809. end
  810. if $ARGS[0] = 'misery':
  811. $stirkad = {
  812. cla
  813. *clr
  814. minut += dirtbelo * 5
  815. suhbelo += dirtbelo
  816. poroshok -= 1
  817. dirtbelo = 0
  818. pcs_mood -= 10
  819. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  820. *nl
  821. 'You soak your dirty clothes in a basin and then pour washing powder on them. You wash them until they are finally clean.'
  822. if $curloc = 'vanr':
  823. act 'Hang the laundry out to dry':gt 'korr'
  824. elseif $curloc = 'vanr2x':
  825. act 'Hang the laundry out to dry':gt'korr2x'
  826. end
  827. }
  828. if stiralka > 0:
  829. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  830. husband += 5
  831. poroshok -= 2
  832. husporday = daystart
  833. 'The washing machine washed your husband''s dirty laundry.'
  834. end
  835. if dirtbelo > 0 and poroshok >= dirtbelo:
  836. clrbelo += dirtbelo
  837. poroshok -= dirtbelo
  838. dirtbelo = 0
  839. 'The washing machine washed your laundry.'
  840. elseif poroshok < dirtbelo:
  841. 'You ran out of washing powder for the washing machine.'
  842. end
  843. end
  844. if dirtbelo>0:'The laundry basket currently has <font color="red"><b><<dirtbelo>></b></font> pieces of dirty laundry.'
  845. if poroshok > 0:
  846. if dirtbelo = 0:$stirka = ''
  847. if dirtbelo > 0:$stirka = '<a href="exec:dynamic $stirkad">You can wash the laundry.</a>'
  848. 'Under the sink there''s detergent powder, which is enough for <b><<poroshok>></b> washes. <<$stirka>>'
  849. else
  850. '<b><font color="red">You have no detergent powder and nothing to wash clothes with.</font></b>'
  851. end
  852. if clrbelo > 0:
  853. 'A cupboard contains <font color="blue"><b><<clrbelo>></b></font> pairs of clean underwear. '
  854. else
  855. '<b><font color="red">You do not have any clean underwear.</font></b> '
  856. end
  857. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  858. act 'Wash your husbands clothes (2 units of washing powder) (1:00)':
  859. cla
  860. *clr
  861. husband += 5
  862. poroshok -= 2
  863. minut += 60
  864. husporday = daystart
  865. pcs_mood -= 25
  866. '<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
  867. *nl
  868. 'You spend an hour washing your husband''s dirty laundry.'
  869. act 'Leave the bathroom':gt $curloc
  870. end
  871. end
  872. if husband > 0 and husbanday > 0 and huspolday ! daystart:
  873. act 'Clean the apartment (1:00)':
  874. cla
  875. *clr
  876. husband += 5
  877. minut += 60
  878. huspolday = daystart
  879. pcs_mood -= 25
  880. !!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
  881. *nl
  882. 'You take a rag and start cleaning the apartment.'
  883. act 'Finish':gt $curloc
  884. end
  885. end
  886. end
  887. if $ARGS[0] = 'buffpick':
  888. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/exercise/fit2.jpg"></center>'
  889. *nl
  890. 'While drying off and getting dressed you examine the sleek muscles that are showing through your skin.'
  891. 'As you do so you think about how you look and decide:'
  892. act 'You like how you look.': normbuffpick = 2 & mirror_steam = hour & gt $locM, $metkaM
  893. act 'You don''t like how you look.': nrmbfpckct += 1 & normbuffpick = 0 & mirror_steam = hour & gt $locM, $metkaM
  894. end
  895. if $ARGS[0] = 'HorrifiedReact1':
  896. cla
  897. pregTalkPC = 1
  898. minut += 10
  899. *nl
  900. 'You stare in disbelief at the test in your hand. The two strips displayed can only mean one thing: you are pregnant. You sink to the floor, mind spinning. Tears well in your eyes. How could this happen?'
  901. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  902. 'You don''t even know how this is possible. You''ve never even had sex with anyone.'
  903. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  904. 'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
  905. elseif rape > 0 and stat['vaginal'] > 1:
  906. 'It’s bad enough that you were raped, but possibly getting pregnant from it as well? It’s completely unfair.'
  907. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  908. 'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
  909. else
  910. 'This is the worst possible thing that could have happened to you. You feel like you''re going to vomit from the stress.'
  911. 'What did you do to deserve this? What is everyone going to think of you? Your life is ruined.'
  912. 'After several minutes of sobbing and trying to make sense of your situation, you finally pull yourself off of the floor. You straighten your clothes and wash your face as you begin to accept the situation you’re stuck with.'
  913. end
  914. act 'Finish' :gt $locM, $metkaM
  915. end
  916. if $ARGS[0] = 'ConcernedReact1':
  917. cla
  918. pregTalkPC = 1
  919. minut += 10
  920. *nl
  921. 'Your mind races as you gaze at the test in your hand. The two strips clearly show that you''re pregnant. You know this isn''t the worst thing that could happen to you, but your life is definitely going to change. Are you even ready for that kind of change?'
  922. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  923. 'The worst part about this whole situation is that you don''t even know how this happened. How can you get pregnant without having sex?'
  924. 'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
  925. elseif rape > 0 and stat['vaginal'] > 1:
  926. 'The worst part about this whole situation is that this isn''t even your fault. This was forced on you.'
  927. 'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
  928. else
  929. 'On some level, you''re aware that this is a consequence of your own actions, but you''re not quite ready to come to terms with that.'
  930. 'After a few minutes of weighing your options, you choose to get on with your day. You still have a lot to consider before you can decide what to do about this pregnancy, but you can’t spend all day in the bathroom without drawing suspicion.'
  931. end
  932. act 'Finish' :gt $locM, $metkaM
  933. end
  934. if $ARGS[0] = 'ExcitedReact1':
  935. cla
  936. pregTalkPC = 1
  937. minut += 10
  938. *nl
  939. 'You''re overcome with glee as you look at the pregnancy test in your hand. Its two strips confirm that your wish has been granted: you are pregnant. You giggle as you clutch the pregnancy test, excited to share the news with everyone you know.'
  940. if stat['hidden_vaginal'] > 0 and stat['vaginal'] = 1:
  941. 'You''re not sure how this happened, but you''re not going to complain. Who cares if a miracle made it happen?'
  942. 'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
  943. elseif rape > 0 and stat['vaginal'] > 1:
  944. 'You don’t even care about the circumstances that got you pregnant. It was absolutely worth it for this moment.'
  945. 'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
  946. else
  947. 'Every time you had sex, you hoped the act would make you into a mother.'
  948. 'You spend the next several minutes fantasizing about your entry into parenthood before you remember you have places you need to be. You finally get up, still giddy as you go on with your day.'
  949. end
  950. act 'Finish' :gt $locM, $metkaM
  951. end
  952. if $ARGS[0] = 'ArousedReact1':
  953. cla
  954. pregTalkPC = 1
  955. minut += 10
  956. *nl
  957. 'You rub your thighs together as you stare at the pregnancy test in your hand. The two strips displayed confirm that you’ve been knocked up. You excitedly recount every load of cum blast into your fertile womb, wondering which one found purchase. You gently rub your clit in a circular motion as you think about the fact that, in a few months, everyone who sees your large, pregnant belly will know what a slut you are.'
  958. if rape > 0 and stat['vaginal'] > 1 and incest['exp'] = 0:
  959. 'You pick up speed as you recall your rapist forcefully pumping you full of his wonderful semen without any concern for your desires. You loved having your agency stripped away as a complete stranger decided to make you a mother.'
  960. 'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
  961. elseif incest['exp'] > 0:
  962. 'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
  963. 'The taboo knowledge that you could have gotten pregnant from incest turns you on even more.'
  964. 'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
  965. else
  966. 'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
  967. 'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
  968. end
  969. act 'Finish' :gt $locM, $metkaM
  970. end
  971. if $ARGS[0] = 'WifeReact1':
  972. cla
  973. pregTalkPC = 1
  974. minut += 10
  975. *nl
  976. 'A wide smile spreads across your face as you look down at the pregnancy test. The two strips displayed exclaim that you’re finally starting a family. You begin to shake with excitement as you think about how you are going to tell your husband. Should you just tell him as soon as you see him, or do you want to make it an even more special occasion and tell him over a fancy dinner? Maybe you should just nonchalantly drop the test in front of him to see his reaction. Regardless of how you decide to do it, you can''t keep the excitement to yourself any longer. You take a brief moment to freshen up before leaving the room. '
  977. 'You have a little time before your husband gets home and the baby''s room isn''t going to design itself.'
  978. act 'Finish' :gt $locM, $metkaM
  979. end
  980. if $ARGS[0] = 'WifeReact2':
  981. cla
  982. pregTalkPC = 1
  983. minut += 10
  984. *nl
  985. 'You smile warmly at the test in your hand. You are definitely pregnant again. Your chest swells with joy, knowing that your wonderful family is about to get a little bit larger. You contentedly sigh as you envision your pregnant belly swelling again, proclaiming your motherhood to the world. Having a child is the greatest thing that has ever happened to you, and you’re thrilled at the opportunity to experience it again. You can’t wait any longer to tell your husband. You quickly spruce yourself up before going to share the fantastic news with your spouse.'
  986. act 'Finish' :gt $locM, $metkaM
  987. end
  988. --- din_van ---------------------------------