hedgewars/uLandGenPerlin.pas
changeset 15155 c0ae9f4f9589
parent 15011 bea068dd9356
child 15900 128ace913837
equal deleted inserted replaced
15154:13a69aad9325 15155:c0ae9f4f9589
   223             for x:= 0 to LAND_WIDTH - 1 do
   223             for x:= 0 to LAND_WIDTH - 1 do
   224                 if Land[y, x] = lfObjMask then
   224                 if Land[y, x] = lfObjMask then
   225                     Land[y, x]:= 0;
   225                     Land[y, x]:= 0;
   226         end;
   226         end;
   227 
   227 
       
   228     playWidth:= width;
       
   229     playHeight:= height;
   228     leftX:= 0;
   230     leftX:= 0;
   229     rightX:= 4095;
   231     rightX:= playWidth - 1;
   230     topY:= 0;
   232     topY:= 0;
   231     hasBorder:= false;
   233     hasBorder:= false;
   232 end;
   234 end;
   233 
   235 
   234 end.
   236 end.