Page 1 of 2 12 LastLast
Results 1 to 25 of 36

Thread: Ess miner help - Adding to Solems Wishes

  1. #1
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Ess miner help - Adding to Solems Wishes

    Hi, basically i cannot find a good reliable ess miner that works for SCAR 2.03 (for whatever reason 3.15 doesnt work for me?) the closest one i found to working was made by Solems Wishes. 99.9% of the code is his i just went through and made a few changes:

    line 89: changed runeshop's minimap color to orange because it was getting confused with a red minigame symbol. (this should be in a "setup" menu so its easier to find)

    line 415:made new line that corrected the random walking procedure by making it wait 13000sec + random(2000) before it wouldnt walk to aubury's shop.

    LINE 517 - 545:CANT FIX BANKING PROBLEM! my character will always make it to the bank but cannot click on the booth to deposit the ess. it will ususally click on players. HELP PLZ!?!

    SCAR Code:
    [SIZE="3"]Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from [url]www.rs101.info[/url]
    program StrangeEssMiner;
    {.include SSi2.txt}
    {.include boxbreaker.txt}
    {.include RedXIIsFordCracker.txt}

     /////////////////////////////////////////////////////////////////////
     //             VARROK ESSENCE MINER BY SOLEMN WISHES               //
     //                                                                 //
     /////////////////////////////////////////////////////////////////////
     /////////////////////////////////////////////////////////////////////
     //     SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS!       //
     //This is Solemns script fith Wizeons fix to "coming back" problem //
     /////////////////////////////////////////////////////////////////////
     /////////////////////////////////////////////////////////////////////
     //Setup:                                                           //
     //·Need scar 2.03 (reccomended)                                    //
     //.LOW detail                                                      //
     //·V bright brightness                                             //
     //.Have map facing pretty much north and the highest point of view //
     //.start in varrok bank (recomended near middle banker)            //
     //.fill in the two (optional) color's bellow                       //
     /////////////////////////////////////////////////////////////////////
    const
    ////////////////////////////////////////////////////////////////////////
                                                                          //
                                                                          //
    getbankcolor=1629418;//Highly Reccomended if varrok bank is crowded   //
    floorcolor=6909553;  //Reccomended but not needed, used as a backup   //
                                                                          //
                                                                          //
    ////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////
    //                ANTIBAN OPTION'S AND SETUP                          //
    ////////////////////////////////////////////////////////////////////////
    antibantrue='true';//do you want to use antiban                       //
    messages='Mining';//what is the message that you want to respond to   //
    respondwith='70';//what you want to respond with                  //
    randomwords='1';//do you want to say some random words                //
                        //      1=true    2=false                         //
    ////////////////////////////////////////////////////////////////////////
    //REMEMBER THE FOLLOWING...                                           //
    //1)The first letter in  the chat box starts with a capital, if my    //
    //anti-ban is not working this could be why.                          //
    //2)leave feedback and comments pl0z :)                               //
    ////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////
    //                       LEAVE ME ALONE :)                            //
    ////////////////////////////////////////////////////////////////////////
    TrialTimes= 10;                                                       //
    CerterComments= true;                                                //
    ////////////////////////////////////////////////////////////////////////


    var
    frmDesign : TForm;
    usernamepanel : TPanel;
    usernameenter : TEdit;
    passwordtag : TPanel;
    passwordenter : TEdit;
    startbutton : TButton;
    tripstodo : TPanel;
    numberoftrips : TEdit;
    tripsyouset,SWUsername,SWPassword:string;
    UseQuicky,UseQuick,Handle:integer;
    c,arrow,clickhere,timestalked,play,bankcolor:integer;
    runeshop,teleportbackup,teleport,login,logged: Integer;
    magicthingy,randomfight,mined,exp,report, report2:integer;
    bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,bmpCerterAxe,bmpSpade,
    bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatChars,Certers:integer;




    Procedure checkifloged;
    begin
    if(FindDTM(logged,x,y,0,0,1024,768))then
    begin
    mouse(x,y,3,1,true)
    repeat
    wait(1000+random(500))
    until(FindDTM(login,x,y,0,0,1024,768))
    sendkeys(SWusername+chr(13));
    sendkeys(SWpassword)
    if(FindDTM(login,x,y,0,0,1024,768))then
    Mouse(x,y,1,1,true)
    repeat wait(500+random(500))
    until(findcolorspiraltolerance(x,y,1611007,469,319,611,359,5)) //runeshop symbol color made change
    mouse(x,y,1,2,true)
    end;
    end;




    function CerterChooseOption(txt:string):boolean;
    var
      s,cancel,x1,y1,x2,y2,LeftCorner,RightCorner:integer;
    begin
    LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
           '411A600064715CEA914500CACE13F0');
    RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
           'C5200D30002E35F8C501C9C013F0');
    s:=CreateBitmapMaskFromText(txt,CerterUpChars);
    cancel:=CreateBitmapMaskFromText('Cancel',CerterUpChars);
    if(FindBitmap(LeftCorner,x1,y1))and(FindBitmap(RightCorner,x2,y2))then
    begin
      if(FindBitmapMaskTolerance(s,x,y,x1,y1,x2,502,10,85))then
      begin
        Result:=True;
        MOUSE(x+10+random(5),y+3,7,3,true);
      end else if(FindBitmapMaskTolerance(cancel,x,y,x1,y1,x2,502,10,85))then
        Mouse(x+10+random(5),y+3,7,3,true);
    end;
    FreeBitmap(LeftCorner);
    FreeBitmap(RightCorner);
    FreeBitmap(s);
    FreeBitmap(cancel);
    end;

    function CerterFindObj(text:string;color,tolerance:integer):boolean;
    var
      a,c,i,x1,y1,x2,y2:integer;
    begin
      if(FindColorTolerance(x,y,color,3,3,515,338,tolerance))then
      begin
        x1:=245;
        y1:=165;
        x2:=277;
        y2:=185;
        repeat
        a:=a+1;
        if(a=1)then
          c:=c+1;
        if(a=3)then
          c:=c+1;
        for i:=1 to c do
        begin
          if(a=1)then
          begin
            x1:=x1+30;
            x2:=x2+30;
          end;
          if(a=2)then
          begin
            y1:=y1-20;
            y2:=y2-20;
          end;
          if(a=3)then
          begin
            x1:=x1-30;
            x2:=x2-30;
          end;
          if(a=4)then
          begin
            y1:=y1+20;
            y2:=y2+20;
          end;
          if(x1=485)and(x2=517)then
            x2:=x2-2;
          if(y1=325)and(y2=345)then
            y2:=y2-7;
          if(x2>515)then
            Break;
          if(FindColorTolerance(x,y,color,x1,y1,x2,y2,tolerance))then
          begin
          MMouse(x,y,1,1);
            if(IsTextAt2(9,9,text,100))then
            begin
              Result:=true;
              Break;
            end;
          end;
        end;
        if(a=4)then
          a:=0;
        until(x2>515)or(Result=true)
      end;
    end;

    function CerterTalkToRand:boolean;
    var
      c:integer;
    begin
      while(((FindColor(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0)))or
      ((FindColor(x,y,1611007,5,345,510,465))and(not(GetColor(20,434)=0))))and
      (not(GetColor(20,434)=0))or(c>50)do
      begin
        c:=c+1;
        Result:=true;
        Mouse(x,y,50,2,true);
        Wait(500+random(500));
      end;
    end;



    function CerterScreen:boolean;
    begin
      if(getcolor(359,37)=8168120)or(getcolor(163,167)=1922399)or(getcolor(89,51)=879691)then
        result:=true;
    end;

    function CountPixels:integer;
    var
      c,Average,ax,ay,BackgroundColor,PixelCount:integer;
    begin
      for c:=1 to TrialTimes do
      begin
         BackgroundColor:=GetColor(151,151);
         ax:=151;
         ay:=151;
         repeat
         repeat
         ax:=ax+1;
         if(not(GetColor(ax,ay)=BackgroundColor))then
           PixelCount:=PixelCount+1;
         until(ax=376)
         ax:=151;
         ay:=ay+1;
         until(ay=294)
         if(not(CerterScreen))then
           Break;
         Average:=Average+PixelCount;
         if(CerterComments)then
           WriteLn(inttostr(PixelCount)+' pixels of non-background color.');
         PixelCount:=0;
      end;
      if(CerterScreen)then
        Result:=(Average/TrialTimes);
    end;

    function SolveCerter:boolean;
    var ResultCount:integer;
    begin
      if(CerterScreen)then
      begin
        if((not(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36,324,140,50)))and
        (not(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,324,140,50))))or
        ((not(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,324,140,50)))and
        (not(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324,140,50))))or
        ((not(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,324,140,50)))and
        (not(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,36,324,140,50)))and
        (not(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,324,140,50))))or
        ((not(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324,140,50)))and
        (not(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,324,140,50))))then
        begin
          Pixels:=CountPixels;
          if(CerterComments)then
            WriteLn(inttostr(Pixels)+' average pixels of non-background color.');
          if(Pixels>=342-100)and(Pixels<342+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=442-100)and(Pixels<442+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=715-100)and(Pixels<715+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=740-100)and(Pixels<740+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=990-100)and(Pixels<990+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=1093-100)and(Pixels<1093+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=1173-100)and(Pixels<1173+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=2256-100)and(Pixels<2256+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(Pixels>=2244-100)and(Pixels<2244+100)then
          begin
            if(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,324,140,50))then
              ResultCount:=ResultCount+1;
          end;
          if(CerterComments)then
            Writeln('There is/are '+inttostr(ResultCount)+' possible items shown with'
                    +' this number of pixels.');
          if(ResultCount=1)then
          begin
            Result:=true;
            Mouse(100,y,1,1,true);
          end;
        end;
      end;
    end;



    function FindCerter:boolean;
    var
      c:integer;
    begin
      if(CerterScreen)then
      begin
        CerterUpChars:= LoadChars2(AppPath + 'CharsRS22\');
        CerterChatChars:= LoadChars2(AppPath + 'CharsChat2\');
        repeat
        c:=c+1;
        if(CerterScreen)then
        begin
          if(not(SolveCerter))then
          begin
           Mouse(449, 11,1,1,true);
            if(CerterFindObj('Talk',7039859,15))then  
            begin
              Mouse(x,y,1,1,false);
              CerterChooseOption('Talk');
              CerterTalkToRand;
              Flag;
              Wait(500+random(100));
            end;
          end else
            Break;
        end;
        until(c>100)
        if(c<100)then
        begin
          Certers:=Certers+1;
          Result:=true;
        end;
      end;
    end;



    procedure solemnrandoms;
    begin
    checkifloged;
    FindBox;
    findtalk;
    findpick;
    FindDoctorFord;
    FindCerter;
    FindLamp('smithing');
    FindMiscRandoms;
    if(FindFight)then
    begin
    writeln('we are being attacked, running away')
    RunAwayDirection('S')
    RunBack;
    randomfight:=randomfight+1
    end;
    end;



    procedure walkingrandoms;
    begin
    checkifloged;
    FindLamp('smithing');
    findbox;
    end;




    procedure walktoaubury;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    mouse(664,131,4,3,true)
    wait(12000+random(2000))
    flag;
    begin
    magicthingy:=GetSymbolColor('magic shop');
    writeln('magic shop color:'+inttostr(magicthingy));
    if(findcolorspiraltolerance(x,y,floorcolor,576,10,718,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,576,10,718,159,5))then
    begin
    mouse(x,y,1,2,true)
    walkingrandoms;
    flag;
    end;
    end;
    end;
    end;




    procedure walktoauburyrandom;
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    begin
    mouse(610,88,4,3,true)
    flag;
    mouse(644,144,4,3,true)
    flag;
    wait(13000+random(2000))  //by snaes needed to wait so it had time to move south enough for find magicthingy to work
    begin
    magicthingy:=GetSymbolColor('magic shop');
    writeln('magic shop color:'+inttostr(magicthingy));
    begin
    if(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))then
    mouse(x,y,1,2,true)
    walkingrandoms;
    flag;
    end;
    end;
    end;
    end;



    procedure Randomwalkselecter;
    var b:integer;
    Begin
      b:= random(2)+1
      begin
      If(b= 1)then
      walktoauburyrandom;
      If(b= 2)then
      walktoaubury;
       end;
    end;




    procedure findandtalk;
    begin
    walkingrandoms;
    repeat
    FindObj('Talk',1914942,12)
    wait(200+random(100))
    mouse(x,y,1,1,false)
    wait(1000+Random(500))
    until(FindBitmapToleranceIn(teleport,x,y,5,5,512,334,50))or
    (FindBitmapToleranceIn(teleportbackup,x,y,5,5,512,334,50))
    mouse(x,y,1,1,true)
    flag;
    wait(4000+random(2000))
    end;





    procedure detectroom2;
    begin
    if(findcolorspiraltolerance(x,y,10855856,561,4,719,167,14))then
    begin
    mouse(x,y,1,1,true)
    wait(random(1000+800))
    flag;
    writeln('We have been teleported to the middle-room')
    end;
    end;




    function detectrooms:boolean;
    begin
    walkingrandoms;
    result:=false;
    if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
    result:=true;                  
    if(result= false)then
    detectroom2;
    end;




    procedure backtoshop;
    begin
    walkingrandoms;
    repeat
    wait(random(500+500))
    until(findbitmaptolerancein(arrow,x,y,543,3,760,165,50))
    begin                      
    Mouse(x,y,1,2,true)
    flag;
    repeat
    FindObj('Use',11332846,80)  //portal color mabye in setup so easily found if color change?
    Mouse(x,y,3,2,true)
    flag;
    wait(2500+random(1000))
    until(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))
    wait(1000+random(1000));
    end;
    end;

    //---------------------------------------------------------------------------------------------------------------------------------------
    //--------------------------------PROBLEM PROCEDURE------------------------------------------------------------------------------------
    //-----------------------------hope this got your attention--------------------------------------------------------------------------------

    procedure backtobank; //BACK TO BANK PROCEDURE DOESNT WORK NEED HELP!?!?!?
    begin
    mouse(646,11,1,2,true)     //clicks top right in mini map to go to bankworks great
    flag;
    wait(9000+random(1000))  //waits about 9 secs so character gets in bank
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    repeat
    FindObj('Use',140598,12)
    Mouse(x,y,1,1,false)
    wait(600+random(500))    //wont open bank usually follows players in bank??
    if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757,491,50))or
    (FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,491,50))then
    mouse(x,y,1,1,true)
    flag;
    wait(1000+random(500))
    until(IsTextAtEx(185,34,'The Bank of',30,UpChars,True,False,0,0,-1))
    begin
    wait(700+random(600))
    Deposit(2,28,2);
    mined:=mined+28
    timestalked:=timestalked+1
    exp:=exp+140
    c:=0;
    end;
    end;
    end;




    procedure Start(sender: TObject);
    begin
    frmDesign.Caption:= frmDesign.Caption + '.';
    frmDesign.ModalResult:= mrOk;
    writeln('///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\')
    writeln(' //YOU ARE USING SOLEMN WISHES ESSENCE MINER 3.1\\')
    writeln(' /////////THE DAWN OF AUTOING IS APON US\\\\\\\\\')
    writeln(' /////////ANY PROBLEMS OR QUESTIONS PM ME\\\\\\\\\\')
    writeln('//////I HOPE YOU ENJOY YOUR AUTOING EXPERIENCE\\\\\\\')
    SWusername:= usernameenter.text;
    SWpassword:= passwordenter.text;
    tripsyouset:= numberoftrips.text;
    end;




    procedure initform;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 266;
    frmDesign.Top := 277;
    frmDesign.Width := 228;
    frmDesign.Height := 259;
    frmDesign.Caption := 'Solemn Wishes ess miner';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := false;
    frmDesign.PixelsPerInch := 96;
    usernamepanel := TPanel.Create(frmDesign);
    usernamepanel.Parent := frmDesign;
    usernamepanel.Left := 12;
    usernamepanel.Top := 25;
    usernamepanel.Width := 78;
    usernamepanel.Height := 28;
    usernamepanel.Caption := 'Username';
    usernamepanel.Enabled := False;
    usernamepanel.TabOrder := 8;
    usernameenter := TEdit.Create(frmDesign);
    usernameenter.Parent := frmDesign;
    usernameenter.Left := 95;
    usernameenter.Top := 26;
    usernameenter.Width := 121;
    usernameenter.Height := 21;
    usernameenter.TabOrder := 9;
    passwordtag := TPanel.Create(frmDesign);
    passwordtag.Parent := frmDesign;
    passwordtag.Left := 10;
    passwordtag.Top := 68;
    passwordtag.Width := 81;
    passwordtag.Height := 27;
    passwordtag.Caption := 'Password';
    passwordtag.TabOrder := 10;
    passwordenter := TEdit.Create(frmDesign);
    passwordenter.Parent := frmDesign;
    passwordenter.Left := 94;
    passwordenter.Top := 68;
    passwordenter.Width := 122;
    passwordenter.Height := 21;
    passwordenter.TabOrder := 11;
    tripstodo := TPanel.Create(frmDesign);
    tripstodo.Parent := frmDesign;
    tripstodo.Left := 66;
    tripstodo.Top := 106;
    tripstodo.Width := 80;
    tripstodo.Height := 24;
    tripstodo.Caption := 'Trips To Do';
    tripstodo.TabOrder := 13;
    numberoftrips := TEdit.Create(frmDesign);
    numberoftrips.Parent := frmDesign;
    numberoftrips.Left := 36;
    numberoftrips.Top := 130;
    numberoftrips.Width := 141;
    numberoftrips.Height := 21;
    numberoftrips.TabOrder := 14;
    startbutton := TButton.Create(frmDesign);
    startbutton.Parent := frmDesign;
    startbutton.OnClick:= @Start;
    startbutton.Left := 62;
    startbutton.Top := 169;
    startbutton.Width := 75;
    startbutton.Height := 25;
    startbutton.Caption := 'Start';
    startbutton.TabOrder := 12;
    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 progressReport;
    var
     RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
     Time:String;
    begin
    if(GetSystemTime-report2 > report*60000)then
    begin
    Seconds:=(GetSystemTime) div 1000;
    Minutes:=Seconds div 60;
    RHours:=Minutes div 60;
    Time:=inttostr(Seconds)+' Seconds';
    if Minutes<>0 then
    begin
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
    end;
    if RHours<>0 then
    begin
    RMinutes:=Minutes Mod (RHours*60);
    RSeconds:=Seconds Mod (Minutes*60);
    Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
    end;
    begin
    writeln('');
    writeln('');
    writeln('     WORKED FOR '+(TIME));
    writeln('  <This essence miner was created by solemn wishes >');
    writeln('         TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
    writeln('            MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
    writeln('            GAINED '+inttostr(exp)+' EXP SO FAR')
    writeln('       FOUND AND RAN AWAY FROM '+inttostr(randomfight)+' RANDOM EVENTS ')
    writeln('');
    writeln('');
    Report2:=GetSystemTime;
    end;
    end;
    end;




    Procedure LoadDTM;
    Begin

      logged := DTMFromString('78DA63DCCCC8C0A008C448E0FFFFFF601A26C' +
           'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C47675F54' +
           '35FB812C1502EE5981A9C6C32B04450D00F097111D');

      login := DTMFromString('78DA635465646070026224F0FFFF7F300D136' +
           '5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A93107' +
           'B2EE12501301643D4055E3E1158CA20600DD4710DE');

      runeshop:= DTMFromString('78DA6364C004C91136609A1188FF03010018E' +
           '604F6');

    end;




    procedure loadbitmaps;
    begin
      teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
           '5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');

      teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
           '60700137208091A3AE1D58D722AB27462FF1EA8951499E69B4162' +
           '7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA7678B8' +
           '76A80000F0D74AB7');

      play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
           '57C5AAB2746EF60763F2DE28B780000AAE17B79');

      clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
           'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000A02B' +
           'B79D');

      arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
           '6225E26225E26225E26225');


      Handle := BitmapFromString(15, 27,
           '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
           '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
           '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
           '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
           '5951455951455951450000012F20002F2000362400000001302020' +
           '564D41544A3C544A3C595145564D41595145564D41595145595145' +
           '0000012F2000362400362400000001302020564D41564D41564D41' +
           '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
           '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
           '544A3C544A3C0000012F2000362400362400362400000001302020' +
           '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
           '2F2000362400362400000001302020302020564D41564D41564D41' +
           '595145564D41564D41564D410000012F2000362400362400000001' +
           '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
           '0000012F2000362400362400362400000001302020564D41564D41' +
           '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
           '362400000001302020302020564D41564D41544A3C544A3C595145' +
           '595145564D410000012F2000362400362400362400000001302020' +
           '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
           '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
           '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
           '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
           '564D410000012F20002F20002F2000000001302020302020544A3C' +
           '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
           '2F2000000001302020302020595145544A3C564D41595145595145' +
           '595145564D41564D410000012F20002F20002F2000000001302020' +
           '595145595145564D41564D41595145595145595145595145000001' +
           '2F20002F20002F2000000001302020302020595145595145595145' +
           '595145564D41564D41564D41564D410000012F20002F20002F2000' +
           '000001302020564D41595145595145595145595145564D41564D41' +
           '544A3C0000012F20002F20002F2000000001302020302020564D41' +
           '595145595145544A3C544A3C564D41595145564D410000012F2000' +
           '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
           '544A3C564D41564D41564D410000012F20002F2000000001302020' +
           '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
           '000001271B002F20002F2000000001302020595145544A3C564D41' +
           '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
           '000001302020302020595145544A3C564D41595145595145595145' +
           '564D41564D41564D410000011D15001D1500000001302020595145' +
           '544A3C544A3C564D41595145595145595145595145595145544A3C' +
           '0000011D15001D1500000001302020564D41595145595145595145' +
           '595145564D41595145595145564D41544A3C564D41000001000001' +
           '302020302020595145595145595145595145544A3C564D41595145' +
           '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
           '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
           '');

    UseQuick := BitmapFromString(16, 6,
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
            '000000000000000000FFFFFFFFFFFFFFFFFF');

    UseQuickY := BitmapFromString(17, 5,
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000');

    bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
           '17235347002B39149A8B891A58BB9053289294EBC4A5C24F16602' +
           '004B97286E');
    bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
           '35347002B37191986AC8137132B0743637838A83D9C8242E71141' +
           '2BFF9785D8E8B4D6B370300B2B65059');
    bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
           '436378390C64488D042252EBDC8B2C86A88514F0B97E0720F7EBB' +
           '00EC754F5D');
    bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
           '5347002B37191B8D4902A4E892E52550E949B2122C8E20009EF50' +
           'B3');
    bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
           '431B740268D31C48D69A0923C1328318772B7916732008DB8502F' +
           '');
    bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
           '18B91A1A404862543A19583A9B9BE12231D510A30B8524C60D186' +
           'C6AB919BF7A94B042120700F0A05073');
    bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
           '35347002B33149A8AC91A58BB90532894B1C599612BD384530DD4' +
           '6B19B91C569E16600F6AC50A3');
    bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
           'B18B91A1A505796787188087E5B2877157922A4BA190004CE5092' +
           '');
    bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
           '433B78490C64488381959BA985B40C5C16CE24528D78BD355986E' +
           'A692BD9498062101C5625087');
    end;






     ////////////////////////////////////////////////////
     //       AUTO RESPONDER BY SOLEMN WISHES          //
     //  THIS IS THE NEW WAVE OF ANTIBAN FEATURES      //
     ////////////////////////////////////////////////////
     //UNDER CONSTRUCTION* started work on the 21st of //
     //december this is a working version but not yet  //
     //complete.                                       //
     ////////////////////////////////////////////////////


    procedure respond;
    begin
     writeln('Responding to the question')
      sendkeyssilent(respondwith)
        wait(100+random(50))
     sendkeys(chr(13));
    end;



    procedure createtext;
    var s:integer;
    begin
      s:=CreateBitmapMaskFromText(messages,ChatChars);
        if(FindBitmapMaskTolerance(s,x,y,8,346,211,477,10,85))then
          begin
        FreeBitmap(s);
           writeln('succesfully found a possible question')
       respond;
     end;
    end;





    procedure RandomTalk;
    var b:integer;
    Begin
    if(randomwords='1') then
      b:= random(100) + 1;
      begin
      If(b= 1)then
       sendkeyssilent('lvls, mines 39'+chr(13));
      If(b= 2)then
       sendkeyssilent('need 2800 ess more'+chr(13))
      If(b= 3)then
       sendkeyssilent('i cant wait till holidays'+chr(13))
      If(b= 4)then
       sendkeyssilent('im saving for full rune'+chr(13))
      If(b= 5)then
       sendkeyssilent('cool'+chr(13))
      If(b= 6)then
       sendkeyssilent('how long have you been playing'+chr(13))
      If(b= 7)then
       sendkeyssilent('mining essence is slow cuz i have bad pic... could some1 give me rune? XD'+chr(13))
      If(b= 8)then
       sendkeyssilent('200xp to my next lvl!!'+chr(13))
      If(b= 9)then
       sendkeyssilent('nice pick'+chr(13))
      If(b= 10)then
       sendkeyssilent('dang this is boring but it be necessary'+chr(13))
       end;
    end;




    procedure minethatess;
    begin
    repeat
    FindObj('Mine',8553104,10)  //8553104
    if(IsTextAt2(9,9,'Mine',100))then
    getmousepos(x,y)
    Mouse(x,y,2,3,true)
    if (antibantrue='true')then
    begin
    createtext;
    RandomTalk;
    wait(8000+2000)
    end;
    solemnrandoms;
    c:=c+1
    until(c=15)or(inventoryfull= true)
    end;




    procedure SetupSSIcustom;
    begin
    LoadChars('');
    DisguiseScar(MaskName);
    UpChars:= LoadChars2(AppPath + 'CharsRS22\');
    ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    StatChars:= LoadChars2(AppPath + 'CharsChat2\fontsmall\');
    CWindow := BitmapFromString(66, 8, 'z78DA33304000372460' +
           '800170890F1420C63DB473333D4D264664342E06CACCE11117D4F' +
           '2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD928D' +
           '76BA06BF083DE382F8D432506963A04488610FCE5C408C69F87D3' +
           '454E28276651D754B636A95F994E76E5AD49E002F369293');
    MarkTime(LogOutMark);
    MarkTime(RandomChatMark);
    MarkTime(RotateMark);
    MarkTime(KillScriptMark);
    MarkTime(LeaveScreenMark);
    GasColor:=8100004;//Reference color of gas.
    LoadSSIBmps;
    ST:=GetSystemTime;
    SetMouseMode(false);
    if(SetCamera='')then
      SetCamera:='N';
    if(LoggedIn)then
    begin
      {Face(SetCamera);
      SendArrowSilentWait(0,1400+random(100)); }

    end;
    end;




    begin;
    SafeInitForm;
    SafeShowFormModal;
    activateclient;
    wait(500+random(500))
    SetupSSIcustom;
    loaddtm;
    loadbitmaps;
    FindPickHeadColor;
    repeat
    Randomwalkselecter;
    findandtalk;
    detectrooms;
    minethatess;
    backtoshop;
    backtobank;
    progressReport;
    until(false)
    end.[/SIZE]

  2. #2
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use scar tags please
    Add [scar ] at the beginning of code and [/ scar] at the end of the code
    (without spaces)

  3. #3
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes, please do use SCAR tags next time, it's really annoying to have to scroll down.. I recommend you don't use this script at all because its for 2.03 and is probably outdated... But since you're a leecher, you can't access any banking scripts.. Be a member for a week and make 10 CONSTRUCTIVE posts and you will become a Junior SRL Member and will be able to access banking scripts.

  4. #4
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks i appreciate any help.

  5. #5
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use something as:
    SCAR Code:
    repeat
      OpenBankFast('veb');
      Tries := Tries + 1;
    Until ((BankScreen) Or (Tries > 5) or (PinScreen));
    (tries is a variable at the beginning of the procedure)

    You should use this srl procedure for opening bank.
    Have a look at the banking tut, in the beginner section I tought
    Good luck!

  6. #6
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sweet THANKS! ill give it a try and ill check out the banking tut

  7. #7
    Join Date
    Jun 2008
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I've been trying to look for a decent ess miner too,by the way,what do we do with that?

  8. #8
    Join Date
    Apr 2008
    Location
    hy71194 made my change -.-
    Posts
    356
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    lol boxbreaker thats ancient



    [/URL

  9. #9
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah its the only thing i could get to work properly on my scar 3.12 i got the srl4 i beleve installed but cannot get any scripts to run and since im trying to not leech i havent asked for scripts.

    since 2.03 is ancient - what would u recamend for a stable version with lots of scripts? thanks

  10. #10
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    3.15b...

  11. #11
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    3.15b - can you make it reverse compatible with older scripts or will i need to find new scripts while im at it?

  12. #12
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can if you know how to fix errors. But those might be not only outdated with SCAR but also with Runescape because of graphical changes and whatnot.. So i would say your best bet is to get yourself a new script.

  13. #13
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks i downloaded and installed 3.15b and i got the includes and the plugs for it. the test programs work now all i need to do is find an ess mining script. i would ask for one but im not gunna leech

    even though this is the wrong place to ask and im getting of topic and probably is getting to leeching as i said i wouludnt so just say sry if you dont wana help - how could i fix this error in wizzups ess miner or better yet what is the general cause of the error so i could fix it myself.
    Line 26: [Error] (34:1): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.15\includes\srl\srl\core\Globals.scar

  14. #14
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    yea, but if you know how to script, then when you run it, you can see where it goes wrong and fix it, but I'd either just get an updated script, or make my own then try to fix every SRL & R.S. graphical error. I tried once when I was new, it seems like the errors are endless, and that's just with the SRL ones, because of codes and functions being outdated.

    EDIT: that's not an error in Wizzup?'s script, it's an error in the Globals script, notice the

    Line 26: [Error] (34:1): Duplicate identifier 'UpChars' in script C:\Program Files\SCAR 3.15\includes\srl\srl\core\Globals.scar

  15. #15
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahhh im getting there. i fixed that now i think wizzup had an error this time (probably me o well) because the location is actually his script...

    so is this one fixable by some means or should i locate a good script?

    Line 43: [Error] (13176:12): Unknown identifier 'BOOLEAN1' in script C:\Program Files\SCAR 3.15\Scripts\Wizzup_Essence_Miner_1.09_Pub.scar

  16. #16
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That's because his ess mining script is currently outdated for SRL 4.. I dont know when the next version is coming out although in april he said "sometime next week.." lol

  17. #17
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well thanks for helping so much and being patient. this stinks for me because i am still looking for a working ess miner. if i was to download and install say 3.12 or some older version would wizzup's script work with that and if so how would i be able to tell which version that would be (he does not say in the script)?

  18. #18
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Depends. You would need to download an older version of SCAR and then revert your SRL SvN # to a lower revision and then fix errors etc..

  19. #19
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if it doesnt say the script which scar version the script was intended for is it just trial and error for me to find the right version?

  20. #20
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, just about.. Unless you can find a post by Wizzup? somewhere regarding what version is for what SCAR version..

  21. #21
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    2.03 with srl verion 3.7...i gotta try it now wish me luck

  22. #22
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do you have SRL Version 3.7 even?

  23. #23
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    finding a download for srl version 3.7 is harder that i thought ahh

    yeah cant find it yet...hmm heres the error i get its with the color.scar include file cuz its not the 3.7 srl version im guessing not that this helps. too bad there isnt a good working one for a recent version

    Failed when compiling
    Line 871: [Error] (6737:11): Unknown identifier 'FindColorCircleD' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Color.scar

  24. #24
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Actually, that does help.. That means that your plugins are not properly placed. Make sure you move everything that is in the "place in plugins folder" folder is moved to the "plugins" folder.

  25. #25
    Join Date
    Jun 2008
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I Think Its Gunna Work Ill Let You Know In A Few Mins!!!!

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Madman00901 - Wishes to be welcomed
    By madman00901 in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 10-28-2006, 10:50 AM

Posting Permissions

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