equal
deleted
inserted
replaced
288 Gear^.X:= Gear^.X + Gear^.dX; |
288 Gear^.X:= Gear^.X + Gear^.dX; |
289 Gear^.Y:= Gear^.Y + Gear^.dY; |
289 Gear^.Y:= Gear^.Y + Gear^.dY; |
290 CheckCollision(Gear); |
290 CheckCollision(Gear); |
291 if (Gear^.State and gstCollision) <> 0 then |
291 if (Gear^.State and gstCollision) <> 0 then |
292 begin |
292 begin |
293 AmmoShove(Gear, 25, 25); |
293 Gear^.X:= Gear^.X + Gear^.dX * 8; |
294 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLNoDamage or EXPLDoNotTouchHH); |
294 Gear^.Y:= Gear^.Y + Gear^.dY * 8; |
|
295 ShotgunShot(Gear); |
295 DeleteGear(Gear); |
296 DeleteGear(Gear); |
296 AfterAttack; |
297 AfterAttack; |
297 exit |
298 exit |
298 end; |
299 end; |
299 dec(i) |
300 dec(i) |
756 begin |
757 begin |
757 AllInactive:= false; |
758 AllInactive:= false; |
758 if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false); |
759 if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false); |
759 if Gear^.Timer = 0 then |
760 if Gear^.Timer = 0 then |
760 begin |
761 begin |
761 DeleteCI(Gear); |
|
762 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
762 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound); |
763 DeleteGear(Gear) |
763 DeleteGear(Gear) |
764 end; |
764 end; |
765 dec(Gear^.Timer); |
765 dec(Gear^.Timer); |
766 end else // gsttmpFlag = 0 |
766 end else // gsttmpFlag = 0 |
915 exit |
915 exit |
916 end |
916 end |
917 end else begin |
917 end else begin |
918 if Gear^.Timer > 0 then dec(Gear^.Timer) |
918 if Gear^.Timer > 0 then dec(Gear^.Timer) |
919 else begin |
919 else begin |
920 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 2, 0); |
920 // doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 2, 0); |
921 dec(Gear^.Health); |
921 dec(Gear^.Health); |
922 Gear^.Timer:= 1250 - Gear^.Angle * 12 |
922 Gear^.Timer:= 1250 - Gear^.Angle * 12 |
923 end |
923 end |
924 end; |
924 end; |
925 |
925 |