1
1

HotelRoom 6.1 KB

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