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.