1
0

HotelRoom 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276
  1. # HotelRoom
  2. CLOSE ALL
  3. if $ARGS[0] = 'normal':
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $metka = $ARGS[0]
  7. $loc = $CURLOC
  8. cla
  9. *clr
  10. FColor = RGB(0,0,0)
  11. BColor = RGB(255,255,255)
  12. LColor = RGB(106,90,205)
  13. '<center><b><font color = maroon>Your normal hotel room</font></b></center>'
  14. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  15. '<center><img src="images/nigma/gor/Hotel/hotel.room.normal.jpg"></center>'
  16. 'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
  17. 'Your hotel room also has a <a href="exec:GT ''hotelroom'',''tv''">TV</a>.'
  18. act'Go to the hotel lobby':
  19. if $clothingworntype ! 'nude':
  20. gt'hotelHole'
  21. else
  22. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  23. gt'hotelroom','normal'
  24. end
  25. end
  26. end
  27. if $ARGS[0] = 'better':
  28. $metkaM = $ARGS[0]
  29. $locM = $CURLOC
  30. $metka = $ARGS[0]
  31. $loc = $CURLOC
  32. cla
  33. *clr
  34. FColor = RGB(0,0,0)
  35. BColor = RGB(255,255,255)
  36. LColor = RGB(106,90,205)
  37. '<center><b><font color = maroon>Your luxury room</font></b></center>'
  38. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  39. '<center><img src="images/nigma/gor/Hotel/hotel.room.better.jpg"></center>'
  40. 'Your hotel room is not very large, but it has everything you need and is quite stylish. The large <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
  41. 'Your hotel room also has a small flat-screen <a href="exec:GT ''hotelroom'',''tv''">TV</a>, right across the bed.'
  42. act'Go to the hotel lobby':
  43. if $clothingworntype ! 'nude':
  44. gt'hotelHole'
  45. else
  46. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  47. gt'hotelroom','better'
  48. end
  49. end
  50. end
  51. if $ARGS[0] = 'best':
  52. $metkaM = $ARGS[0]
  53. $locM = $CURLOC
  54. $metka = $ARGS[0]
  55. $loc = $CURLOC
  56. cla
  57. *clr
  58. FColor = RGB(0,0,0)
  59. BColor = RGB(255,255,255)
  60. LColor = RGB(106,90,205)
  61. '<center><b><font color = maroon>Your royal suite</font></b></center>'
  62. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  63. '<center><img src="images/nigma/gor/Hotel/hotel.room.best.jpg"></center>'
  64. 'Your hotel room is quite spacious, and is beautifully furnished. For a second, you wonder why a hotel in a town like Pavlovsk even has such a luxurious suite. The room is filled with expensive appliances. The gorgeous <a href="exec:gt ''bed2''">double bed</a> takes up most of the room. A modern wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) stands near the entrance of the room. Next to the door, you can find a <a href="exec:GT ''mirror'',''start''">mirror</a>. The door to the <a href="exec:GT ''hotelroom'',''shower1''">bathroom</a> is to the right.'
  65. 'Your hotel room also has a huge flat-screen <a href="exec:GT ''hotelroom'',''tv''">TV</a>, right across the bed.'
  66. act'Go to the hotel lobby':
  67. if $clothingworntype ! 'nude':
  68. gt'hotelHole'
  69. else
  70. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  71. gt'hotelroom','best'
  72. end
  73. end
  74. end
  75. if $args[0] = 'shower1':
  76. act 'Return to your room':
  77. if hotelroom = 1:gt'hotelroom','normal'
  78. if hotelroom = 2:gt'hotelroom','better'
  79. if hotelroom = 3:gt'hotelroom','best'
  80. end
  81. $metkaM = $ARGS[0]
  82. $locM = $CURLOC
  83. $metka = $ARGS[0]
  84. $loc = $CURLOC
  85. clr
  86. minut = minut + 1
  87. gs'stat'
  88. FColor = RGB(0,0,0)
  89. BColor = RGB(255,255,255)
  90. LColor = RGB(106,90,205)
  91. '<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
  92. if hotelroom = 1:'<center><img src="images/nigma/gor/Hotel/hotel.room.normal1.jpg"></center>'&'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'
  93. if hotelroom = 2:'<center><img src="images/nigma/gor/Hotel/hotel.room.better1.jpg"></center>'&'A nice looking and spacious bathroom, with separate bath tub.'
  94. if hotelroom = 3:'<center><img src="images/nigma/gor/Hotel/hotel.room.best1.jpg"></center>'&'A very luxurious and spacious bathroom, fit for a king.'
  95. if stanok > 0:'A package of razors is on a shelf above the sink. Your razors will last for <b><<stanok>></b> more shavings.'
  96. dynamic $shower
  97. dynamic $bath
  98. if pirsA + pirsB + pirsC + pirsD + pirsE + pirsF + pirsN + pirsG + pirsGL > 0:'<a href="exec:dynamic $pirManage">Manage piercings</a>'
  99. if fillimplant = 1 and siliconeBag >= 1:'<a href="exec:cls & siliconeBag -= 1 & silicone += 10 & gt $curloc">Inject silicone into breast implants.</a>'
  100. if fillimplant = 1 and silicone >= 20:'<a href="exec:cls & silicone -= 10 & gt $curloc">Drain silicone from breast implants.</a>'
  101. dynamic $bteeth
  102. dynamic $tampon
  103. dynamic $quickwash
  104. dynamic $wearpan
  105. dynamic $basin
  106. if spdirtyc > 0:
  107. act 'Wipe the cum off your clothes (0:10)':
  108. cla
  109. cumspclnt = 6
  110. gs 'cum_cleanup'
  111. minut = minut + 15
  112. gs'stat'
  113. '<center><img src="images/etogame/frotsp.jpg"></center>'
  114. 'You wash all traces of semen from your clothes.'
  115. act 'Finish':gt 'hotelroom', 'shower1'
  116. end
  117. end
  118. if klisma = 1 and klismaday ! daystart:
  119. act 'Give yourself an enema (0:05)':
  120. cla
  121. *clr
  122. cumspclnt = 7
  123. gs 'cum_cleanup'
  124. minut += 5
  125. klismaday = daystart
  126. klismaday1= 1
  127. '<center><img src="images/picV/klisma.jpg"></center>'
  128. 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
  129. act 'Finish':gt 'hotelroom', 'shower1'
  130. end
  131. end
  132. if vibrator = 1 and vibratorIN = 1:
  133. act 'Remove the vibrator (0:05)':
  134. cla
  135. *clr
  136. minut += 5
  137. vibratorIN = 0
  138. if vagina < 30:vagina += 1
  139. '<center><img src="images/etogame/vibrator.jpg"></center>'
  140. '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.'
  141. act 'Finish':gt 'hotelroom', 'shower1'
  142. end
  143. elseif vibrator = 1 and vibratorIN = 0:
  144. act 'Insert the vibrator in your vagina (0:05)':
  145. cla
  146. *clr
  147. minut += 5
  148. vibratorIN = 1
  149. if vagina < 30:vagina += 2
  150. '<center><img src="images/etogame/vibrator.jpg"></center>'
  151. 'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
  152. act 'Finish':gt 'hotelroom', 'shower1'
  153. end
  154. end
  155. if analplug = 1 and analplugin = 1:
  156. act 'Remove the butt plug (0:05)':
  157. cla
  158. *clr
  159. minut += 5
  160. analplugIN = 0
  161. if anus < 30:anus += 1
  162. '<center><img src="images/body/analplug.jpg"></center>'
  163. '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
  164. act 'Finish':gt 'hotelroom', 'shower1'
  165. end
  166. elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
  167. act 'Insert a butt plug (0:05)':
  168. cla
  169. *clr
  170. minut += 5
  171. analplugIN = 1
  172. if anus < 10:anus = anus + 5
  173. if anus >= 10 and anus < 20:anus += rand(1, 2)
  174. if anus >= 20 and anus < 30:anus += rand(0, 1)
  175. '<center><img src="images/body/analplug.jpg"></center>'
  176. 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.'
  177. 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.'
  178. act 'Finish':gt 'hotelroom', 'shower1'
  179. end
  180. end
  181. if mosolmaz > 0 and mosol > 0:
  182. act 'Rub ointment onto your pussy (0:05)':
  183. cla
  184. minut += 5
  185. mosolmaz -= 1
  186. mosol -= 5
  187. 'You take the tube of ointment and rub some of it onto your itchy vulva.'
  188. act 'Finish':gt 'hotelroom', 'shower1'
  189. end
  190. end
  191. if pregtest > 0:
  192. act 'Do a pregnancy test':
  193. cla
  194. pregtest -= 1
  195. gs 'stat'
  196. if pregchem > 30:
  197. knowpreg = 1
  198. 'The test shows two strips. You are pregnant.'
  199. else
  200. 'The test shows one band. You''re not pregnant'
  201. end
  202. act 'Finish':gt 'hotelroom', 'shower1'
  203. end
  204. end
  205. end
  206. if $ARGS[0] = 'tv':
  207. gs'stat'
  208. if hotelroom=1:'<center><img src="images/nigma/gor/Hotel/tv1.jpg"></center>'
  209. if hotelroom=2:'<center><img src="images/nigma/gor/Hotel/tv2.jpg"></center>'
  210. if hotelroom=3:'<center><img src="images/nigma/gor/Hotel/tv3.jpg"></center>'
  211. 'You turn on the TV and make yourself comfortable on the bed.'
  212. $din_wath_tv_h2 = {
  213. cls
  214. minut += 60
  215. willpower += RAND(5,10)
  216. manna += RAND(10,50)
  217. gs'stat'
  218. '<center><img src="images/nigma/gor/Hotel/tv0,'+rand(0,4)+'.jpg"></center>'
  219. 'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
  220. act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
  221. act 'Get up from the bed':gt $locM, $metkaM
  222. }
  223. act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
  224. act 'Get up from the bed':gt $locM, $metkaM
  225. end
  226. --- HotelRoom ---------------------------------