hedgewars/uStore.pas
changeset 2587 0dfa56a8513c
parent 2582 e16668bac20f
child 2592 d86618629e20
equal deleted inserted replaced
2586:204e6b2885bc 2587:0dfa56a8513c
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
    17  *)
    17  *)
    18 
    18 
    19 unit uStore;
    19 unit uStore;
    20 interface
    20 interface
       
    21 {$INCLUDE options.inc}
    21 uses sysutils, uConsts, uTeams, SDLh,
    22 uses sysutils, uConsts, uTeams, SDLh,
    22 {$IFDEF GLES11}
    23 {$IFDEF GLES11}
    23 	gles11,
    24 	gles11,
    24 {$ELSE}
    25 {$ELSE}
    25 	GL, GLext,
    26 	GL, GLext,
    26 {$ENDIF}
    27 {$ENDIF}
    27 uFloat;
    28 uFloat;
    28 {$INCLUDE options.inc}
       
    29 
    29 
    30 procedure StoreInit;
    30 procedure StoreInit;
    31 procedure StoreLoad;
    31 procedure StoreLoad;
    32 procedure StoreRelease;
    32 procedure StoreRelease;
    33 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);
    33 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);