Results 1 to 14 of 14

Thread: Please help me fix my script

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

    Default Please help me fix my script

    Hello this is so far how much i got on my new flax picker,

    program New;
    {.include SRL\SRL.scar}
    const
    timetowait=2500;
    var
    x,y:integer;
    procedure Pick;
    begin
    repeat
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
    begin
    Mouse(x,y,0,0,true);
    Wait(200);
    end
    Wait(200);
    until(InvFull)
    end;
    end.

    please help me I get this error

    Failed when compiling

    Line 10: [Error] (14691:52) : Invalid number of parameters in script

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Give me a sec..

    EDIT:
    SCAR Code:
    program New;
    {.include SRL\SRL.scar}

    const
      timetowait=2500;
    var
      x,y:integer;

    Procedure DeclarePlayers;
    begin

         CurrentPlayer:=0;
         HowManyPlayers  := 4;                  // MAX 4 PLAYERS
         NumberOfPlayers(HowManyPlayers);

         Players[0].Name        := '';          // Username
         Players[0].Pass        := '';          // Password
         Players[0].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[0].Active      := True;        // Active?

         Players[1].Name        := '';          // Username
         Players[1].Pass        := '';          // Password
         Players[1].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[1].Active      := True;        // Active?

         Players[2].Name        := '';          // Username
         Players[2].Pass        := '';          // Password
         Players[2].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[2].Active      := True;        // Active?

         Players[3].Name        := '';          // Username
         Players[3].Pass        := '';          // Password
         Players[3].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[3].Active      := True;        // Active?

    end;

    procedure Pick;
    begin
      repeat
        if(FindColorTolerance(x,y,150654930, 0, 700, 500,4,10))then
        begin
          Mouse(x,y,0,0,true);
          Wait(200);
        end;
        Wait(200);
      until(InvFull)
    end;

    Begin
     SetupSRL;
     ActivateClient;
     If Not LoggedIn Then LoginPlayer;
     Pick;
    end.

    EDIT:
    See You Forgot The Tol To Go Up To Max...

    Look:

    SCAR Code:
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
    To
    SCAR Code:
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4,10))then

    P.S. Just added players and fixed it to work currently..

  3. #3
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    SCAR Code:
    program New;
    {.include SRL\SRL.scar}
    const
    timetowait=2500;

    var
    x,y:integer;

    procedure Pick;
    begin
      repeat
      if(FindColorTolerance(x,y,150654930, 0, 700, 500,4, 10))then
        begin
          Mouse(x,y,0,0,true);
          Wait(200);
        end;
        Wait(200);
      until(InvFull)
    end;

    begin
    end.

    You forgot the tolerance in the FindColorTolerance
    STOP PM'ING ME

  4. #4
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hobbit View Post
    SCAR Code:
    program New;
    {.include SRL\SRL.scar}
    const
    timetowait=2500;

    var
    x,y:integer;

    procedure Pick;
    begin
      repeat
      if(FindColorTolerance(x,y,150654930, 0, 700, 500,4, 10))then
        begin
          Mouse(x,y,0,0,true);
          Wait(200);
        end;
        Wait(200);
      until(InvFull)
    end;

    begin
    end.

    You forgot the tolerance in the FindColorTolerance
    ( Same Awnsers, Dirrerent Fixes )

    Quote Originally Posted by Timer150 View Post
    Give me a sec..

    EDIT:
    SCAR Code:
    program New;
    {.include SRL\SRL.scar}

    const
      timetowait=2500;
    var
      x,y:integer;

    Procedure DeclarePlayers;
    begin

         CurrentPlayer:=0;
         HowManyPlayers  := 4;                  // MAX 4 PLAYERS
         NumberOfPlayers(HowManyPlayers);

         Players[0].Name        := '';          // Username
         Players[0].Pass        := '';          // Password
         Players[0].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[0].Active      := True;        // Active?

         Players[1].Name        := '';          // Username
         Players[1].Pass        := '';          // Password
         Players[1].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[1].Active      := True;        // Active?

         Players[2].Name        := '';          // Username
         Players[2].Pass        := '';          // Password
         Players[2].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[2].Active      := True;        // Active?

         Players[3].Name        := '';          // Username
         Players[3].Pass        := '';          // Password
         Players[3].Nick        := '';          // Nickname, 3 - 4 letters of username
         Players[3].Active      := True;        // Active?

    end;

    procedure Pick;
    begin
      repeat
        if(FindColorTolerance(x,y,150654930, 0, 700, 500,4,10))then
        begin
          Mouse(x,y,0,0,true);
          Wait(200);
        end;
        Wait(200);
      until(InvFull)
    end;

    Begin
     SetupSRL;
     ActivateClient;
     If Not LoggedIn Then LoginPlayer;
     Pick;
    end.

    EDIT:
    See You Forgot The Tol To Go Up To Max...

    Look:

    SCAR Code:
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
    To
    SCAR Code:
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4,10))then

    P.S. Just added players and fixed it to work currently..

  5. #5
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    You just went all technical on it and added stuff
    I just fixed what he needed fixing (and a few tweeks with the begins and ends)

    *cough* Show off *cough*
    STOP PM'ING ME

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

    Default Can someone please help me?

    Hi i need some help with my script.I ve been trying to make an auto flax picker banker.Ive been getting some errors and idk how to make it walk to sertain places or pick sertain named things.Plese help me out I need to know all of those thigns and it would help if i could have examples.heres my script,


    program New;
    {.include SRL\SRL.scar}
    const
    timetowait=2500;
    var
    x,y:integer;
    procedure Pick;
    begin
    repeat
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
    begin
    Mouse(x,y,0,0,true);
    Wait(200);
    end
    Wait(200);
    until(InvFull)
    end;
    end. program New;
    {.include SRL\SRL.scar}
    const
    timetowait=2500;
    var
    x,y:integer;
    procedure Pick;
    begin
    repeat
    if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
    begin
    Mouse(x,y,0,0,true);
    Wait(200);
    end
    Wait(200);
    until(InvFull)
    end;
    end.


    Sinceraly,
    John Shepley

  7. #7
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try looking up radial walking and uptext. Read other peoples scripts ask more specific questions about the script and read some Tuts.

    Hope this helps,
    ~Stupedspam

  8. #8
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Scar tags please.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  9. #9
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include SRL\SRL.scar}

    const
    timetowait=2500;

    var
    x,y:integer;

    procedure Pick;
    begin
      repeat
        if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
          begin
            MMouse(x,y,0,0,true);
            Wait(200);
            if (IsUpText('Flax'))then //looks for text top left corner
              begin
                Writeln('found Flax')
              end;
            if not (IsUpText('Flax'))then //fail safe
              begin
                writeln('uptext not found...') //debug response
              end;
          end;
        if not (FindColorTolerance(x,y,150654930, 0, 700, 500,4))then //fail safe
          begin
            Writeln('could not find color')//debug response
          end;
        Wait(200);
        until(InvFull)
    end;

    begin //main loop
    SetUpSrl;
    Pick;
    end.

    Hope this helps,
    ~Stupedspam

  10. #10
    Join Date
    Oct 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Hi can someone please help me

    Ok ive been trying to get this script fixed for a few days but cant figure it out I keep getting an error saying cant find color even though I picked a color like 3 secs before starting script.I also need to know how to walk from the flax field to the bank and back.And i need to know how to bank stuff.


    Sinceraly,
    John Shepley

    program New;
    {.include SRL\SRL.scar}

    const
    timetowait=2500;

    var
    x,y:integer;

    procedure Pick;
    begin
    repeat
    if(FindColorTolerance(x,y,14999695, 0, 700, 500,4,0))then
    begin
    if (IsUpText('Flax'))then //looks for text top left corner
    begin
    Writeln('found Flax')
    end;
    if not (IsUpText('Flax'))then //fail safe
    begin
    writeln('uptext not found...') //debug response
    end;
    end;
    if not (FindColorTolerance(x,y,14999695, 0, 700, 500,4,0))then //fail safe
    begin
    Writeln('could not find color')//debug response
    end;
    Wait(200);
    until(InvFull)
    end;

    begin //main loop
    SetUpSrl;
    Pick;
    end.

  11. #11
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Try raising the tolerance from 0...

    try like 10

    SCAR Code:
    if(FindColorTolerance(x,y,14999695, 0, 700, 500,4, 10))then

    Also for future referance, enclose Scar script code in [SCAR][/ SCAR] Tags
    STOP PM'ING ME

  12. #12
    Join Date
    Oct 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Hello I need help

    Hi I need help radial walking or just some kind of walking from the flax field to the bank and back in seers village please give me some examples or suggestions thank you.

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

    Default

    Please stop making repetitive posts...someone may answer your question when they have a chance, or you can try reading some tutorials and figuring some of it out for yourself....there was a GREAT new one released just yesterday.

    ~RAM

    Search: Posts Made By: killor121 Forum: Scripting Help Today, 12:09 AM Replies: 12
    Please help me fix my script
    Views: 96
    Posted By killor121
    Hello I need help

    Hi I need help radial walking or just some kind of walking from the flax field to the bank and back in seers village please give me some examples or suggestions thank you.


    Forum: Scripting Help Yesterday, 11:26 PM Replies: 12
    Please help me fix my script
    Views: 96
    Posted By killor121
    Hi can someone please help me

    Ok ive been trying to get this script fixed for a few days but cant figure it out I keep getting an error saying cant find color even though I picked a color like 3 secs before starting script.I also...


    Forum: Scripting Help Yesterday, 08:16 PM Replies: 12
    Please help me fix my script
    Views: 96
    Posted By killor121
    Can someone please help me?

    Hi i need some help with my script.I ve been trying to make an auto flax picker banker.Ive been getting some errors and idk how to make it walk to sertain places or pick sertain named things.Plese...


    Forum: Scripting Help 10-15-2007, 09:03 PM Replies: 12
    Please help me fix my script
    Views: 96
    Posted By killor121
    Please help me fix my script

    Hello this is so far how much i got on my new flax picker,

    program New;
    {.include SRL\SRL.scar}
    const
    timetowait=2500;
    var
    x,y:integer;
    procedure Pick;
    begin


    EDIT: I merged all your posts into this 1, seeing they were the same questions about the same script !


  14. #14
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Hehe

    I just realised it was the same guy both times...
    Nice fine RAM
    STOP PM'ING ME

Thread Information

Users Browsing this Thread

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

Posting Permissions

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