Results 1 to 3 of 3

Thread: error with script using SMART

  1. #1
    Join Date
    Jun 2008
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default error with script using SMART

    kk this supposed to be an edgeville yew chopper using the srl SMART.scar

    when i run it it comes up with"[Runtime Error] : Exception: Access violation at address 028C10AB in module 'Embedded SMART.dll'. Read of address 000009F8 in line 47 in script C:\Documents and Settings\Jamesa\Desktop\SCAR 3.15\includes\SRl/SRL/Misc/SMART.scar" then opens a new scar tab with the SMART file
    this is the script


    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('78DA6314616060E0664001A962BC0CFC409 A1' +
    '188FF0301231790C1C58006189148202D03243809A8110612 4204' +
    'D430010919FC6A00E8B5053D');
    AxeList[0].AxeName := 'Dragon Axe';

    AxeList[1].AxeDTM := DTMFromString('78DA639CCEC4C0F09401051485F13188006 94' +
    '620FE0F048C4B806AEEA2AA718E4864E082AA0101C6C54035 F751' +
    'D5D887C6A1AA590A547313558D4B740A8A1A00CFA10E03');
    AxeList[1].AxeName := 'Rune Axe';

    AxeList[2].AxeDTM := DTMFromString('78DA6374606060686440014D497C0C22409 A1' +
    '188FF0301A337905187AAC6C6D786810BAA0604187D804415 AA1A' +
    '7B7F7B5435BE40A21C558D73B0338A1A00C1660AA8');
    AxeList[2].AxeName := 'Adamant Axe';

    AxeList[3].AxeDTM := DTMFromString('78DA633CC4C4C010C0C8800C5A53F818528 03' +
    '448F43F10309E05AAF14155636111CCC0055503028CE7816A 5C51' +
    'D5D839C4A2AA3981A9C6C52D0D450D0061FC0C64');
    AxeList[3].AxeName := 'Mithril Axe';

    AxeList[4].AxeDTM := DTMFromString('78DA63E4656060E06240038C0C1C609281E 13' +
    'F1030F200194C986A1024901606126CA82AC4444450D5B002 0919' +
    'FCE60000E9AC04AD');
    AxeList[4].AxeName := 'Black Axe';

    AxeList[5].AxeDTM := DTMFromString('78DA63CC636260D8C3C8800C5A53F818528 03' +
    '448F43F10305602D5EC4055939B9ACAC0055503028CD54035 1B51' +
    'D594E5E5A2AA29C154D3545989A20600C3BC0E32');
    AxeList[5].AxeName := 'Steel Axe';

    AxeList[6].AxeDTM := DTMFromString('78DA63BCC9C4C0309191010498182020C68 59' +
    '34103488344FF0301E353A04C2F230332F0707161E082AA01 01C6' +
    '0740356DA86A22838351D5BC00AAE94655932ACA89AAE639A 6394' +
    '1DEDE286A00B1F90F6D');
    AxeList[6].AxeName := 'Iron Axe';

    AxeList[7].AxeDTM := DTMFromString('78DA63EC626060086140016DA97C0C22409 A1' +
    '188FF0301E33420C307558D97A5220317540D08304E051201 A86A' +
    '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[i].AxeDTM;
    GameTab(4);
    if FindDTM(DTMAxe, ax, ay, 546, 203, 737, 466) then
    begin
    writeLn('Found ' + AxeList[i].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[i].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[i].x, YewCoords[i].y, true)
    CheckForAllRandoms;
    if TimeFromMark(StartCut) > RandWait then
    begin
    if not FindEnt(YewCoords[i].x, YewCoords[i].y, true) then
    begin
    CheckForAllRandoms;
    if IsUptext('down Yew') then
    begin
    if random(100) >= 70 then
    begin
    AntiBan;
    end else Mouse(YewCoords[i].x, YewCoords[i].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[i].x, YewCoords[i].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[i].x, YewCoords[i].y, true) then
    begin
    Mouse(YewCoords[i].x, YewCoords[i].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('78DA6314666060E06740017ED65C6021462 0F' +
    'E0F048C9C40061B031A60442281B434906026A04611D32E0C 3562' +
    '404282801A907BC4F1AB0100B63D057D');
    NestSeedDTM := DTMFromString('78DA6314646060E0614001FE11DC0CFC409 A1' +
    '188FF0301232790C1CA8006189148202D0C245808A891C1B4 0B43' +
    '8D08901025A006E41E61FC6A00BFF8057E');
    NestRingDTM := DTMFromString('78DA63E4636060E06240013B168A33F0036 94' +
    '620FE0F048CEC40062B031A60442281B430906021A0461A48 F011' +
    '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.












    (this script is a combination of two different ones in hope to make it somewhat more accurate credits go to:PriSoner and NiCbaZ of SRL Forums)

  2. #2
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Use SCAR tags or make it a dl file. It is alot easier to read your script. Any ways, I'll take a look at the script and post later.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  3. #3
    Join Date
    Jun 2008
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    kk ty because the current 1 im using which is just the edgeville clicks and searches alot and i want to be able to search other areas on the computer by using SMART and it would be great if you could help me make this script which could be the best script out

    please post the fixed one as soon as possible!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Smart error and Some kind of Math.scar error
    By FagetHax0r in forum OSR Help
    Replies: 6
    Last Post: 02-24-2008, 10:43 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •