din_van 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450
  1. # din_van
  2. $showerdin = {
  3. cumspclnt = 1
  4. gs 'cum_cleanup'
  5. }
  6. $bteeth = {
  7. if fbreath ! 1:
  8. act 'Brush your teeth (0.05)':
  9. cla
  10. *clr
  11. minut += 5
  12. cumspclnt = 2
  13. gs 'cum_cleanup'
  14. fbreath = 1
  15. '<center><img src="images/pics/brushteeth.jpg"></center>'
  16. 'You brush your teeth and now they are clean and minty fresh'
  17. act 'Finish':gt $locM, $metkaM
  18. end
  19. end
  20. }
  21. $shower = {
  22. act 'Wash in the shower (0:15)':
  23. cla
  24. *clr
  25. shampoo -= 1
  26. minut += 15
  27. horny += 1
  28. hapri = 0
  29. mop = 1
  30. sweat = -3
  31. if clrbelo > 0 and tanga = 1:
  32. clrbelo -= 1
  33. dirtbelo += 1
  34. elseif clrbelo = 0 and tanga = 1:
  35. tanga = 0
  36. dirtbelo += 1
  37. end
  38. if shampoo < 0:
  39. shampoo = 0
  40. end
  41. dynamic $showerdin
  42. if frost > 0:frost = 0
  43. '<center><img src="images/pics/dush.jpg"></center>'
  44. if daystart < 10 and StoryLine = 0:
  45. 'It is really wild 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 in the shower noticing how soft and tender it feels. Once you lather yourself with soap you wash in the shower, continuing to experience new and strange sensations.'
  46. elseif daystart >= 10 and daystart < 30 and StoryLine = 0:
  47. 'You have already gotten used to a woman''s body and its softness doesn''t surprise you very much.'
  48. else
  49. 'You carefully lather soap over your body trying not to miss any spot, and then wash off in the shower.'
  50. end
  51. if $loc = 'vanrPar':
  52. dynamic $brother_voyeurism
  53. end
  54. if (leghair > 0 or lobok > 0) and stanok > 0:
  55. act 'Get razor':dynamic $brit
  56. end
  57. if horny >= 90:
  58. act 'Use the showerhead on your pussy':
  59. cla
  60. *clr
  61. horny = 0
  62. minut += 30
  63. mastr += 1
  64. orgasm += 1
  65. manna += 15
  66. willpower += 15
  67. '<center><img src="images/pics/wash2.jpg"></center>'
  68. 'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. Soon you feel a warm wave covers your entire body and you begin to shudder as the orgasm overtakes you.'
  69. act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
  70. end
  71. elseif horny >= 40 and horny < 90:
  72. act 'Send shower pussy':
  73. cla
  74. *clr
  75. horny += 5
  76. minut += 30
  77. manna += 10
  78. willpower += 10
  79. '<center><img src="images/pics/wash2.jpg"></center>'
  80. 'You place the showerhead onto your pussy and a powerful jet of warm water begins to caress you. At first it feels very nice, but after a while it starts to be a little bit painful. You decide to stop masturbating.'
  81. act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
  82. end
  83. end
  84. act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
  85. end
  86. }
  87. $bath = {
  88. act 'Soak in the bath (1:00)':
  89. cla
  90. *clr
  91. shampoo -= 1
  92. minut += 60
  93. sweat = -3
  94. horny += 1
  95. hapri = 0
  96. mop = 1
  97. manna += 10
  98. if clrbelo > 0 and tanga = 1:
  99. clrbelo -= 1
  100. dirtbelo += 1
  101. elseif clrbelo = 0 and tanga = 1:
  102. tanga = 0
  103. dirtbelo += 1
  104. end
  105. if shampoo < 0:
  106. shampoo = 0
  107. end
  108. dynamic $showerdin
  109. if frost > 0:frost = 0
  110. skinvan += 1
  111. gs 'stat'
  112. '<center><img src="images/pics/wash4.jpg"></center>'
  113. if daystart < 10:
  114. 'You got into the bathroom and sat down in the warm water, sticking out of the water your knees are rounded and smooth, which you blinked, you still have not got used to his new body was wildly like to look at all these roundness. Starting lather body you unwittingly turned their attention to the chest, it''s so soft and big, and when you touch her body appear in what is unfamiliar but pleasant sensations. Then you washed with soap yourself and you can already out of the bathroom.'
  115. elseif daystart >= 10 and daystart < 30:
  116. 'You got into the bathroom and sat down in the warm water, you have a little accustomed to his new body and calmly soaping all these curves and bulges, then you flushed the soap.'
  117. else
  118. 'You got into the bathroom and went into the warm water stolidly staring at his smooth legs sticking out of the water. You lathered his body and then washed soap rubbing his hands over his curves of the female body.'
  119. end
  120. if $loc = 'vanrPar':
  121. dynamic $brother_voyeurism
  122. end
  123. if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
  124. act 'Get razor':dynamic $brit
  125. end
  126. if obdysh = 1:vannmastrand = rand(0, 5)
  127. if horny >= 90:
  128. act 'Direct water on pussy':
  129. cla
  130. *clr
  131. if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'
  132. horny = 0
  133. minut += 30
  134. mastr += 1
  135. orgasm += 1
  136. manna += 15
  137. willpower += 15
  138. '<center><img src="images/pics/wash7.jpg"></center>'
  139. 'You sent a water faucet on pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
  140. act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
  141. end
  142. elseif horny >= 40 and horny < 90:
  143. act 'Direct water on pussy':
  144. cla
  145. *clr
  146. if obdysh = 1 and vannmastrand = 1:gt 'vann', 'v4'
  147. horny += 5
  148. minut += 30
  149. manna += 10
  150. willpower += 10
  151. '<center><img src="images/pics/wash7.jpg"></center>'
  152. 'You sent a water faucet on pussy and tight jet of warm water began to caress you. At first it was not even bad, but then sleep and arousal, even as it was not nice. So you stopped masturbating.'
  153. act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
  154. end
  155. end
  156. if horny >= 50:
  157. act 'Masturbate':gt 'selfplay'
  158. end
  159. act 'Get dressed and get out':mirror_steam = hour & gt $locM, $metkaM
  160. end
  161. }
  162. $brit = {
  163. cla
  164. 'You rinse the razor blade which looks in good enough shape for <b><<stanok>></b> more shaves.'
  165. if leghair > 0 and stanok > 0:
  166. act 'Shave your legs (0:15)':
  167. cla
  168. *clr
  169. minut += 15
  170. leghair = -5
  171. horny += 5
  172. stanok -= 1
  173. '<center><img src="images/pics/shave.jpg"></center>'
  174. if daystart < 10:'You have decided to shave your pussy and picking up a razor realized that you do not know how to shave. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you''re used to. But finally it was done with shaving and you flushed with foam pussy stroking your hand and wondering sensations.'
  175. if daystart >= 10 and daystart < 30:'You lathered her soft feet and took in hand razor. You have grown accustomed to his new body and shaved legs calmly knowing that hairy legs with your new body is not beautiful. Finally shaving was done with and you flushed foam stroking his smooth as silk legs.'
  176. if daystart >= 30:'You lathered his feet and took a razor. Habitual movements you shaved hair on the legs and washed shaving foam.'
  177. !!'You lathered up and shaved hair with them.'
  178. act 'Postpone machine':dynamic $brit
  179. end
  180. end
  181. if lobok > 0 and stanok > 0:
  182. act 'Shave pubis (0:15)':
  183. cla
  184. *clr
  185. minut += 15
  186. lobok = -5
  187. horny += 5
  188. stanok -= 1
  189. if obdysh = 1 and obbritinvent = 0:
  190. britrand = rand(0, 5)
  191. if britrand = 5:gt 'vann', 'brit1'
  192. end
  193. '<center><img src="images/pics/shave3.jpg"></center>'
  194. if daystart < 10:'You have decided to shave pubis, lathered his foam and picking up a razor realized that he did not imagine how it shaved. To begin, you have shaved pubic hair, it was not difficult, but then you notice that near your newfound pussy hair grow too. Here you have difficulties began, you tried to pull one hand, all these soft folds to the side so the second hand to shave all the hairs. Gradually, you still managed to shave off all his hair with your new vagina. As long as you shave you hardly came out of shock contemplating his crotch which was not at all what you''re used to. But finally it was done with shaving and you flushed with foam pussy stroking her hand and wondering sensations.'
  195. if daystart >= 10 and daystart < 30:'You foam lathered his groin, trying not to miss a single crease on her pussy. Then neat movements began shave pussy trying not to cut. Finally you did it and you flushed foam pubic hair and pussy.'
  196. if daystart >= 30:'You lathered crotch and took a razor habitual movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'
  197. !!'You lathered pubis, then shaved all the hair from it.'
  198. act 'Postpone machine':dynamic $brit
  199. end
  200. end
  201. act 'Get out and get dressed':gt $locM, $metkaM
  202. }
  203. $tampon = {
  204. if sanpad > 0 and mesec > 0 and isprokp = 0 and isprok = 0 and tanga = 1:
  205. act 'Use a sanitary napkin (0:05)':
  206. cla
  207. *clr
  208. sanpad -= 1
  209. isprokp = 1
  210. minut += 5
  211. manna -= 5
  212. '<center><img src="images/pics/wash3.jpg"></center>'
  213. 'You use a sanitary napkin.'
  214. act 'Finish':gt $locM, $metkaM
  215. end
  216. end
  217. if tampon > 0 and mesec > 0 and isprok = 0 and isprokp = 0:
  218. act 'Use a tampon (0:05)':
  219. cla
  220. *clr
  221. tampon -= 1
  222. isprok = 1
  223. minut += 5
  224. manna -= 5
  225. '<center><img src="images/pics/wash3.jpg"></center>'
  226. 'You use a tampon.'
  227. act 'Finish':gt $locM, $metkaM
  228. end
  229. end
  230. }
  231. $quickwash = {
  232. if spdirty > 0:
  233. act 'Quick wash (0:15)':
  234. cla
  235. *clr
  236. if clrbelo > 0 and tanga = 1:
  237. clrbelo -= 1
  238. dirtbelo += 1
  239. elseif clrbelo = 0 and tanga = 1:
  240. tanga = 0
  241. dirtbelo += 1
  242. end
  243. cumspclnt = 20
  244. gs 'cum_cleanup'
  245. sweat -= 1
  246. minut += 15
  247. '<center><img src="images/pics/wash5.jpg"></center>'
  248. 'You gave yourself a catlick, thus removing any traces of cum.'
  249. act 'Finish':gt $locM, $metkaM
  250. end
  251. end
  252. }
  253. $wearpan = {
  254. if tanga = 0 and clrbelo > 0:
  255. act 'Wear Underwear':
  256. cla
  257. tanga = 1
  258. clrbelo -= 1
  259. gt $locM, $metkaM
  260. end
  261. end
  262. }
  263. $basin = {
  264. if tanga = 1:
  265. act 'Remove Underwear':
  266. cla
  267. tanga = 0
  268. dirtbelo += 1
  269. gt $locM, $metkaM
  270. end
  271. end
  272. if spdirtyv > 0 or spdirtyb > 0:
  273. act 'Clean your face from sperm (0:10)':
  274. cla
  275. *clr
  276. mop = 1
  277. cumspclnt = 9
  278. gs 'cum_cleanup'
  279. cumspclnt = 13
  280. gs 'cum_cleanup'
  281. sweat -= 1
  282. minut += 10
  283. '<center><img src="images/etogame/facesp.jpg"></center>'
  284. 'You clean your face and got rid of any trace of cum.'
  285. act 'Finish':gt $locM, $metkaM
  286. end
  287. end
  288. if body_write > 0 or face_write > 0:
  289. act 'Wash writing off your body':
  290. cla
  291. body_write = 0
  292. face_write = 0
  293. minut = minut + 5
  294. gs'stat'
  295. !'You need a picture'
  296. 'You wiped indecent inscriptions.'
  297. act 'Finish':gt $locM, $metkaM
  298. end
  299. end
  300. if mop ! 1:
  301. act 'Wash off cosmetics (0:10)':
  302. cla
  303. mop = 1
  304. cumspclnt = 9
  305. gs 'cum_cleanup'
  306. cumspclnt = 11
  307. gs 'cum_cleanup'
  308. minut += 10
  309. 'You washed off your makeup.'
  310. act 'Finish':gt $locM, $metkaM
  311. end
  312. end
  313. }
  314. $pirManage = {
  315. cls
  316. cla
  317. *nl
  318. if pirsA > 0:
  319. if pirsA = 1:
  320. '<a href="exec:pirsA = 2 & dynamic $pirManage">Remove tongue barbell</a>.'
  321. else
  322. '<a href="exec:pirsA = 1 & dynamic $pirManage">Insert tongue barbell</a>.'
  323. end
  324. end
  325. if pirsB > 0:
  326. if pirsB = 1:
  327. '<a href="exec:pirsB = 2 & dynamic $pirManage">Remove lip ring</a>.'
  328. else
  329. '<a href="exec:pirsB = 1 & dynamic $pirManage">Insert lip ring</a>.'
  330. end
  331. end
  332. if pirsC > 0:
  333. if pirsC = 1:
  334. '<a href="exec:pirsC = 2 & dynamic $pirManage">Remove ear piercings</a>.'
  335. else
  336. '<a href="exec:pirsC = 1 & dynamic $pirManage">Insert ear piercings</a>.'
  337. end
  338. end
  339. if pirsD > 0:
  340. if pirsD = 1:
  341. '<a href="exec:pirsD = 2 & dynamic $pirManage">Remove nose ring</a>.'
  342. else
  343. '<a href="exec:pirsD = 1 & dynamic $pirManage">Insert nose ring</a>.'
  344. end
  345. end
  346. if pirsE > 0:
  347. if pirsE = 1:
  348. '<a href="exec:pirsE = 2 & dynamic $pirManage">Remove eyebrow stud</a>.'
  349. else
  350. '<a href="exec:pirsE = 1 & dynamic $pirManage">Insert eyebrow stud</a>.'
  351. end
  352. end
  353. if pirsF > 0:
  354. if pirsF = 1:
  355. '<a href="exec:pirsF = 2 & dynamic $pirManage">Remove nipple piercings</a>.'
  356. else
  357. '<a href="exec:pirsF = 1 & dynamic $pirManage">Insert nipple piercings</a>.'
  358. end
  359. end
  360. if pirsN > 0:
  361. if pirsN = 1:
  362. '<a href="exec:pirsN = 2 & dynamic $pirManage">Remove navel piercing</a>.'
  363. else
  364. '<a href="exec:pirsN = 1 & dynamic $pirManage">Insert navel piercing</a>.'
  365. end
  366. end
  367. if pirsG > 0:
  368. if pirsG = 1:
  369. '<a href="exec:pirsG = 2 & dynamic $pirManage">Remove labia piercings</a>.'
  370. else
  371. '<a href="exec:pirsG = 1 & dynamic $pirManage">Insert labia piercings</a>.'
  372. end
  373. end
  374. if pirsGL > 0:
  375. if pirsGL = 1:
  376. '<a href="exec:pirsGL = 2 & dynamic $pirManage">Remove clit piercing</a>.'
  377. else
  378. '<a href="exec:pirsGL = 1 & dynamic $pirManage">Insert clit piercing</a>.'
  379. end
  380. end
  381. act'<b>Back</b>':gt $locM, $metkaM
  382. }
  383. --- din_van ---------------------------------