# comendant
if $ARGS[0] = 'pos1':
cla
*clr
minut += 10
gs 'stat'
'
commandant hostel'
''
'Commandant ulybchiv hostel and friendly.'
act 'Become acquainted':gt 'comendant', 'pos2'
end
if $ARGS[0] = 'pos2':
cla
*clr
minut += 5
gor_dorm = 1
gs 'stat'
'commandant hostel'
''
'You:- Good afternoon! I am in the direction of the school, so all the necessary documents.'
'...'
'- Yes, it seems all right. Welcome to our town. My name is Peter, you can simply Petya.'
'- <<$name>>.'
'- So will teach, well, this is lucky to get such a tomboy charming teacher.'
'- Thank you.'
'- So, here are your keys, the room number on the key fob. Kitchen and bathroom at the end of the corridor, although the water often disable the utility. If there are problems, please contact me.'
act 'In the room':gt 'dom_gor'
end
if $ARGS[0] = 'pos3':
cla
*clr
minut += 5
gor_dorm = 3
gs 'stat'
'commandant hostel'
''
'You:- Hello! It''s just a mess, you saw in what condition the pipe in the bathroom. Because the water turned off and that the pipes from nothing left.'
'...'
'- Ooh, what you say.'
'- Yes, I myself checked the riser, and I can show you come on.'
'- It''s an outrage! I immediately call a plumber. So here''s the thing.'
'- Hmm, I hope ...'
'- I immediately take measures, thank you. Sorry for the inconvenience.'
'(Hmm, strange type)'
act 'In the room':gt 'dom_gor'
end
--- comendant ---------------------------------