SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
no

Other Communitys
scar-scripts.com

How Long have You Played Runescape
3 years

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

my name is adam mmmmm i have been using these forums a while to get scripts and learn how to script, im lvl 83 and thats about it lol

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

i have not finished this script yet and i have not yet put in random timeings but works, it does the tut island up to the cook and finishes



// login;
// designplayer;
// runescapeguide;
// firstdoor;

program New;
{.include srl/srl.scar}
var x, y, xx, yy:Integer;
const
runescapguide =463239;
arrow =3471867;
door = 1451306;
survivalexpert = 1778001;
procedure login;
begin
setupsrl;
mouse(437,297,0,0,true)
typesend('username ')
typesend('password')
mouse(294,331,0,0,true)
wait(5000)
makecompass('N');
highestangle;

end;

procedure designplayer;
begin
wait(2000)
mouse(53,88,0,0,true)
wait(50)
mouse(54,159,0,0,true)
wait(50)
mouse(54,159,0,0,true)

mouse(164,197,0,0,true)
wait(10)
mouse(164,197,0,0,true)
wait(10)
mouse(164,197,0,0,true)
wait(10)
mouse(164,197,0,0,true)
wait(10)
mouse(164,197,0,0,true)
wait(10)

mouse(464,133,0,0,true)
wait(10)
mouse(464,133,0,0,true)
wait(10)
mouse(464,133,0,0,true)
wait(10)
mouse(464,133,0,0,true)
wait(10)
mouse(464,133,0,0,true)
wait(10)

mouse(464,169,0,0,true)
wait(10)
mouse(464,169,0,0,true)
wait(10)
mouse(464,169,0,0,true)
wait(10)
mouse(464,169,0,0,true)
wait(10)
mouse(464,169,0,0,true)
wait(10)
mouse(464,169,0,0,true)
mouse(263,285,0,0,true)
wait(1000)
end;

procedure runescapeguide;


begin
setupsrl;
if findcolorspiraltolerance(x,y,runescapguide,MSX1,MSX1,MSX2,MSX2,25) then
mouse(x,y,0,0,false)
chooseoption('Talk')
repeat
if not chooseoption('Talk') then
begin
if findcolorspiraltolerance(x,y,runescapguide,MSX1,MSX1,MSX2,MSX2,25) then
mouse(x,y,0,0,false)

end;

until(chooseoption('Talk'))


wait(2000)
clicktocontinue;
wait(800)
clicktocontinue;
wait(800)
clicktocontinue;
wait(800)
clicktocontinue;
wait(800)
clicktocontinue;
wait(800)
mouse(307,454,0,0,true)
wait(800)
mouse(677,486,0,0,true)
mouse(608,340,0,0,true)
mouse(609,303,0,0,true)
mouse(610,267,0,0,true)
mouse(710,229,0,0,true)


if findcolorspiraltolerance(x,y,runescapguide,MSX1,MSX1,MSX2,MSX2,25) then
mouse(x,y,0,0,false)
chooseoption('Talk')
repeat
if not chooseoption('Talk') then
begin
if findcolorspiraltolerance(x,y,runescapguide,MSX1,MSX1,MSX2,MSX2,25) then
mouse(x,y,0,0,false)
wait(1000)
end;

until(chooseoption('Talk'))

wait(2000)
clicktocontinue;
wait(800)
mouse(307,454,0,0,true)
wait(800)


end;

procedure firstdoor;

begin

if findcolorspiraltolerance(x,y,arrow,539,8,721,160,25) then
mouse(x,y,0,0,true)

repeat
if not findcolorspiraltolerance(x,y,arrow,539,8,721,160,25) then
begin
if findcolorspiraltolerance(x,y,arrow,539,8,721,160,25) then
mouse(x,y,0,0,true)

end;

until findcolorspiraltolerance(x,y,arrow,539,8,721,160,25);

mouse(x,y,0,0,true)

wait(3000)
lowestangle;
makecompass('W')




repeat
if findcolorspiraltolerance(x,y,4892,10,59,502,294,5) then
mouse(x,y,0,0,false)
chooseoption('Open')

if findcolorspiraltolerance(x,y,4892,10,59,502,294,5) then
begin
if findcolorspiraltolerance(x,y,4892,10,59,502,294,5) then

wait(1000)
end;

until findcolorspiraltolerance(x,y,8494508,480,408,488,428,25)


end;

procedure tosurvival;
begin
setupsrl;
wait(1000)
highestangle;
makecompass('N')
mouse(671,484,0,0,true)
wait(50)
mouse(643,438,0,0,true)
wait(500)



repeat
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then

wait(500)
if not findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then
begin
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then


end;

until findcolorspiraltolerance(x,y,arrow,544,6,738,167,25);
mouse(x,y,0,0,true)
wait(5000)



repeat

if findcolorspiraltolerance(x,y,survivalexpert,30,18,485,323,15) then
mouse(x,y,0,0,false)

if not findcolorspiraltolerance(x,y,survivalexpert,30,18,485,323,15) then
begin
if findcolorspiraltolerance(x,y,survivalexpert,30,18,485,323,15) then


end;

until chooseoption('Talk');
wait(2000)

clicktocontinue;
wait(1000)
clicktocontinue;
wait(500)
mouse(641,183,0,0,true)

end;


procedure cuttree;
begin

















repeat
if findcolorspiraltolerance(x,y,65536,18,21,484,268,15) then
mouse(x,y,0,0,false)
if not findcolorspiraltolerance(x,y,65536,18,21,484,268,15) then
begin
if findcolorspiraltolerance(x,y,65536,18,21,484,268,15) then
mouse(x,y,0,0,false)
wait(1000)
end;


