SCAR Code:
{ Made by tyxx but edited a lil (i srl-eized it) added anti-ban.
{ /-------------\ /---------
/ \ / \
/ \ / \
| | | | | |
| | | | | |
| | | | | |
|________| | |______ | |
/ / / /
/ / / /
/ / / / SCRIPT
/ / UPER / /_____
/ / |/ |/ |
/ / | | |
/ / | | |
/ / | | |
/ /________ \ /
| | | \ /
| | | \------------/
| | |
| | |
\ /
\ /
\ /
\---------/
Start in Bank
}
program faliyewchopper;
{.include srl/srl.scar}
const
username = '';
password = '';
axehead = 6511171;
road1 = 6848131;
road2 = 5794157;
treelogo = 97286;
treecol = 4026472;
banklogo = 4049126;
bankbooth = 4344917;
var
n,m,d,f,w,e,k,l,v,o,p: integer;
procedure waitforrepeat;
begin
wait(2000+random(5000));
end;
procedure storelogs;
begin
findcolor(b,o,4419729,698,343,729,455)
MMouse(b,o,1,1);
wait(100+random(100));
mouse(b,o,1,1,false);
wait(500+random(500));
MMouse(b,(o+70),1,1);
wait(100+random(100));
mouse(b,(o+70),1,1,true);
wait(1000+random(500));
MMouse(459,41,1,1);
wait(100+random(100));
mouse(459,41,1,1,true);
wait(1000+random(1000));
waitforrepeat;
end;
procedure banking;
begin
if(findcolor(w,e,bankbooth,0,0,517,341)=true)
then
MMouse(w,e,1,1);
wait(2000+random(100));
mouse(w,e,1,1,true);
wait(5000+random(1000));
if(findcolor(k,l,16711680,208,435,389,457)=true)
then
MMouse(303,446,1,1);
wait(100+random(100));
Mouse(303,446,1,1,true);
wait(1000+random(1000));
MMouse(247,392,1,1);
wait(100+random(100));
mouse(247,392,1,1,true);
wait(4000+random(1000));
storelogs;
if(findcolor(k,l,16711680,208,435,389,457)=false)
then
banking;
if(findcolor(w,e,bankbooth,0,0,517,341)=false)
then
banking;
end;
procedure tobank;
begin
if(findcolor(d,f,road1,644,24,717,71)=true)
then
MMouse(d,f,1,1);
wait(100+random(100));
Mouse(d,f,1,1,true);
wait(6000+random(1000));
MMouse((d-10),(f-5),1,1);
wait(100+random(100));
mouse((d-10),(f-5),1,1,true);
wait(8000+random(1000));
MMouse((d-10),(f-5),1,1);
wait(100+random(100));
Mouse((d-10),(f-5),1,1,true);
wait(10000+random(500));
if(findcolor(x,y,banklogo,586,42,718,134)=true)
then
MMouse(x,(y+5),1,1);
wait(100+random(100));
Mouse(x,(y+5),1,1,true);
wait(8000+random(1000));
banking;
end;
procedure findaxehead;
begin
end;
procedure chopyew;
begin
if(findcolorspiral(v,b,treecol,0,0,516,340)=true)
then
MMouse(v,b,1,1);
wait(100+random(100));
mouse(v,b,1,1,true);
wait(5000+random(1000));
if(findcolor(x,y,axehead,577,213,596,288)=false)
then
findaxehead;
if(findcolor(n,m,3885652,707,440,714,446)=true)
then
chopyew;
if(findcolor(n,m,3885652,707,440,714,446)=false)
then
tobank;
if(findcolorspiral(v,b,treecol,0,0,516,340)=false)
then
wait(5000+random(2000));
chopyew;
end;
procedure toyews;
begin
if(findcolor(x,y,road1,613,123,635,154)=true)
then
MMouse(x,y,1,1);
wait(100+random(100));
Mouse(x,y,1,1,true);
wait(9000+random(1000));
MMouse((x+30),(y+30),1,1);
wait(100+random(100));
Mouse((x+30),(y+30),1,1,true);
wait(9000+random(1000));
if(findcolor(n,m,road2,628,97,714,148)=true)
then
MMouse(n,m,1,1);
wait(100+random(100));
mouse(n,m,1,1,true);
wait(7000+random(1000));
if(findcolor(n,m,road2,628,97,714,148)=false)
then
toyews;
if(findcolor(d,f,treelogo,547,72,670,145)=true)
then
MMouse(d,f,1,1);
wait(100+random(100));
mouse(d,f,1,1,true);
wait(5000+random(1000));
chopyew;
if(findcolor(x,y,road1,613,123,635,154)=false)
then
chopyew;
end;
procedure bankortree;
begin
if(findcolor(x,y,treelogo,578,17,722,143)=true)
then
chopyew;
if(findcolor(x,y,treelogo,578,17,722,143)=false)
then
toyews;
end;
procedure setrun1;
begin
MMouse(710,484,1,1);
wait(100+random(100));
mouse(710,484,1,1,true);
wait(100+random(100));
if(findcolor(k,l,5067346,605,250,640,283)=true)
then
MMouse(k,l,1,1);
wait(100+random(100));
mouse(k,l,1,1,true);
wait(100+random(100));
MMouse(650,186,1,1);
wait(100+random(100));
mouse(650,186,1,1,true);
wait(100+random(100));
bankortree;
if(findcolor(k,l,5067346,605,250,640,283)=false)
then
MMouse(650,186,1,1);
wait(100+random(100));
mouse(650,186,1,1,true);
wait(100+random(100));
bankortree;
end;
procedure clickredlog;
begin
wait(2000+random(2000));
if(findcolor(o,p,16777215,464,332,614,351)=false)
then
clickredlog;
if(findcolor(o,p,16777215,464,332,614,351)=true)
then
MMouse(o,p,1,1);
wait(100+random(100));
mouse(o,p,1,1,false);
wait(100+random(100));
MMouse((o-10),(p-20),1,1);
wait(100+random(100));
mouse((o-10),(p-20),1,1,true);
end;
procedure login;//adapted from my first script!
begin
writeln('loggin-in')
if(findcolor(n,m,16777215,392,270,533,310)=false)
then
login;
if(findcolor(n,m,16777215,392,270,533,310)=true)
then
MMouse(n,m,1,1);
wait(100+random(100));
mouse(n,m,1,1,true);
wait(100+random(100));
sendkeys(username+chr(13));
wait(100+random(100));
typesend(password);
if(findcolor(k,l,16777215,229,302,371,340)=true)
then
MMouse(k,l,1,1);
wait(100+random(100));
mouse(k,l,1,1,true);
wait(100+random(100));
clickredlog;
end;
procedure loginfinder;
begin
if(findcolor(x,y,65535,301,231,426,261)=true)
then
login;
if(findcolor(x,y,65535,301,231,426,261)=false)
then
setrun1;
end;
procedure minimize;
begin
if(findcolor(w,e,16086339,0,0,1000,1000)=true)
then
movemousesmooth(w,e);
wait(100+random(100));
mouse(w,e,1,1,true);
wait(1000+random(100));
loginfinder;
if(findcolor(w,e,16086339,0,0,1000,1000)=false)
then
loginfinder;
end;
begin
minimize;
wait(240000);
repeat
setrun1;
until(false);
end.