# beg
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
set razdtumbler = 0
'
'
'You are stretching and warming up before your practice. From where you are you can see your coach, Ygor Y., coaching other athletes.'
act 'Section races':
cla
*clr
set minut += 120
set speed += rand(1, 3)
set manna -= 5
set fat -= 5
set sweat += 3
set beg += rand(2, 5)
''
'You ran around the stadium practicing the skill of running and developing speed.'
act 'Leave':gt 'fit', 'razd'
end
end
if begsec > 0:
act 'Go to coaching':
cla
' Igor Y. in his coaching. You are interested in your success at it.'
if beg < 50:
'You have to train, you have not even the third digit is not pulling in the main race and athleticism dyhalka. More importantly what would not be overweight, but diets undermine physical shape, so the coach recommends to use the sauna to dry.'
act 'Exit':gt 'beg', 'start'
end
if beg >= 50 and razradbegEG = 0:
'You´re doing fine, really well done, you can have a very good sporting future. May even become European champion. But remember, the key to victory, dyhalka, athleticism and an ounce.'
act 'Leave':gt 'beg', 'start'
end
end
end
--- beg ---------------------------------