equal
deleted
inserted
replaced
1912 tY:=Gear^.Y-targ^.Y; |
1912 tY:=Gear^.Y-targ^.Y; |
1913 if (tX.Round+tY.Round < Gear^.Karma) and |
1913 if (tX.Round+tY.Round < Gear^.Karma) and |
1914 (hwRound(hwSqr(tX) + hwSqr(tY)) < sqr(Gear^.Karma)) then |
1914 (hwRound(hwSqr(tX) + hwSqr(tY)) < sqr(Gear^.Karma)) then |
1915 begin |
1915 begin |
1916 Gear^.Hedgehog:= CurrentHedgehog; |
1916 Gear^.Hedgehog:= CurrentHedgehog; |
|
1917 tmpG:= FollowGear; |
1917 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound); |
1918 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Karma, Gear^.Hedgehog, EXPLAutoSound); |
|
1919 FollowGear:= tmpG; |
1918 DeleteGear(Gear); |
1920 DeleteGear(Gear); |
1919 exit |
1921 exit |
1920 end |
1922 end |
1921 end |
1923 end |
1922 else if (Gear^.Angle > 0) and (CheckGearNear(Gear, gtHedgehog, Gear^.Karma, Gear^.Karma) <> nil) then |
1924 else if (Gear^.Angle > 0) and (CheckGearNear(Gear, gtHedgehog, Gear^.Karma, Gear^.Karma) <> nil) then |