equal
deleted
inserted
replaced
645 doStepFallingGear(Gear); |
645 doStepFallingGear(Gear); |
646 AllInactive:= false; |
646 AllInactive:= false; |
647 if Gear.Timer mod 166 = 0 then inc(Gear.Tag); |
647 if Gear.Timer mod 166 = 0 then inc(Gear.Tag); |
648 if Gear.Timer = 0 then |
648 if Gear.Timer = 0 then |
649 begin |
649 begin |
650 doMakeExplosion(round(Gear.X), round(Gear.Y), 85, EXPLAutoSound); |
650 doMakeExplosion(round(Gear.X), round(Gear.Y), 75, EXPLAutoSound); |
651 DeleteGear(Gear); |
651 DeleteGear(Gear); |
652 exit |
652 exit |
653 end; |
653 end; |
654 dec(Gear.Timer); |
654 dec(Gear.Timer); |
655 end; |
655 end; |