SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
(anyother is a typo in forum) no other languages

Other Communitys
none

How Long have You Played Runescape
Ever since Classic

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

I know how to catechize people and or help others with their problems. With my patient mind set, numerous people on SRL-Forums have been granted knowledge, ranging from the simplistic idea of how to "set up a forum", to the advanced process of creating a script. With my help, more and more people on this website would become as astute and dexterous as the greats, such as Narcle.

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

[OAK CUTTER IN DRAYNOR]

program woodcutterbyme;
{.include squig.txt}
var x,y,quickly:integer;
const
tree=2181442;//color of tree
t=30000;//default
bs=5950447;//banksymbol
log=2709883;//logcolor
ts=1598819;//treesymbol
bb=1032;//bank booth color

procedure loadbitms;
begin
quickly := BitmapFromString(44, 14, 'z78DAED96D109002008445' +
'76A0AF71FA9DF2092F434D4B***5079E7496344172DB27A99 51CD' +
'A112077CB6F71C68D37D2FDD0C74105F593A0352D9AF17E2B 2AD4' +
'73A17E27090E6A22A078F7DC8950BA426B1C2C9EB3CF2D84C E9AD' +
'46B2F6DBCFA439D4E38024A8DE3EF0576802D8A50BCE');
end;

procedure cut;
begin
status('You know im a genius!');
findcolorspiral(x,y,tree,0,0,799,599);
wait(500);
movemousesmoothex(x,y,1,3,45,20,10);
wait(500);
clickmouse(x,y,true);
wait(t);
repeat
findrandoms;
wait(500);
findcolorspiral(x,y,tree,0,0,799,599);
wait(500);
movemousesmooth(x,y);
wait(500);
clickmouse(x,y,true);
wait(t);
until(findcolor(x,y,log,686,421,732,461));
end;

procedure walktobank;
begin
findcolor(x,y,bs,552,0,724,168);
wait(500);
movemousesmooth(x,y);
wait(500);
clickmouse(x,y,true);
wait(10000);
findrandoms;
end;

procedure bank;
begin
repeat
findcolor(x,y,bb,0,0,515,337);
wait(500);
movemousesmooth(x,y);
wait(500);
clickmouse(x,y,false);
wait(5000);
until(findbitmap(quickly,x,y));
wait(500);
movemousesmooth(x,y);
wait(500);
clickmouse(x,y,true);
wait(500);
movemousesmooth(627,230);
wait(500);
clickmouse(627,230,false);
wait(500);
movemousesmooth(627,272);
clickmouse(627,272,true);
end;

procedure walktotree;
begin
findcolor(x,y,bs,552,0,724,168);
wait(500)
movemousesmooth(x,y);
wait(500);
clickmouse(x,y,true);
wait(5000);
findcolor(x,y,ts,552,0,724,168);
wait(500);
movemousesmooth(x,y);
wait(500);
clickmouse(x,y,true);
wait(10000)
findrandoms;
end;

begin
setupsquig;
loadbitms;
repeat
cut;
walktobank;
bank;
walktotree;
until(false)
end.

THE SCRIPT ENDS HERE

[FEATHER BUYER]

program featherbuyer;
{.include libmod.txt}
{Credits to Alex for his amazing library (sorry i had to edit it >_<)}
{>>!!!!MAKE SURE YOU HAVE MY MODIFIED LIBRARY VERSION!!!!<<
HAVE MONEY IN FIRST INVENT SLOT!!! VERY IMPORTANT}
var
buy10,c,number:integer;

procedure prog(doing:string);
begin
writeln('');
writeln('');
writeln('****Ownage Feather Buyer By Tek********');
writeln('Currently: ' +doing);
writeln('Bought ' +inttostr(c) + ' Feathers');
writeln('Made You about: ' +inttostr(c*10)+ ' GP');
writeln('***************************************') ;
writeln('');
writeln('');
end;

