698 

   698 

   699 procedure ShotgunShot(Gear: PGear);

   699 procedure ShotgunShot(Gear: PGear);

   700 var t: PGear;

   700 var t: PGear;

   701     dmg: integer;

   701     dmg: integer;

   702 begin

   702 begin

   704 t:= GearsList;

   704 t:= GearsList;

   705 while t <> nil do

   705 while t <> nil do

   706     begin

   706     begin

   707     dmg:= min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25);

   707     dmg:= min(Gear^.Radius + t^.Radius - hwRound(Distance(Gear^.X - t^.X, Gear^.Y - t^.Y)), 25);

   708     if dmg >= 0 then

   708     if dmg >= 0 then

   723                        t^.Active:= true

   723                        t^.Active:= true

   724                        end;

   724                        end;

   725            end;

   725            end;

   726     t:= t^.NextGear

   726     t:= t^.NextGear

   727     end;

   727     end;

   729 end;

   729 end;

   730 

   730 

   731 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);

   731 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);

   732 var t: PGearArray;

   732 var t: PGearArray;

   733     i: LongInt;

   733     i: LongInt;