HotelRoom.qsrc 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177
  1. # HotelRoom
  2. CLOSE ALL
  3. if $ARGS[0] = 'normal':
  4. *clr & cla
  5. $metkaM = 'normal'
  6. $locM = 'HotelRoom'
  7. $metka = 'normal'
  8. $loc = 'HotelRoom'
  9. $prevloc = $loc
  10. $location_type = 'private'
  11. $menu_loc = 'HotelRoom'
  12. $menu_arg = 'normal'
  13. menu_off = 0
  14. hotelWiFi = 1
  15. gs 'themes', 'indoors'
  16. gs 'stat'
  17. '<center><b><font color = maroon>Your normal hotel room</font></b></center>'
  18. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  19. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
  20. '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 <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) 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.'
  21. 'Your hotel room also has a <a href="exec:gt ''HotelRoom'',''tv''">TV</a>'+iif(komp = 1, ' and your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
  22. *nl
  23. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  24. act'Go to the hotel lobby':
  25. if $clothingworntype ! 'nude':
  26. hotelWiFi = 0
  27. gt'hotelHole'
  28. else
  29. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  30. gt'HotelRoom','normal'
  31. end
  32. end
  33. if money >= 100: act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  34. act 'Drink some water (0:01)': gs 'beverage', 'bev_wat'
  35. dynamic $fatdel
  36. dynamic $lekarstvo
  37. dynamic $vitamin
  38. end
  39. if $ARGS[0] = 'better':
  40. *clr & cla
  41. $metkaM = 'better'
  42. $locM = 'HotelRoom'
  43. $metka = 'better'
  44. $loc = 'HotelRoom'
  45. $prevloc = $loc
  46. $menu_loc = 'HotelRoom'
  47. $menu_arg = 'better'
  48. menu_off = 0
  49. hotelWiFi = 1
  50. $location_type = 'private'
  51. gs 'themes', 'indoors'
  52. gs 'stat'
  53. '<center><b><font color = maroon>Your luxury room</font></b></center>'
  54. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  55. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'
  56. '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 <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) 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.'
  57. 'Your hotel room also has a small flat-screen <a href="exec:gt ''HotelRoom'',''tv''">TV</a>'+iif(komp = 1, ' and your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
  58. *nl
  59. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  60. act'Go to the hotel lobby':
  61. if $clothingworntype ! 'nude':
  62. hotelWiFi = 0
  63. gt'hotelHole'
  64. else
  65. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  66. gt'HotelRoom','better'
  67. end
  68. end
  69. if money >= 100: act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  70. act 'Drink some water (0:05)': gs 'beverage', 'bev_wat'
  71. act 'Have a coffee (0:05)': gs 'beverage', 'bev_cof'
  72. dynamic $fatdel
  73. dynamic $lekarstvo
  74. dynamic $vitamin
  75. end
  76. if $ARGS[0] = 'best':
  77. *clr & cla
  78. $metkaM = 'best'
  79. $locM = 'HotelRoom'
  80. $metka = 'best'
  81. $loc = 'HotelRoom'
  82. $prevloc = $loc
  83. $menu_loc = 'HotelRoom'
  84. $menu_arg = 'best'
  85. menu_off = 0
  86. hotelWiFi = 1
  87. $location_type = 'private'
  88. gs 'themes', 'indoors'
  89. gs 'stat'
  90. '<center><b><font color = maroon>Your royal suite</font></b></center>'
  91. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  92. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
  93. '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 <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing) 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.'
  94. 'Your hotel room also has a huge flat-screen <a href="exec:gt ''HotelRoom'',''tv''">TV</a>'+iif(komp = 1, ' and your <a href="exec: gt ''Komp'',''start''">laptop</a> is on the desk. The hotel offers all guests free Wi-Fi.', '.')
  95. *nl
  96. 'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.'
  97. act'Go to the hotel lobby':
  98. if $clothingworntype ! 'nude':
  99. hotelWiFi = 0
  100. gt'hotelHole'
  101. else
  102. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  103. gt'HotelRoom','best'
  104. end
  105. end
  106. if money >= 100:act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  107. act 'Drink some water (0:01)': gs 'beverage', 'bev_wat'
  108. act 'Have a coffee (0:05)': gs 'beverage', 'bev_cof'
  109. act 'Make some tea (0:05)': gs 'beverage', 'bev_tea'
  110. dynamic $fatdel
  111. dynamic $lekarstvo
  112. dynamic $vitamin
  113. end
  114. if $ARGS[0] = 'shower1':
  115. *clr & cla
  116. minut += 1
  117. hotelShampoo = 1
  118. $metkaM = 'shower1'
  119. $locM = 'HotelRoom'
  120. $metka = 'shower1'
  121. $loc = 'HotelRoom'
  122. $location_type = 'bathroom'
  123. gs 'themes', 'indoors'
  124. gs'stat'
  125. '<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
  126. if hotelroom = 1:
  127. '<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.'
  128. elseif hotelroom = 2:
  129. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better1.jpg"></center>'&'A nice looking and spacious bathroom, with separate bath tub.'
  130. elseif hotelroom = 3:
  131. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'&'A very luxurious and spacious bathroom, fit for a king.'
  132. end
  133. act 'Return to your room':
  134. hotelShampoo = 0
  135. if hotelroom = 1:
  136. gt'HotelRoom','normal'
  137. elseif hotelroom = 2:
  138. gt'HotelRoom','better'
  139. elseif hotelroom = 3:
  140. gt'HotelRoom','best'
  141. end
  142. end
  143. gs 'din_van', 'private', 'hotelroom', iif(hotelroom = 1, '', 'bath')
  144. end
  145. if $ARGS[0] = 'tv':
  146. *clr & cla
  147. gs'stat'
  148. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv<<hotelroom>>.jpg"></center>'
  149. 'You turn on the TV and make yourself comfortable on the bed.'
  150. act 'Get up from the bed':gt $locM, $metkaM
  151. act 'Watch TV (1:00)': gt 'hotelroom', 'watch_tv'
  152. end
  153. if $ARGS[0] = 'watch_tv':
  154. *clr & cla
  155. minut += 60
  156. pcs_mood += rand(10,20)
  157. gs'stat'
  158. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv0,'+rand(0,4)+'.jpg"></center>'
  159. 'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
  160. act 'Get up from the bed':gt $locM, $metkaM
  161. act 'Watch TV (1:00)': gt 'hotelroom', 'watch_tv'
  162. end
  163. --- HotelRoom ---------------------------------