hedgewars/uVariables.pas
changeset 13455 38814954a248
parent 13405 4c813650fe17
child 13457 b587cdb03bac
equal deleted inserted replaced
13454:794dcf69a5aa 13455:38814954a248
   814             SkipTurns: LongWord;
   814             SkipTurns: LongWord;
   815             PosCount: Longword;
   815             PosCount: Longword;
   816             PosSprite: TSprite;
   816             PosSprite: TSprite;
   817             ejectX, ejectY: Longint;
   817             ejectX, ejectY: Longint;
   818             end;
   818             end;
       
   819     TAmmoCounts = array[TAmmoType] of Longword;
   819 
   820 
   820 var
   821 var
   821     Ammoz: array [TAmmoType] of TAmmozRec;
   822     Ammoz: array [TAmmoType] of TAmmozRec;
       
   823     InitialAmmoCounts: TAmmoCounts;
   822 
   824 
   823 const
   825 const
   824     AmmozInit: array [TAmmoType] of TAmmozRec = (
   826     AmmozInit: array [TAmmoType] of TAmmozRec = (
   825             (NameId: sidNothing;
   827             (NameId: sidNothing;
   826             NameTex: nil;
   828             NameTex: nil;