hotel.qsrc 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  1. # hotel
  2. if $ARGS[0] = 'foyer':
  3. *clr & cla
  4. nom_o[1] = 100
  5. nom_o[2] = 1000
  6. nom_o[3] = 10000
  7. nom_o[4] = 100000
  8. gs 'stat'
  9. '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></center>'
  10. if tobiQW < 2000:'The hotel lobby is deserted and you only notice an alone bored girl standing at the reception desk.'
  11. if tobiQW >= 2000 and tobiQW < 2100:'The hotel lobby is very crowded. You notice there''s a swarm of comely old men dressed in scanty jackets with elbow patches.'
  12. if tobiQW = 2001:
  13. 'One of the visitors of the hotel, grabs your attention as he''s sitting in a chair, reading a book. It''s written in squiggles, which reminds you to the scroll you read earlier.'
  14. act 'Excuse me':
  15. *clr & cla
  16. minut += 5
  17. gs 'stat'
  18. '<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/oldman.jpg"></center>'
  19. '"I didn''t mean to disturb you, but what language is the book written in?" you ask the man.'
  20. 'The man stops, looks up to you and cheerfully answers, "This book right here is written in old Japanese language. Why do you ask?" the man asks curiously.'
  21. '"Well, I was handed this book, in which the characters are very similarly written." you answer.'
  22. 'The man gasps, "By the gods! Can I take a look?"'
  23. '"I don''t really know if it''s okay..." you hesitantly answer.'
  24. 'The man is taken aback a little by your answer, "Oh yes, it''s no wonder you''re being careful, where are my manners, I should introduce myself. My name is Plato Aristarkhovich, and you are?"'
  25. '"My name is <<$pcs_firstname>> <<$pcs_lastname>>." you answer.'
  26. '"I hope this doesn''t sound too creepy but would you please follow me to my room?" Plato asks you.'
  27. act 'Go with Plato': minut += 1 & gt 'mqroom'
  28. end
  29. end
  30. act 'Leave': minut += 5 & gt 'down'
  31. act 'Go to the reception desk': gt 'hotel', 'reception'
  32. act 'Go to the lift':
  33. *clr & cla
  34. minut += 1
  35. gs 'stat'
  36. msg 'Excuse me, but the elevator is not working'
  37. gt 'hotel', 'foyer'
  38. end
  39. end
  40. if $ARGS[0] = 'reception':
  41. *clr & cla
  42. menu_off = 1
  43. minut += 1
  44. gs 'stat'
  45. '<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></right>'
  46. 'You walk up to the front reception and get greeted by a smiling young woman behind the counter.'
  47. '"How can I help you?" she asks.'
  48. act 'Go back to the foyer': minut += 1 & gt 'hotel'
  49. act 'See the room descriptions':
  50. cla
  51. minut += 1
  52. gs 'stat'
  53. 'There are 4 types of rooms available:'
  54. '1. Budget rooms, our most simplest rooms for the ones that just want a bed to sleep the night. There''s a public bathroom shared with the rest of the floor.'
  55. '2. Standard rooms, our reasonably priced rooms. Every room has a private bathroom and a TV.'
  56. '3. Suites, our luxurious room. Beside a private bathroom there''s also an extra livingroom.'
  57. '4. Presidential Suite, our most prized room with all the modern necessities. Free room service included.'
  58. act 'Continue': gt 'hotel', 'reception'
  59. end
  60. if tobiQW = 2000:
  61. act 'Why is the hotel so crowded?':
  62. cla
  63. tobiQW = 2001
  64. minut += 1
  65. '"Why so the hotel so crowded today?" you ask.'
  66. '"There''s an conference on indigenous languages, they meet every year and complain about their disappearing languages." she says laughing.'
  67. act 'Move away': gt 'hotel'
  68. end
  69. end
  70. act 'Rent a room':
  71. cla
  72. minut += 1
  73. gs 'stat'
  74. *nl
  75. '"I would like to rent a room." you tell the girl at the counter.'
  76. '"Unfortunately, we have no rooms available." she replies.'
  77. act 'Move away': gt 'hotel'
  78. end
  79. end
  80. --- hotel ---------------------------------