hedgewars: comparison hedgewars/uLand.pas

equal deleted inserted replaced

-:e5403e2bf02c
+:37ac593e9027
 if getrandom(2) = 1 then next_dir_clockwise := true
 else next_dir_clockwise := false;
 while (tries < 5) and not found_cell do
 begin
-if when_seen(x + dir.x, y + dir.y) = current_step then //we're seeing ourselves, try another direction
+if when_seen(x + dir.x, y + dir.y) = current_step then //we are seeing ourselves, try another direction
 begin
 //we have already seen the target cell, decide if we should remove the wall anyway
-//(or put a wall there if maze_inverted, but we're not doing that right now)
+//(or put a wall there if maze_inverted, but we are not doing that right now)
 if not maze_inverted and (GetRandom(braidness) = 0) then
 //or just warn that inverted+braid+indestructible terrain != good idea
 begin
 case dir.x of
 -1: if x > 0 then ywalls[x-1, y] := false;
 dir := DIR_E
 else
 dir := DIR_S;
 end
 end
-else if when_seen(x + dir.x, y + dir.y) = -1 then //cell wasn't seen yet, go there
+else if when_seen(x + dir.x, y + dir.y) = -1 then //cell was not seen yet, go there
 begin
 case dir.y of
 -1: xwalls[x, y-1] := false;
 1: xwalls[x, y] := false;
 end;
 came_from_pos[current_step] := came_from_pos[current_step] + 1;
 came_from[current_step, came_from_pos[current_step]].x := x;
 came_from[current_step, came_from_pos[current_step]].y := y;
 found_cell := true;
 end
-else //we're seeing someone else, quit
+else //we are seeing someone else, quit
 begin
 step_done[current_step] := true;
 found_cell := true;
 end;
 function GenPreview: TPreview;
 var x, y, xx, yy, t, bit: LongInt;
 Preview: TPreview;
 begin
 WriteLnToConsole('Generating preview...');
 case cMapGen of
 0: GenBlank(EdgeTemplates[SelectTemplate]);
 1: GenMaze;
 end;
 for y:= 0 to 127 do
 for x:= 0 to 31 do
 begin
 Preview[y, x]:= 0;
 for bit:= 0 to 7 do
 begin
 t:= 0;
 for yy:= y * (LAND_HEIGHT div 128) to y * (LAND_HEIGHT div 128) + 7 do
 for xx:= x * (LAND_WIDTH div 32) + bit * 8 to x * (LAND_WIDTH div 32) + bit * 8 + 7 do
 if Land[yy, xx] <> 0 then inc(t);
-if t > 8 then Preview[y, x]:= Preview[y, x] or ($80 shr bit)
+if t > 8 then
-end
+Preview[y, x]:= Preview[y, x] or ($80 shr bit);
+end;
 end;
-GenPreview:= Preview
+GenPreview:= Preview
 end;
 procedure initModule;
 begin
 LandBackSurface:= nil;

changeset 3365	37ac593e9027
parent 3287	4f7b57ed18b6
child 3369	c7289e42f0ee