1033    end;

  1033    end;

  1034 if (Gear^.X > 3072) or (Gear^.X < -1024) then DeleteGear(Gear)

  1034 if (Gear^.X > 3072) or (Gear^.X < -1024) then DeleteGear(Gear)

  1035 end;

  1035 end;

  1036 

  1036 

  1037 procedure doStepAirAttack(Gear: PGear);

  1037 procedure doStepAirAttack(Gear: PGear);

  1039 begin

  1038 begin

  1040 AllInactive:= false;

  1039 AllInactive:= false;

  1041 if Gear^.X.QWordValue = 0 then Gear^.Tag:=  1

  1040 if Gear^.X.QWordValue = 0 then Gear^.Tag:=  1

  1042                           else Gear^.Tag:= -1;

  1041                           else Gear^.Tag:= -1;

  1043 Gear^.X:= 1024 - Gear^.Tag * 2048;

  1042 Gear^.X:= 1024 - Gear^.Tag * 2048;