hedgewars/uLandGenTemplateBased.pas
changeset 14285 a7810074c20d
parent 14282 6015b74eea55
child 14286 7a7c090f96f6
equal deleted inserted replaced
14284:a3531b520efb 14285:a7810074c20d
   365     or (not Template.canInvert and Template.isNegative) then
   365     or (not Template.canInvert and Template.isNegative) then
   366         begin
   366         begin
   367         hasBorder:= true;
   367         hasBorder:= true;
   368         for y:= 0 to LAND_HEIGHT - 1 do
   368         for y:= 0 to LAND_HEIGHT - 1 do
   369             for x:= 0 to LAND_WIDTH - 1 do
   369             for x:= 0 to LAND_WIDTH - 1 do
   370                 if (y < topY) or (x < leftX) or (x > rightX) then
   370                 if (y < LongWord(topY)) or (x < LongWord(leftX)) or (x > LongWord(rightX)) then
   371                     Land[y, x]:= 0
   371                     Land[y, x]:= 0
   372                 else
   372                 else
   373                     begin
   373                     begin
   374                     if Land[y, x] = 0 then
   374                     if Land[y, x] = 0 then
   375                         Land[y, x]:= lfBasic
   375                         Land[y, x]:= lfBasic