hedgewars/uTeams.pas
changeset 1906 644f93d8f148
parent 1687 a73c8cda1ed1
child 1922 88cdabb51995
equal deleted inserted replaced
1905:b1ec8db513f2 1906:644f93d8f148
    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 uTeams;
    19 unit uTeams;
    20 interface
    20 interface
    21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, GL, uSound;
    21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, 
       
    22 {$IFDEF IPHONE}
       
    23 	gles11,
       
    24 {$ELSE}
       
    25 	GL,
       
    26 {$ENDIF}
       
    27 	uSound;
    22 {$INCLUDE options.inc}
    28 {$INCLUDE options.inc}
    23 
    29 
    24 type PHHAmmo = ^THHAmmo;
    30 type PHHAmmo = ^THHAmmo;
    25 	THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
    31 	THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
    26 
    32