and fix index
authornemo
Sun, 29 Jul 2018 11:39:48 -0400
changeset 13571 fb81633f17fa
parent 13570 5190d41a2440
child 13572 a71e6856ffab
and fix index
hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sun Jul 29 11:37:14 2018 -0400
+++ b/hedgewars/uGears.pas	Sun Jul 29 11:39:48 2018 -0400
@@ -684,7 +684,7 @@
                 begin
                 h:= 0;
                 with TeamsArray[t]^ do
-                    while (h < cMaxHHIndex) and (p = 0) do
+                    while (h <= cMaxHHIndex) and (p = 0) do
                         begin
                         if (Hedgehogs[h].Gear <> nil) then
                             begin