yvan 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215
  1. # yvan
  2. $metkaM = $ARGS[0]
  3. $locM = $CURLOC
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. clr
  7. gs 'stat'
  8. '<center><b><font color="maroon">House</font></b></center>'
  9. '<center>Bathroom</center>'
  10. if ymanrem[5] = 0:'<center><img src="images/etogame/ynill.jpg"></center>'
  11. if ymanrem[5] = 1:'<center><img src="images/etogame/yrem.jpg"></center>'
  12. if ymanrem[5] = 2:'<center><img src="images/etogame/yvan.jpg"></center>'
  13. if ymanrem[5] = 2:'On the wall hangs a <a href="exec:gt ''mirror'', ''start''">mirror</a>'
  14. if tampon > 0:
  15. 'On a shelf are tampons in a pack. You have <b><<tampon>></b> left'
  16. else
  17. '<b><font color="red">You have no tampons left.</font></b>'
  18. end
  19. if stanok > 0:'On a shelf you have razor blades, you can use them <b><<stanok>></b> times.'
  20. if dirtbelo > 0:'In the cart is <font color="red"><b><<dirtbelo>></b></font> pieces of dirty laundry.'
  21. if poroshok > 0:
  22. 'Under the bath is some washing powder, which is enough for <b><<poroshok>></b> washes.'
  23. else
  24. '<b><font color="red">You do not have any detergent to wash your clothes.</font></b>'
  25. end
  26. if clrbelo > 0:
  27. 'In the locker there are <font color="blue"><b><<clrbelo>></b></font> clean underwear.'
  28. else
  29. '<b><font color="red">You can not wash yourself, because you do not have clean underwear.</font></b>'
  30. end
  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 your husbands smelly socks and his clothes.'
  36. end
  37. if dirtbelo > 0 and poroshok >= dirtbelo:
  38. clrbelo += dirtbelo
  39. poroshok -= dirtbelo
  40. dirtbelo = 0
  41. 'Washing machine washed your laundry'
  42. elseif poroshok < dirtbelo:
  43. 'You ran out of powder for washing machine.'
  44. end
  45. act 'Leave the room':minut += 1 & gt 'ymans'
  46. if tanga = 0:
  47. act 'Wear Underwear':
  48. cla
  49. tanga = 1
  50. gt $curloc
  51. end
  52. elseif tanga = 1:
  53. act 'Remove Underwear':
  54. cla
  55. tanga = 0
  56. gt $curloc
  57. end
  58. end
  59. if tampon > 0 and mesec > 0 and isprok = 0:
  60. act 'Use a tampon (0:05)':
  61. cla
  62. *clr
  63. tampon -= 1
  64. isprok = 1
  65. minut += 5
  66. manna -= 5
  67. '<center><img src="images/pics/wash3.jpg"></center>'
  68. 'You use a tampon.'
  69. act 'Finish':gt $curloc
  70. end
  71. end
  72. !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
  73. !!Washing off cosmetics also removes cum from face
  74. !!clrbelo: Amount of clean panties availableniform in all toilet/bathroom locations
  75. if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0 and clrbelo > 0:
  76. act 'Quick wash (0:15)':
  77. cla
  78. *clr
  79. if clrbelo > 0 and tanga = 1:
  80. clrbelo -= 1
  81. dirtbelo += 1
  82. elseif clrbelo = 0 and tanga = 1:
  83. tanga = 0
  84. dirtbelo += 1
  85. end
  86. dynamic $showerdin
  87. sweat -= 1
  88. minut += 15
  89. '<center><img src="images/pics/wash5.jpg"></center>'
  90. 'You gave yourself a catlick, thus removing any traces of cum.'
  91. act 'Finish':gt $curloc
  92. end
  93. end
  94. if cumlip > 0 or cumface > 0:
  95. act 'Clean your face from sperm (0:05)':
  96. cla
  97. *clr
  98. cumlip = 0
  99. cumface = 0
  100. sweat -= 1
  101. minut += 5
  102. '<center><img src="images/etogame/facesp.jpg"></center>'
  103. 'You clean your face and got rid of any trace of cum.'
  104. act 'Finish':gt $curloc
  105. end
  106. end
  107. if mop ! 1:
  108. act 'Wash off cosmetics (0:15)':
  109. cla
  110. mop = 1
  111. cumface = 0
  112. minut += 15
  113. 'You washed off your makeup.'
  114. act 'Finish':gt $curloc
  115. end
  116. end
  117. !!
  118. if klisma = 1 and klismaday ! daystart:
  119. act 'Give yourself an enema (0:05)':
  120. cla
  121. *clr
  122. minut += 5
  123. klismaday = daystart
  124. klismaday1= 1
  125. '<center><img src="images/picV/klisma.jpg"></center>'
  126. 'You put yourself an enema and clean intestines, now your ass is ready for anal sex.'
  127. act 'Finish':gt $curloc
  128. end
  129. end
  130. if vibrator = 1 and vibratorIN = 0:
  131. act 'Insert the vibrator in your vagina (0:05)':
  132. cla
  133. *clr
  134. minut += 5
  135. vibratorIN = 1
  136. if vagina < 30:vagina += 2
  137. '<center><img src="images/etogame/vibrator.jpg"></center>'
  138. 'You bend over the sink and inserted the vibrator in your pussy.'
  139. act 'Finish':gt $curloc
  140. end
  141. elseif vibrator = 1 and vibratorIN = 1:
  142. act 'Remove the vibrator (0:05)':
  143. cla
  144. *clr
  145. minut += 5
  146. vibratorIN = 0
  147. if vagina < 30:vagina += 1
  148. '<center><img src="images/etogame/vibrator.jpg"></center>'
  149. 'You bend over the sink and take the vibrator out of your pussy.'
  150. act 'Finish':gt $curloc
  151. end
  152. end
  153. if analplug = 1 and analplugin = 0 and klismaday1 = 1:
  154. act 'Insert a butt plug (0:05)':
  155. cla
  156. *clr
  157. minut += 5
  158. analplugIN = 1
  159. if anus < 30:anus += 5
  160. ! WD: Remove Dupe Images ~ '<center><img src="images/etogame/analplug.jpg"></center>'
  161. '<center><img src="images/body/analplug.jpg"></center>'
  162. if butpluguse > 0:'You bent over and inserted the butt plug.'
  163. 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.'
  164. act 'Finish':gt $curloc
  165. end
  166. elseif analplug = 1 and analplugin = 1:
  167. act 'Remove the butt plug (0:05)':
  168. cla
  169. *clr
  170. minut += 5
  171. analplugIN = 0
  172. if anus < 30:anus += 1
  173. ! WD: Remove Dupe Images ~ '<center><img src="images/etogame/analplug.jpg"></center>'
  174. '<center><img src="images/body/analplug.jpg"></center>'
  175. 'You bent over and took out the butt plug.' & !!0.2.6: Removed unneccessary var check
  176. act 'Finish':gt $curloc
  177. end
  178. end
  179. --- yvan ---------------------------------