Results 1 to 12 of 12

Thread: Dj's low cpu steel superheater

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

    Default Dj's low cpu steel superheater

    LOW CPU STEEL SUPERHEATER

    @Credits go also to UltraSteel Heater by CRU1Z1N, which helped me with GUI and some other parts.

    Something about this script:

    • This script do not use any pre-made method for banking , any DTMs - it use only color detecting of one exact pixel , therefore it eats half less CPU then other SuperHeating scripts
    • This script does not have AntiRandom, because antirandoms use DTM and other methods which increase use of CPU and some of built in antirandoms are not working very great
    • This script keeps playing beep sound ,if you are in random ,so you can notice it and do random on your own, do not forgot to pause script so you will not hear beeping and do not forgot to claim and bank reward from random (please do not bank anything else expect reward in inventory).
    • This scripts is also dedicated to use in Lag Computers (so e.g. I use 5 of these scripts ,they lag ,but they give result of 50k exp/hr on each of 5 accs, while on same I could only run 2 other superheating scripts with lagging too)
    • This script will also warn you with beeping that something is going wrong in banking ,but this script can not type in your bank pin ,you have to do it manually first time , I am sorry , I will add this feature maybe in future.
    • Do not forgot FPS use in Smart set on minimum, its scroll bar in S.M.A.R.T. window on right.



    Requipments for using this script:

    -in game:
    • 43 magic
    • 30 smithing


    -settings:
    • Bank should look like this:
    • Inventory should look like this:
    • Script only works in east part of west Varrock bank. You have to stand next to a Bank booth.

    • Make sure your spellbook is set same as on picture:
    • Make sure ,that your grafic (especially brightness settings are same)
    • Make sure ,you have winthdraw 9 on quick winthdraw option in bank like in picture


    To do list:

    • Antiban - magic skill hovering, random camera moving
    • All ores superheater
    • Better bank check-DONE



    Instalation notes:

    • Copy beep-1.wav from attached files or from this link: beep-1.wav or any other sound named beep-1.wav , you want to hear when account gets into random into C:\Simba\Includes\
    • Copy the script into simba and fill username , password and pin into it .

    find part of code and fillout missing places
    Code:
    NumberOfPlayers(1);
       CurrentPlayer := 0;
       Players[0].Name := '  Here write your login  ';
       Players[0].Pass := '  Here write your password   ';
       Players[0].Pin := '  Here write any 4 numbers or leave 0000  ';
       Players[0].Active := True;

    Here is the script:

    Simba Code:
    program LowCpuHeater;
    {$I SRL/SRL/misc/smart.simba}
    {$I SRL/SRL.simba}

    const
      BnkTab = 2;
       Mspeed = 18;

    var
      frmDesign: TForm;
      Button1: TButton;
      Label1: TLabel;
      BarType: TComboBox;
      HowManyBars: TEdit;
      iHowManyBars,BarsMade,Bars,colorB,waitT: Integer;
      Debug:string;
      EndScript:boolean;

    procedure SetupPlayers;
    begin
       NumberOfPlayers(1);
       CurrentPlayer := 0;
       Players[0].Name := 'here login';
       Players[0].Pass := 'password';
       Players[0].Pin := '0000';
       Players[0].Active := True;
    end;

    Procedure ButtonClick(Sender: TObject);
    Begin
      frmDesign.ModalResult:= mrOk;
      iHowManyBars:= StrToInt(HowManyBars.Text);


    End;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 100;
      frmDesign.Top := 100;
      frmDesign.Width := 380;
      frmDesign.Height := 200;
      frmDesign.Caption := 'COLOR SUPERHEATER edited by djborec!';
      frmDesign.Color := 16241783;
      frmDesign.Font.Color := ClBlack;
      frmDesign.Font.Name := 'Comic Sans MS';

      Button1 := TButton.Create(FrmDesign);
      Button1.Parent := FrmDesign;
      Button1.Left := 260;
      Button1.Top := 60;
      Button1.Height := 100;
      Button1.Width := 100;
      Button1.Caption := 'Run Script';
      Button1.OnClick := @ButtonClick;


      Label1 := TLabel.Create(FrmDesign);
      Label1.Parent := FrmDesign;
      Label1.Top := 90;
      Label1.Left := 10;
      Label1.Caption := 'How Many Bars?';







      HowManyBars := TEdit.Create(FrmDesign);
      HowManyBars.Parent := FrmDesign;
      HowManyBars.Top := 90;
      HowManyBars.Left := 135;
      HowManyBars.Width := 60;
      HowManyBars.Height := 10;




    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure LogOut2;

    begin
                                    if not(GetColor(371,464)=12378347) then
                                    begin
                                    writeln('You were stuck in random  - logging out to lobby');
                                    MouseBox(748,4,760,16,1);
                                    waitT:=0;
                                    repeat
                                    wait(randomRange(40,60));
                                    inc(waitT);
                                    until (GetColor(600,356)=16777215) or (waitT>150);

                                    waitT:=0;
                                    if not(GetColor(600,356)=16777215) then
                                      repeat
                                      MouseBox(748,4,760,16,1);
                                      wait(randomRange(500,800));
                                      if waitT>100 then begin
                                                        repeat
                                                        PlaySound('C:\Simba\Includes\beep-1.wav');
                                                        writeln('Can not log out');
                                                        wait(randomRange(3000,5000));
                                                        StopSound;
                                                        wait(randomRange(5000,7000));
                                                        until (GetColor(600,356)=16777215);
                                                        end;
                                      inc(waitT);
                                      until GetColor(600,356)=16777215;

                                   waitT:=0;
                                   MouseBox(571,350,710,373,1);
                                   repeat
                                   wait(randomRange(40,60));
                                   inc(waitT);
                                   until (GetColor(371,464)=12378347) or (waitT>200)

                                   waitT:=0;
                                   if not(GetColor(371,464)=12378347) then
                                      repeat
                                      MouseBox(748,4,760,16,1);
                                      wait(randomRange(500,800));
                                      inc(waitT);
                                      MouseBox(571,350,710,373,1);
                                      wait(randomRange(500,800));
                                      if waitT>100 then begin
                                                        repeat
                                                        PlaySound('C:\Simba\Includes\beep-1.wav');
                                                        writeln('Can not log out');
                                                        wait(randomRange(3000,5000));
                                                        StopSound;
                                                        wait(randomRange(5000,7000));
                                                        until(GetColor(371,464)=12378347);
                                                        end;
                                      until(GetColor(371,464)=12378347);
                                   end;
                                   EndScript:=true;
                                  end;

    procedure LogOut3;

    begin
                                    if not(GetColor(371,464)=12378347) then
                                    begin
                                    writeln('You were stuck in bank  - logging out to lobby');
                                    MouseBox(483,30,494,38,1);
                                    waitT:=0;
                                    repeat
                                    wait(randomRange(40,60));
                                    inc(waitT);
                                    until not(GetColor(376,311)=2052490) or (waitT>150);

                                    waitT:=0;
                                    if (GetColor(376,311)=2052490) then
                                        repeat
                                        MouseBox(483,30,494,38,1);
                                        wait(randomRange(500,800));
                                        if waitT>100 then begin
                                                        repeat
                                                        PlaySound('C:\Simba\Includes\beep-1.wav');
                                                        writeln('Can not log out');
                                                        wait(randomRange(3000,5000));
                                                        StopSound;
                                                        wait(randomRange(5000,7000));
                                                        until (GetColor(600,356)=16777215);
                                                        end;
                                       inc(waitT);
                                       until not(GetColor(376,311)=2052490);

                                    MouseBox(748,4,760,16,1);
                                    waitT:=0;
                                    repeat
                                    wait(randomRange(40,60));
                                    inc(waitT);
                                    until (GetColor(600,356)=16777215) or (waitT>150);

                                    waitT:=0;
                                    if not(GetColor(600,356)=16777215) then
                                      repeat
                                      MouseBox(748,4,760,16,1);
                                      wait(randomRange(500,800));
                                      if waitT>100 then begin
                                                        repeat
                                                        PlaySound('C:\Simba\Includes\beep-1.wav');
                                                        writeln('Can not log out');
                                                        wait(randomRange(3000,5000));
                                                        StopSound;
                                                        wait(randomRange(5000,7000));
                                                        until (GetColor(600,356)=16777215);
                                                        end;
                                      inc(waitT);
                                      until GetColor(600,356)=16777215;

                                   waitT:=0;
                                   MouseBox(571,350,710,373,1);
                                   repeat
                                   wait(randomRange(40,60));
                                   inc(waitT);
                                   until (GetColor(371,464)=12378347) or (waitT>200)

                                   waitT:=0;
                                   if not(GetColor(371,464)=12378347) then
                                      repeat
                                      MouseBox(748,4,760,16,1);
                                      wait(randomRange(500,800));
                                      inc(waitT);
                                      MouseBox(571,350,710,373,1);
                                      wait(randomRange(500,800));
                                      if waitT>100 then begin
                                                        repeat
                                                        PlaySound('C:\Simba\Includes\beep-1.wav');
                                                        writeln('Can not log out');
                                                        wait(randomRange(3000,5000));
                                                        StopSound;
                                                        wait(randomRange(5000,7000));
                                                        until(GetColor(371,464)=12378347);
                                                        end;
                                      until(GetColor(371,464)=12378347);
                                   end;
                                   EndScript:=true;
                                   end;

    procedure Banking;
    var
    mouseX,mouseY,x,y:integer;


    begin


      if not(LoggedIn) then Exit;

           // Right click on bank -------------------------------------------------
           if not(EndScript) then
           begin
           mouseX:=randomRange(299,310);
           mouseY:=randomRange(145,155);
           Mouse(mouseX , mouseY , 0, 0, False);
           repeat
           wait(randomRange(20,40));
           inc(waitT);
           until(GetColor(mouseX,mouseY+7)=923160) or (waitT>150);

           waitT:=0;
           if not(GetColor(mouseX,mouseY+7)=923160) then
               repeat
                if (waitT>0) and (waitT<=15) then
                begin
                MouseBox(531,12,552,30,1);
                mouseX:=randomRange(299,310);
                mouseY:=randomRange(145,155);
                Mouse(mouseX , mouseY , 0, 0, False);
                wait(40);
                end;

                if (waitT>15) and (waitT<=1000) then
                                  begin
                                    PlaySound('C:\Simba\Includes\beep-1.wav');
                                    writeln('You are in random! - detected while trying to open bank - please OPEN BANK AFTER RANDOM IS COMPLETED!');
                                    StopSound;
                                  end;

                if (waitT>1000) then LogOut2;

                if (EndScript=true) then break;
                 wait(randomRange(500,800));
                 inc(waitT);
              until (GetColor(376,311)=2052490);
           end;
           //---------------------------------------------------------------------





           //Left click open bank -----------------------------------------------
           if not(EndScript) then
           begin
           if not(GetColor(376,311)=2052490) then
           begin
           waitT:=0;
           MouseBox(mouseX-72,mouseY+37,mouseX+72,mouseY+51,1);
           repeat
           wait(randomRange(20,40));
           inc(waitT);
           until (GetColor(376,311)=2052490) or (waitT>150);

           waitT:=0;
           if not(GetColor(376,311)=2052490) then
               repeat
                 if (waitT>0) and (waitT<=15) then
                 begin
                 MouseBox(531,12,552,30,1);
                 wait(randomRange(250,600));
                 mouseX:=randomRange(308,322);
                 mouseY:=randomRange(142,155);
                 Mouse(mouseX , mouseY , 0, 0, False);
                 wait(randomRange(500,700));
                 MouseBox(mouseX-72,mouseY+37,mouseX+72,mouseY+51,1);
                 end;

                 if (waitT>15) and (waitT<=1000) then begin
                                                      PlaySound('C:\Simba\Includes\beep-1.wav');
                                                      writeln('You are in random! - detected while trying to open bank - please OPEN BANK AFTER RANDOM IS COMPLETED!');
                                                      StopSound;
                                                      end;

                 if (waitT>1000) then LogOut2;

                 if (EndScript=true) then break;

                 inc(waitT);
                 wait(randomRange(500,700));
               until (GetColor(376,311)=2052490);
           end;
           end;
            //---------------------------------------------------------------------





           //Deposit all steel bars made - right Click -----------------------------
           if not(EndScript) then
           begin
           waitT:=0;
           mouseX:=randomRange(608,636);
           mouseY:=randomRange(216,237);
           Mouse(mouseX,mouseY,0,0,False);
           repeat
           wait(randomRange(20,40));
           inc(waitT);
           until(GetColor(mouseX,mouseY+3)=659730) or (waitT>150);

           waitT:=0;
           if not(GetColor(mouseX,mouseY+3)=659730) then
               repeat
                 if (waitT>0) and (waitT<=30) then
                 begin
                 mouseX:=randomRange(608,636);
                 mouseY:=randomRange(216,237);
                 Mouse(mouseX,mouseY,0,0,False);
                 end;

                 if (waitT>30) and (waitT<=1000) then begin
                                                      PlaySound('C:\Simba\Includes\beep-1.wav');
                                                      writeln('Script could not deposit steel bars - please DEPOSIT ALL STEEL BARS ON YOUR OWN ');
                                                      StopSound;
                                                      end;

                if (waitT>1000) then LogOut3;

                if (EndScript=true) then break;

                inc(waitT);
                wait(randomRange(500,700));
                until (GetColor(mouseX,mouseY+3)=659730);
            end;
            //---------------------------------------------------------------------


           //Deposit all steel bars - Left click in menu and check ---------------
           if not(EndScript) then
           begin

                 if (GetColor(mouseX,mouseY+152)=16711422) then
                 begin
                  waitT:=0;
                  MouseBox(mouseX-63,mouseY+101,mouseX+63,mouseY+115,1);
                  repeat
                  wait(randomRange(20,40));
                  inc(waitT);
                  until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) or (waitT>150);

                  waitT:=0;
                  if not((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) then
                    repeat
                    if (waitT>0) and (waitT<=15) then
                    begin
                    mouseX:=randomRange(608,636);
                    mouseY:=randomRange(216,237);
                    Mouse(mouseX,mouseY,0,0,False);
                    wait(randomRange(500,700));
                    MouseBox(mouseX-63,mouseY+101,mouseX+63,mouseY+115,1);
                    end;

                    if (waitT>15) and (waitT<=1000) then begin
                                                          PlaySound('C:\Simba\Includes\beep-1.wav');
                                                          writeln('Script could not deposit steel bars - please DEPOSIT ALL STEEL BARS ON YOUR OWN ');
                                                          StopSound;
                                                          end;
                    if (waitT>1000) then LogOut3;

                    if (EndScript=true) then break;

                    inc(waitT);
                    wait(randomRange(400,500));
                    until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100));
                  end;


                 if (GetColor(mouseX,mouseY+136)=16711422) then
                 begin
                  waitT:=0;
                  MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
                  repeat
                  wait(randomRange(20,40));
                  inc(waitT);
                  until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) or (waitT>150);

                  waitT:=0;
                  if not((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) then
                    repeat
                    if (waitT>0) and (waitT<=15) then
                    begin
                    mouseX:=randomRange(608,636);
                    mouseY:=randomRange(216,237);
                    Mouse(mouseX,mouseY,0,0,False);
                    wait(randomRange(500,700));
                    MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
                    end;

                    if (waitT>15) and (waitT<=1000) then begin
                                                          PlaySound('C:\Simba\Includes\beep-1.wav');
                                                          writeln('Script could not deposit steel bars - please DEPOSIT ALL STEEL BARS ON YOUR OWN ');
                                                          StopSound;
                                                          end;
                    if (waitT>1000) then LogOut3;

                    if (EndScript=true) then break;

                    inc(waitT);
                    wait(randomRange(400,500));
                    until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100));
                  end;

            end;
            //---------------------------------------------------------------------

           wait(randomRange(750,1000));

            //Check bank slot number 10--------------------------------------------
            if not(EndScript) then
            begin

               //if ( (not((GetColor(620,300)-3358535>-100) and (GetColor(620,300)-3358535<100))) or (not((GetColor(620,300)-3424071>-100) and (GetColor(620,300)-3424071<100))) ) then
               if ((GetColor(620,300)<3300000) or (GetColor(620,300)>3500000)) then
                begin

                //-----------Bank slot 10 - right click ----------------------------
                waitT:=0;
                mouseX:=randomRange(610,629);
                mouseY:=randomRange(290,308);
                Mouse(mouseX,mouseY,0,0,false);
                repeat
                wait(randomRange(10,40));
                inc(waitT);
                until (GetColor(mouseX,mouseY+3)=659730) or (waitT>50);

                waitT:=0;
                if not(GetColor(mouseX,mouseY+3)=659730) then              ;
                  repeat
                  if (waitT>0) and (waitT<=15) then
                  begin
                  mouseX:=randomRange(610,629);
                  mouseY:=randomRange(290,308);
                  Mouse(mouseX,mouseY,0,0,false);
                  end;

                  if (waitT>15) and (waitT<=1000) then begin
                                                       PlaySound('C:\Simba\Includes\beep-1.wav');
                                                       writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                       StopSound;
                                                       end;

                  if (waitT>1000) then LogOut3;

                  if (EndScript=true) then break;

                  inc(waitT);
                  wait(randomRange(500,700));
                  until ((waitT<16)and(GetColor(mouseX,mouseY+3)=659730)) or ((waitT>15) and  ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)));

                  //---------Bank slot 10 - Left clik deposit---------------------
                  if not(EndScript) then
                  begin
                      //----Left click deposit ALL--------------------------------
                      if (GetColor(mouseX,mouseY+152)=16711422) then
                      begin
                      waitT:=0;
                      MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
                      repeat
                      wait(40)
                      inc(waitT);
                      until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));

                      waitT:=0;
                      if not((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)) then
                        repeat
                        if (waitT>0) and (waitT<=15) then
                        begin
                        mouseX:=randomRange(610,629);
                        mouseY:=randomRange(290,308);
                        Mouse(mouseX,mouseY,0,0,false);
                        wait(randomRange(500,700));
                        MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
                        end;

                        if (waitT>15) and (waitT<=1000) then begin
                                                              PlaySound('C:\Simba\Includes\beep-1.wav');
                                                              writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                              StopSound;
                                                             end;
                        if (waitT>1000) then LogOut3;

                        if (EndScript=true) then break;
                        inc(waitT);
                        wait(randomRange(500,700));
                        until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
                       end;

                      //----Left click deposit ALL, if object<=5 ------------------
                      if (GetColor(mouseX,mouseY+136)=16711422) then
                      begin
                      waitT:=0;
                      MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
                      repeat
                      wait(40)
                      inc(waitT);
                      until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));

                      waitT:=0;
                      if not((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)) then
                        repeat
                        if (waitT>0) and (waitT<=15) then
                        begin
                        mouseX:=randomRange(610,629);
                        mouseY:=randomRange(290,308);
                        Mouse(mouseX,mouseY,0,0,false);
                        wait(randomRange(500,700));
                        MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
                        end;

                        if (waitT>15) and (waitT<=1000) then begin
                                                              PlaySound('C:\Simba\Includes\beep-1.wav');
                                                              writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                              StopSound;
                                                             end;
                        if (waitT>1000) then LogOut3;

                        if (EndScript=true) then break;
                        inc(waitT);
                        wait(randomRange(500,700));
                        until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
                       end;

                       //----Left click deposit ALL, if object = 1 ----------------
                      if (GetColor(mouseX,mouseY+72)=16711422) then
                      begin
                      waitT:=0;
                      MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
                      repeat
                      wait(40)
                      inc(waitT);
                      until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));

                      waitT:=0;
                      if not((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)) then
                        repeat
                        if (waitT>0) and (waitT<=15) then
                        begin
                        mouseX:=randomRange(610,629);
                        mouseY:=randomRange(290,308);
                        Mouse(mouseX,mouseY,0,0,false);
                        wait(randomRange(500,700));
                        MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
                        end;

                        if (waitT>15) and (waitT<=1000) then begin
                                                              PlaySound('C:\Simba\Includes\beep-1.wav');
                                                              writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                              StopSound;
                                                             end;
                        if (waitT>1000) then LogOut3;

                        if (EndScript=true) then break;
                        inc(waitT);
                        wait(randomRange(500,700));
                        until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
                       end;

                   end;
                   MoveMouse(mouseX+randomRange(-100,150),mouseY+randomRange(-100,150));
                   wait(randomRange(400,600));
                 end;

              end;
              //--------------------------------------------------------------------


             //Check bank slot number 11--------------------------------------------
            if not(EndScript) then
            begin

               if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
                begin
                //-----------Bank slot 11 - right click ----------------------------
                waitT:=0;
                mouseX:=randomRange(650,670);
                mouseY:=randomRange(290,307);
                Mouse(mouseX,mouseY,0,0,false);
                repeat
                wait(randomRange(10,40));
                inc(waitT);
                until (GetColor(mouseX,mouseY+3)=659730) or (waitT>50);

                waitT:=0;
                if not(GetColor(mouseX,mouseY+3)=659730) then              ;
                  repeat
                  if (waitT>0) and (waitT<=15) then
                  begin
                  mouseX:=randomRange(650,670);
                  mouseY:=randomRange(290,307);
                  Mouse(mouseX,mouseY,0,0,false);
                  end;

                  if (waitT>15) and (waitT<=1000) then begin
                                                       PlaySound('C:\Simba\Includes\beep-1.wav');
                                                       writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                       StopSound;
                                                       end;

                  if (waitT>1000) then LogOut3;

                  if (EndScript=true) then break;

                  inc(waitT);
                  wait(randomRange(500,700));
                  until (GetColor(mouseX,mouseY+3)=659730);

                  //---------Bank slot 11 - Left clik deposit---------------------
                  if not(EndScript) then
                  begin
                      //----Left click deposit ALL--------------------------------
                      if (GetColor(mouseX,mouseY+152)=16711422) then
                      begin
                      waitT:=0;
                      MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
                      repeat
                      wait(40)
                      inc(waitT);
                      until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));

                      waitT:=0;
                      if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
                        repeat
                        if (waitT>0) and (waitT<=15) then
                        begin
                        mouseX:=randomRange(650,670);
                        mouseY:=randomRange(290,307);
                        Mouse(mouseX,mouseY,0,0,false);
                        wait(randomRange(500,700));
                        MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
                        end;

                        if (waitT>15) and (waitT<=1000) then begin
                                                              PlaySound('C:\Simba\Includes\beep-1.wav');
                                                              writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                              StopSound;
                                                             end;
                        if (waitT>1000) then LogOut3;

                        if (EndScript=true) then break;
                        inc(waitT);
                        wait(randomRange(500,700));
                        until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
                       end;

                      //----Left click deposit ALL, if object<=5 ------------------
                      if (GetColor(mouseX,mouseY+136)=16711422) then
                      begin
                      waitT:=0;
                      MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
                      repeat
                      wait(40)
                      inc(waitT);
                      until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));

                      waitT:=0;
                      if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
                        repeat
                        if (waitT>0) and (waitT<=15) then
                        begin
                        mouseX:=randomRange(650,670);
                        mouseY:=randomRange(290,307);
                        Mouse(mouseX,mouseY,0,0,false);
                        wait(randomRange(500,700));
                        MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
                        end;

                        if (waitT>15) and (waitT<=1000) then begin
                                                              PlaySound('C:\Simba\Includes\beep-1.wav');
                                                              writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                              StopSound;
                                                             end;
                        if (waitT>1000) then LogOut3;

                        if (EndScript=true) then break;
                        inc(waitT);
                        wait(randomRange(500,700));
                        until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
                       end;

                       //----Left click deposit ALL, if object = 1 ----------------
                      if (GetColor(mouseX,mouseY+72)=16711422) then
                      begin
                      waitT:=0;
                      MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
                      repeat
                      wait(40)
                      inc(waitT);
                      until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));

                      waitT:=0;
                      if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
                        repeat
                        if (waitT>0) and (waitT<=15) then
                        begin
                        mouseX:=randomRange(650,670);
                        mouseY:=randomRange(290,307);
                        Mouse(mouseX,mouseY,0,0,false);
                        wait(randomRange(500,700));
                        MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
                        end;

                        if (waitT>15) and (waitT<=1000) then begin
                                                              PlaySound('C:\Simba\Includes\beep-1.wav');
                                                              writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
                                                              StopSound;
                                                             end;
                        if (waitT>1000) then LogOut3;

                        if (EndScript=true) then break;
                        inc(waitT);
                        wait(randomRange(500,700));
                        until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
                       end;

                   end;
                 end;
              end;
              //--------------------------------------------------------------------


          //Winthdraw 9 iron ores - right click on 1st bank slot --------------------
            if not(EndScript) then
            begin
            waitT:=0;
            mouseX:=randomRange(46,65);
            mouseY:=randomRange(95,116);
            Mouse(mouseX,mouseY,0,0,false);
            repeat
            wait(randomRange(120,150));
            inc(waitT);
            until (GetColor(mouseX,mouseY+3)=659730) or (waitT>150);

            waitT:=0;
            if not(GetColor(mouseX,mouseY+3)=659730) then
               repeat
               if (waitT>0) and (waitT<=15) then
               begin
                mouseX:=randomRange(46,65);
                mouseY:=randomRange(95,116);
                Mouse(mouseX,mouseY,0,0,false);
               end;

               if (waitT>15) and (waitT<=1000) then begin
                                                    PlaySound('C:\Simba\Includes\beep-1.wav');
                                                    writeln('Could not winthdraw 9 iron ores - please WINTHDRAW 9 IRON ORES MANUALY');
                                                    StopSound;
                                                   end;

               if (waitT>1000) then LogOut3;

               if (EndScript=true) then break;

               inc(waitT);
               wait(randomRange(500,700));

               until (GetColor(mouseX,mouseY+3)=659730);
             end;
           //-----------------------------------------------------------------------

           //Winthdraw 9 iron ores - left click on menu ---------------------------
           if not(EndScript) then
           begin
            if ((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535)) then
            begin
            waitT:=0;
            MouseBox(8,mouseY+72,170,mouseY+79,1);
            repeat
            wait(randomRange(1,10));
            inc(waitT);
            until  (not((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535))) or (waitT>1500) ;

            waitT:=0;
            if ((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535)) then
              repeat
              if (waitT>0) and (waitT<=15) then
                begin
                mouseX:=randomRange(46,65);
                mouseY:=randomRange(95,116);
                Mouse(mouseX,mouseY,0,0,false);
                wait(randomRange(500,700));
                MouseBox(8,mouseY+73,170,mouseY+80,1);
                end;

                if (waitT>15) and (waitT<=1000) then begin
                                                      PlaySound('C:\Simba\Includes\beep-1.wav');
                                                      writeln('Could not winthdraw 9 iron ores - please WINTHDRAW 9 IRON ORES MANUALY');
                                                      StopSound;
                                                     end;
               if (waitT>1000) then LogOut3;

               if (EndScript=true) then break;

               inc(waitT);
               wait(randomRange(500,700));
               until not((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535));
              end;
            end;
            //----------------------------------------------------------------------

         //Winthdraw all coal ores - right click 2nd bank slot----------------------
            if not(EndScript) then
            begin
            waitT:=0;
            mouseX:=randomRange(85,109);
            mouseY:=randomRange(92,116);
            Mouse(mouseX,mouseY,0,0,false);
            repeat
            wait(randomRange(80,100));
            inc(waitT);
            until (GetColor(mouseX,mouseY+3)=659730) or (waitT>150);

            waitT:=0;
            if not(GetColor(mouseX,mouseY+3)=659730) then
               repeat
                if (waitT>0) and (waitT<=15) then
                begin
                mouseX:=randomRange(85,109);
                mouseY:=randomRange(92,116);
                Mouse(mouseX,mouseY,0,0,false);
                end;

                if (waitT>15) and (waitT<=1000) then begin
                                                      PlaySound('C:\Simba\Includes\beep-1.wav');
                                                      writeln('Could not winthdraw coal ores - please WINTHDRAW COAL ORES MANUALY');
                                                      StopSound;
                                                     end;
               if (waitT>1000) then LogOut3;

               if (EndScript=true) then break;

               inc(waitT);
               wait(randomRange(500,700));
               until (GetColor(mouseX,mouseY+3)=659730);
             end;
            //----------------------------------------------------------------------

         //Winthdraw all coal ores - left click 2nd bank slot----------------------
         if not(EndScript) then
         begin


            waitT:=0;
            MouseBox(mouseX-77,mouseY+103,mouseX+76,mouseY+111,1);
            repeat
            wait(randomRange(60,80));
            inc(waitT);
            until (not(GetColor(663,301)=3160642)) or (not(GetColor(663,301)=3160642)) or (waitT>150);

            waitT:=0;
            if (GetColor(663,301)=3160642) or (GetColor(663,301)=3160642) then
              repeat
               if (waitT>0) and (waitT<=15) then
               begin
                mouseX:=randomRange(85,109);
                mouseY:=randomRange(92,116);
                Mouse(mouseX,mouseY,0,0,false);
                wait(randomRange(500,700));
                MouseBox(mouseX-77,mouseY+100,mouseX+76,mouseY+112,1);
               end;

                 if (waitT>15) and (waitT<=1000) then begin
                                                      PlaySound('C:\Simba\Includes\beep-1.wav');
                                                      writeln('Could not winthdraw coal ores - please WINTHDRAW COAL ORES MANUALY');
                                                      StopSound;
                                                     end;

                 if (waitT>1000) then LogOut3;

                 if (EndScript=true) then break;

               inc(waitT);
               wait(randomRange(500,700));
               until (not(GetColor(663,301)=3160642)) or (not(GetColor(663,301)=3160642));

          end;
           //----------------------------------------------------------------------


           //Close bank------------------------------------------------------------
           if not(EndScript) then
           begin
           waitT:=0;
           MouseBox(485,30,491,38,1);
           repeat
           wait(randomRange(20,40));
           inc(waitT);
           until (GetColor(598,185)=6132050) or (waitT>150);

           waitT:=0;
           if not(GetColor(598,185)=6132050) then
               repeat
               if (waitT>0) and (waitT<=15) then MouseBox(485,30,491,38,1);

               if (waitT>15) and (waitT<=1000) then begin
                                                      PlaySound('C:\Simba\Includes\beep-1.wav');
                                                      writeln('Could not winthdraw coal ores - please WINTHDRAW COAL ORES MANUALY');
                                                      StopSound;
                                                     end;
                if (waitT>1000) then LogOut3;

                if (EndScript=true) then break;

               inc(waitT);
               wait(randomRange(500,700));
              until (GetColor(598,185)=6132050);
          end;


    end;


    procedure proggy;
    begin
      cleardebug;
      if ((GetTimeRunning>300000) and ((Round((BarsMade*53 * 3600) / (GetTimeRunning / 1000)))<30000) ) then
                                                                                begin
                                                                                 PlaySound('C:\Simba\Includes\beep-1.wav');
                                                                                 writeln('Exp rate is very low ! ');
                                                                                 wait(1000);
                                                                                 StopSound;
                                                                                end;
      writeln(PadR('[ Cpu low magic ', 50) + ']');
      writeln(PadR('[               Ran for '+TimeRunning+'', 50) + ']');
      WriteLn(PadR('[Magic xp : ' + IntToStr(BarsMade*53), 50) + ']');
      WriteLn(PadR('[Magic : ' + FloatToStr(Round((BarsMade*53 * 3600) / (GetTimeRunning / 1000))) + ' Mage XP/Hr', 50) + ']');


    end;

    procedure DoSmelting;
    var
    i,tab_invf,waitT:integer;
    inRandom:boolean;
    begin
     waitT:=0;
     inRandom:=false;

       for i:=1 to 9 do
       begin
       inRandom:=false;
       //If not on tab_magic-------------------------------------------------------
       if not(EndScript) then
       begin

        if not(GetColor(743,171)=4296613) then
        begin
         waitT:=0;
         MouseBox(732,170,761,202,1);
         repeat
         wait(randomRange(5,10));
         inc(waitT);
         until (GetColor(743,171)=4296613) or (waitT>300);

         waitT:=0;
         if not(GetColor(743,171)=4296613) then
          repeat
          if (waitT>0) and (waitT<=15) then  MouseBox(732,170,761,202,1);

          if (waitT>15) and (waitT<=1000) then begin
                                               PlaySound('C:\Simba\Includes\beep-1.wav');
                                               writeln('You are in random - please open tab magic after random is done');
                                               StopSound;
                                               end;
          if (waitT>1000) then LogOut2;

          if (EndScript=true) then break;

          inc(waitT);
          wait(randomRange(500,700));
          until (GetColor(743,171)=4296613);
          end;
         end;


       //Click on superheating -----------------------------------------------------
       if ((GetColor(623,332)=3203581) or (GetColor(623,332)=3269117)) then
       begin
          if not(EndScript) then
          waitT:=0;
          MouseBox(616,316,628,332,1);

          repeat
            wait(randomRange(50,100));
            inc(waitT);
          until (GetColor(642,170)=9764606) or (waitT>20);

          waitT:=0;
          if not(GetColor(642,170)=9764606) then
           repeat
            if (waitT>0) and (waitT<=15) then
            begin
            MouseBox(732,170,761,202,1);
            wait(randomRange(500,700));
            MouseBox(616,316,628,332,1);
            end;

            if (waitT>15) and (waitT<=1000) then begin
                                                 PlaySound('C:\Simba\Includes\beep-1.wav');
                                                 writeln('You are in random - please make sure, that you are on tab_inventory after random is done');
                                                 StopSound;
                                                 end;
            if (waitT=16) then inRandom:=true;

            if (waitT>1000) then LogOut2;

            if (EndScript=true) then break;

            inc(waitT);
            wait(randomRange(500,700));

            until  (GetColor(642,170)=9764606);
          end
        else
        repeat
        PlaySound('C:\Simba\Includes\beep-1.wav');
        writeln('Out of runes!');
        wait(40);
        StopSound;
        until(GetColor(623,332)=3203581) or (GetColor(623,332)=3269117);


      //Click on iron ore
         if not(EndScript) then
         begin
            if (inRandom) then
                begin

                waitT:=0;
                MouseBox(732,170,761,202,1);
                repeat
                  wait(randomRange(5,10));
                  inc(waitT);
                until (GetColor(743,171)=4296613) or (waitT>300);

                if ((GetColor(623,332)=3203581) or (GetColor(623,332)=3269117)) then
                begin
                waitT:=0;
                MouseBox(616,316,628,332,1);

                repeat
                  wait(randomRange(50,100));
                  inc(waitT);
                until (GetColor(642,170)=9764606) or (waitT>20);
                end
                else
                begin BarsMade:=BarsMade-1; end;
                inRandom:=false;
                end;

         MouseBox(606,285,629,312,1);
         waitT:=0;
         repeat
         wait(randomRange(300,450));
         inc(waitT);
         until (GetColor(743,171)=4296613) or (waitT>30);

         waitT:=0;
         if not(GetColor(743,171)=4296613) then
            repeat
            if (waitT>0) and (waitT<=15) then
            begin
            MouseBox(732,170,761,202,1);
            wait(randomRange(500,700));
            MouseBox(616,316,628,332,1);
            wait(randomRange(500,700));
            MouseBox(606,285,629,312,1);
            end;

            if (waitT>15) and (waitT<=1000) then begin
                                                 PlaySound('C:\Simba\Includes\beep-1.wav');
                                                 writeln('You are in random - please make sure, that you are on tab_inventory after random is done');
                                                 StopSound;
                                                 end;
            if (waitT=16) then inRandom:=true;

            if (waitT>1000) then LogOut2;

            if (EndScript=true) then break;

            inc(waitT);
            wait(randomRange(500,700));
            until(GetColor(743,171)=4296613);
         end;

         if  (inRandom) then begin BarsMade:=BarsMade-1; inRandom:=false; end;
         inc(BarsMade);
         proggy;
       end;
       end;





    Procedure Main;
    begin
        MouseBox(531,12,552,30,1);
        EndScript:=false;
      repeat
        MouseSpeed:= (Mspeed + RandomRange(-1, 3));
        Banking;
        DoSmelting;
      until (BarsMade>=iHowManyBars) or (EndScript);
    end;

    begin
        Smart_Server :=10;
        Smart_Members :=False;
        Smart_Signed := True;
        Smart_SuperDetail := False;
        SetupSRL;
        SetupPlayers;
        ActivateClient;
        if not LoggedIn then LogInPlayer;
        SafeInitForm;
        SafeShowFormModal;
        SetAngle(SRL_ANGLE_HIGH);
        Main;
    end.
    Last edited by djborec; 01-16-2012 at 10:45 PM.

  2. #2
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    The whole script is based of Random ranges of Boxes, getcolor and waits(from quick glances). In my opinion this can be very unstable in some situations. But i don't think this will save that much for your CPU anyway.

    Edit: Please try to fix your standards.

    Simba Code:
    Procedure Main;
    begin
      MouseBox(531,12,552,30,1);
      repeat
        MouseSpeed:= (Mspeed + RandomRange(-1, 3));
        Banking;
        Bars:=0;
        DoSmelting(10,9);
      until (BarsMade>=iHowManyBars);
    end;

    begin
      SafeInitForm;
      SafeShowFormModal;
      Smart_Server :=10;
      Smart_Members :=False;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      SetupPlayers;
      ActivateClient;
      if not LoggedIn then
        LogInPlayer;
      SetAngle(SRL_ANGLE_HIGH);
      Main;
    end.

    Here's a start .
    Last edited by Tickyy; 01-15-2012 at 09:06 PM.
    Hi

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

    Default

    Quote Originally Posted by Tickyy View Post
    The whole script is based of Random ranges of Boxes, getcolor and waits(from quick glances). In my opinion this can be very unstable in some situations. But i don't think this will save that much for your CPU anyway.
    Yes therefore there is lot of fail safes. But I wanted script like that ,because I have shitty comp and I could not run more then one script or two lagging simbas. And just wanted to share with us, I know that DTM and other method scripts are much safer for use ,but well they also eats more CPU. Anyway its my first script for Simba. Maybe if I will buy new notebook, I will go and try programming wine of zamorak grabber using DTM and built in methods.

  4. #4
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by djborec View Post
    Yes therefore there is lot of fail safes. But I wanted script like that ,because I have shitty comp and I could not run more then one script or two lagging simbas. And just wanted to share with us, I know that DTM and other method scripts are much safer for use ,but well they also eats more CPU. Anyway its my first script for Simba. Maybe if I will buy new notebook, I will go and try programming wine of zamorak grabber using DTM and built in methods.
    Yeah, i really like your idea... well, i have my own superheater as well, it was public but i decided to close it. And it doesn't use dtms at all. If you wish i can send it to you for scripting usage only(so you can learn from it), not for sharing around.
    Hi

  5. #5
    Join Date
    Nov 2011
    Posts
    1,532
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by djborec View Post
    [*]This script do not use any pre-made method for banking , any DTMs - it use only color detecting of one exact pixel , therefore it eats half less CPU then other SuperHeating scripts
    I am skeptical about this. Do you have proof of the CPU usage vs other scripts? And does it improve xp/h?

  6. #6
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    simba's findcolor functions barely eat any CPU and should be faster than ever before, i wouldn't recommend scripting like this.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  7. #7
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by nosaj.421 View Post
    I am skeptical about this. Do you have proof of the CPU usage vs other scripts? And does it improve xp/h?
    Well, if you can run "CPU eaters" fine, then there will be no difference between xp/h, but if you have a laggy PC, then I believe you can get quite a lot more experience per hour as he stated in OP(I'm not sure though, haven't tested).
    To writer: I suggest changing the location to Soul Wars -> So you will not run into problems with randoms. I really like your idea, though. Keep it up, good job!

    ~Eerik.

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

    Default

    Quote Originally Posted by nosaj.421 View Post
    I am skeptical about this. Do you have proof of the CPU usage vs other scripts? And does it improve xp/h?
    The best will be ,if you could try this superheater and e.g.: UltraSteel Heater by CRU1Z1N (which use built in banking, depositing methods) and you will see diference in CPU use. Or best you can see it ,if you use like 5 simbas or more and try how many of my superheating scripts can your computer handle and how many of other superheating scripts can handle.

    Quote Originally Posted by JuKKa View Post
    simba's findcolor functions barely eat any CPU and should be faster than ever before, i wouldn't recommend scripting like this.
    Well not true ,just try findingDTM for example in banking function etc, you will see tht CPU use will be twice more then normally open Runescape.




    Quote Originally Posted by Heavenzeyez1 View Post
    Well, if you can run "CPU eaters" fine, then there will be no difference between xp/h, but if you have a laggy PC, then I believe you can get quite a lot more experience per hour as he stated in OP(I'm not sure though, haven't tested).
    To writer: I suggest changing the location to Soul Wars -> So you will not run into problems with randoms. I really like your idea, though. Keep it up, good job!

    ~Eerik.
    Thats pretty good idea.

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

    Default

    Updated script

    included:

    1) new jagex roll down menu recognising

    2) better security ,now it wont click on screen if you are in random ,it will just notice it to you by beeping and when you wont do anything for 8.5mins ,it will log out you into Lobby also stop script

    3) added some comments and remade banking so it wont click on empty space no more and it can bank any amount of items in inventory.

    4) should be faster now
    Last edited by djborec; 01-16-2012 at 09:45 PM.

  10. #10
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it wont go in the bacnk jsut keeps right clicking it lol

  11. #11
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should use max brightness.

  12. #12
    Join Date
    Feb 2011
    Location
    The Future.
    Posts
    5,600
    Mentioned
    396 Post(s)
    Quoted
    1598 Post(s)

    Default

    findingDTM for example in banking function etc, you will see tht CPU use will be twice more then normally

    That right there is the truth.. I've already reported that as a bug.. Iunno what it is but if ur using the withdrawex functions from the include then ur correct.. however if u make ur own withdraw functions, it WILL NOT eat as much CPU.
    I am Ggzz..
    Hackintosher

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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