equal
deleted
inserted
replaced
2146 targDist:= Distance(Gear^.X-targ^.X,Gear^.Y-targ^.Y).Round |
2146 targDist:= Distance(Gear^.X-targ^.X,Gear^.Y-targ^.Y).Round |
2147 else targDist:= 0; |
2147 else targDist:= 0; |
2148 for t:= 0 to Pred(TeamsCount) do |
2148 for t:= 0 to Pred(TeamsCount) do |
2149 with TeamsArray[t]^ do |
2149 with TeamsArray[t]^ do |
2150 for i:= 0 to cMaxHHIndex do |
2150 for i:= 0 to cMaxHHIndex do |
2151 if Hedgehogs[i].Gear <> nil then |
2151 if (Hedgehogs[i].Gear <> nil) and (Hedgehogs[i].Effects[heFrozen] = 0) then |
2152 begin |
2152 begin |
2153 tmpG:= Hedgehogs[i].Gear; |
2153 tmpG:= Hedgehogs[i].Gear; |
2154 tX:=Gear^.X-tmpG^.X; |
2154 tX:=Gear^.X-tmpG^.X; |
2155 tY:=Gear^.Y-tmpG^.Y; |
2155 tY:=Gear^.Y-tmpG^.Y; |
2156 if (Gear^.Angle = $FFFFFFFF) or |
2156 if (Gear^.Angle = $FFFFFFFF) or |