72         Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;

    72         Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo;

    73         with Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]] do

    73         with Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]] do

    74             Count:= cnts[a];

    74             Count:= cnts[a];

    75         inc(mi[Ammoz[a].Slot])

    75         inc(mi[Ammoz[a].Slot])

    76         end

    76         end

    78 end;

    79 end;

    79 

    80 

    80 procedure AddAmmoStore;

    81 procedure AddAmmoStore;

    81 const probability: array [0..8] of LongWord = (0,20,30,60,100,200,400,600,800);

    82 const probability: array [0..8] of LongWord = (0,20,30,60,100,200,400,600,800);

    82 var cnt: Longword;

    83 var cnt: Longword;

   249             begin

   250             begin

   250             Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1];

   251             Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1];

   251             Ammo^[Slot, ami + 1].Count:= 0

   252             Ammo^[Slot, ami + 1].Count:= 0

   252             end;

   253             end;

   253     until not b;

   254     until not b;

   254 end;

   256 end;

   255 

   257 

   256 procedure OnUsedAmmo(var Hedgehog: THedgehog);

   258 procedure OnUsedAmmo(var Hedgehog: THedgehog);

   257 var CurWeapon: PAmmo;

   259 var CurWeapon: PAmmo;

   258 begin

   260 begin

   377             Gear^.State:= Gear^.State and not gstHHChooseTarget;

   379             Gear^.State:= Gear^.State and not gstHHChooseTarget;

   378             isCursorVisible:= false

   380             isCursorVisible:= false

   379             end;

   381             end;

   380         end

   382         end

   381     end;

   383     end;

   383 end;

   384 end;

   384 

   385 

   385 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

   386 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

   386 begin

   387 begin

   387 with Hedgehog do

   388 with Hedgehog do