until (chooseoption('Chop down'))


wait(11000)
mouse(587,116,0,0,true)
wait(7000)
mouse(612,230,0,0,true)
wait(50)
mouse(661,231,0,0,true)
wait(6000)
mouse(703,75,0,0,true)
wait(10000)

mouse(577,185,0,0,true)
wait(500)



repeat
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then

wait(500)
if not findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then
begin
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then


end;

until findcolorspiraltolerance(x,y,arrow,544,6,738,167,25);
mouse(x,y,0,0,true)
wait(5000)


repeat

if findcolorspiraltolerance(x,y,survivalexpert,30,18,485,323,15) then
mouse(x,y,0,0,false)

if not findcolorspiraltolerance(x,y,survivalexpert,30,18,485,323,15) then
begin
if findcolorspiraltolerance(x,y,survivalexpert,30,18,485,323,15) then


end;

until chooseoption('Talk');
wait(3000)
clicktocontinue;
wait(500)
clicktocontinue;
wait(500)
mouse(642,186,0,0,true)
wait(100)


repeat
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then

wait(500)
if not findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then
begin
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then


end;

until findcolorspiraltolerance(x,y,arrow,544,6,738,167,25);
mouse(x,y,0,0,true)
wait(5000)


end;

procedure fishing;
begin



repeat
if findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then
mouse(x,y,0,0,false)
if findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then

wait(500)
if not findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then
begin
if findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then


end;

until chooseoption('Net');

wait(10000)

repeat
if findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then
mouse(x,y,0,0,false)
if findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then

wait(500)
if not findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then
begin
if findcolorspiraltolerance(x,y,15452076,17,18,447,287,25) then


end;

until chooseoption('Net');

wait(12000)

mouse(680,79,0,0,true)

wait(6000)

repeat
if findcolorspiraltolerance(x,y,65536,18,21,484,268,15) then
mouse(x,y,0,0,false)
if not findcolorspiraltolerance(x,y,65536,18,21,484,268,15) then
begin
if findcolorspiraltolerance(x,y,65536,18,21,484,268,15) then
mouse(x,y,0,0,false)
wait(1000)
end;


until (chooseoption('Chop down'))
wait(10000)
mouse(617,267,0,0,true)
wait(200)
mouse(618,229,0,0,true)
wait(9000)


mouse(703,230,0,0,true)
wait(100)








repeat
if findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then
mouse(x,y,0,0,false)
if findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then

wait(500)
if not findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then
begin
if findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then


end;

until chooseoption('Fire');


wait(9000)
mouse(577,269,0,0,true)



repeat
if findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then
mouse(x,y,0,0,false)
if findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then

wait(500)
if not findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then
begin
if findcolorspiraltolerance(x,y,3052476,17,18,447,287,25) then


end;

until chooseoption('Fire');
wait(8000)

mouse(574,104,0,0,true)
wait(15000)

repeat
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then

wait(500)
if not findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then
begin
if findcolorspiraltolerance(x,y,arrow,544,6,738,167,25) then


end;

until findcolorspiraltolerance(x,y,arrow,544,6,738,167,25);
mouse(x,y,0,0,true)
wait(5000)
makecompass('E')
lowestangle;



end;

procedure cooking;
begin
setupsrl;
lowestangle;
repeat
if findcolorspiraltolerance(xx,yy,2291706,137,43,480,287,15) then
mouse(xx,yy,0,0,true)
wait(1000)
if findcolorspiraltolerance(x,y,3428700,137,43,480,287,15) then
mouse(x,y,0,0,false)
wait(500)
if not findcolorspiraltolerance(x,y,3428700,137,43,480,287,15) then
begin
if findcolorspiraltolerance(x,y,3428700,137,43,480,287,15) then


end;

until chooseoption('Open');

makecompass('N')
highestangle;
wait(500)
mouse(606,115,0,0,true)
wait(7000)

makecompass('W')
wait(500)
lowestangle;





repeat
if findcolorspiraltolerance(x,y,12611,10,59,502,294,5) then
mouse(x,y,0,0,false)
chooseoption('Open')

if findcolorspiraltolerance(x,y,12611,10,59,502,294,5) then
begin
if findcolorspiraltolerance(x,y,12611,10,59,502,294,5) then

wait(1000)
end;

until findcolorspiraltolerance(x,y,16711680,167,366,352,386,5);





end;

begin
login;
designplayer;
runescapeguide;
firstdoor;
tosurvival;
cuttree;
fishing;
cooking;
end.

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

Enclose the scripts in SCAR tags. I give a no, to many coords sorry.

No from me its all very basic… from the looks of things there arent any failsafes and alot of it is coords…

Sorry, you're script just isn't good enough yet to apply for members,

You have to many infinite loops, your standards need improvement as well. BTW. please post scripts in SCAR tags.

Better luck next time, keep working at it :)

i have not finished this script yet and i have not yet put in random timeings but works, it does the tut island up to the cook and finishes


^^ Finish it

Also
*multiplayer
*dont use deadset coords to get around
*clean up standards
*SCAR TAGS!!

No from me

Quote from SCAR Debug
Sorry, too simple =/

• DTMs / DDTMs
• Break out of potential endless loops
• Standards! Without them no one reads script
• MultiPlayer

As the debug said.

EDIT: w000000000t 2000 posts!

Read Above Feedback
Try Again Late After You Learn All of The Above Sated.
Good Luck Next Time