Results 1 to 4 of 4

Thread: Whats wrong with simba

  1. #1
    Join Date
    Oct 2011
    Posts
    207
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default Whats wrong with simba

    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)


    Code:
    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;
    Last edited by djborec; 01-05-2012 at 02:57 PM.

  2. #2
    Join Date
    Oct 2008
    Posts
    196
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default

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

  3. #3
    Join Date
    Oct 2011
    Posts
    207
    Mentioned
    1 Post(s)
    Quoted
    20 Post(s)

    Default

    Quote Originally Posted by HT BaaFly View Post
    what are you trying to accomplish? complete deposit or deposit specific items?
    Deposit all expect 1st slot (where are nature runes)

  4. #4
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

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

    Simba Code:
    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •