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?



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, i live in guernsey in the channel islands(type guernsey in to a google image search)

i like fishing, sailing, scubber diving, football and bmxing oh yeah and runescape lol.

im lvl 83 and ummmmm

and my name is adam :)

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

///////////MAKE SURE THERE ARE NO SPARES AXES IN THE BANK!!!!!!!!!!!!!!!!!!!!!!!
//make sure you are logged in next to the willow trees next to the wc tutor ////
/////////////////////South of lumber genral store //////////////////////////////
//////////////////////// Made by Takeout ///////////////////////////////////////
////////////////////// Takouts Chop & Drop /////////////////////////////////////
///////////////////////////Version 1.0 /////////////////////////////////////////
/////////////////// Fill out lines 36 to 43 ////////////////////////////////////

program Willow_chopper;
{.include srl/srl.scar}

 var

 x, y, a:Integer;
 Procedure eventchecker; Forward;
 Procedure safechecker; Forward;
procedure introduction;
begin
setupsrl;
writeln('########    ###    ##    ## ########  #######  ##     ## ########')
writeln('   ##      ## ##   ##   ##  ##       ##     ## ##     ##    ##')
writeln('   ##     ##   ##  ##  ##   ##       ##     ## ##     ##    ##')
writeln('   ##    ##     ## #####    ######   ##     ## ##     ##    ##')
writeln('   ##    ######### ##  ##   ##       ##     ## ##     ##    ##')
writeln('   ##    ##     ## ##   ##  ##       ##     ## ##     ##    ##')
writeln('   ##    ##     ## ##    ## ########  #######   #######     ##')

end;

Procedure DeclarePlayers;
begin
HowManyPlayers:=1; //Don't Change if you want more players just fill in their info and set their active to: True/False
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0; //Player to start on

  Players[0].Name :='username';  //Fill in your username
  Players[0].Pass :='password';  //Fill in your password
  Players[0].Nick :='nick';      //2-3 letters of your username
  Players[0].Active :=True;      //DON'T CHANGE
  Players[0].Booleans[1] := True;    //logged in?
  Players[0].Skill:= 'woodcutting' //genie skill
  Players[0].Strings[1] := 'Willow'; // DON'T CHANGE
  Players[0].Integers[1] := 500 //how many loads?
end;


Procedure eventchecker;
begin

if not findcolorspiraltolerance(x,y,5795970,732,177,751,194,8) then
begin
writeln('oh your not dead, you are in random event')
writeln('logging out :(')
logout;
terminatescript;
end;
end;

Procedure home;
begin


solvebox;
Wait(700+Random(500));
if findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)then
begin
end;
repeat
Wait(50+Random(100));
if findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)then
begin
mmouse(x,y,0,0)

end;
a:= a+1;
until(a=30)or IsUpText('Willow');
mouse(x,y,0,0,false)

 if not chooseoption('Willow') then
 begin
 writeln('Did not find tree using home teleport')
 mouse(740,186,0,0,true)
 Wait(150+Random(300));
  mouse(740,186,0,0,true)
  Wait(300+Random(100));
  mouse(570,241,0,0,true)
    Wait(10000+Random(12000));
    eventchecker;
   safechecker;
 end;

end;

 procedure cuttree;
 begin
makecompass('W')
home;
findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)
mmouse(x,y,0,0)
Wait(200+Random(500));
if findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5) then
begin

if IsUpText('Willow')then
begin
mouse(x,y,0,0,true)
Wait(5000+Random(10000));
end;
end;
repeat
solvebox;
Wait(1000+Random(1500));
findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5)
mmouse(x,y,0,0)
Wait(200+Random(500));
if IsUpText('Willow')then
begin
mouse(x,y,0,0,true)
Wait(5000+Random(7000));
end;

begin
end;
if not findcolorspiraltolerance(x,y,3830633,MSX1,MSX1,MSX2,MSX2,5) then
begin
writeln('not found')
end;

a:= a+1;
until(a=5);
dropall;
end;





















Procedure getaxe;
begin
setupsrl;
makecompass('W')
writeln('going to wc tutor to get another axe.')
Wait(500+Random(300));
mouse(654,65,0,0,true)
Wait(5000+Random(4500));
makecompass('N')

if findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8) then
begin
  mouse(x,y,0,0,false)
end;
repeat
begin
end;
if not chooseoption('Talk') then
begin
findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8)
  mouse(x,y,0,0,false)
  end;

until chooseoption('Talk') ;

Wait(7000+Random(5000));
makecompass('W')
mouse(263,388,0,0,true)
Wait(1000+Random(500));
clicktocontinue;
Wait(1000+Random(500));
clicktocontinue;
Wait(800+Random(1000));
mouse(577,223,0,0,true)
writeln('Recieved axe from wc tutor successful!')
writeln('Goiing back to Willow trees.')
Wait(800+Random(1000));
mouse(631,109,0,0,true)
Wait(5000+Random(10000));

end;



Procedure safechecker;
begin
mouse(580,228,0,0,false)
Wait(500+Random(300));
chooseoption('Drop')
Wait(500+Random(300));
mouse(673,185,0,0,true)
mmouse(586,300,0,0)
Wait(500+Random(300));
writeln('checking axe...')


if isUpText('Broken') then
begin
writeln('axe is broken')
mouse(586,300,0,0,true)
Wait(800+Random(1000));
mouse(638,188,0,0,true)
Wait(800+Random(1000));
mouse(576,227,0,0,false)
Wait(800+Random(1000));
chooseoption('Drop')
getaxe;
end;
repeat

if not isUpText('Broken') then
begin
Wait(800+Random(1000));
writeln('Axe is fine')

