[rs2] varrok essence miner script 0 color setup

VARROK ESSENCE MINER VERSION 3.1.1 BY SOLEMN WISHES

Hi guys,

well this is my essminerbanker, im going to leave it as it is for know but may make some minor tweaks from time to time if it becomes very outdated :)





the script know works flawless for me and if you encounter any error's read the bellow before posting them

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

[RS2] ESSENCE MINER F.A.Q

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

1)It works perfectly up to its half way between the bank and the magic shop then it stops and starts moving the mouse

the bank is to crowded and the bank color must be set manually

2)How do i get the following files?

SSi2.txt
boxbreaker.txt
include RedXIIsFordCracker.txt
Reply With Quote

open scar and go to file/download includes/then overight them all

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////////////////////
// VARROK ESSENCE MINER BY SOLEMN WISHES //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
// 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 //
/////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
//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 :) //
////////////////////////////////////////////////////////////////////////

*this is what the report looks like*

WORKED FOR 0 Hours, 0 Minutes and 0 Seconds
<This essence miner was created by solemn wishes >
TALKED TO THE AUBURY 0 TIMES SO FAR
MINED 0 ESSENCE ROCKS SO FAR
GAINED AROUND 0 EXP SO FAR
FOUND AND RAN AWAY FROM 0 RANDOM EVENTS

this is a pitchure of the form setup

http://img229.imageshack.us/img229/9...form2la.th.png

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

Does it have full antirandoms? that would be great :)

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

Quote:

---

Originally Posted by Rogue

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

---

What link?

im gonna start srl scripting know so i might update it using that :)

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

woah this is really nice :)

So far this script has been working for me. Nice job!!!:)
ps. cant wait to make my own scripts

script is really nice use it a lot everyday

Great script. Just that the dude with the khababs keeps picking on me.. haha

Great script, except sometimes the Arrow on the minimap gets in the way of the magic shop icon and it messes up. And why doesn't it use the color of the magic shop floor?

How do you get this to work, it always fails when i try to start it.

best 2 colors of the bank r ?

wht is the best 2 colors of the bank to set ?

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

I don't think it has been updated.

i shall find out if thiss is a good script

yah im haveing the same problems...it clicks the north, south, east, west arrow or the above ad instead of the magic shop icon. And on the way back it usually gets lost and if it does make it back it can't find the bank teller...it's a good script but for me ur older version worked smoother

I tweaked it a bit and updated bits. Try it now:

Code:

---

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.

---

ty, i like the tweaked =P

Hmm U liked the tweakeded one better ??

Wow this thread is old.

Wow man thanks heaps for this script it works wonders, thanks also to Mou53M4t for the tweaks.

I get an error on the tweaked version:
Line 355: [Error] (5213:1): Unknown identifier 'FindCerter' in script F:\***********
Help me out pl0x

EDIT: maybe cus im using SwiftSwitch

dosnt actually work for me it goes down into the mines and mines then it cant find the teleporter so it basicly stuck in the mines for me anyone else get this problum?

Lol this script make one load and than its stopt, and try to bak my ess...

Congratulations dude, you're very good, everything works well.
You also have got a runecrafter?

Good work dude! It rocks...

This is kinda outdated So i won't suggest of using.. There is other Essminers in other sections ( at least in SRL members section ) Or try learn from this great script and make your own :)


~Home

WOAH! It worked for me!

nomatter what it ALWAYS stands behind bank searches for bank booth it anoying:duh: :duh:
therwise this script pwns if some1 tells me how to make the mouse click on some certain co-ords then i cud fix myself :P

Can you Fixe This Script it got problem on Banker then hi go out form magick shop , hi make 2 steps and stops, and looking araund just moving mause and thats all Plz fix this script

dude this threat is really old....plus solemn has new esse miner out and this dont even use srl it uses old original includes...i dont suggest using it unless you want to run the high risk of being banned.

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 : tomcrew_455@hotmail.com Thanks.

and how do i download Srl, it wont seem to let me

Quote:

---

Originally Posted by 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 : tomcrew_455@hotmail.com Thanks.

---

ok were you logged in when you started the script...if not try that, because when i last used the script it was fine when u logged in before running and second did you drag the cross hairs onto client?

to answer ur other post...go here to download http://www.villu-reborn.com/showthread.php?t=3410 it then scroll down a little bit then click the name of the attachemnt to download it (not install button)..and if you get unexpected end of file error message when extracting the file redownload and try again it might take a few tries

I do! Great JOB!

Quote:

---

Originally Posted by Scar RL

I do! Great JOB!

---

you do what? and great job to who??:confused:

it works fine untill it gets back 2 the bank when it needs to find the banker the mouse just keeps moving in circles

dont forget this is a very very old script...it doesnt even use srl...i dont suggest using it....like i still use it once in a while and i'll get like 150 esse before it screws up...and with this the antibans are all outdated so it wouldnt likely be able to solve any..though the autotlaker/responder still works perfect

Quote:

---

Originally Posted by Jag024

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

---

wow hope it works i looked to hours and i finally found one!!!! thank you so much dog~~!~!~!~!~!~ i gotta go download it on my Cp!!! cya:cartman: