edgeville yew cutter n banker using SMART

Discussion in 'Outdated RS Scripts' started by Jamesjames7654, Jun 16, 2008.

edgeville yew cutter n banker using SMART
  1. Unread #1 - Jun 16, 2008 at 11:02 AM
  2. Jamesjames7654
    Joined:
    Sep 23, 2007
    Posts:
    16
    Referrals:
    1
    Sythe Gold:
    0

    Jamesjames7654 Newcomer

    edgeville yew cutter n banker using SMART

    this is a script i have made by using to SRL mebers scripts and taking what i want from each:


    program Simple_Yew_Cut_n_Bank_Ed;
    {.include SRl/SRL/Misc/SMART.scar}
    {.include SRl/SRl.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}
    {


    Start in the bank!
    south most bank slot
    This is my First script }



    // -----------------------------------------------------------------------
    // -------------- Change your details in this section --------------------
    // -----------------------------------------------------------------------
    const
    PlayerName = ''; // Enter your runescape username here.
    PlayerPass = ''; // Enter your Runescape password here.
    PlayerNick = 'changeme'; // Enter a 3-4 letter version of your username here: i.e. evilbob may be just bob
    PlayerPin = 0000; // If you have a Bank Pin set enter it here. If you don't leave it at 0000
    PickSkill = 'runecraft'; // Choose skill you want any genie lamps aquired to be used on. (Must be spelt exactly as it is in skill list)
    HideScar = 'NAV32'; // Enter the name of any program you want scar to disguise itself as.

    SRL_ID = ''; // Get them here http://www.stats.srl-forums.com/ - This is not the same as your SRL Forum Username & Pass
    SRL_PASS = ''; // If you do not have one leave empty.

    // -----------------------------------------------------------------------
    // ----- Enter the maximums below. Your player will go to the bank, bank all items in your
    // ----- back pack & log out if any condition is met. Enter 0 for infinite.
    // -----------------------------------------------------------------------
    maxloads = 1000; // Enter the number of loads to collect.
    maxyews = 0; // Enter the number of yews to chop.
    maxtime = 0; // Enter the maximum time to run in minutes.
    maxlevel = 99; // Enter Maximum Woodcutting Level you wish to achieve.

    // -----------------------------------------------------------------------
    // ---- Do not alter below this line unless you know what your doing! ----
    // -----------------------------------------------------------------------

    YewColour = 1865575; // Colour of Yew Tree Foliage. Yew Should not have to change this. LoL
    BankCashierColour = 195836; // Colour of Bank Cashier in Mini Map. The Yellow Dot. You Should not have to change this.

    type AllAxes = record
    AxeDTM: word;
    AxeName: string;
    end;

    const

    SmartWorld = 16;

    YourSRLId = '';
    YourSRLPassword ='';

    var
    AxeList: Array of AllAxes;
    YewCoords: TPointArray;
    YewDTM, YewCount, NestSeedDTM, NestCountSeeds, NestRingDTM, NestCountRings, RndItemCount: integer;
    x, y, i, DTMAxe, BirdsNestsMissed, LoadsBanked, CurrentTree, BankIconColour, TreeIconColour:integer;
    CIBReason: String;
    First: boolean;

    // -----------------------------------------------------------------------
    // Basic Standard Setup of Players.. Only 1 player currently supported.
    // -----------------------------------------------------------------------
    procedure DeclarePlayers;
    begin
    NumberOfPlayers(1);
    CurrentPlayer := 0;

    HowManyPlayers:= 1;
    CurrentPlayer:= 0;
    NumberOfPlayers(HowManyPlayers);

    SRLID := SRL_ID;
    SRLPassword := SRL_PASS;

    Players[0].Name := PlayerName;
    Players[0].Pass := PlayerPass;
    Players[0].Nick := PlayerNick;
    Players[0].Active := True;
    Players[0].Integers[1] := 0;

    Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    // -----------------------------------------------------------------------
    // CountItemDTM Function by ???
    // -----------------------------------------------------------------------
    function CountItemDTM(DTM: Integer): Integer;
    var
    x, y, i: Integer;
    TB: TBox;
    begin
    for i := 1 to 28 do
    begin
    TB := InvBox(i);
    if(ExistsItem(i)) then
    if(FindDTM(DTM, x, y, TB.x1, TB.y1, TB.x2, TB.y2)) then
    Inc(Result);
    end;
    end;

    // -----------------------------------------------------------------------
    // Displays Report when called on current totals.
    // Quits and Saves/Displays a Debug image when appropriate.
    //
    // SYCBReport(ReasonCalled: String; FinalSYBCReport, DebugImage: boolean);
    // ReasonCalled: String explaing why, when, where it SYCBReport was called.
    // FinalSYBCReport: Boolean, If true will end script and display final report along with ReasonCalled
    // DebugImage: Boolean, If true will save & display a screen capture of moment script ended.
    // -----------------------------------------------------------------------
    procedure SYCBReport(ReasonCalled: String; FinalSYBCReport, DebugImage: boolean);
    var x, y: integer;
    begin
    if DebugImage then
    begin
    SaveScreenshot('SYCBDebug.bmp');
    GetClientDimensions(x, y);
    DisplayDebugImgWindow(x, y);
    LoadDebugBitmap('SYCBDebug.bmp');
    end;


    // I did want to have the GetSkillInfo Check in CheckIfBank procedure however it created
    // a conflict with CountItemDTM constantly switching between GameTabs..
    if (maxlevel > 0) and (maxlevel <= GetSkillInfo('woodcutting',False)) then
    begin
    FinalSYBCReport := true;
    ReasonCalled := 'Woodcutting Skill Level ' + IntToStr(GetSkillInfo('woodcutting',False)) + ' Reached';
    end;

    writeLn('##################################################################');
    writeLn(' Simple Yew Cutter & Banker (Edgeville)');
    writeLn(' Ran for: ' + TimeRunning);
    writeLn(' Loads Banked: ' + IntToStr(LoadsBanked));
    writeLn(' Yew Logs Banked: ' + IntToStr(YewCount));

    if NestCountSeeds > 0 then writeLn('Birds Nests (Seeds) Banked: ' + IntToStr(NestCountSeeds));

    if NestCountRings > 0 then writeLn('Birds Nests (Rings) Banked: ' + IntToStr(NestCountRings));

    if BirdsNestsMissed > 0 then writeLn(' Birds Nests Missed: ' + IntToStr(BirdsNestsMissed));

    if RndItemCount > 0 then writeLn(' Random Event Items Banked: ' + IntToStr(RndItemCount));

    if (maxloads > 0) and (maxloads <= LoadsBanked) then
    begin
    writeLn(' Script Ended: Maximum Loads Banked Limit Reached.');
    writeLn('##################################################################');
    if LoggedIn then LogOut;
    SendSRLReport;
    TerminateScript;
    end;

    if FinalSYBCReport then
    begin
    writeLn(' Script Ended: ' + ReasonCalled);
    writeLn('##################################################################');
    if LoggedIn then LogOut;
    SendSRLReport;
    TerminateScript;
    end;

    writeLn('##################################################################');
    writeLn(' ');
    SendSRLReport;
    end;

    // -----------------------------------------------------------------------
    // Returns True if any condition that may require banking is met.
    // -----------------------------------------------------------------------
    Function CheckIfBank: Boolean;
    begin
    result := false;
    GameTab(4);
    if InvFull then result := true;

    if (maxtime > 0) and (maxtime <= ((GetTimeRunning div 1000) div 60)) then
    begin
    writeLn('maxtime true');
    result := true;
    CIBReason := 'Maximum Time Limit Reached';
    exit;
    end;

    if (maxyews > 0) and (maxyews <= YewCount + CountItemDTM(YewDTM)) then
    begin
    writeLn('maxyews true');
    result := true;
    CIBReason := 'Maximum Yew Logs Cut Limit Reached';
    exit;
    end;
    end;

    // -----------------------------------------------------------------------
    // Add all items in the back pack to a running total before banking.
    // -----------------------------------------------------------------------
    procedure CountBankedItems;
    var a, b, c, d: integer;
    begin
    a := InvCount;
    b := CountItemDTM(YewDTM);
    c := CountItemDTM(NestSeedDTM);
    d := CountItemDTM(NestRingDTM);

    RndItemCount := (RndItemCount + (a - b - c - d));
    YewCount := (YewCount + b);
    NestCountSeeds := (NestCountSeeds + c);
    NestCountRings := (NestCountRings + d);
    LoadsBanked := LoadsBanked + 1;


    // SRL Stats Reporting
    ReportVars[0] := ReportVars[0] + b; // Yews Banked Reported to SRL Stats
    ReportVars[1] := (ReportVars[1] + (c + d)); // Birds Nests Banked Reported to SRL Stats
    ReportVars[2] := (ReportVars[2] + (a - b - c -d)); // Randoms Items Banked Reported to SRL Stats
    ReportVars[3] := ReportVars[3] + 1; // Loads Banked Reported to SRL Stats
    Banks := Banks + 1; // Official Banked Stats for Global SRL Report
    end;

    // -----------------------------------------------------------------------
    // Get Current Colour of Bank and Tree Icons in Mini Map
    // -----------------------------------------------------------------------
    Procedure GetIconColours;
    var StartFind: integer;
    var i: integer;
    begin
    if not LoggedIn then SYCBReport('Not Logged in During Procedure: GetIconColours.', true, false);
    MarkTime(StartFind);
    i := 0;
    repeat
    if TimeFromMark(StartFind) >= 20000 then
    begin
    i := i + 1;
    writeLn('Cannot Find Bank Icon.. Logging Out and In Again to Change Icon Position.');
    if i >= 5 then SYCBReport('Could Not Find Bank Icon After 5 Login Attempts.', true, true);
    Logout;
    LoginPlayer;
    MarkTime(StartFind);
    end;

    until FindSymbol(x, y, 'bank');

    BankIconColour:= GetColor(x + 1, y);

    If FindSymbol(x, y, 'tree') then
    begin
    TreeIconColour:= GetColor(x + 2, y);
    end else
    begin
    SYCBReport('Cannot find tree icon. Quitting', true, true);
    end;
    end;

    // -----------------------------------------------------------------------
    // Populate AxeList with all Axe DTM's and Names
    // -----------------------------------------------------------------------
    procedure InitAxeTypes;
    begin

    SetLength(AxeList, 8);
    AxeList[0].AxeDTM := DTMFromString('78DA6314616060E0664001A962BC0CFC409A1' +
    '188FF0301231790C1C58006189148202D03243809A81106124204' +
    'D430010919FC6A00E8B5053D');
    AxeList[0].AxeName := 'Dragon Axe';

    AxeList[1].AxeDTM := DTMFromString('78DA639CCEC4C0F09401051485F1318800694' +
    '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035F751' +
    'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');
    AxeList[1].AxeName := 'Rune Axe';

    AxeList[2].AxeDTM := DTMFromString('78DA6374606060686440014D497C0C22409A1' +
    '188FF0301A337905187AAC6C6D786810BAA0604187D804415AA1A' +
    '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');
    AxeList[2].AxeName := 'Adamant Axe';

    AxeList[3].AxeDTM := DTMFromString('78DA633CC4C4C010C0C8800C5A53F81852803' +
    '448F43F10309E05AAF14155636111CCC0055503028CE7816A5C51' +
    'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');
    AxeList[3].AxeName := 'Mithril Axe';

    AxeList[4].AxeDTM := DTMFromString('78DA63E4656060E06240038C0C1C609281E13' +
    'F1030F200194C986A1024901606126CA82AC4444450D5B0020919' +
    'FCE60000E9AC04AD');
    AxeList[4].AxeName := 'Black Axe';

    AxeList[5].AxeDTM := DTMFromString('78DA63CC636260D8C3C8800C5A53F81852803' +
    '448F43F10305602D5EC4055939B9ACAC0055503028CD540351B51' +
    'D594E5E5A2AA29C154D3545989A20600C3BC0E32');
    AxeList[5].AxeName := 'Steel Axe';

    AxeList[6].AxeDTM := DTMFromString('78DA63BCC9C4C0309191010498182020C6859' +
    '34103488344FF0301E353A04C2F230332F0707161E082AA0101C6' +
    '0740356DA86A22838351D5BC00AAE94655932ACA89AAE639A6394' +
    '1DEDE286A00B1F90F6D');
    AxeList[6].AxeName := 'Iron Axe';

    AxeList[7].AxeDTM := DTMFromString('78DA63EC626060086140016DA97C0C22409A1' +
    '188FF0301E33420C307558D97A5220317540D08304E051201A86A' +
    'DCCCE451D54C07129EA86AFC6C5450D40000D77E0AA2');
    AxeList[7].AxeName := 'Bronze Axe';
    end;

    // -----------------------------------------------------------------------
    // Find the axe and move it to hand if in back pack. Returns False if no axe found.
    // -----------------------------------------------------------------------
    function FindTheAxe: boolean;
    var ax, ay: integer;
    var i: integer;
    begin
    for i := 0 to High(AxeList) do
    begin
    DTMAxe := AxeList.AxeDTM;
    GameTab(4);
    if FindDTM(DTMAxe, ax, ay, 546, 203, 737, 466) then
    begin
    writeLn('Found ' + AxeList.AxeName + ' Moving to Hand.');
    Mouse(ax, ay, 10, 4, true);
    wait(500 + Random(400));
    result:= true;
    exit;
    end else
    begin
    GameTab(5);
    if FindDTM(DTMAxe, ax, ay, 568, 285, 603, 321) then
    begin
    writeLn('Found ' + AxeList.AxeName);
    result:= true;
    exit;
    end;
    end;
    result:= false;
    end;
    end;

    // -----------------------------------------------------------------------
    // Find Both Tree Icons in Mini Map
    // -----------------------------------------------------------------------

    function FindBothYews: boolean;
    var x2, y2, y3: integer;
    begin
    if not LoggedIn then SYCBReport('Not Logged in During Procedure: FindBothYews.', true, false);
    MakeCompass('N');
    SetAngle(true);
    x2:= 626; y2:= 25; y3:= 140;
    if FindColorSpiral(x2, y2, TreeIconColour, 550, 7, 703, 161) then
    begin
    if FindColorSpiral(x2, y3, TreeIconColour, 550, 7, 703, 161) then
    begin
    if y3 - y2 > 25 then
    begin
    result:= true
    exit;
    end else result:= False;
    end else result:= False;
    end else result:= False;
    SYCBReport('Could Not Find Both Yew Symbols (Function: FindBothYews)', true, true);
    end;

    // -----------------------------------------------------------------------
    // Find Top and Bottom Trees Based on Icon Colour and Area of Map..
    // Needs Tweaking Searches whole of Mini Map instead of small area
    // -----------------------------------------------------------------------
    function FindTopYew: integer;
    var y2: integer;
    begin
    x:= 626; y:= 25; y2:= y;
    if FindColorSpiral(x, y, TreeIconColour, 550, 7, 703, 161) then
    begin
    result:= y - y2;
    end else result:= -1;
    end;

    function FindBottomYew: integer;
    var y2: integer;
    begin
    x:= 626; y:= 140; y2:= y;
    if FindColorSpiral(x, y, TreeIconColour, 550, 7, 703, 161) then
    begin
    result:= y2 - y;
    end else result:= -1;
    end;

    // -----------------------------------------------------------------------
    // Tries to Find Bank and Bank all Items
    // -----------------------------------------------------------------------
    Procedure GoToBank;
    begin
    if not LoggedIn then SYCBReport('Not Logged in During Procedure: GoToBank.', true, false);
    SetRun(True);
    If FindTopYew >= 0 then
    begin
    Mouse(x + 16, y - 10, 10, 10, true);
    writeLn('Running to Bank');
    Flag;
    wait(500 + Random(1000));
    If FindColor(x, y, BankIconColour, 550, 7, 682, 161) then
    begin
    If FindColorSpiralTolerance(x, y, BankCashierColour, x - 18, y - 15, x + 35, y + 35, 2) then
    begin
    Mouse(x, y, 2, 2, true);
    Flag;
    wait(500 + Random(1000));
    If OpenBankFast('eb') then
    begin

    if CheckIfBank and not InvFull then
    begin
    SYCBReport(CIBReason, true, false);
    end else SYCBReport('Just Finished Banking in GoToBank', false, false);
    end else SYCBReport('OpenBankFast cannot find the Bank Booth', true, true);
    end;
    end else If FindTopYew >= 0 then
    begin
    GoToBank;
    exit;
    end else SYCBReport('GoToBank Procedure Could Not Find Bank or Tree Icons.', true, true);
    end else SYCBReport('GoToBank Procedure Could Not Find Tree Icons.', true, true);
    end;

    // -----------------------------------------------------------------------
    // Basic AntiBan Proceedure.
    // -----------------------------------------------------------------------
    procedure AntiBan;
    begin
    case random(6) of
    0: RandomRClick;
    1: HoverSkill('woodcutting', False);
    2: PickUpMouse;
    3: BoredHuman;
    4: RandomMovement;
    5: BoredHuman;
    end;
    MakeCompass('N');
    SetAngle(true);
    end;

    // -----------------------------------------------------------------------
    // Moves to Top or Bottom Yew tree assuming you are in the bank.
    // -----------------------------------------------------------------------
    Procedure MoveToYews;
    begin
    if not LoggedIn then SYCBReport('Not Logged in During Procedure: MoveToYews.', true, false);

    if Random(2) = 1 then
    begin
    writeLn('Moving to Top Yew');
    CurrentTree := 1;
    if FindTopYew >= 0 then
    begin
    SetRun(true);
    Mouse(x + 3, y + 5, 5, 5, true);
    Flag;
    SetRun(false);
    GameTab(4);
    end else
    begin
    MoveToYews;
    exit;
    end;
    end else
    begin
    writeLn('Moving to Bottom Yew');
    CurrentTree := 0;
    If FindBottomYew >= 0 then
    begin
    SetRun(true);
    Mouse(x + 23, y, 7, 20, true);
    Flag;
    FindBottomYew;
    Mouse(x + 4, y - 4, 5, 3, true);
    Flag;
    SetRun(false);
    GameTab(4);
    end else
    begin
    MoveToYews;
    exit;
    end;
    end;
    end;

    // -----------------------------------------------------------------------
    // Custom Run Away Procedure as the SRL RunAway Procedure usually fails to come back.
    // WaitTime is MilliSeconds. Recomemded period is 30000 to 120000 or (Random(90000) + 30000)
    // This has not been fully tested (BETA)
    // -----------------------------------------------------------------------
    Procedure CustomRunAway(WaitTime: integer);
    var StartedWaiting: integer;
    begin;
    if not LoggedIn then SYCBReport('Not Logged in During Procedure: CustomRunAway.', true, false);
    SetRun(True);
    If FindTopYew >= 0 then
    begin
    Mouse(x + 16, y - 5, 10, 5, true);
    writeLn('Running Away From Fight');
    Flag;
    If FindColor(x, y, BankIconColour, 550, 7, 682, 161) then
    begin
    Mouse(x, y, 3, 3, true);
    Flag;
    wait(800 + Random(2000));
    Mouse(600, 40, 4, 4, true);
    Flag;
    wait(800 + Random(2000));
    Mouse(570, 50, 4, 4, true);
    Flag;
    MarkTime(StartedWaiting);

    repeat
    FTWait(Random(10));
    AntiBan;
    if FindFight then SYCBReport('Still Fighting Even After RunAway: Random May have Poisoned or Followed you.', true, true);
    until WaitTime <= TimeFromMark(StartedWaiting);

    Mouse(690, 130, 4, 4, true);
    Flag;
    wait(800 + Random(2000));

    If FindColor(x, y, BankIconColour, 550, 7, 682, 161) then
    begin
    Mouse(x, y + 10, 3, 3, true);
    Flag;
    wait(800 + Random(2000));
    end else
    begin;
    Mouse(660, 140, 4, 4, true);
    Flag;
    wait(800 + Random(2000));
    end;
    end else
    begin
    SYCBReport('Could Not Find Bank To RunAway to during Fight. Procedure: CustomRunAway', true, true);
    end;
    end else If FindTopYew >= 0 then
    begin
    CustomRunAway((Random(90000) + 30000));
    exit;
    end else SYCBReport('Could Not FindTopYew During Procedure: CustomRunAway', true, true);
    MoveToYews;
    end;

    // -----------------------------------------------------------------------
    // Basic Check For all Randoms, Uses Standard SRL Checks.
    // -----------------------------------------------------------------------
    procedure CheckForAllRandoms;
    begin
    FindNormalRandoms;
    FindInventoryRandoms;
    FindNonInventoryRandoms;
    FindTalk;
    DwarfItem;
    if FindFight then CustomRunAway((Random(90000) + 30000));
    end;

    // -----------------------------------------------------------------------
    // Checks for Randoms, Occasionally Re-Clicks On Yew & Performs an AntiBan Functions
    // Until Yew Tree has Been Fully Cut Down.
    // -----------------------------------------------------------------------
    Procedure CutTillDown;
    var StartCut, RandWait: integer;
    begin
    MarkTime(StartCut);
    RandWait := (12000 + Random(33000));
    repeat
    if not LoggedIn then SYCBReport('CutTillDown: Not Logged In. Lost Connection or Unsolveable Random?', true, false);
    FindEnt(YewCoords.x, YewCoords.y, true)
    CheckForAllRandoms;
    if TimeFromMark(StartCut) > RandWait then
    begin
    if not FindEnt(YewCoords.x, YewCoords.y, true) then
    begin
    CheckForAllRandoms;
    if IsUptext('down Yew') then
    begin
    if random(100) >= 70 then
    begin
    AntiBan;
    end else Mouse(YewCoords.x, YewCoords.y, 5, 5, true);
    CheckForAllRandoms;
    end else exit;
    end;
    CheckForAllRandoms;
    MarkTime(StartCut);
    RandWait := (12000 + Random(33000));
    end;
    until not IsUpText('down Yew') or CheckIfBank;
    end;

    // -----------------------------------------------------------------------
    // Find Yew Tree Foliage and Populate YewCoords
    // -----------------------------------------------------------------------
    Function FindYew: boolean;
    begin
    FindColorsSpiralTolerance(255, 166, YewCoords, YewColour, 5, 5, 515, 337, 4);
    If Length(YewCoords) <= 0 then result := false
    else for i:= 0 to High(YewCoords) do
    begin
    MMouse(YewCoords.x, YewCoords.y, 3, 3)
    If IsUpText('down Yew') then
    begin
    result:= true;
    exit;
    end;
    end;
    result := false;
    end;

    // -----------------------------------------------------------------------
    // Changes Tree. Moves up if your at Bottom Yew and VisaVersa.
    // -----------------------------------------------------------------------
    Procedure ChangeTree;
    begin
    if FindBothYews then
    begin
    CheckForAllRandoms;
    If FindTopYew < FindBottomYew then
    begin
    FindTopYew;
    Mouse(x + 4, y + 15, 5, 5, true);
    Flag;
    end else if FindTopYew > FindBottomYew then
    begin
    FindBottomYew;
    Mouse(x + 4, y - 15, 5, 5, true);
    Flag;
    end;
    First:= true;
    end;
    end;

    // -----------------------------------------------------------------------
    // Start Cutting Down Tree
    // -----------------------------------------------------------------------
    Procedure CutDownTree;
    begin
    if not LoggedIn then SYCBReport('CutDownTree: Not Logged In. Lost Connection or Unsolveable Random?', true, false);
    First:= True;
    repeat
    if not LoggedIn then SYCBReport('CutDownTree: Not Logged In. Lost Connection or Unsolveable Random?', true, false);
    If FindYew then
    begin
    First:= False;
    If not FindEnt(YewCoords.x, YewCoords.y, true) then
    begin
    Mouse(YewCoords.x, YewCoords.y, 4, 4, true);
    CheckForAllRandoms;
    CutTillDown;
    end;
    end else If not First and not CheckIfBank then
    begin
    ChangeTree;
    end else if random(1000) <= 200 then AntiBan;
    CheckForAllRandoms;
    until CheckIfBank;
    end;

    // -----------------------------------------------------------------------
    // Sets up all the initial items.
    // -----------------------------------------------------------------------
    Procedure SetupSYCB;
    begin
    Disguise(HideScar);
    ScriptID := '611';
    DeclarePlayers;
    InitAxeTypes;
    if not LoggedIn then LoginPlayer else Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars);
    YewDTM := DTMFromString('78DA6314666060E06740017ED65C60214620F' +
    'E0F048C9C40061B031A60442281B434906026A04611D32E0C3562' +
    '404282801A907BC4F1AB0100B63D057D');
    NestSeedDTM := DTMFromString('78DA6314646060E0614001FE11DC0CFC409A1' +
    '188FF0301232790C1CA8006189148202D0C245808A891C1B40B43' +
    '8D08901025A006E41E61FC6A00BFF8057E');
    NestRingDTM := DTMFromString('78DA63E4636060E06240013B168A33F003694' +
    '620FE0F048CEC40062B031A60442281B430906021A0461A48F011' +
    '5003B25884801A2620C18B5F0D00489B0623');
    ActivateClient;
    YewCount := 0;
    LoadsBanked := 0;
    TreeIconColour := 0;
    BankIconColour := 0;
    NestCountSeeds := 0;
    NestCountRings := 0;
    BirdsNestsMissed := 0;
    LampSkill := PickSkill;
    ClearDebug;
    ClearReport;
    if not FindTheAxe then SYCBReport('Could not find any axes.', true, false);
    repeat
    GetIconColours;
    until (BankIconColour > 0) and (TreeIconColour > 0);
    MakeCompass('N');
    SetAngle(true);
    end;

    // --------------------- Program Starts --------------------------

    begin
    SetupSRL;
    SetupSYCB;
    repeat
    MoveToYews;
    CutDownTree;
    GoToBank;
    until not LoggedIn;
    end.





    If you have any problems post them here and hopefully some1 can fix it cause iim not very good yet :(
     
  3. Unread #2 - Jun 16, 2008 at 11:42 AM
  4. Lobe
    Referrals:
    0

    Lobe Guest

    edgeville yew cutter n banker using SMART

    Looks good, but:
    [Runtime Error] : Exception: "Invalid encrypted string" in line 264 in script
     
  5. Unread #3 - Jun 16, 2008 at 11:46 AM
  6. Jamesjames7654
    Joined:
    Sep 23, 2007
    Posts:
    16
    Referrals:
    1
    Sythe Gold:
    0

    Jamesjames7654 Newcomer

    edgeville yew cutter n banker using SMART

    hmm i dunno cause i dunno if i really need it to find the bank icon color or if the smart will do it
     
  7. Unread #4 - Jun 16, 2008 at 1:21 PM
  8. Jamesjames7654
    Joined:
    Sep 23, 2007
    Posts:
    16
    Referrals:
    1
    Sythe Gold:
    0

    Jamesjames7654 Newcomer

    edgeville yew cutter n banker using SMART

    it would be nice if people wold give FEEDBACK and not just leech

    srry double post
     
  9. Unread #5 - Jun 18, 2008 at 8:49 PM
  10. weazlemaster
    Joined:
    Feb 1, 2007
    Posts:
    68
    Referrals:
    0
    Sythe Gold:
    0

    weazlemaster Member

    edgeville yew cutter n banker using SMART

    yer hey dude btw i aint a leecher the bitmaps on line 264-304 they need to be changed just thought i would let u no. O the script looks pretty good keep up good work...
     
  11. Unread #6 - Jun 18, 2008 at 11:56 PM
  12. Jamesjames7654
    Joined:
    Sep 23, 2007
    Posts:
    16
    Referrals:
    1
    Sythe Gold:
    0

    Jamesjames7654 Newcomer

    edgeville yew cutter n banker using SMART

    kk ill look at it
     
  13. Unread #7 - Jun 21, 2008 at 1:00 PM
  14. superhobo
    Referrals:
    0

    superhobo Guest

    edgeville yew cutter n banker using SMART

    i was wondering how to change the SMART function to log into different worlds, such as a non member one and not member worlds. If anyone knows a good place to find information about SMART please tell me
     
  15. Unread #8 - Jun 21, 2008 at 2:38 PM
  16. cazax
    Joined:
    Nov 13, 2007
    Posts:
    457
    Referrals:
    0
    Sythe Gold:
    0

    cazax Forum Addict

    edgeville yew cutter n banker using SMART

    At least credit people?
     
  17. Unread #9 - Jun 21, 2008 at 4:33 PM
  18. Runescapian321
    Joined:
    Sep 19, 2007
    Posts:
    179
    Referrals:
    0
    Sythe Gold:
    0

    Runescapian321 Active Member

    edgeville yew cutter n banker using SMART

    ^ That and did you get permission from the people to use their functions/procedures?
     
  19. Unread #10 - Jun 21, 2008 at 8:54 PM
  20. Jamesjames7654
    Joined:
    Sep 23, 2007
    Posts:
    16
    Referrals:
    1
    Sythe Gold:
    0

    Jamesjames7654 Newcomer

    edgeville yew cutter n banker using SMART

    Forgot the credits go to Prisoner and Unknown because they didnt put thier name on it. and also:


    I GIVE UP! I CANNOT GET THIS THING TO WORK THIS IS MY ERROR!: "[Runtime Error] : Exception: Access violation at address 100010AB in module 'Embedded SMART.dll'. Read of address 000009F8 in line 47 in script C:\Program Files\SCAR 3.15\includes\SRl/SRL/Misc/SMART.scar"


    AND I NEED HELP

    Sorry caps are needed :)


    and if you can run this could u tell me what scar ure using im using 3.15 n i dont even know my SRL version
     
  21. Unread #11 - Jul 12, 2008 at 8:46 PM
  22. locked1337
    Joined:
    Jul 12, 2008
    Posts:
    210
    Referrals:
    0
    Sythe Gold:
    0

    locked1337 Active Member

    edgeville yew cutter n banker using SMART

    same thing happens to me
     
< [SRL 4][Rev 17] Scapian's PowerMiner | easyskiller 3 in 1 by denial >

Users viewing this thread
1 guest


 
 
Adblock breaks this site