Results 1 to 16 of 16

Thread: Findcolor HELP PLZ

  1. #1
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Findcolor HELP PLZ

    program S;

    var
    x,y: Integer;

    procedure S;

    begin


    If FindColorTolerance(x,y,7565938,260,157,260,168,10) Then

    begin

    KeyDown(GetKeyCode('s'));
    wait(150 + random(200));
    Keyup(GetKeyCode('s'));

    end;
    end;
    begin
    repeat
    S;
    until(IsFKeyDown(1));
    end.

    it is a script that prees S wenn find color

    it is a thing that move left right wenn it is in middel i want the script to press
    "s" but it is to slow i need help to find color more faster and make the script faster like look for color and just move on wenn find the color

  2. #2
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    What your trying to do?

    And please use SCAR tags.
    There used to be something meaningful here.

  3. #3
    Join Date
    Apr 2007
    Location
    Melbourne, Aus
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try this:
    SCAR Code:
    program S;
    var
      x, y : Integer;

    begin
      repeat
        if FindColorTolerance(x, y, 7565938, 260, 157, 260, 168, 10) then
        begin
          SendKeysSilent('s');
          wait(150+random(200));
        end;
      until(IsFKeyDown(1));
    end.
    Last edited by jimmy_mac; 01-17-2010 at 01:10 PM.

  4. #4
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Yeah try jimmy_mac's code. Also scars color finding takes only a few milliseconds, so I'm pretty sure its fast enough, make sure your color and tolerance are proper so the color is actually being found maybe? Also, next time you post code, post it between these
    [scar][/scar.] (Without that lasts period/fullstop at the end)

  5. #5
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    THX jimmy_mac

    but can anyone do so it find the color prees S then stop

  6. #6
    Join Date
    Feb 2009
    Location
    Hungary (GMT + 1)
    Posts
    1,774
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Place an Exit; after the s pressing part.
    That will exit from the procedure.(in our case it's the mainloop so the script will stop)

  7. #7
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    SCAR Code:
    program New;
    var
      x, y : Integer;

    function S: Boolean;
    begin
      Result := False;
      repeat
        if FindColorTolerance(x, y, 7565938, 260, 157, 260, 168, 10) then
        begin
          SendKeysSilent('s');
          Result := True;
        end;
      until(Result or IsFKeyDown(1));
    end;

    begin
      repeat
        S;
      until(S or IsFKeyDown(1));
    end.

  8. #8
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i luffs yeww thx but can u make so wenn it find color it w8
    8 sec if i prees 1
    12 sec if i prees 2
    23 sec if i prees 3
    42 sec if i prees 4

    and then run 1 time until i prees next key like 2 u understand??

    program New;
    var
    x, y : Integer;

    function S: Boolean;
    begin
    Result := False;
    repeat
    if FindColorTolerance(x, y, 7565938, 260, 157, 260, 168, 10) then
    begin
    wait (x.time) <---------------------
    SendKeysSilent('s');
    Result := True;
    end;
    until(Result or IsFKeyDown(1));
    end;

    begin if press 1
    x= 8 sec <-----------------



    repeat
    S;
    until(S or IsFKeyDown(1));
    end.

    somthing like that

  9. #9
    Join Date
    Jan 2010
    Posts
    5,227
    Mentioned
    6 Post(s)
    Quoted
    60 Post(s)

    Default

    Just to get it straight, if you press F1 once, then make it wait eight seconds, then the next time you press it, wait 12 seconds, etc.? And the key will always be the same that you press, or will you press different keys for different wait times?

  10. #10
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    Oh, just so you know, then SendKeys- functions are detectable. Use SRL's TypeSend to be sure that the typing wont ban you

  11. #11
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Quote Originally Posted by Zyt3x View Post
    Oh, just so you know, then SendKeys- functions are detectable. Use SRL's TypeSend to be sure that the typing wont ban you
    It's not for runescape. So he's kay?

  12. #12
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    It's not for runescape. So he's kay?
    How do you know?
    EDIT: And yeah, I get that clicking a color and then typing "s" doesn't sound much runescape-ish...

  13. #13
    Join Date
    Apr 2007
    Location
    Melbourne, Aus
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this what you want?? i dont really see how this could be that useful. what is it for?
    Code:
    program New;
    var
      x, y, WaitTime : Integer;
    
    Procedure FindTheColor;
    begin
      repeat
        if FindColorTolerance(x, y, 7565938, 260, 157, 260, 168, 10) then exit;
      until(false);
    end;
    
    Procedure UserInput;
    var i: Integer;
    begin
      repeat
      for i := 1 to 4 do
        if IsFKeyDown(i) then
        begin
          if i = 1 then waitTime := 8;
          if i = 2 then waitTime := 12;
          if i = 3 then waitTime := 23;
          if i = 4 then waitTime := 42;
          exit;
        end;
      until(false);
    end;
    
    Procedure WaitThenType;
    begin
      wait(waitTime*1000);
      SendKeysSilent('s');
      //SendKeysSilent(chr(13));  //if you want it to press enter, then enable this line.
    end;
    
    begin
      repeat
        FindTheColor;
        UserInput;
        WaitThenType;
      until(false); // Until what you want.
    end.

  14. #14
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it is not for RS and i have used a other bot that i made for 2 years ago
    that make around 5k on 4h
    but if i get this bot to work it will make around 20k 4h so i realy want this to work

    her's and img about what it is wenn it is in the middel i want it to prees s 5 times s in middel but the litel gray thing over have like 5 speeds so i thinked if i make it so it activates wenn it is on right side and wait the time i want like and i make that wait time by prees a key like 1=12 sec 2=33sec 3=25 sec 4=26 sec

    like this exp

    if prees 1 it find the color then wait 12 sec and then prees S

    if prees 4 it find color then wait 26 sec then prees s

    i want it so i can prees like 3 , 4,1 ,4 like random not in row

    like this script wenn run it finds color then prees s 1 time

    program New;
    var
    x, y : Integer;

    function S: Boolean;
    begin
    Result := False;
    repeat
    if FindColorTolerance(x, y, 7565938, 260, 157, 260, 168, 10) then
    begin
    wait = X time <-------------------------then i prees key how long time to wait
    SendKeysSilent('s');
    Result := True;
    end;
    until(Result or IsFKeyDown(1));
    end;

    begin
    if prees 1 X=2 sec
    if prees 2 X=9 sec
    if prees 3 X=1 sec <----------------------------------------------- so and img
    if prees 4 X=6 sec
    repeat
    S;
    until(S or IsFKeyDown(1));
    end.


  15. #15
    Join Date
    Apr 2007
    Location
    Melbourne, Aus
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what is the game? give us a link.
    i think you could make this without pressing any buttons? just find the green color and then wait till the grey is above it. or dtm is above it. and type s??

  16. #16
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    meybe i used the script u gave me and it prees S wenn it is on the green but it is 4 speeds and its only on one speed it makes perfect

    link to game = http://www.graalonline.com/playerworlds/downloads/

    prees what u have like windows,mac etc

    then just install and wenn u get to login screen u dont need pass or acc just prees llogin then u get to server list prees on "Era"

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
  •