equal
deleted
inserted
replaced
2042 ResumeMusic; |
2042 ResumeMusic; |
2043 |
2043 |
2044 if ((Gear^.State and gstCollision) <> 0) then |
2044 if ((Gear^.State and gstCollision) <> 0) then |
2045 begin |
2045 begin |
2046 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound); |
2046 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound); |
2047 for i:= 0 to 25 do |
2047 for i:= 0 to 32 do |
2048 begin |
2048 begin |
2049 dX:= AngleCos(i * 16) * _0_5 * (GetRandom + _1); |
2049 dX:= AngleCos(i * 64) * _0_5 * (GetRandom + _1); |
2050 dY:= AngleSin(i * 16) * _0_5 * (GetRandom + _1); |
2050 dY:= AngleSin(i * 64) * _0_5 * (GetRandom + _1); |
2051 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); |
2051 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); |
2052 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0); |
2052 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0); |
2053 end; |
2053 end; |
2054 DeleteGear(Gear) |
2054 DeleteGear(Gear) |
2055 end; |
2055 end; |