39 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

    39 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

    40 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

    40 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

    41 procedure SetWeapon(weap: TAmmoType);

    41 procedure SetWeapon(weap: TAmmoType);

    42 procedure DisableSomeWeapons;

    42 procedure DisableSomeWeapons;

    43 procedure ResetWeapons;

    43 procedure ResetWeapons;

    45 

    45 

    46 var shoppa: boolean;

    46 var shoppa: boolean;

    47 

    47 

    48 implementation

    48 implementation

    49 uses uMisc, uGears, uWorld, uLocale, uConsole;

    49 uses uMisc, uGears, uWorld, uLocale, uConsole;