1
1

HotelRoom.qsrc 7.5 KB

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