Results 1 to 15 of 15

Thread: Rune Essence Autominer for Members

  1. #1
    Join Date
    Oct 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Rune Essence Autominer for Members

    Is there a rune essence autominer for members because members have to click on the essence and then select mine essence. Is there a script for this or is there a way to modify this script to do it?

    Code:
    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 OR HIGH detail                                                      //
     //·V bright brightness                                             //
     //.Have map facing pretty much north and the highest point of view //
     //.start in varrok bank (recomended near middle banker)            //
     //.No longer need to fill in color's bellow                       //
     /////////////////////////////////////////////////////////////////////
    const
    ////////////////////////////////////////////////////////////////////////
                                                                          //
                                                                          //
    getbankcolor=4703451;//No longer need to change this setting at all   //
    floorcolor=3825001;  //Reccomended but not needed, used as a backup   //
                                                                          //
                                                                          //
    
    //                               Updates                               //
    //Version 3.2  Added x,x,color fixing many banking issues              //
    //Version 3.3  Fixed bank colloring for mor accurate return to bank    //
    //Version 3.4  Random walk fixed(nolonger gets lost)                   //
    //Version 3.41 Enhancments to run in high detain or low                //
    //Version 3.5 Comming soon 1 click walk to aubury shop                 //
    //                           Know Glitches                             //
    // Color glitch causing random walking in bank does auto correct itself//
    // Color glitch when walkign to aubury shop causing character stuck outside//
    // Trip counter doesnt stop lopping after loads desired finished       //
    //                          Use At Own Risk                            //
    //   Special Thanks to Solemn for giving me a good starting script     //
    ////////////////////////////////////////////////////////////////////////
    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,16777215,469,319,611,359,5))
    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,16777215,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(650,158,4,3,true)
    wait(15000+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,546,1,750,159,5))then
    begin
    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
      walktoaubury;
      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(2500+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(2500+500))
    until(findbitmaptolerancein(arrow,x,y,543,3,760,165,50))
    begin
    Mouse(x,y,1,2,true)
    flag;
    repeat
    FindObj('Use',11332846,80)
    Mouse(x,y,3,2,true)
    flag;
    wait(2500+random(1000))
    until(findcolorspiraltolerance(x,y,floorcolor,576,10,718,159,5))or
    (findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))
    wait(1000+random(1000));
    end;
    end;
    
    
    
    
    
    procedure backtobank;
    begin
    mouse(650,10,1,2,true)
    flag;
    wait(9000+random(1000))
    begin
    if(bankcolor=0)then
    BankColor:=GetSymbolColor('bank');
    writeln('BankColor:'+inttostr(BankColor));
    repeat
    FindObj('Use',607067,12)
    Mouse(x,y,1,1,false)
    wait(600+random(500))
    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 4.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*6000)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;
    
    
    
    
    
    
    
    
    
    procedure minethatess;
    begin
    repeat
    FindObj('Mine',8553104,10)
    if(IsTextAt2(9,9,'Mine',100))then
    getmousepos(x,y)
    Mouse(x,y,2,3,true)
    
    begin
    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.

  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Star's stress miner worked fine for me on members getting pure ess just the same as on f2p getting regular ess (although I haven't used it in about a month so maybe this is a new thing). I just tried mining ess on p2p and f2p and the procedure was the same: either simply click it or rt click and choose mine. I'm not sure what you mean. Are you saying that script works on f2p but not p2p?

  3. #3
    Join Date
    Oct 2006
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There's always ways to edit scripts, its the difficulty in editing where some people choose not to attempt it. I've just gotten back into scripting, and i don't have a members character, but I'll see if I can do anything about it with a free char. If not you'll have to wait for someone with members.

  4. #4
    Join Date
    Oct 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What i mean is if members left click the essence instead of starting mining it it just pops up with mine rune essence or cancel so you need a script that goes down and selects mine

  5. #5
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Hmm that doesn't happen for me, I just click like normal. Maybe because my member character is above 30 mining or something. Could you post a screen shot of the pop up menu?

  6. #6
    Join Date
    Oct 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this is what happens when you left click


  7. #7
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes... so left clicking would do the same thing as rightclicking and going to mine.

  8. #8
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by computer_genius View Post
    this is what happens when you left click

    It seems like your mouse buttons are switched from mine or something.

  9. #9
    Join Date
    Aug 2006
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe you have the '2 Mouse Buttons' option off.

  10. #10
    Join Date
    Oct 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by weibs View Post
    Maybe you have the '2 Mouse Buttons' option off.
    Thanks you were right. I only had the '2 Mouse Buttons' option off.

  11. #11
    Join Date
    Jun 2006
    Posts
    366
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol i was hoping some1 wouldnt tell u cuz i wanted to tell u..........:P

  12. #12
    Join Date
    Oct 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dono ive used that script in some of its previous forms, with a few mods, works great used it today in fact for 4 hours, im p2p and i use it on my main, havent had a problem,(had to fix the coler problem with talking to aubrey), but nice scipt all the same.

  13. #13
    Join Date
    Mar 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I need help with wizzzups ess miner. i cant find it

  14. #14
    Join Date
    Nov 2006
    Location
    Wisconsin
    Posts
    1,629
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    10-20-2006, 09:53 PM


    Idiot, don't spam you need help. Read the rules.


    Quote Originally Posted by Rubix View Post
    Quote Originally Posted by Dan Cardin View Post
    you ought to listen to Mr. Klean...he's magical!
    this.

  15. #15
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I was about to lol at the hilariously old includes:

    Code:
    {.include SSi2.txt}
    {.include boxbreaker.txt}
    {.include RedXIIsFordCracker.txt}
    Until I realised when this was posted. Stop gravedrigging joshmcginnis. This has nothing to do with wizzups essence miner.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Varrock Rune Essence Miner - Need Help
    By FrontLine in forum OSR Help
    Replies: 7
    Last Post: 06-29-2008, 09:58 AM
  2. Buying Rune Essence.
    By Wizzup? in forum Mining and Smithing
    Replies: 81
    Last Post: 11-09-2007, 02:08 AM
  3. Since when did the Rune Essence Market Crash?
    By Kik in forum RuneScape News and General
    Replies: 4
    Last Post: 11-03-2007, 06:40 PM
  4. Need Varrock Rune Essence Miner script.
    By alvar99 in forum The Bashing Club / BBQ Pit
    Replies: 3
    Last Post: 10-04-2007, 02:58 PM

Posting Permissions

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