vanrPar 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294
  1. # vanrPar
  2. act 'Leave the room':gt 'korrPar'
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. clr
  8. minut += 1
  9. gs 'stat'
  10. fcolor = rgb(0, 0, 0)
  11. bcolor = rgb(255, 255, 255)
  12. lcolor = rgb(106, 90, 205)
  13. '<center><b><font color="maroon">Bath</font></b></center>'
  14. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  15. '<center><img src="images/qwest/alter/vanrPar.jpg"></center>'
  16. 'Bathroom cramped and very unpretentious.'
  17. if stanok > 0:'Your razor will suffice for <b><<stanok>></b> time.'
  18. !WD: heal chafe
  19. if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>><b> applications.'
  20. act 'Wash in the shower (0:15)':
  21. cls
  22. dynamic $showerdin
  23. minut += 15
  24. horny += 1
  25. hapri = 0
  26. mop = 1
  27. sweat = -3
  28. if frost > 0:frost = 0
  29. gs 'stat'
  30. '<center><img src="images/pics/dush.jpg"></center>'
  31. 'You got into the shower and began to lather your body washcloth. After washed soap and washed hair with shampoo. Rinse off the shampoo you become completely clean.'
  32. act 'Out of the bath':gt $locM, $metkaM
  33. end
  34. act 'Wash in the bathroom (1:00)':
  35. cls
  36. dynamic $showerdin
  37. minut += 60
  38. sweat = -3
  39. horny += 3
  40. hapri = 0
  41. mop = 1
  42. manna += 10
  43. if frost > 0:frost = 0
  44. skinvan += 1
  45. if skinvan = 20:skinvan = 0 & skin += 1
  46. gs 'stat'
  47. '<center><img src="images/pics/wash4.jpg"></center>'
  48. 'Turn on the water, you got into the bathroom and went into the warm water. Ponaslazhdatsya pleasant warmth you lathered his body sponge and hair shampoo. Then all you have washed off with water.'
  49. act 'Out of the bath':gt $locM, $metkaM
  50. if horny >= 90:
  51. act 'Direct water on pussy':
  52. cla
  53. *clr
  54. horny = 0
  55. minut += 30
  56. mastr += 1
  57. orgasm += 1
  58. manna += 15
  59. willpower += 15
  60. '<center><img src="images/pics/wash7.jpg"></center>'
  61. '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.'
  62. act 'Get out and get dressed':gt $locM, $metkaM
  63. end
  64. elseif horny >= 40 and horny < 90:
  65. act 'Direct water on pussy':
  66. cla
  67. *clr
  68. horny += 5
  69. minut += 30
  70. manna += 10
  71. willpower += 10
  72. '<center><img src="images/pics/wash7.jpg"></center>'
  73. '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.'
  74. act 'Get out and get dressed':gt $locM, $metkaM
  75. end
  76. end
  77. if horny >= 50:
  78. act 'Masturbate':gt 'selfplay'
  79. end
  80. end
  81. ! WD: add Underwear change
  82. if tanga = 1:
  83. act 'Remove Underwear':
  84. cla
  85. tanga = 0
  86. gt $curloc
  87. end
  88. end
  89. if tampon > 0 and mesec > 0 and isprok = 0:
  90. act 'Use a tampon (0:05)':
  91. cla
  92. *clr
  93. tampon -= 1
  94. isprok = 1
  95. minut += 5
  96. manna -= 5
  97. gs 'stat'
  98. '<center><img src="images/pics/wash3.jpg"></center>'
  99. 'You use a tampon.'
  100. act 'Finish':gt $curloc
  101. end
  102. end
  103. if mop ! 1:
  104. act 'Wash off cosmetics (0:15)':
  105. cla
  106. mop = 1
  107. cumface = 0
  108. minut += 15
  109. gs 'stat'
  110. '<center><img src="images/etogame/facesp.jpg"></center>'
  111. 'You washed off your makeup.'
  112. act 'Finish':gt $curloc
  113. end
  114. end
  115. if cumfrot > 0:
  116. act 'Wipe the cum off your clothes (0:10)':
  117. cla
  118. cumfrot = 0
  119. minut += 10
  120. gs 'stat'
  121. '<center><img src="images/etogame/frotsp.jpg"></center>'
  122. 'You remove traces of cum from your clothes.'
  123. act 'Finish':gt $curloc
  124. end
  125. end
  126. if cumlip > 0 or cumface > 0:
  127. act 'Clean your face from sperm (0:05)':
  128. cla
  129. *clr
  130. mop = 1
  131. cumlip = 0
  132. cumface = 0
  133. sweat -= 1
  134. minut += 5
  135. '<center><img src="images/etogame/facesp.jpg"></center>'
  136. 'You clean your face and got rid of any trace of cum.'
  137. act 'Finish':gt $curloc
  138. end
  139. end
  140. if leghair > 0 and stanok > 0:
  141. act 'Shave your legs (0:15)':
  142. cla
  143. *clr
  144. minut += 15
  145. leghair = -5
  146. horny += 5
  147. stanok -= 1
  148. '<center><img src="images/pics/shave.jpg"></center>'
  149. 'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
  150. act 'postpone machine':gt $curloc
  151. end
  152. end
  153. if lobok > 0 and stanok > 0:
  154. act 'Shave pubis (0:15)':
  155. cla
  156. *clr
  157. minut += 15
  158. lobok = -5
  159. horny += 5
  160. stanok -= 1
  161. '<center><img src="images/pics/shave3.jpg"></center>'
  162. 'You lathered crotch and took a razor deft movements began to shave pubic hairs and shave pussy vokurug. Finally shaving was finished and you flushed with foam pussy.'
  163. act 'postpone machine':gt $curloc
  164. end
  165. end
  166. if 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. elseif analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
  179. act 'Insert a butt plug (0:05)':
  180. cla
  181. *clr
  182. plugday = daystart
  183. minut += 5
  184. analplugIN = 1
  185. if anus < 10:anus += 5
  186. if anus >= 10 and anus < 20:anus += rand(1, 2)
  187. if anus >= 20 and anus < 30:anus += rand(0, 1)
  188. ! WD: Remove Dupe Images ~ '<center><img src="images/etogame/analplug.jpg"></center>'
  189. '<center><img src="images/body/analplug.jpg"></center>'
  190. if butpluguse > 0:'You bent over and inserted the butt plug.'
  191. 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.'
  192. act 'Finish':gt $curloc
  193. end
  194. end
  195. if klisma = 1 and klismaday ! day:
  196. act 'Give yourself an enema (0:05)':
  197. cla
  198. *clr
  199. minut += 5
  200. klismaday = day
  201. klismaday1 = 1
  202. '<center><img src="images/picV/klisma.jpg"></center>'
  203. 'You put yourself an enema and clean intestines, now your ass is ready for anal sex.'
  204. act 'Finish':gt $curloc
  205. end
  206. end
  207. if vibrator = 1 and vibratorIN = 1:
  208. act 'Remove the vibrator (0:05)':
  209. cla
  210. *clr
  211. minut += 5
  212. vibratorIN = 0
  213. if vagina < 30:vagina += 1
  214. '<center><img src="images/etogame/vibrator.jpg"></center>'
  215. 'You bend over the sink and take the vibrator out of your pussy.'
  216. act 'Finish':gt $curloc
  217. end
  218. elseif vibrator = 1 and vibratorIN = 0 and vagina ! 0:
  219. act 'Insert the vibrator in your vagina (0:05)':
  220. cla
  221. *clr
  222. minut += 5
  223. vibratorIN = 1
  224. if vagina < 30:vagina += 2
  225. '<center><img src="images/etogame/vibrator.jpg"></center>'
  226. 'You bend over the sink and inserted the vibrator in your pussy.'
  227. act 'Finish':gt $curloc
  228. end
  229. end
  230. if pregtest > 0:
  231. act 'Do a pregnancy test':
  232. cla
  233. pregtest -= 1
  234. gs 'stat'
  235. if preg = 1:
  236. 'The test showed the two strips. you are pregnant.'
  237. 'you think, that the father <<$father>>.'
  238. else
  239. 'The test showed one band.'
  240. end
  241. act 'Further':gt $curloc
  242. end
  243. end
  244. --- vanrPar ---------------------------------