Results 1 to 4 of 4

Thread: A bow Stringer...

  1. #1
    Join Date
    Mar 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default A bow Stringer...

    ... yeah.... here it is... it iks having problems on my computer.. thought that someone might wanna review it because it is an very uncommon type of SCAR script.. i have relaly only heard of 2 of them.. plz review and post your comments =[)

    program PacStringer;

    begin

    procedure UseBank;

    begin
    FindObj(x, y, 'ank', 9539728, 267, 147);
    Mouse(x, y, 5, 5, False);
    wait(100);
    ChooseOption(x,y,'quickly');
    wait(3000);
    Mouse(585, 228, 2, 2, False);
    wait(200);
    ChooseOption(x,y,'Withdraw All');
    wait(150);
    Mouse(588, 230), 2, 2, False);
    wait(200);
    ChooseOption(x,y,'Deposit All');
    wait(1000);
    Mouse(94, 78, 2, 2, False);
    wait(200);
    ChooseOption(x,y,'Withdraw All');
    procedure Stringbows;
    begin
    ClickMouse(485, 44)
    HoldMouse(627,339,true);
    Wait(random(100));
    ReleaseMouse(672,447,true);
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(716, 124 True);
    wait(random(100));
    MouseClick(672, 447, True);
    wait(random(100));
    Writeln('Happy Fletching: From The_Pac_Man')
    end;
    begin
    UseBank;
    Stringbows;
    Until(False)
    repeat;
    //multiply this by the amount of k's that you are going to string =)\\
    end.

  2. #2
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I posted this in your help topic:

    Bunch of mistakes here:

    1. You forgot to put {.include SRL/SRL.scar} after program PacStringer;

    2. The begin you have on the second line is not supposed to exist.

    3. You're using findobj wrong. Line 5 should be like this with color and color tolerance changed of course:
    SCAR Code:
    FindObj(x, y, 'ank', color, color tolerance);

    4. Line 14 has an extra parantesis after 230.

    5. Around line 21 you need to have an end; before starting the new procedure.

    6. When you use ClickMouse (very detectable Mouse is better) around line 26 you forget to put the true.

    7. You use MouseClick a bunch of times which isn't an actual procedure.

    8. You forget commas before when using MouseClick (by which I'm assuming you meant ClickMouse)

    9. At the end you use until(false) without have a repeat before UseBank;

    10. You have an extra repeat on the third to last line of your script.


    Here is your script with most of the changes made, so it'll actually compile. I'd strongly reccommend using Mouse instead of ClickMouse.

    SCAR Code:
    program PacStringer;
    {.include SRL/SRL.scar}

    procedure UseBank;
    begin
    FindObj(x, y, 'ank', 9539728, 5);
    Mouse(x, y, 5, 5, False);
    wait(100);
    ChooseOption(x,y,'quickly');
    wait(3000);
    Mouse(585, 228, 2, 2, False);
    wait(200);
    ChooseOption(x,y,'Withdraw All');
    wait(150);
    Mouse(588, 230, 2, 2, False);
    wait(200);
    ChooseOption(x,y,'Deposit All');
    wait(1000);
    Mouse(94, 78, 2, 2, False);
    wait(200);
    ChooseOption(x,y,'Withdraw All');
    end;

    procedure Stringbows;
    begin
    ClickMouse(485, 44, true)
    HoldMouse(627, 339, true);
    Wait(random(100));
    ReleaseMouse(672,447,true);
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(716, 124, True);
    wait(random(100));
    ClickMouse(672, 447, True);
    wait(random(100));
    Writeln('Happy Fletching: From The_Pac_Man')
    end;

    begin
    repeat
    UseBank;
    Stringbows;
    Until(False)
    //multiply this by the amount of k's that you are going to string =)\\
    end.

  3. #3
    Join Date
    Mar 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thnkyou soooo much!

  4. #4
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No problem lol, it was interesting, and it's good that you're trying to make a script yourself.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. stringer
    By daddyproboot in forum First Scripts
    Replies: 2
    Last Post: 12-27-2007, 12:08 AM
  2. bow stringer
    By s1cky in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 10-10-2007, 11:29 AM
  3. Bow stringer.
    By sjoewaps in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 09-06-2007, 07:34 PM
  4. I need a bow stringer!
    By death_wach66 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 07-12-2007, 09:16 AM
  5. a bow stringer
    By crazy_dawg8809 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 05-04-2007, 05:54 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
  •