# beg
if $ARGS[0]='start':
cla
*clr
set minut = minut + 5
set razdtumbler = 0

     act 'section jogging':
     cla
     *clr
     set minut = minut + 120
     set speed = speed + RAND (1,3)
     set manna = manna - 5
     set fat = fat - 5
     set sweat = sweat + 3
     set beg = beg + RAND(2,5)
     '<center><img src="pic/fit5.jpg" ></center>'
     'You ran through the stadium practicing and developing the skill of running speed.'
     act 'Get_Away':gt'fit','razd'
     end
end

if begsec > 0:
	 act 'Go to coaching':
	 cla
	 ' Igor Y. in his coaching. Are you interested in him your progress.'
		 if beg < 50:
		 'You need to train, you have not even a third category can not be withdrawn, in running the main athleticism and dyhalki. Yet it is important that there was no excess weight, but undermine the diet in shape, therefore recommends that the coach used to dry sauna.'
		 act 'Go_Out':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. It may even become European champion. But do not forget, The key to victory, dyhalki, athleticism and an ounce.'
		 act 'Get_Away':gt'beg','start'
		 end
     end
end
--- beg ---------------------------------

