Results 1 to 5 of 5

Thread: wats wrong with this script pl zhlp or fix it then post

  1. #1
    Join Date
    Oct 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default wats wrong with this script pl zhlp or fix it then post

    {.Script Info:

    # ScriptName = Draynor Willow Smasher and Banker
    # Author = Surajd
    # Description = Smashes Willows and Banks them in Draynor =D
    # Version = v1.01 [ SRL Include ]
    # Date = Published on the 5/07/06
    # Comments = Please post all Bugs/Corrections in this script's thread, What are you waiting for! =D

    # Setup lines are from lines 29-35!
    # Have Axe in the FIRST Inventory Slot!
    # 06/06/06 : Added a Progress Report! As commented by a few people =D
    # 06/06/06 : Fixed some bugs in the Counters =/

    /Script Info}


    program DWSBanker_SRL_Remade;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    var
    a, b: Integer;
    A1, A2, A3, H: Integer;
    BTimes, STimes, FTimes, ETimes: Integer;

    const
    HowManyTrips = 100; // How many trips do you want the script to do?
    WaitTime = 3501; // Time between Smashing the Willow Tree (Milliseconds)
    MMBankSymbol = 5103346; // Put in the Color of the Bank Symbol (Yellow)

    WTreeColor1 = 2658424; //Color of Willow Tree (1)
    WTreeColor2 = 1332819; //Color of Willow Tree (2)
    WTreeColor3 = 5535856; //Color of Willow Tree (3)


    VersionNumber = 'v1.01 by Surajd'; // Do not change!



    procedure ProgressReport;
    begin
    begin
    WriteLn(' ');
    WriteLn('<============== -' + VersionNumber + '- Progress Report ===============>');
    WriteLn(' Smashed: ' + inttostr(STimes) + ' Willow Log(s)! ');
    WriteLn(' Banked: ' + inttostr(BTimes) + ' Loads of Willows! ');
    WriteLn(' Fixed: ' + inttostr(FTimes) + ' Axe(s)! ');
    WriteLn(' Found: ' + inttostr(ETimes) + ' Ent(s)! ');
    SRLRandomsReport;
    {Writeln(' This Script has been running for: ' + TimeRunning + ' Minutes! ');} // Displays wrong time >.< (Not sure why?)
    end;
    end;

    procedure SetupScript;
    begin
    MakeCompass('N');
    SetChat('Hide', 1);
    SetChat('Off', 2);
    SetChat('Off', 3);
    SetRun(true);
    GameTab(4);
    end;

    procedure AxeColors;
    begin
    Writeln('Getting Axe and Handle colors...')
    A1 := Getcolor(593, 220)
    A2 := Getcolor(590, 219)
    A3 := Getcolor(588, 220)
    H := Getcolor(582, 220)
    Writeln('Axe colors: ' + inttostr(A1) + ' ' + inttostr(A2) + ' ' + inttostr(A3))
    Writeln('Handle color: ' + inttostr(H))
    end;

    procedure AntiRandomsAR;
    begin
    Findnormalrandoms;
    AntiBan;
    if (FindFight) then
    begin
    Writeln('We are in a fight! Not to worry... .. SCRAMBLE!!!');
    RunAwayDirection('E');
    RunBack;
    Writeln('Phew, that was a close one.. Lets continue smashing! =D');
    end;
    FindEnt(WTreeColor1);
    FindEnt(WTreeColor2);
    FindEnt(WTreeColor3);
    if(FindEnt(WTreeColor1))then
    ETimes := ETimes + 1
    if (not (ExistsItem(1))) then
    begin
    Writeln('Axe head missing! Looking very carefully to find it =/');
    FindHead;
    FTimes := FTimes + 1
    end;
    end;

    procedure GoSmashWillows;
    begin
    if (FindMMColorTol(a, b, MMBankSymbol, 5)) then
    wait(1001 + random(203 * 2 / 1 - 1 + 2));
    Mouse(a - 29, b + 41, 1, 2, true);
    Flag;
    end;

    procedure GoBank;
    begin
    if (InvFull) then
    Writeln('Going to deposit this heavy load of bull! *Sigh*');
    FindBank('db');
    Flag;
    wait(2000 + random(500 * 2 / 3 + 100));
    if (BankScreen) then
    begin
    Deposit(2, 28, 2);
    wait(1001 + random(30 * 8 / 2 - 7 + 10));
    BTimes := BTimes + 1
    CloseBank;
    Writeln('Successfully deposited the heap of goods!');
    wait(1500 + random(709 * 2 / 2 + 200 - 2));
    ProgressReport;
    end;
    end;


    procedure ChopDownWillows;
    begin
    if (FindMainColor(a, b, WTreeColor1, 3, true)) or
    FindMainColor(a, b, WTreeColor2, 2, true) or
    FindMainColor(a, b, WTreeColor3, 3, true) then
    begin
    repeat
    STimes := STimes + 1
    wait(1023 + random(323 * 5 / 2));
    if (IsUpText('Chop Down')) then
    MMouse(a, b, 1, 2);
    GetMousePos(a, b);
    Mouse(a, b, 1, 2, true);
    wait(WaitTime + Random(329 * 8 / 2 + 3 - 1));
    AntiRandomsAR;
    until (InvFull);
    ProgressReport;
    end;
    end;

    procedure MainLoop;
    begin
    repeat
    SetupScript;
    AxeColors;
    AntiRandomsAR;
    ChopDownWillows;
    GoBank;
    GoSmashWillows;
    until (HowManyTrips = BTimes);
    Logout;
    Writeln('Thanks for using the beefy Draynor Willow Smasher and Banker Script created by Surajd =D');
    end;


    begin
    BTimes := 0
    STimes := 0
    FTimes := 0
    ETimes := 0
    ProgressReport;
    Writeln('You are using the Draynor Willow SMASHER and Banker script!');
    Writeln('... Created by Surajd =)');
    SetupSRL;
    DisguiseScar('Notepad');
    MainLoop;
    end.













    wats wronggggggggggggggggggggggggggggggggg

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Go find a script that's not over a year old.
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    Go find a script that's not over a year old.
    Indeed! Search for a new script over here, were did you foudn that one btw?
    At sythe.org?
    The last time I saw a post from this guy:
    1. wasn't here
    2. is more than a half year ago

    Look in the WoodCutting Section of the SRL Juniors Member Section, you'll find one over there

    -Tsn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  4. #4
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    And please, don't post here if it is about someone elses script, post on the authors thread.

  5. #5
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Sticky: Read This Before You Post
    YoHoJo


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. What's wrong with this script?
    By daniiboy69 in forum OSR Help
    Replies: 1
    Last Post: 10-09-2008, 06:25 AM
  2. Replies: 3
    Last Post: 01-20-2008, 05:29 PM
  3. Replies: 2
    Last Post: 10-11-2007, 11:07 PM
  4. this isnt my script but wats wrong with it
    By cheese444222 in forum OSR Help
    Replies: 2
    Last Post: 10-08-2007, 02:18 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
  •