SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
HempLord - SRL Member Application Form
HempLord

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
A fellow Classmate

Programming Knowledge
No

Other Communitys
Sythe

How Long have You Played Runescape
5 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I am currently In college to be a major in psychology. I enjoy doing various Tasks such as simple programming (Not mastered yet). I joined this comunity to further excel my knowledge of Scripting. It seems fun and would give me something to do in my spare time, as well as contributing to your community.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program GnomeAgile;
{.Include SRL/SRL.Scar}

const
tol=10; // Do not Touch
color1=605799;  //Log
color2=5464176; //Net
color3=1195601; //Tree
color4=6062752; //Rope
color5=1858165; //Tree
color6=5595256; //Net
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 Find1(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 Find2(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 Find3(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 Find4(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
pipe := BitmapFromString(24, 6,
       'BAAB8ABBAE92000000000000000000BAAB8ABAAB8ABAAB8ABAAB8A' +
       'B9A581BAAB8AB9A581000000000000000000B9A581B9A581B9A581' +
       'B9A581000000000000000000B9A581B9A581BBAE92000000BBAE92' +
       'BBAE92BAAB8A000000BAAB8ABAAB8A000000B9A581B9A581000000' +
       'B9A581B9A581B9A581000000B9A581B9A581000000B9A581B9A581' +
       'B9A581000000B9A581BBAE92000000BBAE92BBAE92BAAB8A000000' +
       'BAAB8ABAAB8A000000B9A581B9A581000000B9A581B9A581B9A581' +
       '000000B9A581B9A581000000B9A581B9A581B9A581000000B9A581' +
       'BBAE92000000BAAB8ABAAB8ABAAB8A000000B9A581B9A581000000' +
       'BAAB8AB9A581000000B9A581B9A581B9A581000000B9A581B9A581' +
       '000000000000000000000000B9A581B9A581BAAB8A000000BAAB8A' +
       'B9A581B9A581000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000' +
       'B9A581BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8AB9A581B9A581B9A581000000000000000000000000BAAB8A' +
       'BAAB8ABAAB8A000000BAAB8ABAAB8A000000000000000000000000' +
       'B9A581BAAB8ABAAB8AB9A581000000000000000000000000B9A581' +
       '');



  repeat
z:=-1;
repeat
found:=false;
Find1(color1);
movemousesmooth(x,y);
sleep(200+random(50));
zz:=0;
repeat
zz:=zz+1;
sleep(5);
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;
Find1(color2);
movemousesmooth(x,y);
sleep(100+random(50));
begin
found:=true;
clickmouse(x,y,true);
sleep(3600+random(200));
end;
until(found);

z:=-1;
repeat
found:=false;
Find3(color3);
movemousesmooth(x,y);
sleep(100+random(50));
begin
found:=true;
clickmouse(x,y,true);
sleep(3600+random(200));
end;
until(found);

z:=-1;
repeat
found:=false;
Find4(color4);
movemousesmooth(x,y);
sleep(200+random(50));
zz:=0;
repeat
zz:=zz+1;
sleep(5);
begin
found:=true;
clickmouse(x,y,true);
sleep(6900+random(200));
end;
sleep(5);
until(zz>3);
until(found);




z:=-1;
repeat
found:=false;
Find4(color5);
movemousesmooth(x,y);
sleep(100+random(50));
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;
Find2(color6);
movemousesmooth(x,y);
sleep(100+random(50));
begin
found:=true;
clickmouse(x,y,true);
sleep(3900+random(200));
end;
until(found);

z:=-1;
repeat
found:=false;
Find2(color7);
movemousesmooth(x,y);
sleep(100+random(50));
begin
found:=true;
clickmouse(x,y,true);
sleep(2000+random(200));
IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,433,5)=false)then
begin
sleep(7900+random(200));
end;
IF(findbitmapspiraltolerance(pipe,x,y,37,417,81,433,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.

——————————————————
<!– END TEMPLATE: formanswers –>

Not your script.

Don't use MoveMouse and ClickMouse.

Pseudo-closed?

http://www.forum-archives.org/sythe/viewtopic.php?f=10&t=61977&view=previous Busted For the win.

Ahh! NOO it doesnt compile if you paste script in scar for somereason but it will compile as i made it. I can just post the script..

how is this not my script?

Oh really? I doubt it…

Even if it is your script its not good enough.

http://www.gamerzneeds.net/forums/runescape/15055-need-scar-scripts-go-here.html
http://www.sythe.org/archive/index.php/t-101140.html
http://rs101.info/scripts/scarscript.php?id=8

Not your script
Dont lie about it
Were not supid
And even if it was your script
Its not even good
So
1) Your not very smart for copying a script
2) The script you choose to copy inst even good -.-
3) Never do it again, or you will be banned permanently

Why not close it? :o

Also, can you explain this?

Users sharing the same IP Address
siroober

@YoHoJo: Link at sythe is really http://www.forum-archives.org/sythe/viewtopic.php?f=10&t=61977&view=previous

(*
Gnome Agility
By: GenoDemoN
NO-AntiRandoms, not really needed though
Start At Log, Have log appear staright on main screen
v-Bright Have Run on
Set-up Lines 14-20

————-edited by MY_BOB_55————————-

Here is a gnome agility script that i found and edited the bug out of
that i found
*)

Lol, please close, GenoDemoN ?

Closed

infractioned for plagiarism

And perm banned for having multiple accounts. :rolleyes: