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

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

[HELP] Need Help With My Yew Cutter + Banker Script ! [HELP]
  1. Unread #1 - Jun 23, 2010 at 8:41 AM
  2. Teh Burgess
    Joined:
    Jun 21, 2010
    Posts:
    6
    Referrals:
    0
    Sythe Gold:
    0

    Teh Burgess Newcomer

    [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.
     
  3. Unread #2 - Jun 23, 2010 at 6:40 PM
  4. cazax
    Joined:
    Nov 13, 2007
    Posts:
    457
    Referrals:
    0
    Sythe Gold:
    0

    cazax Forum Addict

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

    The script is outdated, that means it's too old to work.
     
  5. Unread #3 - Nov 8, 2010 at 2:31 PM
  6. Syd
    Joined:
    Aug 10, 2010
    Posts:
    218
    Referrals:
    2
    Sythe Gold:
    10

    Syd Active Member
    Banned

    [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.
     
  7. Unread #4 - Nov 17, 2010 at 2:02 AM
  8. clint999
    Joined:
    Jun 4, 2008
    Posts:
    110
    Referrals:
    0
    Sythe Gold:
    0

    clint999 Active Member

    [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? >

Users viewing this thread
1 guest


 
 
Adblock breaks this site