HotelRoom.qsrc 7.6 KB

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