1
0

158_vanrPar 5.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243
  1. # vanrPar
  2. act 'Leave the room':gt 'korrPar'
  3. $metkaM = $ARGS[0]
  4. $locM = $CURLOC
  5. $metka = $ARGS[0]
  6. $loc = $CURLOC
  7. '<center><b><font color="maroon">Bath</font></b></center>'
  8. '<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
  9. clr
  10. set minut += 1
  11. gs 'stat'
  12. fcolor="rgb"(0, 0, 0)
  13. bcolor="rgb"(255, 255, 255)
  14. lcolor="rgb"(106, 90, 205)
  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. set horny += 1
  22. set hapri = 0
  23. set mop = 1
  24. set 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. set sweat = -3
  36. set horny += 3
  37. set hapri = 0
  38. set mop = 1
  39. set manna += 10
  40. if frost > 0:frost = 0
  41. set skinvan += 1
  42. if skinvan = 20:set skinvan = 0 & set 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. set horny = 0
  52. set minut += 30
  53. set mastr += 1
  54. set orgasm += 1
  55. set manna += 15
  56. set 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. end
  62. if horny >= 40 and horny < 90:
  63. act 'Direct water on pussy':
  64. cla
  65. *clr
  66. set horny += 5
  67. set minut += 30
  68. set manna += 10
  69. set willpower += 10
  70. '<center><img src="images/pics/wash7.jpg"></center>'
  71. '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.'
  72. act 'Get out and get dressed':gt $locM, $metkaM
  73. end
  74. end
  75. if horny >= 50:
  76. act 'Masturbate':gt 'selfplay'
  77. end
  78. end
  79. end
  80. if tampon > 0 and mesec > 0 and isprok = 0:
  81. act 'Change a tampon':
  82. cla
  83. *clr
  84. set tampon -= 1
  85. set isprok = 1
  86. set minut += 5
  87. set manna -= 5
  88. gs 'stat'
  89. '<center><img src="images/pics/wash3.jpg"></center>'
  90. 'You change a tampon.'
  91. act 'Finish':gt $curloc
  92. end
  93. end
  94. if mop ! 1:
  95. act 'Wash off cosmetics':
  96. cla
  97. set mop = 1
  98. set minut += 15
  99. gs 'stat'
  100. '<center><img src="images/etogame/facesp.jpg"></center>'
  101. 'You flushed makeup.'
  102. act 'Finish':gt $curloc
  103. end
  104. end
  105. if cumfrot > 0:
  106. act 'Scour sperm from clothing':
  107. cla
  108. set cumfrot = 0
  109. set minut += 15
  110. gs 'stat'
  111. '<center><img src="images/etogame/frotsp.jpg"></center>'
  112. 'You zamyli semen stains on their clothes.'
  113. act 'Finish':gt $curloc
  114. end
  115. end
  116. if leghair > 0 and stanok > 0:
  117. act 'Shave your legs (0:15)':
  118. cla
  119. *clr
  120. set minut += 15
  121. set leghair = -5
  122. set horny += 5
  123. set stanok -= 1
  124. '<center><img src="images/pics/shave.jpg"></center>'
  125. 'You lathered his feet and took a razor. Deft movements you shaved hair on the legs and washed shaving foam.'
  126. !'You lathered up and shaved off the hair with them.'
  127. act 'postpone machine':gt $curloc
  128. end
  129. end
  130. if lobok > 0 and stanok > 0:
  131. act 'Shave pubis (0:15)':
  132. cla
  133. *clr
  134. set minut += 15
  135. set lobok = -5
  136. set horny += 5
  137. set stanok -= 1
  138. '<center><img src="images/pics/shave3.jpg"></center>'
  139. '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.'
  140. !'Вы намылили лобок, после чего сбрили с него все волосы.'
  141. act 'postpone machine':gt $curloc
  142. end
  143. end
  144. if analplug = 1 and analplugin = 0 and klismaday1= 1 and plugday ! daystart:
  145. act 'Insert a butt plug (0:05)':
  146. cla
  147. *clr
  148. plugday = daystart
  149. set minut += 5
  150. set analplugIN = 1
  151. if anus < 10:set anus += 5
  152. if anus >= 10 and anus < 20:anus += rand(1, 2)
  153. if anus >= 20 and anus < 30:anus += rand(0, 1)
  154. '<center><img src="pic/analplug.jpg"></center>'
  155. if butpluguse > 0:'You tilt and habitual movement inserted itself anal plug.'
  156. if butpluguse = 0:set butpluguse = 1 & 'You tried to relax as much as possible the ass and began to insert the plug itself, biting her lip from feeling, your ass is about to burst you gently pushed in the thickest part of his ass and finally plug into place.'
  157. act 'Leave':gt $curloc
  158. end
  159. end
  160. if analplug = 1 and analplugin = 1:
  161. act 'Remove the butt plug (0:05)':
  162. cla
  163. *clr
  164. set minut += 5
  165. set analplugIN = 0
  166. if anus < 30:set anus += 1
  167. '<center><img src="pic/analplug.jpg"></center>'
  168. if butpluguse > 0:'You bent down and removed from the habitual movement itself anal plug.'
  169. act 'Leave':gt $curloc
  170. end
  171. end
  172. if klisma = 1 and klismaday ! day:
  173. act 'Make yourself an enema (0:05)':
  174. cla
  175. *clr
  176. set minut += 5
  177. set klismaday = day
  178. set klismaday1 = 1
  179. '<center><img src="picV/klisma.jpg"></center>'
  180. 'You have set yourself an enema and clean the intestines, now your ass ready for anal sex.'
  181. act 'Leave':gt $curloc
  182. end
  183. end
  184. if pregtest > 0:
  185. act 'Do a pregnancy test':
  186. pregtest -= 1
  187. cla
  188. gs 'stat'
  189. if preg = 1:
  190. 'The test showed the two strips. you are pregnant.'
  191. 'you think, that the father <<$father>>.'
  192. else
  193. 'The test showed one band.'
  194. end
  195. act 'Further':gt $curloc
  196. end
  197. end
  198. --- vanrPar ---------------------------------