224 |
224 |
225 doStepFallingGear(Gear); |
225 doStepFallingGear(Gear); |
226 CalcRotationDirAngle(Gear); |
226 CalcRotationDirAngle(Gear); |
227 |
227 |
228 if (Gear^.State and gstCollision) <> 0 then begin |
228 if (Gear^.State and gstCollision) <> 0 then begin |
229 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 5, EXPLAutoSound); |
229 PlaySound(sndMolotov, false, nil); |
|
230 //doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 5, EXPLAutoSound); |
230 for i:= 0 to 40 do begin |
231 for i:= 0 to 40 do begin |
231 dX:= AngleCos(i * 2) * ((_0_08*(i mod 10))) * (GetRandom + _1); |
232 dX:= AngleCos(i * 2) * ((_0_08*(i mod 10))) * (GetRandom + _1); |
232 dY:= AngleSin(i * 8) * _0_5 * (GetRandom + _1); |
233 dY:= AngleSin(i * 8) * _0_5 * (GetRandom + _1); |
233 Fire:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); |
234 Fire:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0); |
234 Fire^.State:= Fire^.State or gsttmpFlag; |
235 Fire^.State:= Fire^.State or gsttmpFlag; |