1
0

elevator.qsrc 405 B

12345678910111213141516171819202122232425
  1. # elevator
  2. act 'Back': minut += 1 & gt 'hotel'
  3. act 'Go to your room':
  4. msg 'Excuse me, but the elevator is not working'
  5. gt 'elevator'
  6. !'
  7. if nomer = 0:
  8. msg 'You have not paid for a room'
  9. gt 'elevator'
  10. elseif nomer = 1:
  11. gt 'number1'
  12. elseif nomer = 2:
  13. gt 'number2'
  14. elseif nomer = 3:
  15. gt 'number3'
  16. elseif nomer = 4:
  17. gt 'number4'
  18. end
  19. '!
  20. end
  21. --- elevator ---------------------------------