SRL Archive - OSR Help

I am using a modified attacker script and it works great and it will pick up an item but only if its on top of a stack of the drops, even though it can see the color. Here is the attack and pickup Procedure.

procedure Combat;
  begin
    Combat1 := 1;
      begin
        if (FindColor(X, Y, 65280, 220, 110, 330, 220)) then
        begin
          WriteLn('In Combat . . .');
        end
        else Combat1 := 0;
        if (FindColor(X, Y, 65280, 220, 110, 330, 220)) = false then
        if Loot = ('') = false then
          if P07_FindObjCustom(x,y, [Loot], [Lootc], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(800, 1000));
            P07_ChooseOptionMulti([Loot]);
          end;
           if Loot2 = ('') = false then
          if P07_FindObjCustom(x,y, [Loot2], [LColor2], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(800, 1000));
            P07_ChooseOptionMulti([Loot2]);

          end;

           if Loot3 = ('') = false then
          if P07_FindObjCustom(x,y, [Loot3], [LColor3], 5) then
          begin
            wait (randomrange(100, 200));
            ClickMouse2(mouse_right);
            wait(randomrange(800, 1000));
            P07_ChooseOptionMulti([Loot3]);
          end;
          end;
          end;  

Help would be much appreciated.