SRL Archive - OSR Help

Clicking Mouse Problem

deadlywario0

2010-04-26 17:06:45

Fixed thanks to aran armath, Thanks man +rep :)

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.

aran armath

2010-04-26 21:32:03

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.

i luffs yeww

2010-04-26 21:44:11

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

cycrosism

2010-04-27 04:55:24

Why would you release a scar script under the GPL licence? It seems kind of pointless?

deadlywario0

2010-04-27 10:27:01

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)

aran armath

2010-04-27 10:43:51

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.

deadlywario0

2010-04-27 11:57:44

Fixed thanks to aran armath, Thanks man +rep :)

aran armath

2010-04-27 12:18:42

Updated and here is the new script, with Srl.

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.