If TEAM_POINTS(LEAGUE_POSITION(I))<TEAM_POINTS(LEAGUE_POSITION(I+1))
Swap LEAGUE_POSITION(I),LEAGUE_POSITION(I+1)
End If
Next I
Next OUTER_LOOP
For OUTER_LOOP=TEAMS_A To TEAMS_B
For I=TEAMS_A To TEAMS_B-1
If TEAM_POINTS(LEAGUE_POSITION(I))=TEAM_POINTS(LEAGUE_POSITION(I+1)) and GOAL_DIFFERENCE(LEAGUE_POSITION(I))<GOAL_DIFFERENCE(LEAGUE_POSITION(I+1))
Swap LEAGUE_POSITION(I),LEAGUE_POSITION(I+1)
End If
Next I
Next OUTER_LOOP
For OUTER_LOOP=TEAMS_A To TEAMS_B
For I=TEAMS_A To TEAMS_B-1
If TEAM_POINTS(LEAGUE_POSITION(I))=TEAM_POINTS(LEAGUE_POSITION(I+1)) and GOAL_DIFFERENCE(LEAGUE_POSITION(I))=GOAL_DIFFERENCE(LEAGUE_POSITION(I+1)) and GOALS_FOR(LEAGUE_POSITION(I))<GOALS_FOR(LEAGUE_POSITION(I+1))
Text 8,125,LINE_C$ : Text 8,145,LINE_D$ : Text 8,165,LINE_E$
Screen To Front THE_SCREEN
CHECK_FOR_MOUSE_CLICK
End Proc
Procedure DISPLAY_MANAGER_RESIGNED_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We would like to thank you","very much indeed for your service","to the club.","We wish you well in your next","ventures.",2]
End Proc
Procedure DISPLAY_MANAGER_TOO_OLD_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We would like to thank you","very much indeed for your service","to the club all these years.","You have now reached the mandatory","retirememt age of 70.",2]
End Proc
Procedure DISPLAY_NO_CASH_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We have no money left!!","We are disgraced that you","show no financial sense and","therefore we have no hesitation","in giving you the sack!!",2]
End Proc
Procedure DISPLAY_BAD_MANAGER_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We are totally shocked!!","We are disgraced with your","management ability. You have","fallen below our standards.","Therefore, you are sacked!!",2]
End Proc
Procedure DISPLAY_CHAMPIONS_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We are completely ecstatic!!","You have taken our club to the","pinnacle of our sport.","SlamBall Champions!!","We hope this great trend continues!!",2]
End Proc
Procedure DISPLAY_PROMOTION_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We are very happy!!","You have shown good management skill","taking our club to the First Division.","This confirms our belief in you.","Now for the Championship!!",2]
End Proc
Procedure DISPLAY_RELEGATION_MESSAGE
DISPLAY_A_MESSAGE["Team Owners","We are very unhappy with this!!","This relegation is a severe jolt","to our Championship aspirations.","We can only hope that you will get","it right before too long!!",2]
End Proc
Procedure DISPLAY_END_OF_SEASON_MESSAGE
DISPLAY_A_MESSAGE["End Of Season","Please wait while the","next season is initialised.","","","",2]
If CHAMPIONS=CURRENT_TEAM : DISPLAY_CHAMPIONS_MESSAGE : End If
If PROMOTE=CURRENT_TEAM : DISPLAY_PROMOTION_MESSAGE : End If
If RELEGATE=CURRENT_TEAM : DISPLAY_RELEGATION_MESSAGE : End If
DISPLAY_A_MESSAGE["Promotion And Relegation",TEAMNAME$(CHAMPIONS)+" are champions.",TEAMNAME$(RELEGATE)+" will be relegated","to Division 2.",TEAMNAME$(PROMOTE)+" will be promoted","to Division 1.",1]
If CLUB_TO_PAY(PERSON)=THE_HOME_TEAM and INJURY_LENGTH(PERSON)=0 and SKILL_SHOT(PERSON)>=TEMP_SKILL and PERSON_HOME<=NUMBER_IN_TEAM and THE_HOME_TEAM<>CURRENT_TEAM
If CLUB_TO_PAY(PERSON)=THE_AWAY_TEAM and INJURY_LENGTH(PERSON)=0 and SKILL_SHOT(PERSON)>=TEMP_SKILL and PERSON_AWAY<=NUMBER_IN_TEAM*2 and THE_AWAY_TEAM<>CURRENT_TEAM
Until CURRENT_WEEK=SEASON_END or RESIGN_FLAG=MANAGER_HAS_RESIGNED or TEAM_CASH(CURRENT_TEAM)<0 or MANAGER_RATING<CLUB_RATING(CURRENT_TEAM) or MANAGER_AGE=70