procedure loadbmp;
begin
buy10 := BitmapFromString(23, 3,
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005 D5447' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475 D5447' +
'FF9040FF9040FF9040FF90405D5447FFFFFFFFFFFF0000005 D5447' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0 00000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000000 00000' +
'000000FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0 00000' +
'5D54475D5447FFFFFFFFFFFF0000005D54475D54475D54475 D5447' +
'5D5447FF9040FF90400000005D54475D5447');
end;

function money:boolean;
begin
mmouse(588,228,10,10)
if (not(istextat2(9,9,'Value Coins',100))) then
result:=true;
end;

procedure matrix;
begin
repeat
x:=random(556);
y:=random(350);
mmouse(x,y,0,0);
wait(2000+random(500));
until(false)
end;

function amount:boolean;
var
num1:integer;
begin
num1:=strtoint(readtextat(363,68,4,3));
if(num1>number) then
result:=true;
end;

procedure wt;
begin
wait(100+random(200));
end;

procedure keepin;
begin
repeat
x:=random(479);
y:=random(308);
mmouse(x,y,0,0);
wt;
wt;
wt;
wt;
wt;
until(amount=true)
end;

procedure buy;
begin
mmouse(379,82,5,5);
getmousepos(x,y);
if(amount) then
repeat
wt;
mouse(379,82,5,5,false);
findbitmap(buy10,x,y)
wt;
mouse(x,y,7,5,true);
c:=c+10;
wt;
prog('Buying');
until (amount=false)
end;

{function moneycheck:boolean;
var
money:integer;
begin
money:=strtoint(readtextat(584,212,3,3));
if (money<500) then
closewindow;
wt;
result:=true;
end;}

begin
setmousemode(false);
prog('Loading');
number:=960;
loadlibrary('Winamp 5.03a');
loadbmp;
repeat
prog('Buying');
buy;
wait(2000);
if (amount=false) then
prog('Keeping You Logged In');
keepin;
until(money=true)
prog('Matrixing...Yup Tek Ownzorz');
matrix;
end.

THE SCRIPT ENDS HERE

[FISH BUYER]

// --====A script by Hemuli====--
// This script is designed to buy
// cut and uncut gems in al kharid/falador store. This script
// will buy all the cut/uncut gems in the shop.
// Have A LOT of money with you. This script
// will also let you buy juss one or several
// different types of gems. All you
// have to do is ADD/REMOVE the " // " in
// the script on lines 191-198. For More information about this
// read lines 14 and on.
//
//
//
// If would like it to juss buy BOTH diamonds and uncut sapphires
// you would remove the " // " from the diamond section and the sapphire section. Pretty
// simple if you use your brain.
//
// Start the script with the gem buying screen Open.


