HotelRoom 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188
  1. # HotelRoom
  2. CLOSE ALL
  3. if $ARGS[0] = 'normal':
  4. $metkaM = 'normal'
  5. $locM = 'HotelRoom'
  6. $metka = 'normal'
  7. $loc = 'HotelRoom'
  8. $location_type = 'private'
  9. clr
  10. gs 'stat'
  11. cla
  12. *clr
  13. if night_mode = 1:
  14. fcolor = rgb(255, 255, 255)
  15. bcolor = rgb(0, 0, 0)
  16. lcolor = rgb(106, 90, 205)
  17. else
  18. fcolor = rgb(0, 0, 0)
  19. bcolor = rgb(255, 255, 255)
  20. lcolor = rgb(106, 90, 205)
  21. end
  22. '<center><b><font color = maroon>Your normal hotel room</font></b></center>'
  23. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  24. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
  25. '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.'
  26. 'In the bottom of your wardrobe you room for <a href="exec:gt ''shoes'', ''select''">your shoes</a> and next to the wardrobe is a dresser you keep <a href="exec:gt ''underwear'', ''dresser''">your underwear</a> and <a href="exec:gt ''purses'', ''view_purse_list''">purses</a> in.'
  27. 'Your hotel room also has a <a href="exec:GT ''HotelRoom'',''tv''">TV</a>.'
  28. act'Go to the hotel lobby':
  29. if $clothingworntype ! 'nude':
  30. gt'hotelHole'
  31. else
  32. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  33. gt'HotelRoom','normal'
  34. end
  35. end
  36. if money >= 100:
  37. act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  38. end
  39. end
  40. if $ARGS[0] = 'better':
  41. $metkaM = 'better'
  42. $locM = 'HotelRoom'
  43. $metka = 'better'
  44. $loc = 'HotelRoom'
  45. $location_type = 'private'
  46. clr
  47. gs 'stat'
  48. cla
  49. *clr
  50. if night_mode = 1:
  51. fcolor = rgb(255, 255, 255)
  52. bcolor = rgb(0, 0, 0)
  53. lcolor = rgb(106, 90, 205)
  54. else
  55. fcolor = rgb(0, 0, 0)
  56. bcolor = rgb(255, 255, 255)
  57. lcolor = rgb(106, 90, 205)
  58. end
  59. '<center><b><font color = maroon>Your luxury room</font></b></center>'
  60. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  61. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'
  62. '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.'
  63. 'In the bottom of your wardrobe you room for <a href="exec:gt ''shoes'', ''select''">your shoes</a> and next to the wardrobe is a dresser you keep <a href="exec:gt ''underwear'', ''dresser''">your underwear</a> in.'
  64. 'Your hotel room also has a small flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
  65. act'Go to the hotel lobby':
  66. if $clothingworntype ! 'nude':
  67. gt'hotelHole'
  68. else
  69. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  70. gt'HotelRoom','better'
  71. end
  72. end
  73. if money >= 100:
  74. act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  75. end
  76. end
  77. if $ARGS[0] = 'best':
  78. $metkaM = 'best'
  79. $locM = 'HotelRoom'
  80. $metka = 'best'
  81. $loc = 'HotelRoom'
  82. $location_type = 'private'
  83. clr
  84. gs 'stat'
  85. cla
  86. *clr
  87. if night_mode = 1:
  88. fcolor = rgb(255, 255, 255)
  89. bcolor = rgb(0, 0, 0)
  90. lcolor = rgb(106, 90, 205)
  91. else
  92. fcolor = rgb(0, 0, 0)
  93. bcolor = rgb(255, 255, 255)
  94. lcolor = rgb(106, 90, 205)
  95. end
  96. '<center><b><font color = maroon>Your royal suite</font></b></center>'
  97. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  98. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
  99. '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.'
  100. 'In the bottom of your wardrobe you room for <a href="exec:gt ''shoes'', ''select''">your shoes</a> and next to the wardrobe is a dresser you keep <a href="exec:gt ''underwear'', ''dresser''">your underwear</a> in.'
  101. 'Your hotel room also has a huge flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
  102. act'Go to the hotel lobby':
  103. if $clothingworntype ! 'nude':
  104. gt'hotelHole'
  105. else
  106. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  107. gt'HotelRoom','best'
  108. end
  109. end
  110. if money >= 100:
  111. act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  112. end
  113. end
  114. if $args[0] = 'shower1':
  115. $location_type = 'bathroom'
  116. act 'Return to your room':
  117. if hotelroom = 1:gt'HotelRoom','normal'
  118. if hotelroom = 2:gt'HotelRoom','better'
  119. if hotelroom = 3:gt'HotelRoom','best'
  120. end
  121. $metkaM = 'shower1'
  122. $locM = 'HotelRoom'
  123. $metka = 'shower1'
  124. $loc = 'HotelRoom'
  125. clr
  126. minut = minut + 1
  127. gs'stat'
  128. if night_mode = 1:
  129. fcolor = rgb(255, 255, 255)
  130. bcolor = rgb(0, 0, 0)
  131. lcolor = rgb(106, 90, 205)
  132. else
  133. fcolor = rgb(0, 0, 0)
  134. bcolor = rgb(255, 255, 255)
  135. lcolor = rgb(106, 90, 205)
  136. end
  137. '<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
  138. if hotelroom = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal1.jpg"></center>'&'A small and unpretentious bathroom, that is nevertheless quite stylish and has everything you need.'
  139. if hotelroom = 2:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'&'A nice looking and spacious bathroom, with separate bath tub.'
  140. if hotelroom = 3:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'&'A very luxurious and spacious bathroom, fit for a king.'
  141. if hotshamday ! daystart:
  142. 'You take the little bottle of shampoo on the shelf and place it in your pocket'
  143. shampoo += 1
  144. hotshamday = daystart
  145. end
  146. gs 'din_van', 'private'
  147. end
  148. if $ARGS[0] = 'tv':
  149. gs'stat'
  150. if hotelroom=1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv1.jpg"></center>'
  151. if hotelroom=2:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv2.jpg"></center>'
  152. if hotelroom=3:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv3.jpg"></center>'
  153. 'You turn on the TV and make yourself comfortable on the bed.'
  154. $din_wath_tv_h2 = {
  155. cls
  156. minut += 60
  157. pcs_willpwr += RAND(5,10)
  158. pcs_mood += RAND(10,20)
  159. gs'stat'
  160. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv0,'+rand(0,4)+'.jpg"></center>'
  161. 'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
  162. act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
  163. act 'Get up from the bed':gt $locM, $metkaM
  164. }
  165. act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
  166. act 'Get up from the bed':gt $locM, $metkaM
  167. end
  168. --- HotelRoom ---------------------------------