35 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

    35 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

    36 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

    36 procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog);

    37 procedure SetWeapon(weap: TAmmoType);

    37 procedure SetWeapon(weap: TAmmoType);

    38 procedure DisableSomeWeapons;

    38 procedure DisableSomeWeapons;

    39 procedure ResetWeapons;

    39 procedure ResetWeapons;

    40 

    41 

    41 var shoppa: boolean;

    42 var shoppa: boolean;

    42 

    43 

    43 implementation

    44 implementation

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

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