SRL Archive - Help

I'm creating a simple Barbarian Course Agility script, and I'm almost fisished.

Just one thing, I'm using Case of and it won't go to the next number, it will loop inside RopeSwing.

procedure CaseProceduce;
begin
    case Course of
    0 : RopeSwing;
    1 : LogBallance;
    2 : ObstacleNet;
    3 : BallancingLedge;
    4 : Ladder;
    5 : Wall1;
    6 : Wall2;
  end;
end; 

 
for i := 0 to 6 do
     begin
       CaseProceduce;
     end;

It should be case i of, not case course of.

procedure CaseProceduce;
begin
    case i of
    0 : RopeSwing;
    1 : LogBallance;
    2 : ObstacleNet;
    3 : BallancingLedge;
    4 : Ladder;
    5 : Wall1;
    6 : Wall2;
  end;
end; 

Thanks, that fixed the problem.