HotelRoom 7.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179
  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 wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) 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. end
  39. if $ARGS[0] = 'better':
  40. $metkaM = 'better'
  41. $locM = 'HotelRoom'
  42. $metka = 'better'
  43. $loc = 'HotelRoom'
  44. $location_type = 'private'
  45. clr
  46. gs 'stat'
  47. cla
  48. *clr
  49. if night_mode = 1:
  50. fcolor = rgb(255, 255, 255)
  51. bcolor = rgb(0, 0, 0)
  52. lcolor = rgb(106, 90, 205)
  53. else
  54. fcolor = rgb(0, 0, 0)
  55. bcolor = rgb(255, 255, 255)
  56. lcolor = rgb(106, 90, 205)
  57. end
  58. '<center><b><font color = maroon>Your luxury room</font></b></center>'
  59. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  60. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.better.jpg"></center>'
  61. '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 wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) 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.'
  62. 'Your hotel room also has a small flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
  63. act'Go to the hotel lobby':
  64. if $clothingworntype ! 'nude':
  65. gt'hotelHole'
  66. else
  67. msg'<b><font color = red>You need to get dressed before leaving your hotel room.</font></b>'
  68. gt'HotelRoom','better'
  69. end
  70. end
  71. if money >= 100:
  72. act'Order room service (0:30) (100 <b>₽</b>)':gs 'food', 'h_food'
  73. end
  74. end
  75. if $ARGS[0] = 'best':
  76. $metkaM = 'best'
  77. $locM = 'HotelRoom'
  78. $metka = 'best'
  79. $loc = 'HotelRoom'
  80. $location_type = 'private'
  81. clr
  82. gs 'stat'
  83. cla
  84. *clr
  85. if night_mode = 1:
  86. fcolor = rgb(255, 255, 255)
  87. bcolor = rgb(0, 0, 0)
  88. lcolor = rgb(106, 90, 205)
  89. else
  90. fcolor = rgb(0, 0, 0)
  91. bcolor = rgb(255, 255, 255)
  92. lcolor = rgb(106, 90, 205)
  93. end
  94. '<center><b><font color = maroon>Your royal suite</font></b></center>'
  95. '<center>You have paid to stay for <<hotelroom1day - daystart>> more nights in the room.</center>'
  96. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
  97. '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 wardrobe (where you can <a href="exec:gt ''clothing'', ''view_clothing_list'', ''wardrobe''">organize your clothes</a> or <a href="exec:gt ''clothing_QV'', ''list''">pick something to wear</a>) 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.'
  98. 'Your hotel room also has a huge flat-screen <a href="exec:GT ''HotelRoom'',''tv''">TV</a>, right across the bed.'
  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. 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. if night_mode = 1:
  126. fcolor = rgb(255, 255, 255)
  127. bcolor = rgb(0, 0, 0)
  128. lcolor = rgb(106, 90, 205)
  129. else
  130. fcolor = rgb(0, 0, 0)
  131. bcolor = rgb(255, 255, 255)
  132. lcolor = rgb(106, 90, 205)
  133. end
  134. '<center><b><font color = maroon>The bathroom of your hotel room</font></b></center>'
  135. 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.'
  136. 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.'
  137. 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.'
  138. gs 'din_van', 'private'
  139. end
  140. if $ARGS[0] = 'tv':
  141. gs'stat'
  142. if hotelroom=1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv1.jpg"></center>'
  143. if hotelroom=2:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv2.jpg"></center>'
  144. if hotelroom=3:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv3.jpg"></center>'
  145. 'You turn on the TV and make yourself comfortable on the bed.'
  146. $din_wath_tv_h2 = {
  147. cls
  148. minut += 60
  149. pcs_willpwr += RAND(5,10)
  150. pcs_mood += RAND(10,20)
  151. gs'stat'
  152. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/tv0,'+rand(0,4)+'.jpg"></center>'
  153. 'You are watching the country''s main television channel. None of their programs are really worth watching, but the distraction is welcome anyway.'
  154. act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
  155. act 'Get up from the bed':gt $locM, $metkaM
  156. }
  157. act 'Watch TV (1:00)':dynamic $din_wath_tv_h2
  158. act 'Get up from the bed':gt $locM, $metkaM
  159. end
  160. --- HotelRoom ---------------------------------