hedgewars/uLandTemplates.pas
changeset 2599 c7153d2348f3
parent 2425 a4af95e6382c
child 2630 079ef82eac75
equal deleted inserted replaced
2598:e118329666ff 2599:c7153d2348f3
    17  *)
    17  *)
    18 
    18 
    19 unit uLandTemplates;
    19 unit uLandTemplates;
    20 interface
    20 interface
    21 uses SDLh;
    21 uses SDLh;
    22 {$INCLUDE options.inc}
    22 {$INCLUDE "options.inc"}
    23 
    23 
    24 const NTPX = Low(TSDL_Rect.x);
    24 const NTPX = Low(TSDL_Rect.x);
    25 
    25 
    26 type PPointArray = ^TPointArray;
    26 type PPointArray = ^TPointArray;
    27      TPointArray = array[0..64] of TSDL_Rect;
    27      TPointArray = array[0..64] of TSDL_Rect;
    36                      canMirror, canFlip, isNegative, canInvert: boolean;
    36                      canMirror, canFlip, isNegative, canInvert: boolean;
    37                      hasGirders: boolean;
    37                      hasGirders: boolean;
    38                      MaxHedgeHogs: Longword;
    38                      MaxHedgeHogs: Longword;
    39                      end;
    39                      end;
    40 ///////////////////////// ORIGINAL SET //////////////////////////////
    40 ///////////////////////// ORIGINAL SET //////////////////////////////
    41 // Area expanded to 2848x1424 at Tiy's request to move out border ///
    41 /// Area expanded to 2848x1424 at Tiys request to move out border ///
    42 /////////////////////////////////////////////////////////////////////
    42 /////////////////////////////////////////////////////////////////////
    43 const Template0Points: array[0..18] of TSDL_Rect =
    43 const Template0Points: array[0..18] of TSDL_Rect =
    44       (
    44       (
    45        (x:  810; y: 1424; w:    1; h:    1),
    45        (x:  810; y: 1424; w:    1; h:    1),
    46        (x:  560; y: 1160; w:  130; h:  170),
    46        (x:  560; y: 1160; w:  130; h:  170),