hey, i just want to know if anyone can help me, ill post the script and, yeah, if it needs tweaking im only new to scripts, so yeah, help a noob you guys![]()
v heres the code v
__________________________________________________ _________________
(*
Gnome Agility
By: GenoDemoN
NO-AntiRandoms, not really needed though
Start At Log, Have log appear staright on main screen
v-Bright Have Run 0n
Set-up Lines 14-20
*)
program Gnomey;
const
tol=10; // Do not Change
color1=605799; //Log
color2=5464176; //Net Part
color3=1195601; //Tree Stub (tanish part)
color4=6062752; //Rope
color5=1858165; //Tree Stub (tanish part)
color6=5595256; //Net Part
color7=7500411; //Pipe
var
x,y,xx,yy,z,zz,pipe:integer;
found:boolean;
procedure sendkeyssilentsmooth(text:string;pause:integer); {Created by Piv}
begin
repeat
sendkeyssilent(copy(text,1,1)); wait(pause+random(50));
delete(text,1,1); wait(50);
until(length(text)=0);
wait(100+random(50));
end;
procedure searchd(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>15)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,128,180+z *10,400,190+z*10,tol))
end;
procedure searchu(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>18)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,128,180-z*10,400,190-z*10,tol))
end;
procedure searcha(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>15)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,128-z*2,180-z*10,400+z*2,190+z*10,tol))
end;
procedure searchr(color:integer);
begin
repeat
sleep(10);
z:=z+1;
IF (z>20)then z:=0;
writeln(inttostr(z));
until(findcolorspiraltolerance(x,y,color,300+z*10, 50,310+z*10,240,tol))
end;
begin
loadchars('');
pipe := BitmapFromString(24, 6,
'BAAB8ABBAE92000000000000000000BAAB8ABAAB8ABAAB8AB AAB8A' +
'B9A581BAAB8AB9A581000000000000000000B9A581B9A581B 9A581' +
'B9A581000000000000000000B9A581B9A581BBAE92000000B BAE92' +
'BBAE92BAAB8A000000BAAB8ABAAB8A000000B9A581B9A5810 00000' +
'B9A581B9A581B9A581000000B9A581B9A581000000B9A581B 9A581' +
'B9A581000000B9A581BBAE92000000BBAE92BBAE92BAAB8A0 00000' +
'BAAB8ABAAB8A000000B9A581B9A581000000B9A581B9A581B 9A581' +
'000000B9A581B9A581000000B9A581B9A581B9A581000000B 9A581' +
'BBAE92000000BAAB8ABAAB8ABAAB8A000000B9A581B9A5810 00000' +
'BAAB8AB9A581000000B9A581B9A581B9A581000000B9A581B 9A581' +
'000000000000000000000000B9A581B9A581BAAB8A000000B AAB8A' +
'B9A581B9A581000000BAAB8ABAAB8A000000BAAB8ABAAB8A0 00000' +
'B9A581BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8AB AAB8A' +
'BAAB8AB9A581B9A581B9A581000000000000000000000000B AAB8A' +
'BAAB8ABAAB8A000000BAAB8ABAAB8A0000000000000000000 00000' +
'B9A581BAAB8ABAAB8AB9A581000000000000000000000000B 9A581' +
'');
repeat
z:=-1;
repeat
found:=false;
searchd(color1);
movemousesmooth(x,y);
sleep(200+random(50));
zz:=0;
repeat
zz:=zz+1;
sleep(5);
IF (istextat2(46+zz,9,'a',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(6900+random(200));
end;
sleep(5);
until(zz>3);
until(found);
x:=230+random(30);
y:=260+random(25);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(1400+random(200));
z:=-1;
repeat
found:=false;
searchd(color2);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(3600+random(200));
end;
until(found);
z:=-1;
repeat
found:=false;
searcha(color3);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(3600+random(200));
end;
until(found);
z:=-1;
repeat
found:=false;
searchr(color4);
movemousesmooth(x,y);
sleep(200+random(50));
zz:=0;
repeat
zz:=zz+1;
sleep(5);
IF (istextat2(46+zz,9,'on',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(6900+random(200));
end;
sleep(5);
until(zz>3);
until(found);
z:=-1;
repeat
found:=false;
searchr(color5);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(5800+random(200));
end;
until(found);
x:=228+random(32);
y:=50+random(30);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(1100+random(200));
z:=-1;
repeat
found:=false;
searchu(color6);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'C',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(3900+random(200));
end;
until(found);
z:=-1;
repeat
found:=false;
searchu(color7);
movemousesmooth(x,y);
sleep(100+random(50));
IF (istextat2(9,9,'S',100)) then
begin
found:=true;
clickmouse(x,y,true);
sleep(2000+random(200));
IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,43 3,5)=false)then
begin
sleep(7900+random(200));
end;
IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,43 3,5))then
begin
found:=false;
sendkeyssilentsmooth('argh'+chr(13),10);
sleep(300);
end;
end;
until(found);
x:=40+random(20);
y:=140+random(30);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(2600+random(200));
x:=40+random(20);
y:=170+random(30);
movemousesmooth(x,y);
sleep(100+random(50));
clickmouse(x,y,true);
sleep(2600+random(200));
until(false);
end.
__________________________________________________ _______________
btw i am using the newest version of scar. and slr


Reply With Quote
h):
