SRL Archive - First Scripts

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

[LEFT]Something about this script: [/LEFT]

• 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.

[LEFT]Requipments for using this script:[/LEFT]
-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

[LEFT]To do list:[/LEFT]

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

[LEFT]Instalation notes:[/LEFT]

• 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

NumberOfPlayers(1);
   CurrentPlayer := 0;
   Players[0].Name := '  [COLOR="red"]Here write your login[/COLOR]  ';
   Players[0].Pass := '  [COLOR="red"]Here write your password [/COLOR]  ';
   Players[0].Pin := '  [COLOR="red"]Here write any 4 numbers or leave 0000[/COLOR]  ';
   Players[0].Active := True; 

Here is the script:

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.

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.

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 :).

From: Tickyy
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.

From: djborec
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.

From: djborec

[*]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?

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

From: nosaj.421
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.

From: nosaj.421
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.

From: JuKKa
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.

From: Heavenzeyez1
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.

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

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

You should use max brightness.

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.