hedgewars/uLandGenMaze.pas
changeset 10189 875607ce793d
parent 10015 4feced261c68
child 10387 cb17b79844b5
equal deleted inserted replaced
10188:e8f2dbabd01b 10189:875607ce793d
   479 BezierizeEdge(pa, _0_25);
   479 BezierizeEdge(pa, _0_25);
   480 
   480 
   481 DrawEdge(pa, 0);
   481 DrawEdge(pa, 0);
   482 
   482 
   483 if maze_inverted then
   483 if maze_inverted then
   484     FillLand(1, 1+off_y)
   484     FillLand(1, 1+off_y, 0, 0)
   485 else
   485 else
   486     begin
   486     begin
   487     x := 0;
   487     x := 0;
   488     while Land[cellsize div 2 + cellsize + off_y, x] = lfBasic do
   488     while Land[cellsize div 2 + cellsize + off_y, x] = lfBasic do
   489         x := x + 1;
   489         x := x + 1;
   490     while Land[cellsize div 2 + cellsize + off_y, x] = 0 do
   490     while Land[cellsize div 2 + cellsize + off_y, x] = 0 do
   491         x := x + 1;
   491         x := x + 1;
   492     FillLand(x+1, cellsize div 2 + cellsize + off_y);
   492     FillLand(x+1, cellsize div 2 + cellsize + off_y, 0, 0);
   493     end;
   493     end;
   494 
   494 
   495 MaxHedgehogs:= 32;
   495 MaxHedgehogs:= 32;
   496 if (GameFlags and gfDisableGirders) <> 0 then
   496 if (GameFlags and gfDisableGirders) <> 0 then
   497     hasGirders:= false
   497     hasGirders:= false