264 

   264 

   265 CheckCollision(Gear);

   265 CheckCollision(Gear);

   266 dec(Gear^.Timer);

   266 dec(Gear^.Timer);

   267 if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then

   267 if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then

   268    begin

   268    begin

   269    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

   270    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

   270    DeleteGear(Gear);

   271    DeleteGear(Gear);

   271    end;

   272    end;

   272 end;

   273 end;

   273 

   274 

   285    exit

   286    exit

   286    end;

   287    end;

   287 dec(Gear^.Timer);

   288 dec(Gear^.Timer);

   288 if Gear^.Timer = 0 then

   289 if Gear^.Timer = 0 then

   289    begin

   290    begin

   290    Gear^.Timer:= 5000;

   292    Gear^.Timer:= 5000;

   291    Gear^.doStep:= @doStepUFOWork

   293    Gear^.doStep:= @doStepUFOWork

   292    end;

   294    end;

   293 end;

   295 end;

   294 

   296