HotelRoom.qsrc 6.8 KB

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