diff --git a/src/game/g_grid.pas b/src/game/g_grid.pas
index ce31c63546d60a9721f1211e1cdeab54ad4fa950..2dfb0ce43d4ff6cb49dece8b05fe3737ca7221b5 100644 (file)
--- a/src/game/g_grid.pas
+++ b/src/game/g_grid.pas
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
cc: PGridCell;
presobj: PGridCellCoord;
begin
- result := CellCoordIter.Create(true);
+ result := CellCoordIter.Create(framePool);
if (body < 0) or (body > High(mProxies)) then begin result.finishIt(); exit; end;
for g := 0 to High(mGrid) do
begin
cc: PGridCell;
presobj: PITP;
begin
- result := Iter.Create(true);
+ result := Iter.Create(framePool);
Dec(x, mMinX);
Dec(y, mMinY);
if (x < 0) or (y < 0) or (x >= mWidth*mTileSize) or (y > mHeight*mTileSize) then begin result.finishIt(); exit; end;
ptag: Integer;
presobj: PITP;
begin
- result := Iter.Create(true);
+ result := Iter.Create(framePool);
tagmask := tagmask and TagFullMask;
if (tagmask = 0) then begin result.finishIt(); exit; end;
exit;
end;
- result := Iter.Create(true);
+ result := Iter.Create(framePool);
if (w < 1) or (h < 1) then begin result.finishIt(); exit; end;
tagmask := tagmask and TagFullMask;
presobj: PITP;
begin
log := false;
- result := Iter.Create(true);
+ result := Iter.Create(framePool);
tagmask := tagmask and TagFullMask;
if (tagmask = 0) then begin result.finishIt(); exit; end;