author | unc0rr |
Wed, 15 Oct 2008 17:01:34 +0000 | |
changeset 1362 | 6298e9dbd33c |
parent 1361 | afdcf39c6bea |
child 1363 | bcd4cb0245f0 |
--- a/hedgewars/uTeams.pas Wed Oct 15 17:00:35 2008 +0000 +++ b/hedgewars/uTeams.pas Wed Oct 15 17:01:34 2008 +0000 @@ -360,8 +360,7 @@ procedure TeamGone(s: shortstring); var i, t: LongInt; begin -i:= 0; - +t:= 0; while (t < cMaxTeams) and (TeamsArray[t] <> nil) and (TeamsArray[t]^.TeamName <> s) do inc(t);