equal
deleted
inserted
replaced
635 else if (Gear.CollIndex < High(Longword)) and (Gear.dY <> 0) then DeleteCR(Gear); |
635 else if (Gear.CollIndex < High(Longword)) and (Gear.dY <> 0) then DeleteCR(Gear); |
636 |
636 |
637 if Gear.Damage > 0 then |
637 if Gear.Damage > 0 then |
638 begin |
638 begin |
639 DeleteGear(Gear); |
639 DeleteGear(Gear); |
640 doMakeExplosion(round(Gear.X), round(Gear.Y), 50, EXPLAutoSound) |
640 doMakeExplosion(round(Gear.X), round(Gear.Y), 20, EXPLAutoSound) |
641 end |
641 end |
642 end; |
642 end; |