equal
deleted
inserted
replaced
3270 ResumeMusic; |
3270 ResumeMusic; |
3271 |
3271 |
3272 if ((Gear^.State and gstCollision) <> 0) then |
3272 if ((Gear^.State and gstCollision) <> 0) then |
3273 begin |
3273 begin |
3274 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, Gear^.Hedgehog, EXPLAutoSound); |
3274 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, Gear^.Hedgehog, EXPLAutoSound); |
3275 for i:= 0 to 32 do |
3275 for i:= 0 to 15 do |
3276 begin |
3276 begin |
3277 dX := AngleCos(i * 64) * _0_5 * (GetRandom + _1); |
3277 dX := AngleCos(i * 64) * _0_5 * (GetRandom + _1); |
3278 dY := AngleSin(i * 64) * _0_5 * (GetRandom + _1); |
3278 dY := AngleSin(i * 64) * _0_5 * (GetRandom + _1); |
3279 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); |
3279 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); |
3280 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0); |
3280 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0); |