SRL Archive - Archive

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

What is the meaning to life?

The meaning to life is what ever you want it to be ;)

Where you Referred to SRL? If yes, by whom?
yes
I was refered by many members from www.dingo-forums.com

Programming Knowledge
visual basic

Other Communitys
www.Dingo-Forums.com www.rs-resources.com

How Long have You Played Runescape
2 years

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

Im 14 years old and i live in the uk. i enjoy playing on my comuter and learning new programming languages bt i know when enough is enough so i allso do things other than computer games.

I enjoy sports and i do Swimming nationally and running nationally, i allso compete in triathlons.

Istarted autoing around a year ago because i was bored with runescape and needed an alternative to get better than my mates. I then found out about scar and it went from there. i learnt to scar script and i will release a new script soon but i allso learn visual basic and im planning on learning Java during the summer.

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

program Boner;
{.include SRL\SRL.Scar}
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
///////////////////////////////Boner\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Made by The Flea\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////This Script will pick up bones and then bury them\\\\\\\\\\\\\\\
///////////////////////Just fill in the setup\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Then hit run\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\SETUP//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
const
bonecolor1 = 12303300; //color 1 of the bones on the floor.
bonecolor2 = 13948121; //color 2 of the bones on the floor.
bonecolor3 = 13948121; //color 3 of the bones on the floor.
rundir = 'N'  ; //direction to run from a fight. (N,E,S or W)
inventry = '10'   ; //number of loads to complete per player.
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\PLAYERS//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\/
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
procedure DeclarePlayers;
begin
  HowManyPlayers := 3; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='user';
  Players[0].Pass :='pass';
  Players[0].Nick :='nick';
  Players[0].Active:=True;
  
  Players[1].Name :='user';
  Players[1].Pass :='pass';
  Players[1].Nick :='nick';
  Players[1].Active:=True;

  Players[2].Name :='user';
  Players[2].Pass :='pass';
  Players[2].Nick :='nick';
  Players[2].Active:=True;
end;

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\END SETUP//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//

var
j,k:integer;
Loads,pickedup,experience:integer;
bones:integer;
procedure randoms;
  begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
  begin
    RunAwayDirection(rundir);
    writeln('Found fight running away')
    Wait(10000 + random(2000));
    writeln('Running back to location')
    RunBack;
  end;
end;

procedure progressreport;
begin
ClearDebug;
   Writeln('[]========================================[]');
    Writeln('---------------->Boner<----------------');
    Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
    Writeln('---------------------------------------------');
    writeln('picked up' +IntToStr(pickedup) + 'Bones' + '');
    Writeln('---------------------------------------------');
    Writeln('  gained ' + IntToStr(experience) + ' experience' + '        ');
    Writeln('[]========================================[]');
end;

procedure pickup;
begin
  repeat
    if (FindColor(j,k,bonecolor1,0,0,200,200)) or
    (FindColor(j,k,bonecolor2,0,0,200,200)) or
    (FindColor(j,k,bonecolor3,0,0,200,200)) then
    Mmouse(j,k,1,1);
    wait(200)
  if isuptext('ake')
  then
  begin
    Mouse(j,k,1,1,true);
    Flag;
    Writeln('picked up bones')
    Pickedup:=Pickedup+1;
  end;
  until(InvFull);
end;
procedure bury;
begin
     bones := DTMFromString('78DA63E4666060106040038C0CFFC12403C37' +
       'F20601407327830D52048202D04245809A80199C18CAAE2ECF163' +
       'A86A5880043B0173388104077E3500B24907E7');
  repeat
    if FindDTM(bones,x, y, 0, 0, 200, 200)then
    Mmouse(x,y,10,10)
    Mouse(x,y,5,5,true)
    FindNormalRandoms;
    if (FindFight = true) then
  begin
    RunAwayDirection(rundir);
    writeln('found fight running away')
    Wait(10000 + random(2000));
    writeln('running back to location')
    RunBack;
  end;
  until(FindDTM(bones,x, y, 0, 0, 200, 200)=False)
    writeln('buried a full inv')
    Loads:=Loads+1;
    experience:=experience+126
