Results 1 to 8 of 8

Thread: Battle-Scape bot # Alcher #

  1. #1
    Join Date
    Aug 2012
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Battle-Scape bot # Alcher #

    Code:
    {$DEFINE RS2}
    {$I OSI\OSI.scar}
    
    var
    A:Integer;
    B:Integer;
    begin
    repeat
    Mouse(786,259,0,0,true);
    wait(100);
    if findcolor(A,B,634799,587,391,799,549) then
    Mouse(A,B,0,0,true);
    wait(800);
    if findcolor(A,B,858751,566,241,803,559) then
    Mouse(A,B,0,0,true);
    wait(100);
    if findcolor(A,B,71705,748,394,771,412) then
    Mouse(691,255,0,0,true);
    wait(100);
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('rune');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('iron');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('black');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('brown');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('steel');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('bronze');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('dragon');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('mithril');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('adamant');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('5');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('1');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('2');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('3');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('4');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('6');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('7');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('8');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('9');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('10');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('seven');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('six');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('five');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('four');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('three');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('two');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('one');
    
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('eight');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('nine');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('ten');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('attack');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('defence');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('strength');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('Hitpoints');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('range');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('prayer');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('magic');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('cooking');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('woodcutting');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('fletching');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('fishing');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('firemaking');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('crafting');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('smithing');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('mining');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('herblore');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('agility');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('thieving');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('slayer');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('farming');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('runecrafting');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('hunter');
    if findcolor(A,B,45311,566,241,803,559) then
    TypeSend('construction');
    until(false);
    end.
    // Alcher ^

    / Scar code.

  2. #2
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Why
    Simba Code:
    if findcolor(A,B,45311,566,241,803,559) then
    30 times or something.. I mean they all have same parameters? And how come it uses OSI.scar?
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  3. #3
    Join Date
    Aug 2012
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by weequ View Post
    Why
    Simba Code:
    if findcolor(A,B,45311,566,241,803,559) then
    30 times or something.. I mean they all have same parameters? And how come it uses OSI.scar?
    Well it's a random, we can't make an actual inject able code so we actually guess the word that it's randomized.

    We can't either have

    Code:
    if findcolor(A,B,45311,566,241,803,559);
    TypeSend(TQL);
    TypeSend(TQL);
    TypeSend(TQL);
    Stacked up either, since it'll not recognize the color 45311, instead it would type it out every time it repeats itself, instead we put out a if findcolor at every TypeSend. So that we'll not interrupt the script doing it's task every 5 seconds.

  4. #4
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Does typing the correct word remove the Color 45311?

    You could make it shorter and easier to understand like this:

    SCAR Code:
    {$DEFINE RS2}
    {$I OSI\OSI.scar}

    var
       Texts: Array of String;
       X, Y, I:Integer;
       
    begin       //0       1        2       3        4          5                                                             High(Texts)
      Texts := ['rune', 'iron', 'black', 'brown', 'steel', 'bronze', 'dragon', 'mithril', 'adamant', '5', '1', '2', '3', '4', '6'];//Didn't add all the words.
      repeat
        Mouse(786,259,0,0,true);
        wait(100);
        if findcolor(X,Y,634799,587,391,799,549) then
        Mouse(A,B,0,0,true);
        wait(800);
        if findcolor(X,Y,858751,566,241,803,559) then
        Mouse(A,B,0,0,true);
        wait(100);
        if findcolor(X,Y,71705,748,394,771,412) then
        Mouse(691,255,0,0,true);
        wait(100);
        I := 0;
        while (findcolor(X,Y,45311,566,241,803,559) or (I > High(Texts))) do
        begin
          TypeSend(Texts[I]);//Type
          I := I + 1; //Increase I by one
        end;
        if I > High(Texts) then TerminateScript;//None of the Texts worked.
      until(false);
    end.
    I didn't bother adding all the words to Texts but you can do it easily just by adding a comma and a string.


    Quote Originally Posted by Daher View Post
    Code:
    if findcolor(A,B,45311,566,241,803,559);
    TypeSend(TQL);
    TypeSend(TQL);
    TypeSend(TQL);
    Stacked up either, since it'll not recognize the color 45311, instead it would type it out every time it repeats itself, instead we put out a if findcolor at every TypeSend. So that we'll not interrupt the script doing it's task every 5 seconds.
    To solve this problem:
    SCAR Code:
    if findcolor(A,B,45311,566,241,803,559) then
    begin//Everything between begin and end; will be executed when the color is found and nothing when it's not found.
      TypeSend(TQL);//It's common practice to add indentation to this kind of code blocks including loops because it makes the script easier to read leaving less change for error.
      TypeSend(TQL);
      TypeSend(TQL);
    end;
    Last edited by weequ; 09-23-2012 at 06:14 PM.
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  5. #5
    Join Date
    Feb 2012
    Location
    West Virginia
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Omg you dont even need this Script.
    Just use Gary's Hood auto clicker/auto alcher.

  6. #6
    Join Date
    Aug 2012
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by exilednoob View Post
    Omg you dont even need this Script.
    Just use Gary's Hood auto clicker/auto alcher.
    And how would the script complete randoms ?
    Last edited by Daniel; 09-30-2012 at 01:40 PM.

  7. #7
    Join Date
    Feb 2012
    Location
    West Virginia
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Quote Originally Posted by Daher View Post
    And how would the script complete randoms ?
    You just have to watch for randoms yourself, they are rare while high alching anyway
    You cant leave a bot unattended for more than a couple hours on Battle-Scape anyway without getting banned.

  8. #8
    Join Date
    Aug 2012
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by exilednoob View Post
    You just have to watch for randoms yourself, they are rare while high alching anyway
    You cant leave a bot unattended for more than a couple hours on Battle-Scape anyway without getting banned.
    What if you're afk

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
  •