Results 1 to 9 of 9

Thread: FeatherFinder (First Script; that doesnt work)

  1. #1
    Join Date
    Aug 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default FeatherFinder (First Script; that doesnt work)

    Hello,

    I'm creating my first script; The FeatherFinder. But hi doesnt work, i think he don't have the good FeatherColor. But maybe the script is bugged. It starts well, but it doesnt click on feathers, sometimes it clicks on flowers or something.

    Can anyone help me please?

    In advance thanks

    Script:
    Code:
    Program FeatherFinder;
    
    Const
      FeatherColor = 12303556;
    
    Procedure GetFeathers;
    Var
      x,y,Counter: Integer;
      Stopper: Boolean;
    
    Begin
      FindColorTolerance(x,y,FeatherColor,8,10,515,336,30);
      MoveMouseSmoothEx(x,y,1,3,45,20,10);
      ClickMouse(x,y,True);
      Counter:=0;
      Stopper:=False;
      Repeat
      Wait(5000)
      Until(Stopper=True)
    End;
    
    Begin
    MoveToTray;
    ActivateClient;
    Repeat
      GetFeathers;
    End.
    
    End;
    WriteIn ('FeatherFinder started.')
    WriteIn (FeatherCount)
    (sorry for my bad english, im dutch)

  2. #2
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    re pick the color

  3. #3
    Join Date
    Aug 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did it lots of time, but always hi clicks on other items, or hi doesnt click.

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

    Default

    NicBaz, Can you read the script first?

    SCAR Code:
    Program FeatherFinder;

    Const
      FeatherColor = 12303556;

    Procedure GetFeathers;
    Var
      x,y,Counter: Integer;
      Stopper: Boolean;

    Begin
      FindColorTolerance(x,y,FeatherColor,8,10,515,336,30);
      MMouse(x,y,5,5); //MMouse or Mouse, not the SCAr ones. The Srl ones.
      if Isuptext('eather') then //if the uptext is feather
      begin
        Mouse(x,y,5,5,false); //Rightclick
        Chooseoption('eather'); //Chooseoption
      end;
     { Stopper:=False;
      Repeat
      Wait(5000)  //Stopper will never become true, so it just waits.
      Until(Stopper=True)}

      Flag;
      wait(1000 + random(250));
    End;

    Begin
    MoveToTray;
    ActivateClient;
    Repeat
      GetFeathers;
    until(isfkeydown(11))
    End.

    End;
    WriteIn ('FeatherFinder started.')
    WriteIn (FeatherCount) //?
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  5. #5
    Join Date
    Aug 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm just a beginner, i don't know the script is right, thats what i ask to the members here. Does this script work now?

  6. #6
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Lee Lok Hin View Post
    NicBaz, Can you read the script first?

    SCAR Code:
    Program FeatherFinder;

    Const
      FeatherColor = 12303556;

    Procedure GetFeathers;
    Var
      x,y,Counter: Integer;
      Stopper: Boolean;

    Begin
      FindColorTolerance(x,y,FeatherColor,8,10,515,336,30);
      MMouse(x,y,5,5); //MMouse or Mouse, not the SCAr ones. The Srl ones.
      if Isuptext('eather') then //if the uptext is feather
      begin
        Mouse(x,y,5,5,false); //Rightclick
        Chooseoption('eather'); //Chooseoption
      end;
     { Stopper:=False;
      Repeat
      Wait(5000)  //Stopper will never become true, so it just waits.
      Until(Stopper=True)}

      Flag;
      wait(1000 + random(250));
    End;

    Begin
    MoveToTray;
    ActivateClient;
    Repeat
      GetFeathers;
    until(isfkeydown(11))
    End.

    End;
    WriteIn ('FeatherFinder started.')
    WriteIn (FeatherCount) //?
    sorry.

  7. #7
    Join Date
    Aug 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great; Line 13: [Error] (13:1): Unknown identifier 'MMouse' in script

    Whats the matter with it?

  8. #8
    Join Date
    Aug 2008
    Location
    Planet Earth.
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You need to include SRL.

    Put
    SCAR Code:
    {.include SRL/SRL.scar}
    after
    SCAR Code:
    program YourProgramName;
    and then in the main loop put
    SCAR Code:
    begin
      SetupSRL;
    end.
    Hope i helped. .
    Learning: Italian!
    Code:
    <Jason2G's> I just sprayed WD-40 on my dog's nuts. He was sleeping. And now he can't get back to sleep ^_^

  9. #9
    Join Date
    Aug 2008
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hi doesn't give the error anymore but:

    Successfully compiled (1583 ms)
    SRL Compiled in 16 msec
    Successfully executed

    Hi says when i compile, hi stops direct after the start

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Why doesnt this script work?
    By metal in forum OSR Help
    Replies: 12
    Last Post: 11-30-2007, 09:51 PM
  2. Why doesnt this work?
    By Tim0suprem0 in forum OSR Help
    Replies: 38
    Last Post: 07-03-2007, 09:40 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
  •