# Mariya1 '- How can I help you?' act 'Move away': gt 'rack' if nom_1 = 0: act 'Ask about plans for the evening': cla '- What are you doing tonight?' '- Meeting with her husband. Anything else?' act 'Move away': gt 'rack' end if tobiQW = 2000: act 'Why in the hotel so crowded?': cla tobiQW = 2001 '- Why so crowded in the hotel?' '- Then stop members of Congress rare languages, as they call themselves quack.' act 'Move away': gt 'rack' end end end if nomer = 0: *clear act 'Stay': '- I would like to stay' '- Well, what would you like?' cla act 'Cheap room': '- Cheap room' nomer = 1 nom_1 = 1 gt 'mariya1' end act 'Standard Room': '- Standard Room' nomer = 2 nom_1 = 1 gt 'mariya1' end act 'Suite': '- Suite' nomer = 3 nom_1 = 1 gt 'mariya1' end act 'Presidential Suite': '- Presidential Suite' nomer = 4 nom_1 = 1 gt 'mariya1' end end end if nom_1 = 1 and flag = 0: *clear cla '- You shoot a room for one night.' sto_nom = nom_o[nomer] '- It will cost <>' cla act 'Pay': if sto_nom > money: msg 'Not enough money' srokarend = 0 nomer = 0 nom_1 = 0 gt 'mariya1' end money = money - sto_nom flag = 1 nom_1 = 0 nom_nom = rand(1,1000) 'Thank you for using our services' 'Your room <>' cla act 'Goodbye': gt 'rack' end end act 'Change Your Mind': nomer = 0 nom_1 = 0 gt 'mariya1' end end if nom_1 = 0: act 'Move away': gt 'rack' end end --- Mariya1 ---------------------------------