32 procedure SwitchHedgehog;

    32 procedure SwitchHedgehog;

    33 procedure AfterSwitchHedgehog;

    33 procedure AfterSwitchHedgehog;

    34 procedure InitTeams;

    34 procedure InitTeams;

    35 function  TeamSize(p: PTeam): Longword;

    35 function  TeamSize(p: PTeam): Longword;

    36 procedure RecountTeamHealth(team: PTeam);

    36 procedure RecountTeamHealth(team: PTeam);

    37 procedure RestoreHog(HH: PHedgehog);

    38 procedure RestoreHog(HH: PHedgehog);

    38 

    39 

    39 procedure RestoreTeamsFromSave;

    40 procedure RestoreTeamsFromSave;

    40 function  CheckForWin: boolean;

    41 function  CheckForWin: boolean;

    41 procedure TeamGoneEffect(var Team: TTeam);

    42 procedure TeamGoneEffect(var Team: TTeam);