HotelRoom.qsrc 6.9 KB

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