Adblock breaks this site

[HELP] Need Help With My Yew Cutter + Banker Script ! [HELP]

Discussion in 'Scar/Simba Help' started by Teh Burgess, Jun 23, 2010.

  1. Teh Burgess

    Teh Burgess Newcomer

    Joined:
    Jun 21, 2010
    Posts:
    6
    Referrals:
    0
    Sythe Gold:
    0
    [HELP] Need Help With My Yew Cutter + Banker Script ! [HELP]

    ok ive got a script for the edgeville yew cutter + banker but i have a problem when compiling.

    Code:
    //Start in the Yew tree room in edgeville
    //Drag crosshairs onto runescape
    
    { ~~~ Enjoy The Burgess Yew Cutter + Banker ~~~ }
    
    
    program YewCutter;
    {.include SRL/SRL.Scar}
    {.include SRL/SRL/Skill/WoodCutting.Scar}
    {.include SRL/SRL/Extended/xMapWalk.Scar}
    
    const
    LoadsToDo = 10; // The number of inventorys to do
    WaitTime = 10000; //The time to click / the wait.
    YewColor = 2903391; //Yew tree color / leaves.
    YewColor2 = 2771008; //Yew tree other colour / trunk.
    BankSymbolColor = 5885676; //Bank symbol color here.
    YewSymbolColor = 954132; //Yew tree symbol color.
    
    var
    Loads, fs, fs2, sx, sy, ex, ey:Integer;
    
    procedure SetUp;
    begin
     HighestAngle;
     MakeCompass('N');
    end;
    
    procedure Fight;
    begin
      if(FindFight)then
        begin
          RunAwayDirection('N');
         Wait(9500+Random(5500))
        RunBack;
      end;
    end;
    
    procedure Dead;
    begin
     if(FindDead)then
     Writeln('YOURE DEAD!')
    end;
    
    procedure CutYews;
    begin
    repeat
     if FindMSColorTol(x,y,YewColor,3) or
     FindMSColorTol(x,y,YewColor2,3) then
      begin
      MMouse(x,y,3,3)
       If IsUpTextMulti('Chop','down','Yew') then
       Mouse(x,y,2,2,True)
        Wait(WaitTime+Random(1312))
      end else
      y := y + 10;
       MMouse(x,y,3,3)
       If IsUpTextMulti('Chop','down','Yew') then
       begin
       Mouse(x,y,2,2,True)
        Wait(WaitTime+Random(1312));
        end else
        writeln('The Door Is Shut');
        LowestAngle;
        MakeCompass('N');
           MMouse(244,111,3,3)
           wait(1125)
            Mouse(244,111,2,2,True)
                until(InventoryFull)
    end;
    
    procedure BankYews;
    begin
      If FindMMColorTol(x,y,BankSymbolColor,2) then
     begin
      if not (BankScreen) then
        repeat
          if (FindObject(x, y, 'booth', 2842230, 10, True)) then
            Mouse(x, y, 4, 4, False)
          else
          if (FindObject(x, y, 'booth', 12611, 10, True)) then
            Mouse(x, y, 4, 4, False);
          Wait(250);
          if (ClickOption('quickly', 1)) then
          begin
            Flag;
            repeat
              Wait(100);
              fs := fs + 1;
            until (BankScreen) or (fs >= 50) or ((GetColor(136, 40) = 255) and (GetColor(202, 39) = 255));
          end;
          fs2 := fs2 + 1;
        until (BankScreen) or (fs2 >= 5) or ((GetColor(136, 40) = 255) and (GetColor(202, 39) = 255));
        begin
      if (BankScreen) then
      begin
        while (FindColor(x, y, 65536, sx, sy, ex, ey)) do
        begin
          Mouse(x + 4, y + 4, 3, 3, False);
          Wait(800);
          ClickOption('All', 2);
             ClickOption('Cancel', 2);
     Loads:=Loads+1;
    end;
    end;
    end;
    end;
    end;
    
    
    
    procedure BackToYews;
    begin
     if FindMMColorTol(x,y,YewSymbolColor,2)then
     begin
     MMouse(x,y,3,3);
     wait(340)
     Mouse(x,y,2,2,True)
     Flag;
     Wait(2654+Random(1232))
     end else
     LowestAngle;
    if FindMSColorTol(x,y,8757928,3)then
    begin
     MMouse(x,y,3,3);
     wait(340)
     Mouse(x,y,2,2,True)
     wait(1200);
     if FindMMColorTol(x,y,YewSymbolColor,2)then
     begin
     MMouse(x,y,3,3);
     wait(340);
     Mouse(x,y,2,2,True);
     Flag;
     Wait(2654+Random(1232))
    end;
    end;
    end;
    
    procedure ProgressReport;
    begin
    WriteLn('------------The Burgess Yew Chopper--------------')
    WriteLn('-------------------------------------------------')
    WriteLn('You have cut and banked' +inttostr(Loads)+ 'loads')
    WriteLn('-------------------------------------------------')
    WriteLn('------------The Burgess Yew Chopper--------------')
    end;
    
    begin
      SetUpSRL;
      activateclient;
      SetUp;
      repeat
      Fight;
      Dead;
      CutYews;
      findnormalrandoms;
      Fight;
      Dead;
      BankYews;
      findnormalrandoms;
      BackToYews;
      until(Loads = LoadsToDo)
      ProgressReport;
      if(Loads = LoadsToDo)then
    end.

    this is what comes up when compiled.

    Code:
    Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL.Scar does not exist.
    Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Skill\WoodCutting.Scar does not exist.
    Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Extended\xMapWalk.Scar does not exist.
     
  2. cazax

    cazax Forum Addict

    Joined:
    Nov 13, 2007
    Posts:
    457
    Referrals:
    0
    Sythe Gold:
    0
    [HELP] Need Help With My Yew Cutter + Banker Script ! [HELP]

    The script is outdated, that means it's too old to work.
     
  3. Syd

    Syd Active Member
    Banned

    Joined:
    Aug 10, 2010
    Posts:
    218
    Referrals:
    2
    Sythe Gold:
    10
    [HELP] Need Help With My Yew Cutter + Banker Script ! [HELP]

    Cazax means the srl is outdated..just try and write a RSBot script..it's easier and less detectable.
     
  4. clint999

    clint999 Active Member

    Joined:
    Jun 4, 2008
    Posts:
    110
    Referrals:
    0
    Sythe Gold:
    0
    [HELP] Need Help With My Yew Cutter + Banker Script ! [HELP]

    The script is outdated, that means it's too old to work.
     
< Help with SCAR SRL | invalid number of parameters? >


 
 
Adblock breaks this site