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