hotel_resep 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105
  1. # hotel_resep
  2. cls
  3. gs'stat'
  4. '<center><H4>Hotel reception</H4></center>'
  5. '<center><img src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  6. 'The same cute brunette as always is manning the reception desk. You wonder if she ever takes a break at all.'
  7. if hotelcollect > 0:
  8. hotelcollect = 0
  9. money+=maidtime*250
  10. 'The brunette quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
  11. maidtime=0
  12. end
  13. act'Rent a room':
  14. cls
  15. gs'stat'
  16. '<center><img src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  17. 'The girl behind the desk smiles at you and asks: "Hello miss! Would you like to rent a room?"'
  18. if hotelroom>0:
  19. *clr
  20. cla
  21. '<center><img src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  22. 'She looks in the computer: "I see you already have a room here. As it is already booked and paid for the only way to change it to a different room, would be to cancel your existing booking. To do so without notice would forfeit your payment, I would advise against this, but you may do so if you wish."'
  23. act'Yes, cancel your booking':hotelroom=0 & gt'HotelHole'
  24. act'No':gt'HotelHole'
  25. end
  26. if hotelroom = 0:
  27. act'Yes':
  28. *clr
  29. cla
  30. '<center><img src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  31. 'She smiles at you happily: "Excellent! We have the following rooms available right now:"'
  32. 'Standard room - 500 <b>₽</b> / night;'
  33. 'Luxury room - 1500 <b>₽</b> / night;'
  34. 'and the Royal Suite - 10000 <b>₽</b> / night.'
  35. act'Normal room':
  36. *clr
  37. cla
  38. hotelroom1day=input ("For how long would you like to stay?")
  39. if hotelroom1day<0:set hotelroom1day=0
  40. if hotelroom1day*500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
  41. if hotelroom1day*500<=money and hotelroom1day ! 0:
  42. money-=hotelroom1day*500
  43. hotelroom=1
  44. hotelroom1day = daystart + hotelroom1day
  45. 'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
  46. act'Step away from the reception desk':gt'HotelHole'
  47. end
  48. if hotelroom1day = 0:gt'HotelHole'
  49. end
  50. act'Luxury room':
  51. *clr
  52. cla
  53. hotelroom1day=input ("For how long would you like to stay?")
  54. if hotelroom1day<0:set hotelroom1day=0
  55. if hotelroom1day*1500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
  56. if hotelroom1day*1500<=money and hotelroom1day ! 0:
  57. money-=hotelroom1day*1500
  58. hotelroom=2
  59. hotelroom1day = daystart + hotelroom1day
  60. 'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
  61. act'Step away from the reception desk':gt'HotelHole'
  62. end
  63. if hotelroom1day = 0:gt'HotelHole'
  64. end
  65. act'Royal suite':
  66. *clr
  67. cla
  68. hotelroom1day=input ("For how long would you like to stay?")
  69. if hotelroom1day<0:set hotelroom1day=0
  70. if hotelroom1day*10000>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
  71. if hotelroom1day*10000<=money and hotelroom1day ! 0:
  72. money-=hotelroom1day*10000
  73. hotelroom=3
  74. hotelroom1day = daystart + hotelroom1day
  75. 'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
  76. act'Step away from the reception desk':gt'HotelHole'
  77. end
  78. if hotelroom1day = 0:gt'HotelHole'
  79. end
  80. act 'Step away from the reception desk':gt'HotelHole'
  81. end
  82. act'No, thank you':gt'HotelHole'
  83. end
  84. end
  85. If GermanQW<1:
  86. act 'Ask about the maid job':
  87. cls
  88. if GermanQW = 0:GermanQW = 1
  89. gs'stat'
  90. '<center><img src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  91. 'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
  92. 'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
  93. act 'Step away from the reception desk':gt'HotelHole'
  94. end
  95. end
  96. act 'Step away from the reception desk':gt'HotelHole'
  97. --- hotel_resep ---------------------------------