SRL Archive - RS Scripts

From: Rogue
the link dousnt work for me :( :confused: :(

program StrangeEssMiner;
{.include SSi2.txt}
{.include boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

 /////////////////////////////////////////////////////////////////////
  //                                                                 //
 //             VARROK ESSENCE MINER BY SOLEMN WISHES               //
 //                     TWEAKED BY M0U53M4T                         //
 //                                                                 //
 /////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////
 //     SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS!       //
 //                                                                 //
 /////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////
 //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=982782;//Highly Reccomended if varrok bank is crowded   //
floorcolor=5692;  //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='76 lol';//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= false;                                                //
////////////////////////////////////////////////////////////////////////


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,Certers2: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 certers2creen: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(certers2creen))then
       Break;
     Average:=Average+PixelCount;
     if(CerterComments)then
       WriteLn(inttostr(PixelCount)+' pixels of non-background color.');
     PixelCount:=0;
  end;
  if(certers2creen)then
    Result:=(Average/TrialTimes);
end;

function SolveCerter:boolean;
var ResultCount:integer;
begin
  if(certers2creen)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 FindCerter2:boolean;
var
  c:integer;
begin
  if(certers2creen)then
  begin
    CerterUpChars:= LoadChars2(AppPath + 'CharsRS22\');
    CerterChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    repeat
    c:=c+1;
    if(certers2creen)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
      certers2:=certers2+1;
      Result:=true;
    end;
  end;
end;



procedure solemnrandoms;
begin
checkifloged;
FindBox;
findtalk;
findpick;
FindDoctorFord;
FindCerter;
FindLamp('Mining');
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('mining');
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;
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)
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;





procedure backtobank;
begin
writeln('should scroll down')
SendArrowSilentWait(0, 1200 + random(300));
mouse(677,56,1,2,true)
flag;
begin
bankcolor := 3587790
SendArrowSilentWait(0, 1200 + random(300));
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
if(FindColorSpiralTolerance(x,y,BankColor,561,4,719,167,5))or
FindColorSpiralTolerance(x,y,getbankcolor,561,4,719,167,5)then
Mouse(x,y,1,1,true)
wait(4500+random(500))
SendArrowSilentWait(0, 1200 + random(300));
flag;
repeat
SendArrowSilentWait(0, 1200 + random(300));
FindObj('Use',609125,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+27
timestalked:=timestalked+1
exp:=exp+135
c:=0;
end;
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('  ');
writeln('         TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
writeln('            MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
writeln('            GAINED AROUND '+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('mining lvls');
  If(b= 2)then
   sendkeyssilent('dam i really want a random event'+chr(13))
  If(b= 3)then
   sendkeyssilent('i cant wait till next xmas'+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 for me'+chr(13))
  If(b= 8)then
   sendkeyssilent('allmost at my next lvl yay'+chr(13))
  If(b= 9)then
   sendkeyssilent('nice pick'+chr(13))
  If(b= 10)then
   sendkeyssilent('dam this is boring'+chr(13))
   end;
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)
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
activateclient
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;
SetupSSIcustom;
loaddtm;
loadbitmaps;
FindPickHeadColor;
repeat
Randomwalkselecter;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
until(false)
end.

From: bigboy
i have a major problem, if some one could please help me out.
i run the script, enter my username and pass, then type in number of runs, then the mouse goes haywire and clicks back several times, logs me out and does some pritty random things. im new to scar and have no idea what im doing, if somone could heal me out please e-mail me at : [email]tomcrew_455@hotmail.com[/email] Thanks.

From: Scar RL
I do! Great JOB!

From: Jag024
Wow this is the best FREE ess miner i have come across. Thanks for all your hard work:)

this is old and out dated i dont suggest it

Because you are using an outdated script.

From: Ip1k1e1r1
Include file C:\Program Files\SCAR 3.06\includes\SSi2.txt does not exist.
Include file C:\Program Files\SCAR 3.06\includes\boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 3.06\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling

i get this every time.. on every script.. can anyone help??

From: Hobbit
Press File Tab and select the 'Download Includes' option (under 'Download SRL')

From: Diabolical
(Feedback w00p w00p)


Great script m8 , one problem, it cant find the bank :confused:


It works fine , it teleports out of the mine , walks randomely (northish) and then the mouse starts spinning in a circle examining every 5-6 secs, it doesnt find the banker :(


Also getbankcolour = does that mean the banker, the bank symbol, or the floor? :confused:

floorcolour = what floor, bank, rune shop, path :confused:

Any help would be greatly appreciated, and ill post plenty of progress reports if it works.

From: Kartoffel010
Hi,
I've get a problem with the script(essence miner final). :(
It works after he mined the essence then i returned back to the bank and after he opend my bank then it doesnt store my essence on my bank.
The mouse just moved about my things on my bank.:confused: :confused:
Can anyoe help me pls?

Thank You Very Much

Kartoffel010

From: marius xxx1
help me script need fix

From: nihao454
wtf i get failed while compiling for every script i run!!! help me plz!!!

From: blahum
Quote:THIS DOWNLOAD IS FOR LEARNING PURPOSED ONLY, DO NOT ATTEMPT TO USE THE SCRIPT ANYMORE.

So we still cant use it?

From: Derkel
This should be closed and re opened when it is fixed

From: sowbener
very nice gonna use