equal
deleted
inserted
replaced
239 i:= 0; |
239 i:= 0; |
240 c:= 0; |
240 c:= 0; |
241 repeat |
241 repeat |
242 hh:= @TeamsArray[t]^.Hedgehogs[i]; |
242 hh:= @TeamsArray[t]^.Hedgehogs[i]; |
243 inc(i); |
243 inc(i); |
244 if (hh <> nil) and (hh^.Gear <> nil) then |
244 if (hh <> nil) and (hh^.Gear <> nil) and (not hh^.Unplaced) then |
245 begin |
245 begin |
246 inc(c); |
246 inc(c); |
247 HHGear:= hh^.Gear; |
247 HHGear:= hh^.Gear; |
248 x:= hwRound(HHGear^.X) + WorldDx; |
248 x:= hwRound(HHGear^.X) + WorldDx; |
249 y:= hwRound(HHGear^.Y) + WorldDy - 2; |
249 y:= hwRound(HHGear^.Y) + WorldDy - 2; |