Error! Something to do with the Includes!

Discussion in 'Scar/Simba Help' started by Great Ninja, Feb 12, 2008.

Error! Something to do with the Includes!
  1. Unread #1 - Feb 12, 2008 at 7:35 PM
  2. Great Ninja
    Joined:
    Sep 11, 2007
    Posts:
    48
    Referrals:
    0
    Sythe Gold:
    0

    Great Ninja Member

    Error! Something to do with the Includes!

    Ok.
    I put a script in and click "Run" or the play button.
    and down the bottom it comes up with this:-
    Code:
    Include file C:\Program Files\SCAR 3.14\includes\sslibrary.txt does not exist.
    Include file C:\Program Files\SCAR 3.14\includes\mri.txt does not exist.
    Include file C:\Program Files\SCAR 3.14\includes\boxbreaker.txt does not exist.
    Include file C:\Program Files\SCAR 3.14\includes\antiford.txt does not exist.
    Failed when compiling
    Where can I get those includes? It didn't come when I downloaded SCAR Divi 3.14 by Freddy1990

    Help!! :(


    Script is:-
    Code:
    {Varrock Miner
           by
    !!!HatlessCow!!!
        edited
          by
        creama
    now it actually walks back to the mine
    
    -Start in varock south-East Mine
    -Pickaxe in first invin slot
    -other pickaxes in first bank slot
    -go go go
    }
    program VarrockSouthEastMiner;
    {.include sslibrary.txt}
    {.include mri.txt}
    {.include boxbreaker.txt}
    {.include antiford.txt}
    
    const
    URL = false;//use random logging in and out?
    username = '';
    password = '';
    LampSkill = 'mining';//Skill if get a lamp
    RockType = 3;//1.Copper 2.Tin 3.Iron
    RoadColor = 5592411;
    BankSymbol = 3060683;
    MineSymbol = 4412257;
    
    var RockColor:integer;
    Mined,sst,cst,wst,wet,awt,awth,srt,tih,tim,tis:integer;
    Stop,GetPick,log1,log2,log3,log4,log5:boolean;
    
    procedure RandomLog;
    begin
     if(not log1)and((srt/60)>40)and((srt/60)<50)then
     begin
      log1:=true;
      logout;
      wait(45000+random(5000));
      login(username,password);
     end;
     if(not log2)and((srt/60)>100)and((srt/60)<110)then
     begin
      log2:=true;
      logout;
      wait(45000+random(5000));
      login(username,password);
     end;
     if(not log3)and((srt/60)>190)and((srt/60)<200)then
     begin
      log3:=true;
      logout;
      wait(45000+random(5000));
      login(username,password);
     end;
     if(not log4)and((srt/60)>340)and((srt/60)<350)then
     begin
      log4:=true;
      logout;
      wait(45000+random(5000));
      login(username,password);
     end;
     if(not log5)and((srt/60)>420)and((srt/60)<430)then
     begin
      log5:=true;
      logout;
      wait(45000+random(5000));
      login(username,password);
     end;
    end;
    
    procedure ProgReport;
    begin
     Writeln('-----===Varrock Miner By HatlessCow===-----');
     Writeln('---------=====Progress Report=====---------');
     cst:=getsystemTime;
     srt:=(cst-sst)/1000;
     tih:=srt/3600;
     tim:=(srt/60)-tih*60;
     tis:=srt-tim*60-tih*3600;
     awth:=awth+(wet-wst);
     awt:=awth/Mined;
     Writeln('Worked for '+inttostr(tih)+' Hours '+inttostr(tim)+' Minutes '+inttostr(tis)+' Seconds');
     Writeln('Mining 1 ore every '+inttostr(awt/1000)+' Seconds');
     Writeln('Mined '+inttostr(Mined)+' Ores');
     Writeln('Gained '+inttostr(Mined*35)+' xp');
     if(drfordcnt>0)then writeln('Solved '+inttostr(drfordcnt)+' Dr. Ford random[s].');
     if(srt>=60)then
     begin
      Writeln('Mining Approximately '+inttostr(Mined/(srt/60))+' Ores Per Minute');
      Writeln('Mining Approximately '+inttostr((Mined/(srt/60))*60)+' Ores Per Hour');
     end;
     Writeln('---------=====Progress Report=====---------');
    end;
    
    procedure SetRColor;
    begin
     if(RockType=1)then
      RockColor:=4812955;
     if(RockType=2)then
      RockColor:=9013650;
     if(RockType=3)then
      RockColor:=2503250;
    end;
    
    Procedure MouseFlag(x,y,rx,ry:integer);
    begin
    Mouse(x,y,rx,ry,true);
    Flag;
    end;
    
    procedure bag;
    begin
     Mouse(651,187,3,3,true);
    end;
    
    procedure RunFF;
    begin
     Run(true);
     MouseFlag(650,150,0,0);
     wait(6000);
     MouseFlag(642,19,0,0);
     Run(false);
     bag;
    end;
    
    procedure MiningRandoms;
    begin
     if(Fight)then
      begin
       Stop:=true;
       RunFF;
      end;
     if(HeadGone)then
      Stop:=true;
     if(PickBroke)then
      GetPick:=true;
     findtext;
     eyetest;
     FindBox;
     UseLamp(lampskill);
     FindMiscRandoms;
     if(dead)then
      Logout;
    end;
    
    procedure Randoms;
    begin
     if(Fight)then
      begin
       runff;
      end
     findtext;
     eyetest;
     FindBox;
     UseLamp(lampskill);
     FindMiscRandoms;
     if(dead)then
      Logout;
    end;
    
    procedure ToBank;
    var rwalk:integer;
    begin
     randoms;
     Run(true);
     Bag;
     MouseFlag(694,57,2,2);
     for RWalk:=0 to 2 do
     begin
      If(FindColorSpiral(x,y,RoadColor,602,8,679,41))then
       MouseFlag(x,y,1,1);
     end;
     repeat
      If(FindColorSpiral(x,y,RoadColor,602,8,679,41))then
       MouseFlag(x,y,1,1);
     until(FindColorSpiral(x,y,RoadColor,570,19,602,107))
     repeat
      If(FindColorSpiral(x,y,RoadColor,570,19,602,107))then
       MouseFlag(x,y,1,1);
     until(FindColorSpiral(x,y,BankSymbol,572,8,725,160))
     If(FindColorSpiral(x,y,BankSymbol,572,8,725,160))then
      MouseFlag(x,y,1,1);
    end;
    
    procedure ToMine;
    begin
     randoms;
     Run(true);
     Bag;
     MouseFlag(692,55,3,3);
     MouseFlag(708,89,3,3);
     MouseFlag(675,129,3,3);
     if(FindColorSpiral(x,y,RoadColor,593,24,716,107))then
      MouseFlag(x,y,1,1);
     repeat
      if(FindColorSpiral(x,y,RoadColor,614,115,686,160))then
       MouseFlag(x,y,1,1);
     until(FindColorSpiral(x,y,MineSymbol,572,8,725,160))
     If(FindColorSpiral(x,y,MineSymbol,572,8,725,160))then
      MouseFlag(x,y,1,1);
    end;
    
    procedure Bank;
    begin
     randoms;
     OpenBank;
     Deposit(1,1,1);
     DepositAll;
     Withdraw(1,1,1);
     CloseWindow;
     randoms;
    end;
    
    procedure findblack;
    begin
    x:=0
    y:=0
    if(findcolorspiral(x,y,0,40,119,211,264)then
     begin
     eyetest;
     end;
    end;
    
    Function FindRock:boolean;
    begin
     if(FindObj('Mine',rockcolor,5))and(not(GasFound(rockcolor)))then
      result:=true;
    end;
    
    procedure MineRock;
    var tx,ty,qx,qy,ifail,itrack:integer;
    begin
     Stop:=false;
     ifail:=0;
     if(FindRock)then
     begin
      Mouse(x,y,4,4,true);
      tx:=x; ty:=y;
      repeat
      wait(100+random(600));
      FindColorSpiralTolerance(tx,ty,RockColor,tx-10,ty-10,tx+10,ty+10,5)
      if(not(FlagPresent))then
       itrack:=itrack+1;
      until(not(FlagPresent))and(itrack>=20)
      repeat
       ifail:=ifail+1;
       wait(150+random(400));
       MiningRandoms;
      until(ifail>45)or(Stop)or(GetPick)or(InventoryCount=28)or(not(FindColorSpiralTolerance(qx,qy,RockColor,tx-10,ty-10,tx+10,ty+10,5)))
     end;
    end;
    
    begin
    LoadLibrary('Internet Explorer');
    LoadMRI;
    SetRColor;
    Run(false);
    SetBrightness('vbright');
    SetChat('off');
    Bag;
    GetHeadColorPick;
    sst:=getsystemtime;
    repeat
     wst:=getsystemtime;
     repeat
      MiningRandoms;
      findblack;
      MineRock;
      MiningRandoms;
     until(GetPick)or(InventoryCount=28)
     wet:=getsystemtime;
     Mined:=Mined+InventoryCount-1;
     ProgReport;
     randoms;
     ToBank;
     Bank;
     ToMine;
     if(URL)then
      RandomLog;
    until(false)
    end.
     
  3. Unread #2 - Feb 13, 2008 at 3:37 AM
  4. Macroman
    Joined:
    Jan 21, 2007
    Posts:
    6,919
    Referrals:
    9
    Sythe Gold:
    12

    Macroman Hero
    Do Not Trade

    Error! Something to do with the Includes!

    Have you downloaded the latest Version Of SRL?
     
  5. Unread #3 - Feb 13, 2008 at 10:03 AM
  6. Great Ninja
    Joined:
    Sep 11, 2007
    Posts:
    48
    Referrals:
    0
    Sythe Gold:
    0

    Great Ninja Member

    Error! Something to do with the Includes!

    Yes, Where can I get these includes that are missing?
     
  7. Unread #4 - Feb 13, 2008 at 3:00 PM
  8. merked
    Referrals:
    0

    merked Guest

    Error! Something to do with the Includes!

    :/ idk m8 soz
     
  9. Unread #5 - Feb 13, 2008 at 3:40 PM
  10. Jukka
    Joined:
    Nov 23, 2005
    Posts:
    244
    Referrals:
    0
    Sythe Gold:
    0

    Jukka Active Member

    Error! Something to do with the Includes!

    get a new script ;)
     
  11. Unread #6 - Feb 14, 2008 at 11:25 AM
  12. Great Ninja
    Joined:
    Sep 11, 2007
    Posts:
    48
    Referrals:
    0
    Sythe Gold:
    0

    Great Ninja Member

    Error! Something to do with the Includes!

    I've tried it with allot of scripts, they all say the same error :(
     
  13. Unread #7 - Feb 19, 2008 at 1:03 PM
  14. Great Ninja
    Joined:
    Sep 11, 2007
    Posts:
    48
    Referrals:
    0
    Sythe Gold:
    0

    Great Ninja Member

    Error! Something to do with the Includes!

    Still need help... :(
     
  15. Unread #8 - Feb 19, 2008 at 1:23 PM
  16. cazax
    Joined:
    Nov 13, 2007
    Posts:
    457
    Referrals:
    0
    Sythe Gold:
    0

    cazax Forum Addict

    Error! Something to do with the Includes!

    go to srl-forums.com there are a lot of script there.
     
  17. Unread #9 - Feb 20, 2008 at 2:17 AM
  18. Macroman
    Joined:
    Jan 21, 2007
    Posts:
    6,919
    Referrals:
    9
    Sythe Gold:
    12

    Macroman Hero
    Do Not Trade

    Error! Something to do with the Includes!

    Just go, Options...

    Download Includes
    SRL
     
< Help! | What is wrong with this script >

Users viewing this thread
1 guest


 
 
Adblock breaks this site