29 procedure ResetLand;

    29 procedure ResetLand;

    30 

    30 

    31 implementation

    31 implementation

    32 uses uConsts, GLunit, uTypes, uVariables, uTextures, uDebug, uRender;

    32 uses uConsts, GLunit, uTypes, uVariables, uTextures, uDebug, uRender;

    33 

    33 

    35 

    35 

    36 type TLandRecord = record

    36 type TLandRecord = record

    37             shouldUpdate, landAdded: boolean;

    37             shouldUpdate, landAdded: boolean;

    38             tex: PTexture;

    38             tex: PTexture;

    39             end;

    39             end;