equal
deleted
inserted
replaced
375 StopSound(sndPickhammer); |
375 StopSound(sndPickhammer); |
376 DeleteGear(Gear); |
376 DeleteGear(Gear); |
377 AfterAttack; |
377 AfterAttack; |
378 exit |
378 exit |
379 end; |
379 end; |
380 if (Gear^.Timer and $3F) = 0 then |
380 |
|
381 if (Gear^.Timer mod 33) = 0 then |
|
382 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 6, 6, EXPLDontDraw); |
|
383 |
|
384 if (Gear^.Timer mod 47) = 0 then |
381 begin |
385 begin |
382 i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2)); |
386 i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2)); |
383 ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2)); |
387 ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2)); |
384 while i <= ei do |
388 while i <= ei do |
385 begin |
389 begin |
386 doMakeExplosion(i, hwRound(Gear^.Y) + 3, 3, 0); |
390 DrawExplosion(i, hwRound(Gear^.Y) + 3, 3); |
387 inc(i, 1) |
391 inc(i, 1) |
388 end; |
392 end; |
389 Gear^.X:= Gear^.X + Gear^.dX; |
393 Gear^.X:= Gear^.X + Gear^.dX; |
390 Gear^.Y:= Gear^.Y + _1_9; |
394 Gear^.Y:= Gear^.Y + _1_9; |
391 SetAllHHToActive; |
395 SetAllHHToActive; |