35 interface

    35 interface

    36 uses SDLh, uConsts, uFloat, uTypes;

    36 uses SDLh, uConsts, uFloat, uTypes;

    37 

    37 

    38 procedure initModule;

    38 procedure initModule;

    39 procedure freeModule;

    39 procedure freeModule;

    41 function  SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear;

    41 function  SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear;

    42 function  GetAmmo(Hedgehog: PHedgehog): TAmmoType;

    42 function  GetAmmo(Hedgehog: PHedgehog): TAmmoType;

    43 function  GetUtility(Hedgehog: PHedgehog): TAmmoType;

    43 function  GetUtility(Hedgehog: PHedgehog): TAmmoType;

    44 procedure HideHog(HH: PHedgehog);

    44 procedure HideHog(HH: PHedgehog);

    45 procedure RestoreHog(HH: PHedgehog);

    45 procedure RestoreHog(HH: PHedgehog);

   931     t:= t^.NextGear

   931     t:= t^.NextGear

   932     end;

   932     end;

   933 CountGears:= count;

   933 CountGears:= count;

   934 end;

   934 end;

   935 

   935 

   937 begin

   937 begin

   938     FollowGear := AddGear(x, y, gtCase, 0, _0, _0, 0);

   938     FollowGear := AddGear(x, y, gtCase, 0, _0, _0, 0);

   939     cCaseFactor := 0;

   939     cCaseFactor := 0;

   940 

   940 

   941     if (crate <> HealthCrate) and (content > ord(High(TAmmoType))) then

   941     if (crate <> HealthCrate) and (content > ord(High(TAmmoType))) then

   942         content := ord(High(TAmmoType));

   942         content := ord(High(TAmmoType));

   943 

   945 

   944     case crate of

   946     case crate of

   945         HealthCrate:

   947         HealthCrate:

   946             begin

   948             begin

   947             FollowGear^.Pos := posCaseHealth;

   949             FollowGear^.Pos := posCaseHealth;