program GemBuyer;
var
amin,gamin,vamin,hamin:integer;
procedure BuyUsapphire;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying uncut sapphires...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(100,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(100,10,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(71,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(71,165,True)
Amin := 200 + random(500);
wait (amin);

end;

procedure BuyUemerald;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying uncut emeralds...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(150,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(150,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(121,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(121,165,True)
Amin := 200 + random(500);
wait (amin);
end;

procedure BuyUruby;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying uncut rubys...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(295,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(295,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(171,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(171,165,True)
Amin := 200 + random(500);
wait (amin);
end;
procedure BuyUdiamond;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying uncut diamonds...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(240,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(240,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(221,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(221,165,True)
Amin := 200 + random(500);
wait (amin);
end;
procedure BuyCsapphire;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying sapphires...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(300,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(300,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(271,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(271,165,True)
Amin := 200 + random(500);
wait (amin);
end;

procedure BuyCemerald;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying emeralds...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(330,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(330,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(321,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(321,165,True)
Amin := 200 + random(500);
wait (amin);
end;
procedure BuyCruby;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying rubys...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(380,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(380,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(371,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(371,165,True)
Amin := 200 + random(500);
wait (amin);
end;
procedure BuyCdiamond;
begin
vamin := 50 + random (78);
wait (vamin)
Writeln('Buying diamonds...')
Hamin := 50 + random(70);
wait(hamin);
MoveMouse(430,100)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(450,100,False)
Gamin := 100 + random (400);
wait(gamin);
MoveMouse(421,165)
Hamin := 50 + random(70);
wait(hamin);
ClickMouse(421,165,True)
Amin := 200 + random(500);
wait (amin);
end;
begin
// U= uncut C= cut
repeat

BuyUsapphire;
//BuyUemerald;
//BuyUruby;
//BuyUdiamond;
//BuyCsapphire;
//BuyCemerald;
//BuyCruby;
//BuyCdiamond
Until(false);
end.

THE SCRIPT ENDS HERE

[FISH BUYER]

// -====A script by Hemuli====-
// This script is designed to buy
// raw fishes and baits in port sarim store. This script
// will buy all the Raw fishes/Baits in the shop.
// Have A LOT of money with you. This script
// will also let you buy juss one or several
// different types of Fish/Baits. All you
// have to do is ADD/REMOVE the " // " in
// the script on lines 122-128. For More information about this
// read lines 14 and on.
//
//
//
// If would like it to juss buy BOTH Lobsters and Swordfishes
// you would remove the " // " from the lobster section and the swordfish section. Pretty
// simple if you use your brain.
//
// Start the script with the fish buying screen Open.


program FishBuyer;
var
i : integer;
procedure BuySwordfish;
begin
Writeln('Buying swordies...')
wait(50)
MoveMouse(95,180)
wait(50)
ClickMouse(95,180,False)
wait(100)
MoveMouse(60,255)
wait(50)
ClickMouse(60,255,True)
wait(50)
end;

procedure BuyLobster;
begin
Writeln('Buying Lobsters...')
wait(50)
MoveMouse(430,140)
wait(50)
ClickMouse(430,140,False)
wait(100)
MoveMouse(415,210)
wait(50)
ClickMouse(415,210,True)
wait(50)
end;

procedure BuyTuna;
begin
Writeln('Buying Tunas...')
wait(50)
MoveMouse(380,140)
wait(50)
ClickMouse(380,140,False)
wait(100)
MoveMouse(366,210)
wait(50)
ClickMouse(366,210,True)
wait(50)
end;
procedure BuySalmon;
begin
Writeln('Buying salmons...')
wait(50)
MoveMouse(330,140)
wait(50)
ClickMouse(330,140,False)
wait(100)
MoveMouse(320,210)
wait(50)
ClickMouse(320,210,True)
wait(50)
end;
procedure BuyTrout;
begin
Writeln('Buying trouts...')
wait(50)
MoveMouse(240,140)
wait(50)
ClickMouse(240,140,False)
wait(100)
MoveMouse(215,210)
wait(50)
ClickMouse(215,210,True)
wait(50)
end;

procedure BuyBaits;
begin
Writeln('Buying baits...')
wait(50)
MoveMouse(330,86)
wait(50)
ClickMouse(330,86,False)
wait(100)
MoveMouse(310,160)
wait(50)
ClickMouse(310,160,True)
wait(50)
end;
procedure BuyFeathers;
begin
Writeln('Buying feathers...')
wait(50)
MoveMouse(380,86)
wait(50)
ClickMouse(380,86,False)
wait(100)
MoveMouse(380,160)
wait(50)
ClickMouse(380,160,True)
wait(50)
end;
//remove the '//' from whatever procedure u would like to do (default is buy lobsters)
begin
repeat

//BuySwordfish;
BuyLobster;
//BuyTuna;
//BuySalmon
//BuyTrout
//BuyBaits;
//BuyFeathers;
Until(false);
end.

THE SCRIPT ENDS HERE

[RUNES BUYER]

//Rune buyin script. Works with 5minrule.
//NOT to be released! DONT GIVE OUT. it will
//screw it all and jagex will stop us from
//autobuying!. Script made by Eppo
program New;

var
x, y: Integer;
a, b, c, d, e: Integer;
username, password: string;

procedure LogInIfNeeded; export;
begin
//if logged out press Cancel
if(LoginScreen)then
begin
Writeln('Clearing username, password fields');
ClickMouse(400,280,True);
Wait(2000);
end;
//If logged out select Existing User
if(StartScreen)then
begin
Writeln('Choosing existing user');
ClickMouse(340,280,True);
Wait(4000);
end;
//If logged out, log in
if(LoginScreen)then
begin
Writeln('Trying to log in');
ClickMouse(100,260,True);
Wait(500);
SendKeysSilent(username);
Wait(2000);
ClickMouse(120,310,True);
Wait(500);
SendKeysSilent(password);
Wait(2000);
ClickMouse(380,250,True);
Wait(6000);
end;
//If we have Welcome to RuneScape open, close it
if(GetColor(56,117)=16777215)and
(GetColor(57,118)=0)and
(GetColor(455,216)=16777215)and
(GetColor(454,215)=0)
then
begin
Writeln('Closing Welcome box');
ClickMouse(250,208,True);
Wait(2000);
end;
SetTimeOut(20,'LOGINIFNEEDED');
end;

procedure buy;
begin
Wait(200);
repeat

repeat
x:= Random(500);
y:= Random(340);
FindColorSpiral(x,y,10661355,x-50,y-50,x+50,y+50);
MoveMouse(x, y);
Wait(200);
until(IsTextAt(6,2,'Betty: Talk'))or(IsTextAt(6,0,'Can I see your wares?'));
ClickMouse(x, y, True);
Wait(4000);
until(IsTextAt(6,0,'Can I see your wares?'));
ClickMouse(17,8,True);
Wait(6000);
end;

Procedure fire;
begin
Clickmouse(87 + Random(3),87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);

end;

Procedure water;
begin
ClickMouse(131,87,True);
wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
end;

Procedure air;
begin
Clickmouse(180,87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);

end;

Procedure earth;
begin
Clickmouse(235,87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
end;

Procedure mind;
begin
Clickmouse(281,87,True);
wait(100);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);
ClickMouse(391 + Random(3) + Random(3),254,true);
Wait(200);

end;

Procedure close;
begin
ClickMouse(513,51,True);
wait(10);
ClickMouse(513,51,True);
wait(500);
end;

Begin
username:= Readln('Enter your username: ');
password:= Readln('Enter your password: ');
SetTimeOut(20,'LOGINIFNEEDED');

repeat
buy;
wait(1000);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(500);
fire;
wait(500);
water;
wait(500)
air;
wait(500);
earth;
wait(500);
mind;
wait(1000);
Clickmouse(421,50,True);
until(False);
end.

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

{.include squig.txt}

rofl, this is a waaaay outdated script. trying to apply with someone else's work is wrong, and honestly that was a horrible attempt.

Mods please take care of this?

First off, Wrap your script in scar tags, you'll get lots of no's for just that.

I voted No, you script is messy and doesn't demonstrate very good coding. You use unsafe procedures like MoveMouse. This will get you banned pretty quickly.

Your main loop could be much cleaner and shorter with a nested loop and potentially a case statement.

It just doesn't demonstrate good scripting. Read up on functions like Mouse, FindRandoms, and Antiban techniques.

[edit]Ahh I see you have multiple scripts. And it looks like someone has already caught you plagiarizing, so now the no is finalized.[/edit]

[Edit 2] Lol, Yikes, you didn't even take out some of the original authors names in the other scripts, your going to have a tough time ever becoming a member[/edit 2]

SCAR tag fail!..

And nice copied script. Auto-decline from me.

[FISH BUYER]

// -====A script by Hemuli====-

Its not even yours and you use ClickMouse and MoveMouseSmooth.. These procedure are outdated, please read some basic tutorials before applying again.

EDIT: What the F is this? :p {.include libmod.txt}

Hemuli

all im gonna say
edit: never noticed

Tek

yes. good boy and script

From: jakeyboy29
yes. good boy and script

i really do hope thats sarcasm.

and

With my help, more and more people on this website would become as astute and dexterous as the greats, such as Narcle.

That definatly just made my day.

From: Blumblebee
i really do hope thats sarcasm.

and

welll…

Closed