hedgewars/uLand.pas
changeset 2604 ae5b19308e79
parent 2603 abed6070a669
child 2619 bc2786a00fb8
equal deleted inserted replaced
2603:abed6070a669 2604:ae5b19308e79
    33 	TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte;
    33 	TDirtyTag = packed array[0 .. LAND_HEIGHT div 32 - 1, 0 .. LAND_WIDTH div 32 - 1] of byte;
    34 
    34 
    35 var  Land: TCollisionArray;
    35 var  Land: TCollisionArray;
    36      LandPixels: TLandArray;
    36      LandPixels: TLandArray;
    37      LandDirty: TDirtyTag;
    37      LandDirty: TDirtyTag;
    38      hasBorder: boolean; // I'm putting this here for now.  I'd like it to be toggleable by user (so user can set a border on a non-cave map) - will turn off air attacks
    38      hasBorder: boolean; 
    39      hasGirders: boolean;  // I think should be on template by template basis. some caverns might have open water and large spaces.  Some islands do not need? It might be better to tweak the girder code based upon space above.  dunno.
    39      hasGirders: boolean;  
    40      playHeight, playWidth, leftX, rightX, topY, MaxHedgehogs: Longword;  // idea is that a template can specify height/width.  Or, a map, a height/width by the dimensions of the image.  If the map has pixels near top of image, it triggers border.  Maybe not a good idea, but, for now?  Could also be used to prevent placing a girder outside play area on maps with hasBorder = true
    40      playHeight, playWidth, leftX, rightX, topY, MaxHedgehogs: Longword;  // idea is that a template can specify height/width.  Or, a map, a height/width by the dimensions of the image.  If the map has pixels near top of image, it triggers border.
    41 
       
    42 // in your coding style, it appears to be "isXXXX" for a verb, and "FooBar" for everything else - should be PlayHeight ?
       
    43 
    41 
    44 procedure GenMap;
    42 procedure GenMap;
    45 function  GenPreview: TPreview;
    43 function  GenPreview: TPreview;
    46 procedure CheckLandDigest(s: shortstring);
    44 procedure CheckLandDigest(s: shortstring);
    47 
    45