Results 1 to 9 of 9

Thread: lumbridgeyewcutterbanker problem

  1. #1
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    lumbridgeyewcutterbanker problem

    hi yesterday i read loads of tuts for making scripts. i was using scar about 3 months ago already but i didnt know nothing about script language all i was doin was using free scripts... but yesterday i learned really more about scripting then i was so inspired that i decided to do a lumbridge yewcutter because there were none and it was an easy place to do one.

    here is my error:

    Line 132: [Error] (18173:1): Identifier expected in script

    here it is:


    program LumbridgeYewCutter;

    {.Include SRL/SRL.Scar}
    {.include srl\srl\skill\WoodCutting.scar}

    const
    YewColorSymbol= 379178;
    YewColor= 4355472;
    BankSymbolColor= 5365754;
    ExclamationPointcolor= 2765055;

    var

    xs,ys: Integer;

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 17;
    NumberOfPlayers(HowManyPlayers);
    CurrentPLayer := 0;

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active := True;

    Players[1].Name := '';
    Players[1].Pass := '';
    Players[1].Nick := '';
    Players[1].Active := True;

    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := '';
    Players[2].Active := True;

    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := '';
    Players[3].Active := True;

    Players[4].Name := '';
    Players[4].Pass := '';
    Players[4].Nick := '';
    Players[4].Active := True;

    Players[5].Name := '';
    Players[5].Pass := '';
    Players[5].Nick := '';;
    Players[5].Active := True;

    Players[6].Name := '';
    Players[6].Pass := '';
    Players[6].Nick := '';
    Players[6].Active := True;

    Players[7].Name := '';
    Players[7].Pass := '';
    Players[7].Nick := '';
    Players[7].Active := True;

    Players[8].Name := '';
    Players[8].Pass := '';
    Players[8].Nick := '';
    Players[8].Active := True;

    Players[9].Name := '';
    Players[9].Pass := '';
    Players[9].Nick := '';
    Players[9].Active := True;

    Players[10].Name := '';
    Players[10].Pass := '';
    Players[10].Nick := '';
    Players[10].Active := True;

    Players[12].Name := '';
    Players[12].Pass := '';
    Players[12].Nick := '';
    Players[12].Active := True;

    Players[13].Name := '';
    Players[13].Pass := '';
    Players[13].Nick := '';
    Players[13].Active := True;

    Players[14].Name := '';
    Players[14].Pass := '';
    Players[14].Nick := '';
    Players[14].Active := True;

    Players[15].Name := '';
    Players[15].Pass := '';
    Players[15].Nick := '';
    Players[15].Active := True;

    Players[16].Name := '';
    Players[16].Pass := '';
    Players[16].Nick := '';
    Players[16].Active := True;
    end;

    Procedure StartScript;
    begin
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    end;


    procedure GoToYew;
    begin
    MoveMouse(700,73);
    Wait(100);
    ClickMouse(700,73,true);
    if(FindColorSpiral(xs,ys,ExclamationPointColor,1,1 ,696,101))then
    begin
    Movemouse(696,101);
    Wait(100);
    ClickMouse(696,101,true);
    MoveMouse(704,58);
    Wait(100);
    ClickMouse(704,58,true);
    if(FindColorSpiral(xs,ys,YewColorSymbol,1,1,837,28 0))then
    begin
    MoveMouse(837,280);
    Wait(100);
    ClickMouse(837,280,true);
    end;


    procedure CutYew;
    begin
    if(FindColorSpiral(xs,ys,Yewcolor,1,1,337,128))the n
    begin
    MoveMouse(337,128)
    Wait(100)
    ClickMouse(337,128,true)

    end;


    procedure GoToBank;
    begin
    MoveMouse(703,299,)
    Wait(100)
    ClickMouse(703,299,true)
    if(FindColorSpiral(xs,ys,ExclamationPointColor,1,1 ,712,324,))then
    begin
    MoveMouse(712,324)
    Wait(100)
    ClickMouse(712,324,true)
    MoveMouse(719,259)
    Wait(100)
    ClickMouse(719,259,true)
    if(FindColorSpiral(xs,ys,BankSymbolColor,1,1,727,3 13))then
    MoveMouse(727,313)
    Wait(100)
    ClickMouse(727,313,true)
    end;


    procedure BankYew;
    begin
    openbank;
    deposit(1,2,0)
    deposit(1,3,0)
    end;


    begin
    SetupSRL;
    repeat
    GoToYew;
    CutYew;
    GoToBank;
    BankYew;
    until(false)
    end.

    ----------------------

    Line 132 is the 2nd procedure:
    procedure CutYew;

    I'm so frustrated please some1 helpme!!

    I don't know but maybe my script is garbage... anyways this is my first script!
    HELP ME PLEASE! thank you!!!!

  2. #2
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok it compiles now. They were all stupid mistakes, take more time to look through the script and notice syntax and identifiers. Remember, for every begin you need a end, for ever repeat you need a until.
    SCAR Code:
    program LumbridgeYewCutter;

    {.Include SRL/SRL.Scar}
    {.include srl\srl\skill\WoodCutting.scar}

    const
    YewColorSymbol= 379178;
    YewColor= 4355472;
    BankSymbolColor= 5365754;
    ExclamationPointcolor= 2765055;

    var

    xs,ys: Integer;

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 17;
    NumberOfPlayers(HowManyPlayers);
    CurrentPLayer := 0;

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active := True;

    Players[1].Name := '';
    Players[1].Pass := '';
    Players[1].Nick := '';
    Players[1].Active := True;

    Players[2].Name := '';
    Players[2].Pass := '';
    Players[2].Nick := '';
    Players[2].Active := True;

    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Nick := '';
    Players[3].Active := True;

    Players[4].Name := '';
    Players[4].Pass := '';
    Players[4].Nick := '';
    Players[4].Active := True;

    Players[5].Name := '';
    Players[5].Pass := '';
    Players[5].Nick := '';;
    Players[5].Active := True;

    Players[6].Name := '';
    Players[6].Pass := '';
    Players[6].Nick := '';
    Players[6].Active := True;

    Players[7].Name := '';
    Players[7].Pass := '';
    Players[7].Nick := '';
    Players[7].Active := True;

    Players[8].Name := '';
    Players[8].Pass := '';
    Players[8].Nick := '';
    Players[8].Active := True;

    Players[9].Name := '';
    Players[9].Pass := '';
    Players[9].Nick := '';
    Players[9].Active := True;

    Players[10].Name := '';
    Players[10].Pass := '';
    Players[10].Nick := '';
    Players[10].Active := True;

    Players[12].Name := '';
    Players[12].Pass := '';
    Players[12].Nick := '';
    Players[12].Active := True;

    Players[13].Name := '';
    Players[13].Pass := '';
    Players[13].Nick := '';
    Players[13].Active := True;

    Players[14].Name := '';
    Players[14].Pass := '';
    Players[14].Nick := '';
    Players[14].Active := True;

    Players[15].Name := '';
    Players[15].Pass := '';
    Players[15].Nick := '';
    Players[15].Active := True;

    Players[16].Name := '';
    Players[16].Pass := '';
    Players[16].Nick := '';
    Players[16].Active := True;
    end;

    Procedure StartScript;
    begin
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    end;


    procedure GoToYew;
    begin
    MoveMouse(700,73);
    Wait(100);
    ClickMouse(700,73,true);
    if(FindColorSpiral(xs,ys,ExclamationPointColor,1,1 ,696,101))then
    begin
    Movemouse(696,101);
    Wait(100);
    ClickMouse(696,101,true);
    MoveMouse(704,58);
    Wait(100);
    ClickMouse(704,58,true);
    if(FindColorSpiral(x,y,YewColorSymbol,1,1,837,28))then //invalid parameters
    begin
    MoveMouse(837,280);
    Wait(100);
    ClickMouse(837,280,true);
    end;
    end; //needed anoter end.
    end; //and another one...


    procedure CutYew;
    begin
    if(FindColorSpiral(xs,ys,Yewcolor,1,1,337,128))then
    begin
    MoveMouse(337,128)
    Wait(100)
    ClickMouse(337,128,true)
    end; //another one...
    end;


    procedure GoToBank;
    begin
    MoveMouse(703,299)//syntax...
    Wait(100)
    ClickMouse(703,299,true)
    if(FindColorSpiral(xs,ys,ExclamationPointColor,1,1 ,712,324))then //another syntax
    begin
    MoveMouse(712,324)
    Wait(100)
    ClickMouse(712,324,true)
    MoveMouse(719,259)
    Wait(100)
    ClickMouse(719,259,true)
    if(FindColorSpiral(xs,ys,BankSymbolColor,1,1,727,313))then
    begin
    MoveMouse(727,313)
    Wait(100)
    ClickMouse(727,313,true)
    end;
    end;
    end;
    procedure BankYew;
    begin
    openbank;
    deposit(1,2,0)
    deposit(1,3,0)
    end;


    begin
    SetupSRL;
    repeat
    GoToYew;
    CutYew;
    GoToBank;
    BankYew;
    until(false)
    end.

  3. #3
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default thanks man

    thanks alot man!!

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Also, DO NOT use ClickMouse and movemouse, it gets you banned very fast. Rather use SRL's Mouse funtion for it. Oh btw, very nice to see someone doing Draynor yew cutter and banker, these scripts will be needed!

  5. #5
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    thanks 4 this script that now i can leech it up! lol


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  6. #6
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hah good luck using it newb. it doesnt even work

  7. #7
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, I wouldn't use ClickMouse. You will get banned

    Try:

    MMouse (x,y,0,0)

    to move it

    and

    Mouse(x,y,0,0,true)

    to click

  8. #8
    Join Date
    May 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    canu e-mail it to me when its finished my e-mailis stinkyfreak8@hotmail.com

  9. #9
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script uses WAY too many coord clicks. Use srl functions and wlaking with coords are very unreleaible, fidn a new way to walk. It is a basic start though and you could always imrpove.

    And also, isnt this really old and outdated so this post im making is useless? I just noticed it got bumped and had to post lol.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. problem...
    By Blumblebee in forum OSR Help
    Replies: 4
    Last Post: 12-28-2008, 07:22 AM
  2. help big problem
    By goblanca in forum OSR Help
    Replies: 3
    Last Post: 05-19-2007, 10:41 PM

Posting Permissions

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