equal
deleted
inserted
replaced
923 |
923 |
924 if Gear^.Damage > 0 then |
924 if Gear^.Damage > 0 then |
925 begin |
925 begin |
926 x:= hwRound(Gear^.X); |
926 x:= hwRound(Gear^.X); |
927 y:= hwRound(Gear^.Y); |
927 y:= hwRound(Gear^.Y); |
928 DeleteGear(Gear); |
|
929 if Gear^.Kind = gtCase then |
928 if Gear^.Kind = gtCase then |
930 begin |
929 begin |
931 doMakeExplosion(x, y, 25, EXPLAutoSound); |
930 doMakeExplosion(x, y, 25, EXPLAutoSound); |
932 for i:= 0 to 63 do |
931 for i:= 0 to 63 do |
933 AddGear(x, y, gtFlame, 0, _0, _0, 0); |
932 AddGear(x, y, gtFlame, 0, _0, _0, 0); |
934 end; |
933 end; |
|
934 DeleteGear(Gear); |
935 exit |
935 exit |
936 end; |
936 end; |
937 |
937 |
938 if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then |
938 if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then |
939 begin |
939 begin |