1
0

vanr 7.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297
  1. # vanr
  2. act 'Go to the corridor':gt 'korr'
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. $stirkad = {
  8. cla
  9. *clr
  10. set minut += dirtbelo * 5
  11. set suhbelo += dirtbelo
  12. set poroshok -= 1
  13. set dirtbelo = 0
  14. set manna -= 10
  15. '<center><img src="images/etogame/stir.jpg"></center>'
  16. 'You soak the dirty linen in a basin and pour the powder on them. You wash the clothes until they are finally clean.'
  17. act 'Hang the laundry out to dry':gt 'korr'
  18. }
  19. '<center><b><font color="maroon">Bathroom</font></b></center>'
  20. if remvanr = 0:'<center><img src="images/etogame/vanr.jpg"></center>'
  21. if remvanr = 1:'<center><img src="images/etogame/vanr2.jpg"></center>'
  22. clr
  23. gs 'stat'
  24. fcolor = rgb(0, 0, 0)
  25. bcolor = rgb(255, 255, 255)
  26. lcolor = rgb(106, 90, 205)
  27. set minut += 1
  28. set housrA = 1
  29. set elektro += 1
  30. if stiralka > 0:
  31. if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
  32. husband += 5
  33. set poroshok -= 2
  34. husporday = day
  35. 'Washing machine washed smelly socks husband and his prossannye and properdannye truselya.'
  36. end
  37. if dirtbelo > 0 and poroshok >= dirtbelo:
  38. clrbelo += dirtbelo
  39. poroshok -= dirtbelo
  40. dirtbelo = 0
  41. 'The washing machine washed your laundry'
  42. elseif poroshok < dirtbelo:
  43. 'You ran out of powder for washing machine.'
  44. end
  45. end
  46. if tampon > 0:
  47. 'A box of tampons is on a shelf. There is enough for <b><<tampon>></b> uses'
  48. else
  49. '<b><font color="red">You have no tampons.</font></b>'
  50. end
  51. if stanok > 0:'A package of razors is on a shelf above the sink. You have enough blades for <b><<stanok>></b> shaves.'
  52. if dirtbelo>0:'The laundry basket currently has <font color="red"><b><<dirtbelo>></b></font> pieces of dirty laundry.'
  53. if poroshok > 0:
  54. if dirtbelo = 0:$stirka = ''
  55. if dirtbelo > 0:$stirka = '<a href="exec:dynamic $stirkad">You can wash clothes</a>'
  56. 'Under the sink there''s detergent powder, which is enough for <b><<poroshok>></b> washes. <<$stirka>>'
  57. else
  58. '<b><font color="red">You have no detergent powder and nothing to wash clothes with.</font></b>'
  59. end
  60. if clrbelo > 0:
  61. *p 'A cupboard contains <font color="blue"><b><<clrbelo>></b></font> pairs of clean underwear. '
  62. else
  63. *p '<b><font color="red">You do not have any clean underwear.</font></b> '
  64. end
  65. if shampoo > 0:
  66. 'You have enough shampoo for <b><<shampoo>></b> washes. You can <a href="exec:gt ''vann'', ''start''">wash yourself</a>.'
  67. else
  68. 'You''ve ran out of shampoo.'
  69. end
  70. if mosolmaz>0:'On a shelf is a tube of ointment protivomozolnoy, which will be enough for <b><<mosolmaz>><b> applications.'
  71. if stiralka > 0:'In the bathroom is a washing machine.'
  72. !'if tanga = 0 and clrbelo > 0:
  73. act 'Wear underwear':
  74. cla
  75. set tanga = 1
  76. gt 'vanr'
  77. end
  78. end
  79. if tanga = 1:
  80. act 'Do not wear underwear':
  81. cla
  82. set tanga = 0
  83. gt 'vanr'
  84. end
  85. end'!
  86. if tampon > 0 and mesec > 0 and isprok = 0:
  87. act 'Use a tampon (0:05)':
  88. cla
  89. *clr
  90. set tampon -= 1
  91. set isprok = 1
  92. set minut += 5
  93. set manna -= 5
  94. '<center><img src="images/pics/wash3.jpg"></center>'
  95. 'You use a tampon.'
  96. act 'Finish':gt 'vanr'
  97. end
  98. end
  99. !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
  100. !!Washing off cosmetics also removes cum from face
  101. !!clrbelo: Amount of clean panties available
  102. if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0:
  103. act 'Quick wash (0:15)':
  104. cla
  105. *clr
  106. dynamic $showerdin
  107. set sweat -= 1
  108. set minut += 15
  109. set clrbelo -= 1
  110. set dirtbelo += 1
  111. '<center><img src="images/pics/wash5.jpg"></center>'
  112. 'You gave yourself a catlick, thus removing any traces of cum.'
  113. act 'Finish':gt 'vanr'
  114. end
  115. end
  116. if cumlip > 0 or cumface > 0:
  117. act 'Clean your face from sperm (0:05)':
  118. cla
  119. *clr
  120. set mop = 1
  121. set cumlip = 0
  122. set cumface = 0
  123. set sweat -= 1
  124. set minut += 5
  125. '<center><img src="images/etogame/facesp.jpg"></center>'
  126. 'You clean your face and got rid of any trace of cum.'
  127. act 'Finish':gt 'vanr'
  128. end
  129. end
  130. if mop ! 1:
  131. act 'Wash off cosmetics (0:15)':
  132. cla
  133. set mop = 1
  134. set cumface = 0
  135. set minut += 15
  136. 'You washed off your makeup.'
  137. act 'Finish':gt 'vanr'
  138. end
  139. end
  140. !!
  141. if klisma = 1 and klismaday ! day:
  142. act 'Give yourself an enema (0:05)':
  143. cla
  144. *clr
  145. set minut += 5
  146. set klismaday = day
  147. set klismaday1= 1
  148. '<center><img src="images/picV/klisma.jpg"></center>'
  149. 'You give yourself an enema and clean your intestines. Your ass is now ready for anal sex.'
  150. act 'Finish':gt $curloc
  151. end
  152. end
  153. if vibrator = 1 and vibratorIN = 0:
  154. act 'Insert the vibrator in your vagina (0:05)':
  155. cla
  156. *clr
  157. set minut += 5
  158. set vibratorIN = 1
  159. if vagina < 30:set vagina += 2
  160. '<center><img src="images/etogame/vibrator.jpg"></center>'
  161. 'You bend over the sink and inserted the vibrator in your pussy.'
  162. act 'Finish':gt 'vanr'
  163. end
  164. end
  165. if vibrator = 1 and vibratorIN = 1:
  166. act 'Remove the vibrator (0:05)':
  167. cla
  168. *clr
  169. set minut += 5
  170. set vibratorIN = 0
  171. if vagina < 30:set vagina += 1
  172. '<center><img src="images/etogame/vibrator.jpg"></center>'
  173. 'You bend over the sink and take the vibrator out of your pussy.'
  174. act 'Finish':gt 'vanr'
  175. end
  176. end
  177. if analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
  178. act 'Insert a butt plug (0:05)':
  179. cla
  180. *clr
  181. plugday = daystart
  182. set minut += 5
  183. set analplugIN = 1
  184. if anus < 10:set anus = anus + 5
  185. if anus >= 10 and anus < 20:anus += rand(1, 2)
  186. if anus >= 20 and anus < 30:anus += rand(0, 1)
  187. '<center><img src="images/etogame/analplug.jpg"></center>'
  188. if butpluguse > 0:'You bent over and inserted the butt plug.'
  189. if butpluguse = 0:set butpluguse = 1 & '"If I don''t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.'
  190. act 'Exit':gt $curloc
  191. end
  192. end
  193. if analplug = 1 and analplugin = 1:
  194. act 'Remove the butt plug (0:05)':
  195. cla
  196. *clr
  197. set minut += 5
  198. set analplugIN = 0
  199. if anus < 30:set anus += 1
  200. '<center><img src="images/etogame/analplug.jpg"></center>'
  201. 'You bent over and took out the butt plug.' !!0.2.6: Removed unneccessary var check
  202. act 'Finish':gt $curloc
  203. end
  204. end
  205. if husband > 0 and husbanday > 0 and husporday ! day and poroshok >= 2:
  206. act 'Wash your husbands clothes (2 units of washing powder) (1:00)':
  207. cla
  208. *clr
  209. husband += 5
  210. set poroshok -= 2
  211. set minut += 60
  212. husporday = day
  213. manna -= 25
  214. '<center><img src="images/etogame/stir.jpg"></center>'
  215. 'You spend an hour washing your husbands smelly socks and his prossannye and properdannye truselya.'
  216. act 'Move away from the bathroom':gt 'vanr'
  217. end
  218. end
  219. if husband > 0 and husbanday > 0 and huspolday ! day:
  220. act 'Clean the apartment (1:00)':
  221. cla
  222. *clr
  223. husband += 5
  224. set minut += 60
  225. huspolday = day
  226. manna -= 25
  227. !!'<center><img src="images/pics/cook.jpg"></center>'
  228. 'You take a rag and start cleaning the apartment.'
  229. act 'Leave':gt 'vanr'
  230. end
  231. end
  232. if pregtest > 0:
  233. act 'Do a pregnancy test':
  234. pregtest -= 1
  235. cla
  236. gs 'stat'
  237. if preg = 1:
  238. 'The test showed the two strips. you are pregnant.'
  239. !!'father - <<$father>>.'
  240. else
  241. 'The test showed one band.'
  242. end
  243. act 'further':gt $curloc
  244. end
  245. end
  246. --- vanr ---------------------------------