vanrPar 7.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225
  1. # vanrPar
  2. CLOSE ALL
  3. $brother_voyeurism = {
  4. if indorf = 0 and brother >= 40 and vanr_lock = 0 and hour >= 18 and hour <= 20 and brother_ev1 ! day:
  5. ivrand = RAND(1,4)
  6. if ivrand = 1:
  7. cla
  8. brother_ev1 = day
  9. 'Despite the clattering noise of water, you hear the bathroom door creaking open slightly. Through a small opening in the doorway, you notice your brother Kolka watching you.'
  10. if sub < 30:
  11. act'Tell him to get lost':gt'brother','brother_go_away'
  12. end
  13. act'Let him look':gt'brother','brother_voyeur_ev1'
  14. exit
  15. end
  16. end
  17. }
  18. if vanr_lock = 0:
  19. act'<font size = 1>Close the latch on the door</font>':vanr_lock = 1 & gt'vanrPar'
  20. elseif vanr_lock = 1:
  21. act'<font size = 1>Open the latch on the door</font>':vanr_lock = 0 & gt'vanrPar'
  22. end
  23. act 'Return to the hallway':gt 'korrPar'
  24. $metkaM = $ARGS[0]
  25. $locM = $CURLOC
  26. $metka = $ARGS[0]
  27. $loc = $CURLOC
  28. clr
  29. minut += 1
  30. gs 'stat'
  31. fcolor = rgb(0, 0, 0)
  32. bcolor = rgb(255, 255, 255)
  33. lcolor = rgb(106, 90, 205)
  34. '<center><b><font color="maroon">Bathroom</font></b></center>'
  35. ! WD: Correct Image path ~ "images/qwest/alter/<<$loc>>.jpg"
  36. '<center><img src="images/qwest/alter/vanrPar.jpg"></center>'
  37. 'The bathroom is very small and unimpressive. Nevertheless, it has everything you need: a shower, toilet, <a href="exec:GT ''mirror'',''start''">mirror</a>, sink and even a bath tub.'
  38. if vanr_hanger = 1: 'Next to the sink, you find the neatly folded <a href="exec:dynamic $vanr_hanger_dress & tanga = tanga_hanger & GT ''vanrPar'' ">clothes</a> Mom washed for you'.
  39. if stanok > 0:'Your razor will last for <b><<stanok>></b> more shavings.'
  40. !WD: heal chafe
  41. if mosolmaz>0:'On a shelf is a tube of ointment for chafing, which will be enough for <b><<mosolmaz>><b> applications.'
  42. if dirtbelo > 0 and BuyHous = 0:
  43. 'In the bathroom you find the laundry Mom washed for you.'
  44. clrbelo += dirtbelo
  45. dirtbelo = 0
  46. end
  47. dynamic $shower
  48. dynamic $bath
  49. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage Piercings</a>'
  50. if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $curloc">Inject silicone into breast implants</a>'
  51. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $curloc">Drain silicone from breast implants</a>'
  52. dynamic $bteeth
  53. dynamic $tampon
  54. if clrbelo <= 4: clrbelo = 5
  55. dynamic $wearpan
  56. dynamic $basin
  57. if spdirtyc > 0:
  58. act 'Wipe the cum off your clothes (0:10)':
  59. cla
  60. cumspclnt = 6
  61. gs 'cum_cleanup'
  62. minut += 10
  63. gs 'stat'
  64. '<center><img src="images/etogame/frotsp.jpg"></center>'
  65. 'You remove the traces of cum from your clothes.'
  66. act 'Finish':gt $curloc
  67. end
  68. end
  69. if leghair > 0 and stanok > 0:
  70. act 'Shave your legs (0:15)':
  71. cla
  72. *clr
  73. minut += 15
  74. leghair = -5
  75. horny += 5
  76. stanok -= 1
  77. '<center><img src="images/pics/shave.jpg"></center>'
  78. 'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
  79. act 'Return to showering':gt $curloc
  80. end
  81. end
  82. if lobok > 0 and stanok > 0:
  83. act 'Shave pubis (0:15)':
  84. cla
  85. *clr
  86. minut += 15
  87. lobok = -5
  88. horny += 5
  89. stanok -= 1
  90. '<center><img src="images/pics/shave3.jpg"></center>'
  91. 'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
  92. act 'Return to showering':gt $curloc
  93. end
  94. end
  95. if analplug = 1 and analplugin = 1:
  96. act 'Remove the butt plug (0:05)':
  97. cla
  98. *clr
  99. minut += 5
  100. analplugIN = 0
  101. if anus < 30:anus += 1
  102. '<center><img src="images/body/analplug.jpg"></center>'
  103. 'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check
  104. act 'Finish':gt $curloc
  105. end
  106. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  107. act 'Insert your butt plug (0:05)':
  108. cla
  109. *clr
  110. minut += 5
  111. analplugIN = 1
  112. if anus < 10:anus += 5
  113. if anus >= 10 and anus < 20:anus += rand(1, 2)
  114. if anus >= 20 and anus < 30:anus += rand(0, 1)
  115. '<center><img src="images/body/analplug.jpg"></center>'
  116. if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
  117. if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'
  118. act 'Finish':gt $curloc
  119. end
  120. end
  121. if klisma = 1 and klismaday ! daystart:
  122. act 'Give yourself an enema (0:05)':
  123. cla
  124. *clr
  125. cumspclnt = 7
  126. gs 'cum_cleanup'
  127. minut += 5
  128. klismaday = daystart
  129. klismaday1 = 1
  130. '<center><img src="images/picV/klisma.jpg"></center>'
  131. 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  132. act 'Finish':gt $curloc
  133. end
  134. end
  135. if vibrator = 1 and vibratorIN = 1:
  136. act 'Remove the vibrator (0:05)':
  137. cla
  138. *clr
  139. minut += 5
  140. vibratorIN = 0
  141. if vagina < 30:vagina += 1
  142. '<center><img src="images/etogame/vibrator.jpg"></center>'
  143. 'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
  144. act 'Finish':gt $curloc
  145. end
  146. elseif vibrator = 1 and vibratorIN = 0 and vagina ! 0:
  147. act 'Insert the vibrator in your vagina (0:05)':
  148. cla
  149. *clr
  150. minut += 5
  151. vibratorIN = 1
  152. if vagina < 30:vagina += 2
  153. '<center><img src="images/etogame/vibrator.jpg"></center>'
  154. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  155. act 'Finish':gt $curloc
  156. end
  157. end
  158. if mosolmaz > 0 and mosol > 0:
  159. act 'Rub ointment onto your pussy (0:05)':
  160. cla
  161. minut += 5
  162. mosolmaz -= 1
  163. mosol -= 5
  164. 'You take a tube of cream and rub it onto your itchy vulva.'
  165. act 'Finish':gt $curloc
  166. end
  167. end
  168. if pregtest > 0:
  169. act 'Do a pregnancy test (0:05)':
  170. cla
  171. minut += 5
  172. pregtest -= 1
  173. gs 'stat'
  174. if pregchem > 30:
  175. knowpreg = 1
  176. 'The test showed two strips. You are pregnant.'
  177. else
  178. 'The test showed one band.'
  179. end
  180. act 'Finish':gt $curloc
  181. end
  182. end
  183. --- vanrPar ---------------------------------