equal
deleted
inserted
replaced
2199 targDist:= Distance(Gear^.X-targ^.X,Gear^.Y-targ^.Y).Round |
2199 targDist:= Distance(Gear^.X-targ^.X,Gear^.Y-targ^.Y).Round |
2200 else targDist:= 0; |
2200 else targDist:= 0; |
2201 for t:= 0 to Pred(TeamsCount) do |
2201 for t:= 0 to Pred(TeamsCount) do |
2202 with TeamsArray[t]^ do |
2202 with TeamsArray[t]^ do |
2203 for i:= 0 to cMaxHHIndex do |
2203 for i:= 0 to cMaxHHIndex do |
2204 if (Hedgehogs[i].Gear <> nil) and (Hedgehogs[i].Effects[heFrozen] = 0) then |
2204 if (not Hedgehogs[i].Unplaced) and (Hedgehogs[i].Gear <> nil) and (Hedgehogs[i].Effects[heFrozen] = 0) and ((Hedgehogs[i].Gear^.State and gstInvisible) = 0) then |
2205 begin |
2205 begin |
2206 tmpG:= Hedgehogs[i].Gear; |
2206 tmpG:= Hedgehogs[i].Gear; |
2207 tX:=Gear^.X-tmpG^.X; |
2207 tX:=Gear^.X-tmpG^.X; |
2208 tY:=Gear^.Y-tmpG^.Y; |
2208 tY:=Gear^.Y-tmpG^.Y; |
2209 if (Gear^.Angle = $FFFFFFFF) or |
2209 if (Gear^.Angle = $FFFFFFFF) or |