vanr 7.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313
  1. # vanr
  2. act 'Go to the corridor':gt 'korr'
  3. $stirkad = {
  4. cla
  5. *clr
  6. minut += dirtbelo * 5
  7. suhbelo += dirtbelo
  8. poroshok -= 1
  9. dirtbelo = 0
  10. manna -= 10
  11. '<center><img src="images/etogame/stir.jpg"></center>'
  12. 'You soak the dirty linen in a basin and pour the powder on them. You wash the clothes until they are finally clean.'
  13. act 'Hang the laundry out to dry':gt 'korr'
  14. }
  15. $metka = $ARGS[0]
  16. $loc = $CURLOC
  17. $metkaM = $ARGS[0]
  18. $locM = $CURLOC
  19. clr
  20. minut += 1
  21. housrA = 1
  22. elektro += 1
  23. gs 'stat'
  24. fcolor = rgb(0, 0, 0)
  25. bcolor = rgb(255, 255, 255)
  26. lcolor = rgb(106, 90, 205)
  27. '<center><b><font color="maroon">Bathroom</font></b></center>'
  28. if remvanr = 0:'<center><img src="images/etogame/vanr.jpg"></center>'
  29. if remvanr = 1:'<center><img src="images/etogame/vanr2.jpg"></center>'
  30. if stiralka > 0:
  31. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  32. husband += 5
  33. poroshok -= 2
  34. husporday = daystart
  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. 'A cupboard contains <font color="blue"><b><<clrbelo>></b></font> pairs of clean underwear. '
  62. else
  63. '<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 for chafing, 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. tanga = 1
  76. gt 'vanr'
  77. end
  78. else
  79. act 'Remove Underwear':
  80. cla
  81. tanga = 0
  82. gt 'vanr'
  83. end
  84. end
  85. if tampon > 0 and mesec > 0 and isprok = 0:
  86. act 'Use a tampon (0:05)':
  87. cla
  88. *clr
  89. tampon -= 1
  90. isprok = 1
  91. minut += 5
  92. manna -= 5
  93. '<center><img src="images/pics/wash3.jpg"></center>'
  94. 'You use a tampon.'
  95. act 'Finish':gt 'vanr'
  96. end
  97. end
  98. !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
  99. !!Washing off cosmetics also removes cum from face
  100. !!clrbelo: Amount of clean panties available
  101. if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
  102. act 'Quick wash (0:15)':
  103. cla
  104. *clr
  105. if clrbelo > 0:
  106. clrbelo -= 1
  107. dirtbelo += 1
  108. elseif tanga = 1:
  109. tanga = 0
  110. dirtbelo += 1
  111. end
  112. dynamic $showerdin
  113. sweat -= 1
  114. minut += 15
  115. '<center><img src="images/pics/wash5.jpg"></center>'
  116. 'You gave yourself a catlick, thus removing any traces of cum.'
  117. act 'Finish':gt 'vanr'
  118. end
  119. end
  120. if cumlip > 0 or cumface > 0:
  121. act 'Clean your face from sperm (0:05)':
  122. cla
  123. *clr
  124. mop = 1
  125. cumlip = 0
  126. cumface = 0
  127. sweat -= 1
  128. minut += 5
  129. '<center><img src="images/etogame/facesp.jpg"></center>'
  130. 'You clean your face and got rid of any trace of cum.'
  131. act 'Finish':gt 'vanr'
  132. end
  133. end
  134. if mop ! 1:
  135. act 'Wash off cosmetics (0:15)':
  136. cla
  137. mop = 1
  138. cumface = 0
  139. minut += 15
  140. 'You washed off your makeup.'
  141. act 'Finish':gt 'vanr'
  142. end
  143. end
  144. !!
  145. if klisma = 1 and klismaday ! daystart:
  146. act 'Give yourself an enema (0:05)':
  147. cla
  148. *clr
  149. minut += 5
  150. klismaday = daystart
  151. klismaday1= 1
  152. '<center><img src="images/picV/klisma.jpg"></center>'
  153. 'You give yourself an enema and clean your intestines. Your ass is now ready for anal sex.'
  154. act 'Finish':gt $curloc
  155. end
  156. end
  157. if vibrator = 1 and vibratorIN = 1:
  158. act 'Remove the vibrator (0:05)':
  159. cla
  160. *clr
  161. minut += 5
  162. vibratorIN = 0
  163. if vagina < 30:vagina += 1
  164. '<center><img src="images/etogame/vibrator.jpg"></center>'
  165. 'You bend over the sink and take the vibrator out of your pussy.'
  166. act 'Finish':gt 'vanr'
  167. end
  168. elseif vibrator = 1 and vibratorIN = 0:
  169. act 'Insert the vibrator in your vagina (0:05)':
  170. cla
  171. *clr
  172. minut += 5
  173. vibratorIN = 1
  174. if vagina < 30:vagina += 2
  175. '<center><img src="images/etogame/vibrator.jpg"></center>'
  176. 'You bend over the sink and inserted the vibrator in your pussy.'
  177. act 'Finish':gt 'vanr'
  178. end
  179. end
  180. if analplug = 1 and analplugin = 1:
  181. act 'Remove the butt plug (0:05)':
  182. cla
  183. *clr
  184. minut += 5
  185. analplugIN = 0
  186. if anus < 30:anus += 1
  187. ! WD: Remove Dupe Images ~ '<center><img src="images/etogame/analplug.jpg"></center>'
  188. '<center><img src="images/body/analplug.jpg"></center>'
  189. 'You bent over and took out the butt plug.' & !!0.2.6: Removed unneccessary var check
  190. act 'Finish':gt $curloc
  191. end
  192. elseif analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
  193. act 'Insert a butt plug (0:05)':
  194. cla
  195. *clr
  196. plugday = daystart
  197. minut += 5
  198. analplugIN = 1
  199. if anus < 10:anus = anus + 5
  200. if anus >= 10 and anus < 20:anus += rand(1, 2)
  201. if anus >= 20 and anus < 30:anus += rand(0, 1)
  202. ! WD: Remove Dupe Images ~ '<center><img src="images/etogame/analplug.jpg"></center>'
  203. '<center><img src="images/body/analplug.jpg"></center>'
  204. if butpluguse > 0:'You bent over and inserted the butt plug.'
  205. if butpluguse = 0: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.'
  206. act 'Leave':gt $curloc
  207. end
  208. end
  209. ! WD: add missing ointment
  210. if mosolmaz > 0 and mosol > 0:
  211. act 'Rub ointment onto your pussy (0:05)':
  212. cla
  213. minut += 5
  214. mosolmaz -= 1
  215. mosol -= 5
  216. 'You take a tube of cream and rub it onto your itchy vulva.'
  217. act 'Leave':gt $curloc
  218. end
  219. end
  220. if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
  221. act 'Wash your husbands clothes (2 units of washing powder) (1:00)':
  222. cla
  223. *clr
  224. husband += 5
  225. poroshok -= 2
  226. minut += 60
  227. husporday = daystart
  228. manna -= 25
  229. '<center><img src="images/etogame/stir.jpg"></center>'
  230. 'You spend an hour washing your husbands smelly socks and his prossannye and properdannye truselya.'
  231. act 'Move away from the bathroom':gt 'vanr'
  232. end
  233. end
  234. if husband > 0 and husbanday > 0 and huspolday ! daystart:
  235. act 'Clean the apartment (1:00)':
  236. cla
  237. *clr
  238. husband += 5
  239. minut += 60
  240. huspolday = daystart
  241. manna -= 25
  242. !!'<center><img src="images/pics/cook.jpg"></center>'
  243. 'You take a rag and start cleaning the apartment.'
  244. act 'Leave':gt 'vanr'
  245. end
  246. end
  247. if pregtest > 0:
  248. act 'Do a pregnancy test':
  249. cla
  250. pregtest -= 1
  251. gs 'stat'
  252. if preg = 1:
  253. 'The test showed the two strips. you are pregnant.'
  254. !!'father - <<$father>>.'
  255. else
  256. 'The test showed one band.'
  257. end
  258. act 'Further':gt $curloc
  259. end
  260. end
  261. --- vanr ---------------------------------