SRL Archive - OSR Help

Yet more Problems T_T

deadlywario0

2010-04-27 15:41:19

Okay I'm trying to get a color clicker to work, It finds the colors fine it just doesn't click them. Can any1 help me clean up this old Colorclicker or just make one? it doesn't have To be fancy or random (non runescape-related)

Here's the code: (Color codes are already in there)

What do you wanna Know?
the games called DOMO (Dream-Of-Mirror-Online)
believe it or not Its actually a really fun game (although it looks like a 11 yr old would play it lol)
www.domo.wikia.com

Monsters:

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(1000)
  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(1000)
   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(1000)
   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(1000)
   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(1000)
   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(1000)
   monster := monster + 1;
  end;
end;

begin
 SetUpSrl;
 monster := 0;
 Talk;
 repeat
  kleur1;
  kleur2;
  kleur3;
  kleur4;
  kleur5;
  kleur6;
 until(i = monster)
end.

Frement

2010-04-27 15:43:38

Whats this for?

deadlywario0

2010-04-27 15:44:38

A game I'm trying to Grind monsters that i can one hit T_T

Frement

2010-04-27 15:45:21

From: deadlywario0
A game I'm trying to Grind monsters that i can one hit T_T

And that game is? It really helps to know more.

deadlywario0

2010-04-27 15:47:45

What do you wanna Know?
the games called DOMO
www.domo.wikia.com

Monsters:

aran armath

2010-04-27 16:07:43

So it finds the colors right? Does the mouse move to them or not?

Frement

2010-04-27 16:33:17

Are you running the game in windowed mode?

deadlywario0

2010-04-27 17:13:25

From: Frement
Are you running the game in windowed mode?

Yes, the window takes about 1/4th of my screen. It finds the colors Fine and hovers the mouse over them and waits the correct Time, What it doesn't do is Click the mouse.

x[Warrior]x3500

2010-04-27 17:59:07

your mouse is set to false btw. so i am assuming you want it to right click (if not, then set it to true)

that might help :)

deadlywario0

2010-04-27 18:04:59

Yes its suppose to right click ;)