hedgewars/uTeams.pas
changeset 2587 0dfa56a8513c
parent 2586 204e6b2885bc
child 2599 c7153d2348f3
equal deleted inserted replaced
2586:204e6b2885bc 2587:0dfa56a8513c
    14  * You should have received a copy of the GNU General Public License
    14  * You should have received a copy of the GNU General Public License
    15  * along with this program; if not, write to the Free Software
    15  * along with this program; if not, write to the Free Software
    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 {$INCLUDE options.inc}
       
    20 
    19 unit uTeams;
    21 unit uTeams;
    20 interface
    22 interface
    21 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears,
    23 uses SDLh, uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears,
    22 {$IFDEF GLES11}
    24 {$IFDEF GLES11}
    23 	gles11,
    25 	gles11,
    24 {$ELSE}
    26 {$ELSE}
    25 	GL,
    27 	GL,
    26 {$ENDIF}
    28 {$ENDIF}
    27 	uSound;
    29 	uSound;
    28 {$INCLUDE options.inc}
       
    29 
    30 
    30 type PHHAmmo = ^THHAmmo;
    31 type PHHAmmo = ^THHAmmo;
    31 	THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
    32 	THHAmmo = array[0..cMaxSlotIndex, 0..cMaxSlotAmmoIndex] of TAmmo;
    32 
    33 
    33 	PHedgehog = ^THedgehog;
    34 	PHedgehog = ^THedgehog;