equal
deleted
inserted
replaced
268 case Gear^.Kind of |
268 case Gear^.Kind of |
269 gtAmmo_Bomb: makeHogsWorry(Gear^.X, Gear^.Y, 50); |
269 gtAmmo_Bomb: makeHogsWorry(Gear^.X, Gear^.Y, 50); |
270 gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20); |
270 gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20); |
271 gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75); |
271 gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75); |
272 gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90); |
272 gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90); |
|
273 gtGasBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50); |
273 end; |
274 end; |
274 |
275 |
275 if (Gear^.Kind = gtBall) and ((Gear^.State and gstTmpFlag) <> 0) then |
276 if (Gear^.Kind = gtBall) and ((Gear^.State and gstTmpFlag) <> 0) then |
276 begin |
277 begin |
277 CheckCollision(Gear); |
278 CheckCollision(Gear); |
319 if i mod 2 = 0 then Fire^.State:= Fire^.State or gsttmpFlag; |
320 if i mod 2 = 0 then Fire^.State:= Fire^.State or gsttmpFlag; |
320 Fire:= AddGear(x, y, gtFlame, 0, dX, -dY, 0); |
321 Fire:= AddGear(x, y, gtFlame, 0, dX, -dY, 0); |
321 if i mod 2 <> 0 then Fire^.State:= Fire^.State or gsttmpFlag; |
322 if i mod 2 <> 0 then Fire^.State:= Fire^.State or gsttmpFlag; |
322 end |
323 end |
323 end; |
324 end; |
|
325 gtGasBomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound or EXPLPoisoned); |
324 end; |
326 end; |
325 DeleteGear(Gear); |
327 DeleteGear(Gear); |
326 exit |
328 exit |
327 end; |
329 end; |
328 |
330 |