Downloading Includes

How exactly would you get includes manually because I need to download Includes but even though I download them, SCAR keeps on asking me for the include file:
Include file C:\Program Files\SCAR 3.15\includes\srl\srl\extended\xmapwalk.scar does not exist.
Failed when compiling

PHP:

{Start at Varrock East bank. SetUp Player, and GO!}
 
program EssenceMiner;
{.include srl/srl.scar}
{.include srl/srl/extended/xmapwalk.scar}
{.include srl/srl/skill/mining.scar}

var mined,banked,MiningWaitTime:integer;
    MagicShop,transportation:integer;
    RockColor,CloseBank01,TP,MS:integer;
    LoggingOutMark,LogsO:Integer;
    TotEss,TotalEss:integer;
    Trip,TotRun:integer;
    Teleported:Boolean;
    OutEss:Boolean;
    TotRunStr:string;
    Location:String;
    TotEssStr:string;
    What:string;
    RCol:string;
    const
{______________________________________}
{////////////////////\\\\\\\\\\\\\\\\\\}
{///-------Answering-Set-Up----------\\}
{////////////////////\\\\\\\\\\\\\\\\\\}
    Answer1='bank';  //Text for answer of BankRuns
    Answer2='esse';  //Text for answer of Mined essences
    Answer3='logs';  //Text for answer of Logs out
    Answer4='loca';  //Text for answer of location
    Answer5='goin';  //Text for answer of happening
    Answer6='hello';
    Answer7='tote';  //Text for answer of total essences
    Answer8='totb';  //Text for answer of total banks
    Answer9='help';  //sends to you all commands what is used for answering
    
OtherPlayer='';//If Other player who to answer (Remember real font size, first letter with big font)
    
                 {______________________________________}
                 {////////////////////\\\\\\\\\\\\\\\\\\}
                 {///--------------SET-UP-------------\\}
                 {////////////////////\\\\\\\\\\\\\\\\\\}
BankRuns=        {//Make} 12 {Bank runs}             {\\}                                                                                                                             ;
EveryXMinutes=   {//Log out every} 15 {minutes}      {\\}                                                                                                                             ;
ForXMinutes=     {//Stay logged out for} 2 {minutes} {\\}                                                                                                                       ;
                 {////////////////////\\\\\\\\\\\\\\\\\\}
                 
                     
procedure declareplayers;
  begin
  HowManyPlayers:=1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:=0;
                    {______________________________________}
                    {////////////////////\\\\\\\\\\\\\\\\\\}
                    {///----------PLAYER-SET-UP----------\\}
                    {////////////////////\\\\\\\\\\\\\\\\\\}
Players[0].Name:=   {//Player Name     =}'Your Account'                                                                                                                                  ;
Players[0].Pass:=   {//Player Password =}'MyPass'                                                                                                                                       ;
Players[0].Nick:=   {//Player Nickname =}'ur Accou' //(Remember real font size, first letter with big font)                                                                                                                                ;
                    {////////////////////\\\\\\\\\\\\\\\\\\}
                                        end;

function GoingOn(What:string):boolean;
begin
clearreport;
writeln(What+' ('+TheTime+')')
status(What+' ('+TheTime+')')
addtoreport(what+' ('+theTime+')')
What:=What
end;

function Answer(FromCommand,WithCommand,ToPlayer:string):boolean;
var a:string;
    NameBmp:integer;
begin
wait(20)
a:=Lowercase(Trim(GetTextAtEx(84, 415, 45, SmallChars, False, False, 0, 2, 128, 40, True, tr_NormalChars)))
if(pos(a,FromCommand)<>0)
then begin
writeln('Found a command: '+FromCommand)
GameTab(8)
NameBmp:=CreateBitMapMaskFromText(ToPlayer,SmallChars)
if(findbitmapin(NameBmp,x,y,490,185,750,483))
then begin
writeln('Answered to '+ToPlayer)
Mouse(x+5,y+3,1,1,true)
wait(500)
Mouse(330,455,5,5,true)
TypeSend(WithCommand)
writeln('With command: '+withcommand)
end;
 end;
  end;

procedure SetAtScriptBrightness;
begin
GameTab(11)
if(not(getcolor(680,230)=9584920))
then begin
goingon('Setting right brightness for script')
Mouse(680,230,1,1,true)
wait(500)
end;
 end;
 
procedure Answers;
begin
if(otherplayer='')
then begin
exit;
end;
Answer(Answer1,'I have mined '+inttostr(mined)+' essences now.',OtherPlayer)
//Text for answer of BankRuns

Answer(Answer2,'I have banked '+inttostr(banked)+' times now.',OtherPlayer)
//Text for answer of Mined essences

Answer(Answer3,inttostr(LogsO)+' times logged out.',OtherPlayer)
//Text for answer of Logs out

Answer(Answer4,'Im in the'+Location,OtherPlayer)
//Text for answer of Location

Answer(Answer5,'Im doing now: '+What,OtherPlayer)
//Text for answer of happening

Answer(Answer6,'Hi! :)',OtherPlayer)

Answer(Answer7,'Total essences mined: '+TotEssStr,OtherPlayer)
//Text for answer of total essences mined

Answer(Answer8,'Total times banked: '+TotrunStr,OtherPlayer)
//Text for answer of total bank times

answer(Answer9,'Used commands are: '+Answer1+','+Answer2+','+Answer3+','+Answer4+','+Answer5+','+Answer6+','+Answer7+','+Answer8+','+Answer9,OtherPlayer)
//Text for answer of used commands
end;


{LogOutEvery2 based From SRL, made it to log out for every X MINUTES}
procedure LogOutEvery2(Minutes, ForXMins: integer);
var LogsO:integer;
begin
  if ((TimeFromMark(LogOutMark) / 1000) / 60 >= Minutes) then
  begin
    MarkTime(Loggingoutmark);
      LogOut;
      goingon('Logged out, coming back soon')
      LogsO:=LogsO+1
      goingon('Logged out for ' + inttoStr(forxmins) + 'min(s)')
    goingon('Logging out and coming back in about ' + IntToStr(forxmins) + ' min(s)');
    repeat
      Mmouse(5, 5,1,1)
        Wait(30000 + Random(1000));
      Wait(15 + Random(15) + Random(15))
    until (TimeFromMark(Loggingoutmark) >= forxmins);
    Wait(Random(10000) + Random(5000));
    LoginPlayer;
    Wait(Random(5000) + Random(2500));
  end;
end;

procedure TalkingToMeTXT;
begin
 Case Random(10)+1 of
  1: TypeSend('Right...'+chr(13))
  2: TypeSend('What?'+chr(13))
  3: TypeSend('Sorry, i dont understand.'+chr(13))
  4: TypeSend('What do yuo want?'+chr(13))
  5: TypeSend('I have no time'+chr(13))
  6: TypeSend('I dont like you'+chr(13))
  7: TypeSend('You are getting my nervous'+chr(13))
  8: TypeSend('is it possible to be quit for 2 minutes?'+chr(13))
  9: TypeSend('yes? I am.'+chr(13))
 10: TypeSend('No, you again.'+chr(13))
 End;
 end;

 procedure TalkingToMe;
var CUAM:integer;
 begin
 If(not(FindBitmapMaskTolerance(NickNameBmp, x, y, 0, 24, 517, 338, 0, 40))) then begin
 wait(random(10))
 Exit; end;
If(FindBitmapMaskTolerance(NickNameBmp, x, y, 0, 24, 517, 338, 0, 40)) then
begin
TalkingToMeTxt;
CUAM:=CUAM+1
Writeln('Your Name has spotted on the screen '+
'and you  answered.')
if(CUAM>3) then begin
TypeSend('Nice to talk, but now gtg. See you! :)')
LogOut;
Wait(20000+random(15000))
LogInPlayer;
CUAM:=0
end;
end;
wait(500)
end;

procedure SayLevel(Skill:string);
var LVLBmp,Lvl:integer;
 begin
  LvlBmp:=createbitmapmaskfromtext(skill,upchars)
If(FindBitmapMaskTolerance(LvlBmp, x, y, 0, 0, 516, 338, 0, 40))then
begin
Lvl:=GetSkillLevel(Skill)
TypeSend('My '+Skill+' Level is '+inttostr(Lvl)+chr(13))
goingon('Someone asked your '+Skill+' level. You answered.')
end;
end;

function InShop:boolean;
begin
if(findsymbol(x,y,'magic shop')=true)or(FindSymbol(x,y,'anvil')=true)
then begin
GoingOn('In shop')
Location:='In Shop'+inttostr(ScriptTime(2))
result:=true;
end;
 end;

function AtBank:boolean;
begin
if(findsymbol(x,y,'bank')=true)
then begin
GoingOn('At bank')
Location:='At bank'+inttostr(ScriptTime(2))
Result:=True;
end;
 end;

function AtEss:boolean;
begin
if(findsymbol(x,y,'transportation')=true)and
not(findsymbol(x,y,'anvil'))
then begin
Goingon('At essences')
Location:='At essences '+inttostr(ScriptTime(2))
result:=true;
end;
 end;

   procedure NotFindEss;
   begin
   goingon('Couldnt find object, rotating screen and trying again')
   case random(9) of
   0:
    begin
     KeyDown(VK_Left)
     wait(750)
     KEyUp(VK_Left)
     end;
  1:
   begin
     KeyDown(VK_Right)
     wait(750)
     KEyUp(VK_Right)
     end;
   2:
   begin
     KeyDown(VK_Up)
     wait(750)
     KEyUp(VK_Up)
     end;
   3:
   begin
     KeyDown(VK_Down)
     wait(750)
     KEyUp(VK_Down)
     end;
   4:
   begin
   HighestAngle;
   end;
   5:
   begin
   MakeCompass('N')
   end;
   6:
   begin
   MakeCompass('E')
   end;
   7:
   begin
   MakeCompass('S')
   end;
   8:
   begin
   MakeCompass('W')
   end;
  end;
    end;

procedure checkbankcolor;
var c : integer;
begin
c:=0
      repeat
           BankColor:= GetSymbolColor(x,y, 'bank');
           c:= c+1;
           wait(140+random(20))
           writeln('Taken '+inttostr(c)+'/20 tries to find bank')
       until(bankcolor>0)or(c>19)

       if(c>19)then
       begin
       c:=0
          GoingOn('Cant find BankSymbol');
          Goingon('Logging out and coming back')
          LogOut;
          wait(200)
          LogInPlayer;
          wait(200+random(500))
          checkbankcolor;
      end;
      writeln('Bank color: '+inttostr(BankColor))
end;

procedure Walkingways;
 begin
 case random(2) of
 0: begin mouse(681+random(4)-random(4),102+random(4)-random(4),2,2,true)
   SetRun(true)
   MMouse(681,102,2,2)
   wait(200)
   flag;
   mouse(626+random(4)-random(4),118+random(4)-random(4),2,2,true)
   wait(200)
   flag;
    end;

1: begin mouse(612+random(4)-random(4),94+random(4)-random(4),2,2,true)
   SetRun(true)
   MMouse(681,102,2,2)
   wait(400)
   flag;
   mouse(653+random(4)-random(4),120+random(4)-random(4),2,2,true)
   wait(300)
   flag;
   end;
    end;
     end;

procedure walkToAubury;
begin
Goingon('Walking to magic shop')
 Walkingways;
 end;

 procedure Toshop;
 begin
   MS:=0
   TP:=0
   MagicShop:=0
   Transportation:=0
 Goingon('Finding shop')
        repeat
       MagicShop:=GetSymbolColor(x,y,'magic shop')
       wait(50)
       MS:=MS +1
       writeln('Taken '+inttostr(MS)+'/6 tries to find Magic shop symbol')
       until(MS=6)or (MagicShop>0)
       MS:=0
       if(MagicShop>0)then begin
       Mouse(x+random(2)-random(2),y+9,2,2,true)
       Goingon('Found Magic shop')
       end;
       if(MagicShop=0) then begin
                      writeln(' ')
                   repeat
                   Transportation:=GetSymbolColor(x,y,'transportation')
                   wait(50)
                   TP:=TP +1
                   writeln('Taken '+inttostr(TP)+'/6 tries to find Transportation symbol')
                  until(TP=6)or(Transportation>0)
                  TP:=0
                  writeln('')
                  Goingon('Found magic shop')
                  Mouse(x+random(2)-random(2),y+9,2,2,true)
                   end;
         if(MagicShop=0)and(Transportation=0)
         then begin
         logout;
         loginplayer;
         ToShop;
         end;
    wait(200)
   flag;
   wait(1000)
   MS:=0
   TP:=0
   MagicShop:=0
   Transportation:=0
   end;

procedure ToRocks;
begin
if(Teleported=True)
then begin
Teleported:=True;
Exit;
end;
Teleported:=False
Goingon('Finding Aubury')
mousespeed:=4
FindObj(x,y,'Aubu',1287656,7)
wait(50)
Mouse(x+random(1)-random(1),y+random(1)-random(1),2,2,false)
if(not(ClickOption('Tele',1)))then begin
wait(100)
Clickoption('Cancel',1)
wait(100)
if(Teleported=True)
then begin
Exit;
end;
notfindess;
if((InShop)=false)
then begin
exit;
end;
ToRocks;
end;
mousespeed:=7
ClickOption('Tele',1)
wait(200)
if(inchat('reach'))
then begin
ToRocks;
end;
Teleported:=True;
flag;
wait(5000+random(1000))
makecompass('n')
end;

procedure Roomways;
begin
 case random(4) of

 0: begin
      repeat
      goingon('Walking to S-W room')
 mouse(625+random(10)-random(10),100+random(10)-random(10),6,6,true)
 wait(3000)
 flag;
 until(findsymbol(x,y,'arrow'))
 Mouse(x+10,y,2,2,true)
 wait(200)
 flag;
 Location:='S-W room'+inttostr(ScriptTime(2))
     end;

 1: begin
 goingon('Walking to N-W room')
      repeat
 mouse(667+random(10)-random(10),60+random(10)-random(10),6,6,true)
 wait(3000)
 flag;
 until(findsymbol(x,y,'arrow'))
 Mouse(x-20,y+12,2,2,true)
 wait(200)
 flag;
  Location:='N-W room'+inttostr(ScriptTime(2))
       end;

 2: begin
 Goingon('Walking to S-E room')
       repeat
 mouse(670+random(10)-random(10),110+random(10)-random(10),6,6,true)
 wait(3000)
 flag;
 until(findsymbol(x,y,'arrow'))
 Mouse(x-15,y,2,2,true)
 wait(200)
 flag;
  Location:='S-E room'+inttostr(ScriptTime(2))
       end;

 3: begin
 Goingon('Walking to N-E room')
       repeat
 mouse(624+random(10)-random(10),60+random(10)-random(10),6,6,true)
 wait(3000)
 flag;
 until(findsymbol(x,y,'arrow'))
 Mouse(x+20,y+5,2,2,true)
 wait(200)
 flag;
  Location:='N-E room'+inttostr(ScriptTime(2))
       end;
 end;
  end;

function MiddleRoom:Boolean;
begin
if((AtEss)=false)
 then begin
 result:=true;
 writeln('You are in middle room')
roomways;
 end;
 end;

 procedure WhatRoom;
 begin
  if(FindSymbol(x,y,'Anvil'))then
 begin
 TelePorted:=False;
   ToShop;
 ToRocks;
 WhatRoom;
 end;
 goingon('What room is this?')
  if(FindSymbol(x,y,'arrow'))
  then begin
  goingon('This is not middle room')
  exit;
  end;
  if(not(FindSymbol(x,y,'arrow')))
  then begin
  MiddleRoom;
  end;
   end;


   procedure Randoms;
begin
findnormalrandoms;
wait(10)
solvepinball;
wait(200)
findtalk;
wait(10)
SayLevel('Mining')
wait(10)
clicktocontinue;
wait(10)
answers;
wait(10)
findname;
wait(10)
antiban;
GhostSpeak('Mining')
RandomChatEvery(4)
{BoredEvery(7)}
HoverEvery(6+random(2),'Mining')
FindLamp('Mining')
wait(10)
answers;
wait(10)
SayLevel('Magic')
wait(10)
wait(10)
FindPick;

if(findfight)then begin
goingon('Fight found, running away...')
RunAwayDirection('N')
wait(10000)
runback;
end;
if(findnewbox)then begin
Logout;
Goingon('Found a new box, logged out')
terminatescript;
end;
SRLRandomsReport;
clicktocontinue;
end;

procedure whilemining;
begin
Randoms;
wait(20)
TalkingToMe;
wait(30)
Answers;
wait(10)
end;

procedure GetRockColor;
begin
writeln('')
 if((AtEss)=false)
 then begin
 ToRocks;
 WhatRoom;
end;
Goingon('Getting new rock color')
if(Rcol='')
then begin
Rcol:='8487563'
end;
RCol:=LoadSetting('Pentti','RColor')
if(Rcol='')
then begin
Rcol:='8487563'
end;
Goingon('Old rock color: '+Rcol)
if(Rcol='')
then begin
Rcol:='8487563'
end;
RockColor:=strtoint(Rcol)
if(RockColor=0)then begin
RockColor:=8487563
end;
if(FindObj(x,y,'Esse',RockColor,10))
then begin
getmousepos(x,y)
MMouse(x,y,0,0)
 if(not(isuptext('Esse')))
 then begin
 notfindess;
 GetRockColor;
end;
 if(isuptext('Esse'))
 then begin
 getmousepos(x,y)
 RockColor:=getcolor(x,y)
  if(RockColor=65535)or(RockColor=0)
  then begin
  notfindess;
  GetRockColor;
 end;
end;
end;
makeCompass('n')
  writeln('Got new rock color: '+inttostr(RockColor))
  writeln('')
  SaveSetting('Pentti','RColor',inttostr(Rockcolor))
end;

procedure MineClick;
begin
  case random(2) of
0:  begin
    MMouse(x,y,1,1)
    if(not(isuptext('Esse')))
    then begin
    MineClick;
    end;
  if(IsUpText('Esse'))
  then begin
     mouse(x+random(1)-random(1),y+random(1)-random(1),2,2,true)
     flag;
     wait(200)
     end;
    end;

1:  begin
    mouse(x+random(1)-random(1),y+random(1)-random(1),2,2,false)
    wait(200)
    if(not(clickoption('ine',1)))
    then begin
    MMouse(10,10,1,1)
    wait(200)
    MineClick;
    end;
    Clickoption('ine',1)
    wait(200)
    flag;
    end;
    end;
    end;

 procedure Mine;
 begin
 repeat
 if(FindObj(x,y,'Esse',rockcolor,10))
  then begin
 wait(200)
 getmousepos(x,y)
 MineClick;
 wait(1000)
 Goingon('Mining')
 MarkTime(MiningWaitTime)
 repeat
 wait(1000)
  whilemining;
 until((TimeFrommark(MiningWaitTime)/1000)>25)or(invfull)
 or(not(loggedin))
 if(not(invfull))
 then begin
 Mine;
  end;
 end;
 notfindess;
  until(invfull)
    end;


 procedure BackShop;
 begin
 if(OutEss=True)
 then begin
 exit;
 end;
 OutEss:=False;
 Goingon('Going back to magic shop')
 SetRun(true)
   repeat
 wait(200)
 FindSymbol(x,y,'arrow')
 until(FindSymbol(x,y,'arrow'))
 mouse(x+4+random(2)-random(2),y+7+random(2)-random(2),2,2,true)
 wait(300)
 flag;
 wait(200)
 MMouse(450+random(50),100+random(25),2,2)
 if(FindObj(x,y,'orta',10010307,7))then begin
 wait(200)
 mouse(x,y,2,2,false)
 wait(1000)
 if(not(Clickoption('Use',1)))then begin
 OutEss:=False;
 BackShop;
 end;
 if(ClickOption('Use',1))then
 begin
 wait(300)
 flag;
 OutEss:=True;
 wait(3500)
 end;
 end;
 wait(1000)
 end;

 procedure BankWays;
  begin
    if(TotEssStr='')
   then begin
   TotEssStr:='1'
    end;
  TotEssStr:=LoadSetting('Pentti','TotalEssences')
  if(TotEssStr='')
   then begin
   TotEssStr:='1'
    end;
  Mined:=Mined +28
  writeln('M'+inttostr(Mined))
  ReportVars[1] := Mined;
  TotalEss:=strtoint(TotEssStr)
  if(TotalEss=0)
  then begin
  TotalEss:=1
  end;
  case random(2) of

0:begin
 mouse(662+random(2)-random(2),39+random(2)-random(2),2,2,true)
 wait(1500)
 Flag;
 wait(1500)
 flag;
 checkbankcolor;
 wait(10)
 Mouse(x+3,y+6,2,2,true)
 wait(500)
 flag;
  end;

1:begin
 mouse(610+random(2)-random(2),50+random(2)-random(2),2,2,true)
 wait(500)
 Flag;
 wait(100)
 mouse(653+random(2)-random(2),55+random(2)-random(2),2,2,true)
 wait(500)
 flag;
 checkbankcolor;
 wait(200)
 Mouse(x+3,y+6,2,2,true)
 wait(500)
 flag;
 end;
  end;
   end;

 procedure ToBank;
 begin
 Goingon('Walking to bank')
 MakeCompass('N')
 bankways;
 end;

 procedure BankEss;
 begin
 MakeCompass('S')
  openbank3;
  wait(50+random(50))
  fixbank;
  fixbank;
  wait(50+random(50))
  Goingon('banking all rune essences')
  deposit(2,28,2);
  deposit(2,28,2);
  if(TotRunStr='')
   then begin
   TotRunStr:='1'
    end;
  TotRunStr:=LoadSetting('Pentti','TotalRuns')
  if(TotRunStr='')
   then begin
   TotRunStr:='1'
    end;
  TotRun:=strtoint(TotRunStr)
  if(TotRun=0)
  then begin
  TotRun:=1
  end;
  TotRun:=TotRun+1
  SaveSetting('Pentti','TotalRuns',inttostr(TotRun))
  banked:=banked+1
  writeln('B'+inttostr(banked))
  ReportVars[0] := Banked;
  wait(1050+random(50))
     repeat
  findbitmap(CloseBank01,x,y)
  wait(1000)
  movemousesmooth(x+7,y+7)
  wait(500)
  mouse(x+7,y+7,4,4,true)
  wait(200)
    until(not(findbitmap(CloseBank01,x,y)))
  wait(1000)
  Makecompass('N')
  wait(500+random(50))
  end;

  procedure Report;
  begin
  TotEssstr:=LoadSetting('Pentti','TotalEssences')
  TotRunStr:=LoadSetting('Pentti','TotalRuns')
  cleardebug;
  writeln(' _____________________________________ ')
  writeln('|Essence miner by: Pentti (Report->)  |')
  writeln('|_____________________________________|')
  writeln('| '+inttostr(Banked)+' Banking runs by one script run. |')
  writeln('| Mined '+inttostr(Mined)+' essences by one script run  |')
  writeln('| Script has worked for '+inttostr(ScriptTime(2))+' minutes.   |')
  writeln('| Logged out '+inttostr(LogsO)+' times                  |')
  writeln('| Total essences mined: '+TotEssstr+'           |')
  writeln('| Total bank runs: '+Totrunstr+'                  |')
  writeln('|_____________________________________|')
  end;

  procedure LoadBitMaps;
  begin
  CloseBank01 := BitmapFromString(19, 20, 'z78DAC594411283200C4' +
       '5AF244908B29452EE7FA45A7F17CC88347464EAE28D03212F8824' +
       'E6E8C223826E152D33B86A48BA86459D6872DB1AE33C63EDF2C51' +
       '37F76879179F45132472F1239A092D946798A670661D4E4B370CD' +
       'E5FD38F03C3B1A3F6AEC7B2D91B51127FB5B367B550DA3F820EE8' +
       'AE7CC0D5737C3A8B1EFB5ACDDFFD14205B41BCF5EFB2A614E9440' +
       '187137FBBCDAA365EDA8D1728E76E3DE6FF6966077D967BF18D18' +
       '52A36B29D62EC91A3C62B973DBE613C7AEC3CF2C6440AFEC1C8AA' +
       '5EA61B8532118C18C117AE2BB98D878B12A9CB78B7DCB57BF902E' +
       '139DD87');

       end;
       
   const Skip=false;

begin
SetUpSRL;
SetUpSRLMining;
ScriptID:='44'
cleardebug;
clearreport;
Report;
teleported:=False;
wait(3000)
clearreport;
cleardebug;
if(Skip=False) then begin
writeln('Going to make '+inttostr(bankRuns)+' bank runs.')
writeln('Logging out after '+inttostr(EveryXMinutes)+' minutes')
writeln('For '+inttostr(ForXMinutes)+' minutes')
wait(3500)
clearreport;
cleardebug;
Writeln('Essence miner By:    [Pentti]')
wait(160)
cleardebug
Writeln('Essence miner By:   [ Pentti ]')
wait(190)
cleardebug;
Writeln('Essence miner By:  [  Pentti  ]')
wait(250)
cleardebug;
Writeln('Essence miner By: [   Pentti   ]')
wait(250)
cleardebug
Writeln('Essence miner By:  [  Pentti  ]')
wait(190)
cleardebug;
Writeln('Essence miner By:   [ Pentti ]')
wait(160)
cleardebug;
Writeln('Essence miner By:    [Pentti]')
wait(1000)
end;
cleardebug;
disguisescar('MSN Messenger 7.5')
SymbolAccuracy:=0.8
mousespeed:= 7
Benmouse:=true
LoadBitMaps;
LoadGhostSpeakWords('Mining')
declareplayers;
if(Players[0].Name='')
then begin
writeln('[Line 53 missing playername] You must write your PLAYERNAME to start script')
terminatescript;
end;
if(Players[0].Pass='')
then begin
writeln('[Line 54 missing player password] You must write your PASSWORD to start script')
terminatescript;
end;
if(Players[0].Nick='')
then begin
writeln('[Line 55 missing player nickname] You must write your NICKNAME to start script')
terminatescript;
end;
NickNameBmp:=Createbitmapmaskfromtext(Players[0].Nick,Upchars)
Activateclient;
wait(1000)
if(not(loggedin))then loginplayer;
FindpickHeadColor;
if(hc1=0)or(hc2=0)or(hc3=0)or(hc4=0)
then begin
writeln('You must have pickaxe to run with this')
logout;
writeln('Logged out; [No pickaxe]')
terminatescript;
end;
repeat
Trip:=trip+1
writeln('Starting trip number '+inttostr(trip)+'.')
MakeCompass('N')
highestangle;
SetChat('Hide',1)
setchat('friends',2)
setchat('off',3)
teleported:=False;
SetAtScriptBrightness
walkToAubury;
toshop;
ToRocks;
OutEss:=False;
if(TelePorted=False)
then begin
ToShop;
ToRocks;
end;
WhatRoom;
getrockcolor;
mine;
TotalEss:=TotalEss+28
SaveSetting('Pentti','TotalEssences',inttostr(TotalEss))
Goingon('Inventory full')
writeln(inttostr(totaless))
mousespeed:=7
makecompass('n')
highestangle;
BackShop;
Tobank;
bankEss;
OutEss:=False;
LogOutEvery2(EveryXMinutes,ForXMinutes)
Report;
until(BankRuns=Banked)or(Scripttime(2)>240)
report;
SRLRandomsReport;
end.


 

Have you followed this guide?
http://www.sythe.org/showthread.php?t=461094

 

Its an outdated script.

extended/xmapwalk.scar does not appear in srl rev 31