vanrPar 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281
  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. '<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
  15. 'Bathroom cramped and very unpretentious.'
  16. if stanok > 0:'Your razor will suffice for <b><<stanok>></b> time.'
  17. act 'Wash in the shower (0:15)':
  18. cls
  19. dynamic $showerdin
  20. minut += 15
  21. horny += 1
  22. hapri = 0
  23. mop = 1
  24. sweat = -3
  25. if frost > 0:frost = 0
  26. gs 'stat'
  27. '<center><img src="images/pics/dush.jpg"></center>'
  28. '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.'
  29. act 'Out of the bath':gt $locM, $metkaM
  30. end
  31. act 'Wash in the bathroom (1:00)':
  32. cls
  33. dynamic $showerdin
  34. minut += 60
  35. sweat = -3
  36. horny += 3
  37. hapri = 0
  38. mop = 1
  39. manna += 10
  40. if frost > 0:frost = 0
  41. skinvan += 1
  42. if skinvan = 20:skinvan = 0 & skin += 1
  43. gs 'stat'
  44. '<center><img src="images/pics/wash4.jpg"></center>'
  45. '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.'
  46. act 'Out of the bath':gt $locM, $metkaM
  47. if horny >= 90:
  48. act 'Direct water on pussy':
  49. cla
  50. *clr
  51. horny = 0
  52. minut += 30
  53. mastr += 1
  54. orgasm += 1
  55. manna += 15
  56. willpower += 15
  57. '<center><img src="images/pics/wash7.jpg"></center>'
  58. '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.'
  59. act 'Get out and get dressed':gt $locM, $metkaM
  60. end
  61. elseif horny >= 40 and horny < 90:
  62. act 'Direct water on pussy':
  63. cla
  64. *clr
  65. horny += 5
  66. minut += 30
  67. manna += 10
  68. willpower += 10
  69. '<center><img src="images/pics/wash7.jpg"></center>'
  70. '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.'
  71. act 'Get out and get dressed':gt $locM, $metkaM
  72. end
  73. end
  74. if horny >= 50:
  75. act 'Masturbate':gt 'selfplay'
  76. end
  77. end
  78. end
  79. if tampon > 0 and mesec > 0 and isprok = 0:
  80. act 'Use a tampon (0:05)':
  81. cla
  82. *clr
  83. tampon -= 1
  84. isprok = 1
  85. minut += 5
  86. manna -= 5
  87. gs 'stat'
  88. '<center><img src="images/pics/wash3.jpg"></center>'
  89. 'You use a tampon.'
  90. act 'Finish':gt $curloc
  91. end
  92. end
  93. if mop ! 1:
  94. act 'Wash off cosmetics (0:15)':
  95. cla
  96. mop = 1
  97. cumface = 0
  98. minut += 15
  99. gs 'stat'
  100. '<center><img src="images/etogame/facesp.jpg"></center>'
  101. 'You washed off your makeup.'
  102. act 'Finish':gt $curloc
  103. end
  104. end
  105. if cumfrot > 0:
  106. act 'Wipe the cum off your clothes (0:10)':
  107. cla
  108. cumfrot = 0
  109. minut += 10
  110. gs 'stat'
  111. '<center><img src="images/etogame/frotsp.jpg"></center>'
  112. 'You remove traces of cum from your clothes.'
  113. act 'Finish':gt $curloc
  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. mop = 1
  121. cumlip = 0
  122. cumface = 0
  123. sweat -= 1
  124. 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 $curloc
  128. end
  129. end
  130. if leghair > 0 and stanok > 0:
  131. act 'Shave your legs (0:15)':
  132. cla
  133. *clr
  134. minut += 15
  135. leghair = -5
  136. horny += 5
  137. stanok -= 1
  138. '<center><img src="images/pics/shave.jpg"></center>'
  139. 'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
  140. act 'postpone machine':gt $curloc
  141. end
  142. end
  143. if lobok > 0 and stanok > 0:
  144. act 'Shave pubis (0:15)':
  145. cla
  146. *clr
  147. minut += 15
  148. lobok = -5
  149. horny += 5
  150. stanok -= 1
  151. '<center><img src="images/pics/shave3.jpg"></center>'
  152. '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.'
  153. act 'postpone machine':gt $curloc
  154. end
  155. end
  156. if analplug = 1 and analplugin = 1:
  157. act 'Remove the butt plug (0:05)':
  158. cla
  159. *clr
  160. minut += 5
  161. analplugIN = 0
  162. if anus < 30:anus += 1
  163. '<center><img src="images/etogame/analplug.jpg"></center>'
  164. 'You bent over and took out the butt plug.' !!0.2.6: Removed unneccessary var check
  165. act 'Finish':gt $curloc
  166. end
  167. elseif analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
  168. act 'Insert a butt plug (0:05)':
  169. cla
  170. *clr
  171. plugday = daystart
  172. minut += 5
  173. analplugIN = 1
  174. if anus < 10:anus += 5
  175. if anus >= 10 and anus < 20:anus += rand(1, 2)
  176. if anus >= 20 and anus < 30:anus += rand(0, 1)
  177. '<center><img src="images/pic/analplug.jpg"></center>'
  178. if butpluguse > 0:'You bent over and inserted the butt plug.'
  179. 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.'
  180. act 'Finish':gt $curloc
  181. end
  182. end
  183. if klisma = 1 and klismaday ! day:
  184. act 'Give yourself an enema (0:05)':
  185. cla
  186. *clr
  187. minut += 5
  188. klismaday = day
  189. klismaday1 = 1
  190. '<center><img src="images/picV/klisma.jpg"></center>'
  191. 'You put yourself an enema and clean intestines, now your ass is ready for anal sex.'
  192. act 'Finish':gt $curloc
  193. end
  194. end
  195. if vibrator = 1 and vibratorIN = 1:
  196. act 'Remove the vibrator (0:05)':
  197. cla
  198. *clr
  199. minut += 5
  200. vibratorIN = 0
  201. if vagina < 30:vagina += 1
  202. '<center><img src="images/etogame/vibrator.jpg"></center>'
  203. 'You bend over the sink and take the vibrator out of your pussy.'
  204. act 'Finish':gt $curloc
  205. end
  206. elseif vibrator = 1 and vibratorIN = 0 and vagina ! 0:
  207. act 'Insert the vibrator in your vagina (0:05)':
  208. cla
  209. *clr
  210. minut += 5
  211. vibratorIN = 1
  212. if vagina < 30:vagina += 2
  213. '<center><img src="images/etogame/vibrator.jpg"></center>'
  214. 'You bend over the sink and inserted the vibrator in your pussy.'
  215. act 'Finish':gt $curloc
  216. end
  217. end
  218. if pregtest > 0:
  219. act 'Do a pregnancy test':
  220. cla
  221. pregtest -= 1
  222. gs 'stat'
  223. if preg = 1:
  224. 'The test showed the two strips. you are pregnant.'
  225. 'you think, that the father <<$father>>.'
  226. else
  227. 'The test showed one band.'
  228. end
  229. act 'Further':gt $curloc
  230. end
  231. end
  232. --- vanrPar ---------------------------------