end;

begin
    setupSrl;
    DeclarePlayers;
    LoginPlayer;
  repeat
    randoms;
    Pickup;
    bury;
    progressreport;
  until(false);
end.

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

Good effort but it's a no from me. There's zilch failsafes in there. this is what u have:

if (FindColor(j,k,bonecolor1,0,0,200,200)) or
    (FindColor(j,k,bonecolor2,0,0,200,200)) or
    (FindColor(j,k,bonecolor3,0,0,200,200)) then
    Mmouse(j,k,1,1);
    wait(200)

this is how u should do it:

if (FindColor(j,k,bonecolor1,0,0,200,200)) or
    (FindColor(j,k,bonecolor2,0,0,200,200)) or
    (FindColor(j,k,bonecolor3,0,0,200,200)) then
    begin
    Mmouse(j,k,1,1);
    wait(200)
    end else //What it will do if it doesn't find the color
    begin
    // Put stuff u want it to do when it doesn't find the color e.g.
    Logout;
    Exit;
    end;

Not reliable enough.

thancs for your comments pplz =] i will work on it a bit more.

try to read through the srl manual, i believe there is a function that you'd like(drops all items with the dtm you put in it) you'd only have to change it a little bit to click bury instead of drop…. its good, but not good enough for srl member. im happy though there finally is a serious aplication, and for the pickup you could use findobj(find info about it in the srl manual)

I voted yes.

His application is better than some of the other who applied and then got accepted so I feel there's no need to say no. You have to be consistent otherwise the system is not fair.

IsUpText('ake'); could (and, very likely) would pick up things other than bones. It should be 'ones' or something unique to only bones, not all drops

I think you also need some failsafes ('if(not(loggedin)) then exit;', etc)

I'm going to hold my vote off for a while

From: Keen
I voted yes.

His application is better than some of the other who applied and then got accepted so I feel there's no need to say no. You have to be consistent otherwise the system is not fair.

on the contrare (SP?) I've seen better apps be denied. Really a script with no failsafes shouldn't cut it. The main reason why my first script was denied.

thancs for all your support im going to take your advice make it betetr and maybe re apply within a week or two.

From: the flea
thancs for all your support im going to take your advice make it betetr and maybe re apply within a week or two.

You have to wait at least two weeks between an app.

then thats what ill do :( kinda annoying really because this script will probably be ready by the end of the weekend.

ill work on a different script then as well (can you apply with more than 1 script) in a different thread somebody (cant remember who) suggested i try a clay softner script.

WTF keen.
Most members grade hard except the ones that get in too easy which ruins they system.

We need to consistantly grade hard otherwhise:
The more nub nub scripters we let in, the more THEY will vote MORE nub nub scripters in.

I vote no, its quite simple with repeat untils and no failsafes.
Not very accuratel/reliable.

You can change stuff to like:

    if FindDTM(bones,x, y, MSX1, MSY1, MSX2, MSY2)then
    Mmouse(x,y,5,5)
    If IsupTextMulti('Take B','ake B','ones') Then
    Mouse(x,y,0,0,true)

MSX1, MSY1, MSX2, MSY2 are the cordialities of the main screen built into SRL.
Also
MMouse(x,y,10,10) and then
Mouse(X,y,5,5) is odd movment.
People normaly move and then click
This would move, move a bit more, and then click.

I say learn more =)
Not a bad start though

that was me, and yes you can apply with more then 1 script(as a matter of fact i used 3 of um) that way you can show all your abilitys and potentional, which is what we are looking for:) maybe you could try a form aswell, so we know you can use that aswell, the more we see from you, the more we know from you, but remember, but do not put anything useless in a script

From: YoHoJo
WTF keen.

Haha, I had to laugh at that.
You seem shocked. :p

From: the flea

then thats what ill do kinda annoying really because this script will probably be ready by the end of the weekend.

ill work on a different script then as well (can you apply with more than 1 script) in a different thread somebody (cant remember who) suggested i try a clay softner script.

Yes you should be able to apply with more than one script, I don't see why that wouldn't be allowed.