HotelRoom.qsrc 7.2 KB

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