Results 1 to 8 of 8

Thread: Clicking Mouse Problem

  1. #1
    Join Date
    Dec 2008
    Location
    You wish you knew, stalker :o
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Clicking Mouse Problem

    Fixed thanks to aran armath, Thanks man +rep
    Code:
    program TurboColorClicker;
    {.include srl/srl.scar}
    //////////////////////
    //Script is licensed//
    //under the GPL.    //
    //      ~Pointer    //
    //this script is    //
    //good for click    //
    //games             //
    //clicks on a color //
    //as fast scar can  //
    //find it :)        //
    //////////////////////
    var x,y,monster: integer;
    
    const
     i = 5000; //number of monsters to kill
     colortofind=9485807; //replace with the color you want to pick
     colortofind2=9404554; //replace with the color you want to pick
     colortofind3=11505017; //replace with the color you want to pick
     colortofind4=14679528; //replace with the color you want to pick
     colortofind5=10011637; //replace with the color you want to pick
     colortofind6=11644834; //replace with the color you want to pick
    
     screenresx=1280; //width of your screen in pixels
     screenresy=800; //height of your screen in pixels
    
    procedure Talk;
    begin
       ClearDebug;
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('##       ');
       Writeln('#        ');
       Writeln('##       ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('####      ');
       Writeln('#        ');
       Writeln('####      ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('####      ');
       Writeln('#   #     ');
       Writeln('####      ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100)ClearDebug;
       Writeln('####     ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#        ');
       wait(100)ClearDebug;
       Writeln('####   #  ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      #  ');
       wait(100)ClearDebug;
       Writeln('####   ## ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      ## ');
       wait(100)ClearDebug;
       Writeln('####   ###');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      ###');
       wait(100);ClearDebug;
       Writeln('####   ###  # ');
       Writeln('#   # #   #   ');
       Writeln('####  #   # # ');
       Writeln('#     #   # # ');
       Writeln('#      ###  # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #');
       Writeln('#   # #   #   #');
       Writeln('####  #   # # #');
       Writeln('#     #   # # #');
       Writeln('#      ###  # #');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # ');
       Writeln('#     #   # # # ');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # #');
       Writeln('#     #   # # # ');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # #');
       Writeln('#     #   # # #  #');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   #');
       Writeln('#   # #   #   ##  #');
       Writeln('####  #   # # # # #');
       Writeln('#     #   # # #  ##');
       Writeln('#      ###  # #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # #');
       Writeln('#   # #   #   ##  # ');
       Writeln('####  #   # # # # # ');
       Writeln('#     #   # # #  ## ');
       Writeln('#      ###  # #   # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##');
       Writeln('#   # #   #   ##  # ');
       Writeln('####  #   # # # # # ');
       Writeln('#     #   # # #  ## ');
       Writeln('#      ###  # #   # ');
       Writeln('#');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ###');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ####');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # #####');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### #');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   #');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ##');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ##');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ###');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ###');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ###');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ####');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ####');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ####');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### #####');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ####');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   #####');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### #');
       Writeln('#   # #   #   ##  #   #   #     #');
       Writeln('####  #   # # # # #   #   ####  #');
       Writeln('#     #   # # #  ##   #   #     #');
       Writeln('#      ###  # #   #   #   ##### #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ##');
       Writeln('#   # #   #   ##  #   #   #     #');
       Writeln('####  #   # # # # #   #   ####  ##');
       Writeln('#     #   # # #  ##   #   #     #');
       Writeln('#      ###  # #   #   #   ##### #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ###');
       Writeln('#   # #   #   ##  #   #   #     #  ');
       Writeln('####  #   # # # # #   #   ####  ###');
       Writeln('#     #   # # #  ##   #   #     # #');
       Writeln('#      ###  # #   #   #   ##### #  ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ###');
       Writeln('#   # #   #   ##  #   #   #     #  #');
       Writeln('####  #   # # # # #   #   ####  ###');
       Writeln('#     #   # # #  ##   #   #     # #');
       Writeln('#      ###  # #   #   #   ##### #  #');
    
    
    
       wait(500);ClearDebug;
       Writeln('####  ###  ####  #### #### #   # ##### ####   ');
       Writeln('#   # #  # #    #     #    ##  #   #  #       ');
       Writeln('####  ###  ###   ###  ###  # # #   #   ###     ');
       Writeln('#     # #  #        # #    #  ##   #      #   ');
       Writeln('#     #  # #### ####  #### #   #   #  ####     ');
       wait(500);ClearDebug;
       Writeln('     #   ');
       Writeln('    # #  ');
       Writeln('   #   #  ');
       Writeln('  ####### ');
       Writeln(' #       # ');
       wait(500);ClearDebug;
       Writeln('##### #  # ###  ###   ### ');
       Writeln('  #   #  # #  # #  # #   #');
       Writeln('  #   #  # ###  ###  #   #');
       Writeln('  #   #  # # #  #  # #   #');
       Writeln('  #    ##  #  # ###   ###');
       wait(500);ClearDebug;
       Writeln(' ####  ###  #     ###  ###  ');
       Writeln('#     #   # #    #   # #  # ');
       Writeln('#     #   # #    #   # ###  ');
       Writeln('#     #   # #    #   # # #  ');
       Writeln(' ####  ###  ####  ###  #  # ');
       wait(500);ClearDebug;
       Writeln(' ### #    #  ### #  # #### ###');
       Writeln('#    #      #    # #  #    #  #');
       Writeln('#    #    # #    ##   ###  ###');
       Writeln('#    #    # #    # #  #    # #');
       Writeln(' ### #### #  ### #  # #### #  #');
       wait(500);ClearDebug;
    
    end;
    
    
    procedure kleur1;
    begin
     if findcolor(x,y,colortofind,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
      monster := monster + 1;
      end;
    end;
    
    procedure kleur2;
    begin
     if findcolor(x,y,colortofind2,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur3;
    begin
     if findcolor(x,y,colortofind3,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur4;
    begin
     if findcolor(x,y,colortofind4,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur5;
    begin
     if findcolor(x,y,colortofind5,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur6;
    begin
     if findcolor(x,y,colortofind6,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    begin
     SetUpSrl;
     monster := 0;
     Talk;
     repeat
      kleur1;
      kleur2;
      kleur3;
      kleur4;
      kleur5;
      kleur6;
     until(i = monster)
    end.
    Last edited by deadlywario0; 04-27-2010 at 04:21 PM.

  2. #2
    Join Date
    Mar 2007
    Posts
    478
    Mentioned
    4 Post(s)
    Quoted
    4 Post(s)

    Default

    First off, what are you trying to find?

    Second, you are using "holdmouse(x,y,false)", which holds the right mouse button down till told to release, and you dont tell it to release. Might be much better to use "mouse(x,y,false)" which moves the mouse to cordanates instead of teleporting magically, and right clicks.

    Just if you told us what it was clicking, was clicking would be much better.
    Back from the dead.....

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

    Default

    ^ Might want to say that SRL is necessary if you want Mouse();.

  4. #4
    Join Date
    Nov 2008
    Location
    Melbourne, Australia
    Posts
    2,240
    Mentioned
    3 Post(s)
    Quoted
    11 Post(s)

    Default

    Why would you release a scar script under the GPL licence? It seems kind of pointless?
    Click here to find out how to get full screen without members! | Click here to check out my Ultimate Bitmap Tutorial! Edited to work with Simba! |

  5. #5
    Join Date
    Dec 2008
    Location
    You wish you knew, stalker :o
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm trying to get it to click After it finds the color, the colors are all correct and i can sit here and watch it. Also I get the same result with Clickmouse

    (Also this is not runescape related)

    Its clicking a monster, which it will then attack and 1 hit k0 (NOT on runescape, on a different game). and then move on to the Next monster, ect (Hence the wait time, while it "performs" the action of killing it)

  6. #6
    Join Date
    Mar 2007
    Posts
    478
    Mentioned
    4 Post(s)
    Quoted
    4 Post(s)

    Default

    Code:
    program TurboColorClicker;
    //////////////////////
    //Script is licensed//
    //under the GPL.    //
    //      ~Pointer    //
    //this script is    //
    //good for click    //
    //games             //
    //clicks on a color //
    //as fast scar can  //
    //find it :)        //
    //////////////////////
    
    const
     monster = 5000; //number of monsters to kill
     colortofind=9485807; //replace with the color you want to pick
     colortofind2=9404554; //replace with the color you want to pick
     colortofind3=11505017; //replace with the color you want to pick
     colortofind4=14679528; //replace with the color you want to pick
     colortofind5=10011637; //replace with the color you want to pick
     colortofind6=11644834; //replace with the color you want to pick
     
     screenresx=1280; //width of your screen in pixels
     screenresy=800; //height of your screen in pixels
    
    var x,y,i: integer;
    
    procedure Talk;
    begin
       ClearDebug;
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('##       ');
       Writeln('#        ');
       Writeln('##       ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('####      ');
       Writeln('#        ');
       Writeln('####      ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('####      ');
       Writeln('#   #     ');
       Writeln('####      ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100)ClearDebug;
       Writeln('####     ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#        ');
       wait(100)ClearDebug;
       Writeln('####   #  ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      #  ');
       wait(100)ClearDebug;
       Writeln('####   ## ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      ## ');
       wait(100)ClearDebug;
       Writeln('####   ###');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      ###');
       wait(100);ClearDebug;
       Writeln('####   ###  # ');
       Writeln('#   # #   #   ');
       Writeln('####  #   # # ');
       Writeln('#     #   # # ');
       Writeln('#      ###  # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #');
       Writeln('#   # #   #   #');
       Writeln('####  #   # # #');
       Writeln('#     #   # # #');
       Writeln('#      ###  # #');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # ');
       Writeln('#     #   # # # ');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # #');
       Writeln('#     #   # # # ');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # #');
       Writeln('#     #   # # #  #');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   #');
       Writeln('#   # #   #   ##  #');
       Writeln('####  #   # # # # #');
       Writeln('#     #   # # #  ##');
       Writeln('#      ###  # #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # #');
       Writeln('#   # #   #   ##  # ');
       Writeln('####  #   # # # # # ');
       Writeln('#     #   # # #  ## ');
       Writeln('#      ###  # #   # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##');
       Writeln('#   # #   #   ##  # ');
       Writeln('####  #   # # # # # ');
       Writeln('#     #   # # #  ## ');
       Writeln('#      ###  # #   # ');
       Writeln('#');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ###');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ####');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # #####');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### #');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   #');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ##');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ##');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ###');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ###');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ###');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ####');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ####');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ####');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### #####');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ####');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   #####');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### #');
       Writeln('#   # #   #   ##  #   #   #     #');
       Writeln('####  #   # # # # #   #   ####  #');
       Writeln('#     #   # # #  ##   #   #     #');
       Writeln('#      ###  # #   #   #   ##### #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ##');
       Writeln('#   # #   #   ##  #   #   #     #');
       Writeln('####  #   # # # # #   #   ####  ##');
       Writeln('#     #   # # #  ##   #   #     #');
       Writeln('#      ###  # #   #   #   ##### #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ###');
       Writeln('#   # #   #   ##  #   #   #     #  ');
       Writeln('####  #   # # # # #   #   ####  ###');
       Writeln('#     #   # # #  ##   #   #     # #');
       Writeln('#      ###  # #   #   #   ##### #  ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ###');
       Writeln('#   # #   #   ##  #   #   #     #  #');
       Writeln('####  #   # # # # #   #   ####  ###');
       Writeln('#     #   # # #  ##   #   #     # #');
       Writeln('#      ###  # #   #   #   ##### #  #');
    
    
    
       wait(500);ClearDebug;
       Writeln('####  ###  ####  #### #### #   # ##### ####   ');
       Writeln('#   # #  # #    #     #    ##  #   #  #       ');
       Writeln('####  ###  ###   ###  ###  # # #   #   ###     ');
       Writeln('#     # #  #        # #    #  ##   #      #   ');
       Writeln('#     #  # #### ####  #### #   #   #  ####     ');
       wait(500);ClearDebug;
       Writeln('     #   ');
       Writeln('    # #  ');
       Writeln('   #   #  ');
       Writeln('  ####### ');
       Writeln(' #       # ');
       wait(500);ClearDebug;
       Writeln('##### #  # ###  ###   ### ');
       Writeln('  #   #  # #  # #  # #   #');
       Writeln('  #   #  # ###  ###  #   #');
       Writeln('  #   #  # # #  #  # #   #');
       Writeln('  #    ##  #  # ###   ###');
       wait(500);ClearDebug;
       Writeln(' ####  ###  #     ###  ###  ');
       Writeln('#     #   # #    #   # #  # ');
       Writeln('#     #   # #    #   # ###  ');
       Writeln('#     #   # #    #   # # #  ');
       Writeln(' ####  ###  ####  ###  #  # ');
       wait(500);ClearDebug;
       Writeln(' ### #    #  ### #  # #### ###');
       Writeln('#    #      #    # #  #    #  #');
       Writeln('#    #    # #    ##   ###  ###');
       Writeln('#    #    # #    # #  #    # #');
       Writeln(' ### #### #  ### #  # #### #  #');
       wait(500);ClearDebug;
    
    end;
    
    
    procedure kleur1;
    begin
     if findcolor(x,y,colortofind,0,0,screenresx,screenresy) then
      begin
       ClickMouse(x,y,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur2;
    begin
     if findcolor(x,y,colortofind2,0,0,screenresx,screenresy) then
      begin
       HoldMouse(x,y,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur3;
    begin
     if findcolor(x,y,colortofind3,0,0,screenresx,screenresy) then
      begin
       HoldMouse(x,y,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur4;
    begin
     if findcolor(x,y,colortofind4,0,0,screenresx,screenresy) then
      begin
       HoldMouse(x,y,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur5;
    begin
     if findcolor(x,y,colortofind5,0,0,screenresx,screenresy) then
      begin
       HoldMouse(x,y,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur6;
    begin
     if findcolor(x,y,colortofind6,0,0,screenresx,screenresy) then
      begin
       HoldMouse(x,y,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    begin
     i := 0;
     Talk;
     repeat
      kleur1;
      kleur2;
      kleur3;
      kleur4;
      kleur5;
      kleur6;
     until(i = monster)
    end.
    That above, you can set the number of monsters to kill and it will stop once its killed the number specified. Or you could use Alt+Tab to switch to scar then either Alt+f4 or click stop or click exit.
    Back from the dead.....

  7. #7
    Join Date
    Dec 2008
    Location
    You wish you knew, stalker :o
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Fixed thanks to aran armath, Thanks man +rep
    Last edited by deadlywario0; 04-27-2010 at 04:21 PM.

  8. #8
    Join Date
    Mar 2007
    Posts
    478
    Mentioned
    4 Post(s)
    Quoted
    4 Post(s)

    Default

    Updated and here is the new script, with Srl.

    Code:
    program TurboColorClicker;
    {.include srl/srl.scar}
    //////////////////////
    //Script is licensed//
    //under the GPL.    //
    //      ~Pointer    //
    //this script is    //
    //good for click    //
    //games             //
    //clicks on a color //
    //as fast scar can  //
    //find it :)        //
    //////////////////////
    var x,y,monster: integer;
    
    const
     i = 5000; //number of monsters to kill
     colortofind=9485807; //replace with the color you want to pick
     colortofind2=9404554; //replace with the color you want to pick
     colortofind3=11505017; //replace with the color you want to pick
     colortofind4=14679528; //replace with the color you want to pick
     colortofind5=10011637; //replace with the color you want to pick
     colortofind6=11644834; //replace with the color you want to pick
    
     screenresx=1280; //width of your screen in pixels
     screenresy=800; //height of your screen in pixels
    
    procedure Talk;
    begin
       ClearDebug;
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('##       ');
       Writeln('#        ');
       Writeln('##       ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('####      ');
       Writeln('#        ');
       Writeln('####      ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100);ClearDebug;
       Writeln('####      ');
       Writeln('#   #     ');
       Writeln('####      ');
       Writeln('#        ');
       Writeln('#        ');
       wait(100)ClearDebug;
       Writeln('####     ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#        ');
       wait(100)ClearDebug;
       Writeln('####   #  ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      #  ');
       wait(100)ClearDebug;
       Writeln('####   ## ');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      ## ');
       wait(100)ClearDebug;
       Writeln('####   ###');
       Writeln('#   # #   ');
       Writeln('####  #   ');
       Writeln('#     #   ');
       Writeln('#      ###');
       wait(100);ClearDebug;
       Writeln('####   ###  # ');
       Writeln('#   # #   #   ');
       Writeln('####  #   # # ');
       Writeln('#     #   # # ');
       Writeln('#      ###  # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #');
       Writeln('#   # #   #   #');
       Writeln('####  #   # # #');
       Writeln('#     #   # # #');
       Writeln('#      ###  # #');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # ');
       Writeln('#     #   # # # ');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # #');
       Writeln('#     #   # # # ');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # # ');
       Writeln('#   # #   #   ##');
       Writeln('####  #   # # # #');
       Writeln('#     #   # # #  #');
       Writeln('#      ###  # # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   #');
       Writeln('#   # #   #   ##  #');
       Writeln('####  #   # # # # #');
       Writeln('#     #   # # #  ##');
       Writeln('#      ###  # #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # #');
       Writeln('#   # #   #   ##  # ');
       Writeln('####  #   # # # # # ');
       Writeln('#     #   # # #  ## ');
       Writeln('#      ###  # #   # ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##');
       Writeln('#   # #   #   ##  # ');
       Writeln('####  #   # # # # # ');
       Writeln('#     #   # # #  ## ');
       Writeln('#      ###  # #   # ');
       Writeln('#');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ###');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ####');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # #####');
       Writeln('#   # #   #   ##  #   #');
       Writeln('####  #   # # # # #   #');
       Writeln('#     #   # # #  ##   #');
       Writeln('#      ###  # #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### #');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   #');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ##');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ##');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ###');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ###');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ###');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ####');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ####');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   ####');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### #####');
       Writeln('#   # #   #   ##  #   #   #');
       Writeln('####  #   # # # # #   #   ####');
       Writeln('#     #   # # #  ##   #   #');
       Writeln('#      ###  # #   #   #   #####');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### #');
       Writeln('#   # #   #   ##  #   #   #     #');
       Writeln('####  #   # # # # #   #   ####  #');
       Writeln('#     #   # # #  ##   #   #     #');
       Writeln('#      ###  # #   #   #   ##### #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ##');
       Writeln('#   # #   #   ##  #   #   #     #');
       Writeln('####  #   # # # # #   #   ####  ##');
       Writeln('#     #   # # #  ##   #   #     #');
       Writeln('#      ###  # #   #   #   ##### #');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ###');
       Writeln('#   # #   #   ##  #   #   #     #  ');
       Writeln('####  #   # # # # #   #   ####  ###');
       Writeln('#     #   # # #  ##   #   #     # #');
       Writeln('#      ###  # #   #   #   ##### #  ');
       wait(100);ClearDebug;
       Writeln('####   ###  # #   # ##### ##### ###');
       Writeln('#   # #   #   ##  #   #   #     #  #');
       Writeln('####  #   # # # # #   #   ####  ###');
       Writeln('#     #   # # #  ##   #   #     # #');
       Writeln('#      ###  # #   #   #   ##### #  #');
    
    
    
       wait(500);ClearDebug;
       Writeln('####  ###  ####  #### #### #   # ##### ####   ');
       Writeln('#   # #  # #    #     #    ##  #   #  #       ');
       Writeln('####  ###  ###   ###  ###  # # #   #   ###     ');
       Writeln('#     # #  #        # #    #  ##   #      #   ');
       Writeln('#     #  # #### ####  #### #   #   #  ####     ');
       wait(500);ClearDebug;
       Writeln('     #   ');
       Writeln('    # #  ');
       Writeln('   #   #  ');
       Writeln('  ####### ');
       Writeln(' #       # ');
       wait(500);ClearDebug;
       Writeln('##### #  # ###  ###   ### ');
       Writeln('  #   #  # #  # #  # #   #');
       Writeln('  #   #  # ###  ###  #   #');
       Writeln('  #   #  # # #  #  # #   #');
       Writeln('  #    ##  #  # ###   ###');
       wait(500);ClearDebug;
       Writeln(' ####  ###  #     ###  ###  ');
       Writeln('#     #   # #    #   # #  # ');
       Writeln('#     #   # #    #   # ###  ');
       Writeln('#     #   # #    #   # # #  ');
       Writeln(' ####  ###  ####  ###  #  # ');
       wait(500);ClearDebug;
       Writeln(' ### #    #  ### #  # #### ###');
       Writeln('#    #      #    # #  #    #  #');
       Writeln('#    #    # #    ##   ###  ###');
       Writeln('#    #    # #    # #  #    # #');
       Writeln(' ### #### #  ### #  # #### #  #');
       wait(500);ClearDebug;
    
    end;
    
    
    procedure kleur1;
    begin
     if findcolor(x,y,colortofind,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
      monster := monster + 1;
      end;
    end;
    
    procedure kleur2;
    begin
     if findcolor(x,y,colortofind2,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur3;
    begin
     if findcolor(x,y,colortofind3,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur4;
    begin
     if findcolor(x,y,colortofind4,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur5;
    begin
     if findcolor(x,y,colortofind5,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    procedure kleur6;
    begin
     if findcolor(x,y,colortofind6,0,0,screenresx,screenresy) then
      begin
       Mouse(x,y,0,0,false);
       wait(2000)
       monster := monster + 1;
      end;
    end;
    
    begin
     SetUpSrl;
     monster := 0;
     Talk;
     repeat
      kleur1;
      kleur2;
      kleur3;
      kleur4;
      kleur5;
      kleur6;
     until(i = monster)
    end.
    Back from the dead.....

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
  •