SCAR Code:
program TutIsland;
{.include SRL/SRL.scar}
const
extensivedebug=true; //say st00f?
/////////////////BIG CHAR LOOK PICKER\\\\\\\\\\\\\\
procedure anticlickmouse;
var x,y:integer;
begin
getmousepos(x,y);
holdmouse(x,y,true);
wait(30+random(50));
releasemouse(x,y,true);
end;
function ClickTimes(x,y,rx,ry,times:integer):integer;
var timesa:integer;
begin
timesa:=0;
CMouse(x,y,rx,ry,true);
repeat
clickmouseanti(x,y,true);
timesa:=timesa+1;
wait(500+random(300));
until(timesa>=times);
end;
procedure RHead;
begin
case random(8) of
0:ClickTimes(166,90,10,10,8);
1:ClickTimes(166,90,10,10,1);
2:ClickTimes(166,90,10,10,2);
3:ClickTimes(166,90,10,10,3);
4:ClickTimes(166,90,10,10,4);
5:ClickTimes(166,90,10,10,5);
6:ClickTimes(166,90,10,10,6);
7:ClickTimes(166,90,10,10,7);
end;
end;
procedure RJaw;
begin
case random(7) of
0:ClickTimes(168,125,10,10,7);
1:ClickTimes(168,125,10,10,1);
2:ClickTimes(168,125,10,10,2);
3:ClickTimes(168,125,10,10,3);
4:ClickTimes(168,125,10,10,4);
5:ClickTimes(168,125,10,10,5);
6:ClickTimes(168,125,10,10,6);
end;
end;
procedure RTorso;
begin
case random(7) of
0:ClickTimes(164,161,10,10,7);
1:ClickTimes(164,161,10,10,1);
2:ClickTimes(164,161,10,10,2);
3:ClickTimes(164,161,10,10,3);
4:ClickTimes(164,161,10,10,4);
5:ClickTimes(164,161,10,10,5);
6:ClickTimes(164,161,10,10,6);
end;
end;
procedure RArms;
begin
case random(7) of
0:ClickTimes(163,195,10,10,7);
1:ClickTimes(163,195,10,10,1);
2:ClickTimes(163,195,10,10,2);
3:ClickTimes(163,195,10,10,3);
4:ClickTimes(163,195,10,10,4);
5:ClickTimes(163,195,10,10,5);
6:ClickTimes(163,195,10,10,6);
end;
end;
procedure RHands;
begin
case random(2) of
0:ClickTimes(163,195,10,10,1);
1:ClickTimes(163,195,10,10,2);
end;
end;
procedure RLegs;
begin
case random(7) of
0:ClickTimes(164,265,10,10,7);
1:ClickTimes(164,265,10,10,1);
2:ClickTimes(163,265,10,10,2);
3:ClickTimes(164,265,10,10,3);
4:ClickTimes(163,265,10,10,4);
5:ClickTimes(164,265,10,10,5);
6:ClickTimes(163,265,10,10,6);
end;
end;
procedure RFeet;
begin
case random(2) of
0:ClickTimes(163,302,10,10,1);
1:ClickTimes(163,302,10,10,2);
end;
end;
procedure RHair;
begin
case random(7) of
0:ClickTimes(467,96,10,10,1);
1:ClickTimes(467,96,10,10,2);
2:ClickTimes(467,96,10,10,3);
3:ClickTimes(467,96,10,10,4);
4:ClickTimes(467,96,10,10,5);
5:ClickTimes(467,96,10,10,6);
6:ClickTimes(467,96,10,10,7);
end;
end;
procedure RTorso2;
begin
case random(7) of
0:ClickTimes(467,129,10,10,7);
1:ClickTimes(467,129,10,10,1);
2:ClickTimes(467,129,10,10,2);
3:ClickTimes(467,129,10,10,3);
4:ClickTimes(467,129,10,10,4);
5:ClickTimes(467,129,10,10,5);
6:ClickTimes(467,129,10,10,6);
end;
end;
procedure RLegs2;
begin
case random(7) of
0:ClickTimes(463,164,10,10,7);
1:ClickTimes(463,164,10,10,1);
2:ClickTimes(463,164,10,10,2);
3:ClickTimes(463,164,10,10,3);
4:ClickTimes(463,164,10,10,4);
5:ClickTimes(463,164,10,10,5);
6:ClickTimes(463,164,10,10,6);
7:ClickTimes(463,164,10,10,7);
end;
end;
procedure RSkin;
begin
case random(7) of
0:ClickTimes(463,164,10,10,7);
1:ClickTimes(463,164,10,10,1);
2:ClickTimes(463,164,10,10,2);
3:ClickTimes(463,164,10,10,3);
4:ClickTimes(463,164,10,10,4);
5:ClickTimes(463,164,10,10,5);
6:ClickTimes(463,164,10,10,6);
7:ClickTimes(463,164,10,10,7);
end;
end;
procedure ChooseLook;
begin
if findcolortolerance(x,y,2070783,243,16,259,31,10) then
begin
case random(2) of
1:CMouse(446,290,10,10,true);
2:wait(1+random(2));
end;
if extensivedebug=true then writeln('chose gender');
RHead;
if extensivedebug=true then writeln('chose head');
wait(3000+random(500));
RJaw;
if extensivedebug=true then writeln('chose jaw');
wait(3000+random(500));
RTorso;
if extensivedebug=true then writeln('chose torso');
wait(3000+random(500));
RHands;
if extensivedebug=true then writeln('chose hands');
wait(3000+random(500));
RLegs;
if extensivedebug=true then writeln('chose legs');
wait(3000+random(500));
RFeet;
if extensivedebug=true then writeln('chose feet');
wait(3000+random(500));
RHair;
if extensivedebug=true then writeln('chose hair');
wait(3000+random(500));
RTorso2;
if extensivedebug=true then writeln('chose torso2');
wait(3000+random(500));
RLegs2;
if extensivedebug=true then writeln('chose legs2');
wait(3000+random(500));
RSkin;
if extensivedebug=true then writeln('chose skin');
wait(3000+random(500));
CMouse(261,284,10,10,true);
if extensivedebug=true then writeln('done!');
end;
end;
//////END CHAR LOOK PICKER\\\\\\\\\\\\\\
procedure LogInp10x;
begin
end;
begin
chooselook;
LogInp10x;
end.