264                 end;

   264                 end;

   265      gtAirBomb: begin

   265      gtAirBomb: begin

   266                 Result.Radius:= 10;

   266                 Result.Radius:= 10;

   267                 end;

   267                 end;

   268    gtBlowTorch: begin

   268    gtBlowTorch: begin

   269                 Result.Timer:= 7500;

   270                 Result.Timer:= 7500;

   270                 end;

   271                 end;

   271      end;

   272      end;

   272 InsertGearToList(Result)

   273 InsertGearToList(Result)

   273 end;

   274 end;

   631 var Gear: PGear;

   632 var Gear: PGear;

   632     dmg: integer;

   633     dmg: integer;

   633 begin

   634 begin

   634 TargetPoint.X:= NoPointX;

   635 TargetPoint.X:= NoPointX;

   635 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF}

   636 {$IFDEF DEBUGFILE}if Radius > 3 then AddFileLog('Explosion: at (' + inttostr(x) + ',' + inttostr(y) + ')');{$ENDIF}

   637 if Radius = 50 then AddGear(X, Y, gtExplosion, 0);

   638 if Radius = 50 then AddGear(X, Y, gtExplosion, 0);

   638 if (Mask and EXPLAutoSound)<>0 then PlaySound(sndExplosion);

   639 if (Mask and EXPLAutoSound)<>0 then PlaySound(sndExplosion);

   639 if (Mask and EXPLAllDamageInRadius)=0 then Radius:= Radius shl 1;

   640 if (Mask and EXPLAllDamageInRadius)=0 then Radius:= Radius shl 1;

   640 Gear:= GearsList;

   641 Gear:= GearsList;

   641 while Gear <> nil do

   642 while Gear <> nil do