--- a/hedgewars/uLand.pas Fri Jun 18 14:22:14 2010 -0400
+++ b/hedgewars/uLand.pas Fri Jun 18 14:26:04 2010 -0400
@@ -561,7 +561,7 @@
begin
for y:= 0 to LAND_HEIGHT - 1 do
for x:= 0 to LAND_WIDTH - 1 do
- Land[y, x]:= LAND_BASIC;
+ Land[y, x]:= lfBasic;
{$HINTS OFF}
SetPoints(Template, pa);
@@ -582,7 +582,7 @@
with FillPoints^[i] do
FillLand(x, y);
-DrawEdge(pa, LAND_BASIC);
+DrawEdge(pa, lfBasic);
MaxHedgehogs:= Template.MaxHedgehogs;
hasGirders:= Template.hasGirders;
@@ -605,8 +605,8 @@
else
begin
if Land[y, x] = 0 then
- Land[y, x]:= LAND_BASIC
- else if Land[y, x] = LAND_BASIC then
+ Land[y, x]:= lfBasic
+ else if Land[y, x] = lfBasic then
Land[y, x]:= 0;
end;
end;
@@ -978,7 +978,7 @@
for x := 0 to playWidth do
for y := off_y to LAND_HEIGHT - 1 do
- Land[y, x] := LAND_BASIC;
+ Land[y, x] := lfBasic;
for y := 0 to num_cells_y - 1 do
for x := 0 to num_cells_x - 1 do
@@ -1079,7 +1079,7 @@
else
begin
x := 0;
- while Land[cellsize div 2 + cellsize + off_y, x] = LAND_BASIC do
+ while Land[cellsize div 2 + cellsize + off_y, x] = lfBasic do
x := x + 1;
while Land[cellsize div 2 + cellsize + off_y, x] = 0 do
x := x + 1;
@@ -1165,9 +1165,9 @@
if ((AMask and p^[x]) = 0) then // Tiy was having trouble generating transparent black
Land[cpY + y, cpX + x]:= 0
else if p^[x] = (AMask or RMask) then
- Land[cpY + y, cpX + x]:= LAND_INDESTRUCTIBLE
+ Land[cpY + y, cpX + x]:= lfIndestructible
else if p^[x] = $FFFFFFFF then
- Land[cpY + y, cpX + x]:= LAND_BASIC;
+ Land[cpY + y, cpX + x]:= lfBasic;
end;
p:= @(p^[tmpsurf^.pitch div 4]);
end;
@@ -1261,15 +1261,15 @@
for y:= 0 to LAND_HEIGHT - 1 do
for x:= 0 to LAND_WIDTH - 1 do
if (y < topY) or (x < leftX) or (x > rightX) then
- Land[y, x]:= LAND_INDESTRUCTIBLE;
+ Land[y, x]:= lfIndestructible;
// experiment hardcoding cave
// also try basing cave dimensions on map/template dimensions, if they exist
for w:= 0 to 5 do // width of 3 allowed hogs to be knocked through with grenade
begin
for y:= topY to LAND_HEIGHT - 1 do
begin
- Land[y, leftX + w]:= LAND_INDESTRUCTIBLE;
- Land[y, rightX - w]:= LAND_INDESTRUCTIBLE;
+ Land[y, leftX + w]:= lfIndestructible;
+ Land[y, rightX - w]:= lfIndestructible;
if (y + w) mod 32 < 16 then
c:= AMask
else
@@ -1285,7 +1285,7 @@
for x:= leftX to rightX do
begin
- Land[topY + w, x]:= LAND_INDESTRUCTIBLE;
+ Land[topY + w, x]:= lfIndestructible;
if (x + w) mod 32 < 16 then
c:= AMask
else