Downloading Includes

Discussion in 'Scar/Simba Help' started by robinabo, Jan 19, 2009.

Sign in to Post
Thread Tools

Thread Tools

  • Thread ID:
Downloading Includes
  1. Unread #1 - Jan 19, 2009 at 4:50 PM
  2. robinabo
    Joined:
    Jan 19, 2009
    Posts:
    1
    Referrals:
    0
    Sythe Gold:
    0

    robinabo Newcomer

    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.
     
    Share
  3. Unread #2 - Jan 21, 2009 at 2:03 AM
  4. Macroman
    Joined:
    Jan 21, 2007
    Posts:
    6,919
    Referrals:
    9
    Sythe Gold:
    12

    Macroman Hero
    Do Not Trade

    Downloading Includes
    Share
  5. Unread #3 - Jan 21, 2009 at 11:16 AM
  6. Scar Newbie v1
    Joined:
    Jan 21, 2007
    Posts:
    41
    Referrals:
    0
    Sythe Gold:
    0

    Scar Newbie v1 Member

    Downloading Includes
    Its an outdated script.

    extended/xmapwalk.scar does not appear in srl rev 31
     
    Share
< ok y am i getting this error? | 50 Examples >

Users viewing this thread
1 guest


 
 
Adblock breaks this site