SRL Archive - OSR Help

I created my own bank invetory method into superheating script, but wtf

Even if inventory is empty it keeps trying to deposit empty place…
I check manually color with color picker and they are same as script ,but it looks like simba is not recognising them as same wtf?

I dont wanna use built in function ,because it eats twice more cpu ;)

this function shoul work same as Deposit(2,28)

function CheckBank: Boolean;
var
mouseX,mouseY,tryT,i,j,colorSpot:integer;
begin
 Result:=true;
 for i:=0 to 6 do
 begin
    if i=0 then j:=1
    else j:=0;

    for j:=0 to 3 do
    begin
    mouseX:=580+j*40;
    mouseY:=228+i*35;
    tryT:=0;
    if i=0 then begin j:=1; break; end;
    case mouseX of
        580: begin
              case mouseY of
                228: begin
                      if not(GetColor(mouseX,mouseY)= 3358791) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(50,90));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(50,90));
                              end;
                            end;
                      end;

                263: begin
                        if not((GetColor(mouseX,mouseY)= 3358535) or (GetColor(mouseX,mouseY)=3424328)) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                298: begin
                         if not((GetColor(mouseX,mouseY)= 3358535) or (GetColor(mouseX,mouseY)=3424328)) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                333: begin
                        if not(GetColor(mouseX,mouseY)= 3358535) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                368: begin
                        if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+134)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                403: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+99)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                438: begin
                       if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+99)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;
                 end


             end;

        620: begin
                 case mouseY of
                228: begin
                        if not(GetColor(mouseX,mouseY)= 3358535) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                263: begin
                          if not(GetColor(mouseX,mouseY)= 3358535) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                298: begin
                        if not(GetColor(mouseX,mouseY)= 3358535) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                333: begin
                         if not((GetColor(mouseX,mouseY)= 3160642) or (GetColor(mouseX,mouseY)=3226434)) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if GetColor(mouseX,mouseY+150)=2432009 then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                368: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+134)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                          end;
                      end;

                403: begin
                        if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+99)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                438: begin
                        if not((GetColor(mouseX,mouseY)= 2963520) or (GetColor(mouseX,mouseY)=3029313)) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+99)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;
                 end
             end;

        660: begin
                 case mouseY of
                228: begin
                        if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                263: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                298: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                333: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                368: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+134)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                403: begin
                         if not((GetColor(mouseX,mouseY)= 3160642) or (GetColor(mouseX,mouseY)= 2963520)) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+99)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                438: begin
                          if not((GetColor(mouseX,mouseY)= 2897215) or (GetColor(mouseX,mouseY)=2963008))then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+99)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;
                 end
             end;

        700: begin
                 case mouseY of
                228: begin
                        if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                             end;
                      end;

                263: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                             end;
                      end;

                298: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                333: begin
                         if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+150)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+104,mouseX,mouseY+111,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                368: begin
                          if not(GetColor(mouseX,mouseY)= 3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+134)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+89,mouseX,mouseY+97,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                403: begin
                        if not(GetColor(mouseX,mouseY)=3160642) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+99)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;

                438: begin
                       if not(GetColor(mouseX,mouseY)=2963520) then
                            begin
                            tryT:=0;
                            Result:=false;
                            Mouse(mouseX,mouseY,0,0,false);
                            wait(randomRange(180,200));
                            if (GetColor(mouseX,mouseY+99)=2432009) then
                              begin
                              MouseBox(mouseX-60,mouseY+54,mouseX,mouseY+62,1);
                              wait(randomRange(180,250));
                              end
                             else
                              begin
                              MouseBox(mouseX-50,mouseY+25,mouseX-10,mouseY+29,1);
                              wait(randomRange(180,250));
                              end;
                            end;
                      end;
                 end
             end;


        end

      end;
  end;
 end;

what are you trying to accomplish? complete deposit or deposit specific items?

From: HT BaaFly
what are you trying to accomplish? complete deposit or deposit specific items?

Deposit all expect 1st slot (where are nature runes)

use this, its something i made
just put the DTM's you dont want it to bank and it will bank everything else

procedure DepositAllButEx(Stuff: TIntegerArray);
var
  i, j, x, y, TempNumber, ItemColor: Integer;
  Box, Box1: TBox;
  SpecialItem, DupeItem: Boolean;
begin
  for i:=1 to 28 do
    if ExistsItem(i) then
    begin
      SpecialItem:= False;
      Box:= InvBox(i);
      writeln(length(Stuff));
      for j:=0 to High(Stuff) do
        if FindDTM(Stuff[j], x, y, Box.X1, Box.Y1, Box.X2, Box.Y2) then
          SpecialItem:= True;
      if not SpecialItem then
      begin
        DupeItem:= False;
        TempNumber:= CountColor(131072, Box.X1, Box.Y1, Box.X2, Box.Y2);
        ItemColor:= GetColor(Box.X1+15, Box.Y1+15);
        for j:=i+1 to 28 do
        begin
          GetInvItemBounds(i, Box1);
          if ((CountColor(131072, Box1.X1, Box1.Y1, Box1.X2, Box1.Y2) = TempNumber) and (GetColor(Box.X1+15, Box.Y1+15) = Itemcolor)) then
          begin
            DupeItem:= True;
            break;
          end;
        end;
        if DupeItem then
        begin
          MouseBox(Box.X1+5, Box.Y1+5, Box.X2-5, Box.Y2-5, 2);
          Wait(200+Random(300));
          ChooseOption('it-All');
          Wait(500+Random(300));
        end else
        begin
          MouseBox(Box.X1+5, Box.Y1+5, Box.X2-5, Box.Y2-5, 1);
          Wait(500+Random(300));
        end;
      end;
    end;
end; 

~shut