hotel_resep 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107
  1. # hotel_resep
  2. cls
  3. gs'stat'
  4. '<center><H4>Hotel reception</H4></center>'
  5. '<center><img src="images/nigma/gor/Hotel/Reseption/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 maidtime>0:
  8. act'Collect your salary':
  9. cla
  10. money+=maidtime*250
  11. 'The brunette quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
  12. act'Continue':maidtime=0&gt'HotelHole'
  13. end
  14. end
  15. act'Rent a room':
  16. cls
  17. gs'stat'
  18. '<center><img src="images/nigma/gor/Hotel/Reseption/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  19. 'The girl behind the desk smiles at you and asks: "Hello miss! Would you like to rent a room?"'
  20. if hotelroom>0:
  21. *clr
  22. cla
  23. '<center><img src="images/nigma/gor/Hotel/Reseption/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  24. 'She looks in the computer: "I see you already have a room here. As it is already booked andpaid 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."'
  25. act'Yes, cancel your booking':hotelroom=0 & gt'HotelHole'
  26. act'No':gt'HotelHole'
  27. end
  28. if hotelroom = 0:
  29. act'Yes':
  30. *clr
  31. cla
  32. '<center><img src="images/nigma/gor/Hotel/Reseption/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  33. 'She smiles at you happily: "Excellent! We have the following rooms available right now:"'
  34. 'Standard room - 500 <b>₽</b> / night;'
  35. 'Luxury room - 1500 <b>₽</b> / night;'
  36. 'and the Royal Suite - 10000 <b>₽</b> / night.'
  37. act'Normal room':
  38. *clr
  39. cla
  40. hotelroom1day=input ("For how long would you like to stay?")
  41. if hotelroom1day<0:set hotelroom1day=0
  42. if hotelroom1day*500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
  43. if hotelroom1day*500<=money and hotelroom1day ! 0:
  44. money-=hotelroom1day*500
  45. hotelroom=1
  46. hotelroom1day = daystart + hotelroom1day
  47. '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!"'
  48. act'Step away from the reception desk':gt'HotelHole'
  49. end
  50. if hotelroom1day = 0:gt'HotelHole'
  51. end
  52. act'Luxury room':
  53. *clr
  54. cla
  55. hotelroom1day=input ("For how long would you like to stay?")
  56. if hotelroom1day<0:set hotelroom1day=0
  57. if hotelroom1day*1500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
  58. if hotelroom1day*1500<=money and hotelroom1day ! 0:
  59. money-=hotelroom1day*1500
  60. hotelroom=2
  61. hotelroom1day = daystart + hotelroom1day
  62. '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!"'
  63. act'Step away from the reception desk':gt'HotelHole'
  64. end
  65. if hotelroom1day = 0:gt'HotelHole'
  66. end
  67. act'Royal suite':
  68. *clr
  69. cla
  70. hotelroom1day=input ("For how long would you like to stay?")
  71. if hotelroom1day<0:set hotelroom1day=0
  72. if hotelroom1day*10000>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
  73. if hotelroom1day*10000<=money and hotelroom1day ! 0:
  74. money-=hotelroom1day*10000
  75. hotelroom=3
  76. hotelroom1day = daystart + hotelroom1day
  77. '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!"'
  78. act'Step away from the reception desk':gt'HotelHole'
  79. end
  80. if hotelroom1day = 0:gt'HotelHole'
  81. end
  82. act 'Step away from the reception desk':gt'HotelHole'
  83. end
  84. act'No, thank you':gt'HotelHole'
  85. end
  86. end
  87. If GermanQW<1:
  88. act 'Ask about the maid job':
  89. cls
  90. if GermanQW = 0:GermanQW = 1
  91. gs'stat'
  92. '<center><img src="images/nigma/gor/Hotel/Reseption/resep.girl0,'+rand(0,10)+'.jpg"></center>'
  93. '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."'
  94. '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!"'
  95. act 'Step away from the reception desk':gt'HotelHole'
  96. end
  97. end
  98. act 'Step away from the reception desk':gt'HotelHole'
  99. --- hotel_resep ---------------------------------