39     GearKindAmmoTypeMap : array [TGearType] of TAmmoType = (

    39     GearKindAmmoTypeMap : array [TGearType] of TAmmoType = (

    40 (*          gtFlame *)   amNothing

    40 (*          gtFlame *)   amNothing

    41 (*       gtHedgehog *) , amNothing

    41 (*       gtHedgehog *) , amNothing

    42 (*           gtMine *) , amMine

    42 (*           gtMine *) , amMine

    43 (*           gtCase *) , amNothing

    43 (*           gtCase *) , amNothing

    44 (*     gtExplosives *) , amNothing

    45 (*     gtExplosives *) , amNothing

    45 (*        gtGrenade *) , amGrenade

    46 (*        gtGrenade *) , amGrenade

    46 (*          gtShell *) , amBazooka

    47 (*          gtShell *) , amBazooka

    47 (*          gtGrave *) , amNothing

    48 (*          gtGrave *) , amNothing

    48 (*            gtBee *) , amBee

    49 (*            gtBee *) , amBee

   101 (*         gtTardis *) , amTardis

   102 (*         gtTardis *) , amTardis

   102 (*         gtIceGun *) , amIceGun

   103 (*         gtIceGun *) , amIceGun

   103 (*        gtAddAmmo *) , amNothing

   104 (*        gtAddAmmo *) , amNothing

   104 (*  gtGenericFaller *) , amNothing

   105 (*  gtGenericFaller *) , amNothing

   105 (*          gtKnife *) , amKnife

   106 (*          gtKnife *) , amKnife

   107     );

   107     );

   108 

   108 

   109 

   109 

   110 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless

   110 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless

   111 

   111