end;
a:= a+1;
until(a=1)or not isUpText('Broken')  ;

Wait(800+Random(1000));
writeln('checking players status...')







  closewindow;
  if FindBlackChatMessage('Oh dear, you are dead!') then
  begin
  logout;
  Wait(3000+Random(5000));
   LoginPlayer
writeln('Player dead or in unknown location walking back to willows.')
typesend('darn i died') /// do NOT remove VERY important
dropall;
Wait(300+Random(500));
makecompass('W')
mouse(673,479,0,0,true)
Wait(300+Random(500));
 if   findcolorspiraltolerance(x,y,5067346,653,422,656,427,8)   then
 begin
 mouse(638,430,0,0,true)
 end;
  mouse(646,183,0,0,true)
Wait(300+Random(500));


if findcolorspiraltolerance(x,y,8476246,645,0,700,104,8)then
begin
mouse(x,y,0,0,true)
end;
Wait(6000+Random(5000));
makecompass('N')
Wait(600+Random(500));


if findcolorspiraltolerance(x,y,14071968,665,12,721,98,8)then
begin
mouse(x,y,0,0,true)
Wait(12000+Random(10000));

end;

mouse(652,23,0,0,true)
 Wait(5000+Random(6000));



makecompass('N')
if findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8) then
begin
  mouse(x,y,0,0,false)
end;
repeat
begin
end;
if not chooseoption('Talk') then
begin
findcolorspiraltolerance(x,y,8807515,MSX1,MSX1,MSX2,MSX2,8)
  mouse(x,y,0,0,false)
  end;

until chooseoption('Talk') ;

Wait(7000+Random(5000));
makecompass('W')
mouse(263,388,0,0,true)
Wait(1000+Random(500));
clicktocontinue;
Wait(1000+Random(500));
clicktocontinue;
Wait(800+Random(1000));
mouse(577,223,0,0,true)
writeln('Recieved axe from wc tutor successful!')
writeln('Goiing back to Willow trees.')
Wait(800+Random(1000));
mouse(631,109,0,0,true)
Wait(5000+Random(10000));



end;


  if not FindBlackChatMessage('Oh dear, you are dead!') then
  begin
  writeln('Player is not dead.')
  mouse(647,187,0,0,true)
  eventchecker;
  solvebox;
  end;








end;




Procedure setup;

begin
setupsrl;
if (not(loggedIn)) then
begin
LoginPlayer
end;
makecompass('W')
highestangle;
  Setchat('friends',1)
  SetChat('friends',2)
  Setchat('off',3)
  solvebox;
Wait(500+Random(200));
 mouse(576,233,0,0,true)
Wait(500+Random(200));
mouse(531,329,0,0,true)
Wait(500+Random(200));
safechecker;
Wait(500+Random(1000));
cuttree;

end;

begin
introduction;
DeclarePlayers;
repeat
setup;
until(false)

end.

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

Better effort than last time ;)…but it still needs some work…such as…..

as…?

such as…

• needs lots of work on standards =]]
• and multiplayer really isn't used(only uses one player)
• endless loop (until(false)) is used which = bad.
• and correct me if I'm wrong but is there any random detection used?

sorry but no from me.
work on those things and I hope to see you soon =] :D

Hate to flame but, im never gonna vote for you, and the main reason is that your an idiot. Cant be bothered explaining my reasons now, but anyone can feel free to pm me.

No. Too simple. Same reasons as Derek…and you've applied twice already without any script.

From: Derek-
such as…

• and correct me if I'm wrong but is there any random detection used?

i manualy put the randoms in, apart from the strangebox; my manual randoms seem to work better, if the mage icon disapears it means ur in a random so it logs out.

if a random kills you , it will take you back to willows, if random puts u in a knwon location it users home tele and walks back to willows

if you lost your axe it goes to the wc tutor to get another free one

errr, never no i think, no basic and standards..(worst than me!)

you got

repeat
cut
until(false);

until(false) is very bad because you dont got no failsafes…
and how hard is to use findent(x,y,lalal)?

or copy paste findfastrandoms like you did with whole script in your last applie…

[offtopic]HE copied almost whole script in last applie if i remember right[/offtopic]

and always try to avoid using co-ords

101% NO

Also I see alot of cord clicking, sorry no.

sorry no from me as wel.

plz come back when you got a 'perfect' script ;)

Scamming Gold Diggers

i hate chinese autoers who take everything they can, so i decided to set up a gold buying e-mail and luckly enough a chinese dude wanted to sell me around 45m a week :)

i sed ok i scammed him however on the first trade he only gave me 1m but 1m is still a decent amount


ps: if you do sell ur gold dont sell it to me unless you use rsdemon or i will scam you >:(

sry man. big no from me.

hit up the "tutorial island" forum and read as much as you can.

From: munk
sry man. big no from me.

hit up the "tutorial island" forum and read as much as you can.

You know, RAM always does this but I'll save him some effort…

Please, refer to this before voting: Here

Sorry no

Things to work on:
Less coords
use srl anti randoms!
Use srl for lumb home tele
STANDARDS(and i thought mine were bad)
complexity of the script



try to read some tuts in the Tut Island section

Sorry, reasons have been stated above.

Those "gold diggers" you call, some of they may make their living with macroing in RS / Playing with million leafs in firefox open, and anyways I think the powerbill you get from autoing 24/7 is bigger than the cash from the money.

Meh..

Sorry, better luck next time

• DTMs / DDTMs
• Break out of potential endless loops
• MultiPlayer
• Standards! Without them no one reads script
• FailSafes
• Decent complex working script.
• RadialWalk / DDTM Walking

+ less coords plawkx.

0 Yes 12 No.
Closed.
Please read all feedback and try again later.