equal
deleted
inserted
replaced
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 |
703 Gear^.Radius:= 22; |
703 Gear^.Radius:= cShotgunRadius; |
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; |
728 DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 22) |
728 DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius) |
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; |