Whats up with this?

[Mercury92]

Code: (pascal) [Select]

procedure OnJoinGame(ID, Team: byte);
var i: integer;
begin
  for i := 0 to 32 do begin
  player[i].level:=0;
  player[i].ep:=0;
end;
end;


• [Error] LW -> (OnJoinGame): Out Of Range

[Gizd]

I guess your array is 1..32 and loop goes 0 -> 32

[squiddy]

Firstable, you don't need a loop, since you have an ID identifier in the own procedure.

Just go:

Code: [Select]

Procedure OnJoinGame(ID, Team: Byte);
 Begin
  Player[ID].Level := 0;
 Player[ID].Ep := 0;
end;

The loop thing is quite useless, and "0 To 32" would be flawfull.

When you actually need to use a loop, as in AppOnIdle() for instance, go "1 To 32".