HotelRoom 6.6 KB

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