equal
deleted
inserted
replaced
828 if Gear^.Damage > 0 then |
828 if Gear^.Damage > 0 then |
829 begin |
829 begin |
830 x:= hwRound(Gear^.X); |
830 x:= hwRound(Gear^.X); |
831 y:= hwRound(Gear^.Y); |
831 y:= hwRound(Gear^.Y); |
832 DeleteGear(Gear); |
832 DeleteGear(Gear); |
833 doMakeExplosion(x, y, 25, EXPLAutoSound); |
833 if Gear^.Kind = gtCase then |
834 for i:= 0 to 63 do |
834 begin |
835 AddGear(x, y, gtFlame, 0, _0, _0, 0); |
835 doMakeExplosion(x, y, 25, EXPLAutoSound); |
|
836 for i:= 0 to 63 do |
|
837 AddGear(x, y, gtFlame, 0, _0, _0, 0); |
|
838 end; |
836 exit |
839 exit |
837 end; |
840 end; |
838 |
841 |
839 if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then |
842 if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then |
840 begin |
843 begin |