SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
A G E N T 83 - SRL Member Application Form
A G E N T 83

What is the meaning to life?
The platypus. It's a mammal, reptile, bird, fish all rolled into one, plus it is venomous. :)

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


Programming Knowledge
Lots of PHP, a bit of C/C++, some other web languages

Other Communitys
Some 'legit' RS boards like tip.it

How Long have You Played Runescape
~2 years, on and off.

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

I've been around these forums for a while, basically since I figured out that Runescape didn't have to be really hard =] … I fiddled around with scripting but never really got into it.
Having done a lot of PHP work (for money) I realized that I like coding, programming, etc - and thus that I'd like SCAR scripting - it also has the added benefit of getting XP and money…

As like most people on this board, I'm still in high school, and like playing Runescape in small amounts (mostly running scripts.)

That's about it, I have attached a simple Barbarian Outpost Willow cutter (have not tested extensively, but went through a few runs pretty well. Includes AntiRandom, AntiBan, multiplayers, the usual stuff.

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

program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
var
   x, y : integer;
procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  NumberOfPlayers(1);

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := 'rial';
  Players[0].Active := True;
end;
function PlayerReady : boolean;
begin
     if(FindAxe)then
     begin
          Writeln('Axe found.');
          Result := True;
     end else
     begin
          Writeln('No axe.');
          NextPlayer(false);
          Result := false;
          Exit;
     end;
end;

procedure Randoms;
begin
  FindNormalRandoms;
  FindTalk;
  if (FindFight) then
  begin
    RunAway('s', True, 1, 10000 + random(5000));
    FTWait(20 + random(10));
  end;
end;

procedure Outside;
var
   Door, MMDoor, dx, dy : Integer;
begin
       Door := DTMFromString('78DA63FCC9C0C0708101053C5821C32002A41' +
       '981F83F10300A3262A8F9BD4701AE060400A7150A4F');
       MMDoor := DTMFromString('78DA63B4666260886240015F815804881981F' +
       '83F103082D444E356030260353144A88925424D3C116A12F0AB01' +
       '00250C0DDA');
       Writeln('heading outside');
     MakeCompass('N');
     if(FindDTM(MMDoor, x, y, MMX1, MMY1, MMX2-50, MMY2))then
     begin
          Mouse(x, y, 2, 2, true);
          Writeln('Clicked Door');
          Wait(100);
          FFlag(1);
          MakeCompass('E');
          if(FindDTM(Door, dx, dy, MSX1, MSY1, MSX2, MSY2))then
          begin
                Mouse(dx, dy, 1, 1, false);
                if(ChooseOption('pen'))then
                begin
                     Writeln('Opened door');
                     MakeCompass('N');
                end else
                begin
                     Writeln('Couldn''t open door...');
                     NextPlayer(false);
                     Exit;
                end;
          end;
          Randoms;
          MakeCompass('N');
          if(FindSymbol(x, y, 'fish'))then
          begin
               Mouse(x, y, 2, 2, true);
               FFlag(0);
          end;
     end;
     FreeDTM(Door);
     FreeDTM(MMDoor);
end;
procedure Inside;
var
   Door, MSDoor, BlackHole, dx, dy : integer;
begin
       MSDoor := DTMFromString('78DA63FCC9C0C0708101053C5821C32002A41' +
       '981F83F10300A3262A8F9BD4701AE060400A7150A4F');
       Door := DTMFromString('78DA63B4666260886240015F815804881981F' +
       '83F103082D444E356030260353144A88925424D3C116A12F0AB01' +
       '00250C0DDA');
       BlackHole := DTMFromString('78DA63CC666260886040038C48249006A9892' +
       '4A02687483584ECCA22520D01BB00436904B4');
      if(not FindDTM(Door, x, y, MMX1, MMY1, MMX2, MMY2))then
      begin
           FindSymbol(x, y, 'fish');
           Mouse(x, y, 1, 1, true);
           FFlag(0);
      end;
      if(FindDTM(Door, x, y, MMX1, MMY1, MMX2, MMY2))then
      begin
           Mouse(x,y,1,1,true);
           FFlag(0);
      end else
      begin
           Writeln('Didn''t find door.');
           NextPlayer(false);
      end;
      MakeCompass('W');
       if(FindDTM(MMDoor, dx, dy, MSX1, MSY1, MSX2, MSY2))then
          begin
                Mouse(dx, dy, 1, 1, false);
                if(ChooseOption('pen'))then
                begin
                     Writeln('Opened door');
                     MakeCompass('N');
                end else
                begin
                     Writeln('Couldn''t open door...');
                     NextPlayer(false);
                     Exit;
                end;
          end;
      if(FindDTM(BlackHole, x,y, MMX1, MMY1, MMX2, MMY2)) then
      begin
           Mouse(x,y,1,1,true);
           FFlag(0);
      end else
      begin
           Writeln('Didn''t find black hole');
           NextPlayer(false);
      end;
      FreeDTM(Door);
end;
function TPC(TP : TPoint):integer;
begin
     Result := GetColor(TP.x, TP.y);
end;
procedure AB;
var
   dx, dy : integer;
   STP : TPoint;
begin
     STP.x := x;
     STP.y := y;
     //Starting positions
     case Random(5) of
          0 : //do nothing
          1 :
            begin
                 BoredHuman;
                 MMouse(STP.x, STP.y);
            end;
          2:
            begin
                 case Random(3) of
                 0 : //do nothing
                 1 : TypeSend('Woodcutting sure is fun, lol...');
                 2 : TypeSend('Only a million more XP until finished. :( ');
                 3 : TypeSend('sdfl;kmjf;lkeo');
                 end;
                 KeyDown(8);
                 Wait(1000);
                 KeyUp(8);
            end;
          3:
            begin
                 GameTab(11);
                 Mouse(593, 449, 2, 3, true);
                 TypeSend('Runescape');
                 KeyDown(13);
                 KeyUp(13);
                 GameTab(4);
                 MMouse(STP.x, STP.y);
            end;
          4:
            begin
                 HoverSkill('woodcutting', false);
                 MMouse(STP.x, STP.y);
            end;
          5: //do nothing
     end;
end;

function FindTree : boolean;
var
   i : integer;
   TPA : TPointArray;
begin
       x := 0;
       y := 0;
       Wait(300 + Random(200));
       FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6131579, MSX1, MSY1, MSX2, MSY2, 10);
       for  i := 0 to High(TPA) do
       begin
           // Writeln('TPA['+IntToStr(i)+'] = '+IntToStr(TPA[i].x)+', '+IntToStr(TPA[i].x));
            MMouse(TPA[i].x, TPA[i].y, 1, 2);
            Wait(500);
            if(IsUpText('illo'))then
            begin
                 x := TPA[i].x;
                 y := TPA[i].y;
                 Result := True;
                 Exit;
            end;
       end;
       if(x = 0)then
       begin
            Result := False;
            Exit;
       end;
end;
function EndCondition : boolean;
var i : integer;
begin
     for i := 0 to High(Players) do
     begin
          if(Players[i].Active = true)then
          begin
               Result := True;
               Exit;
          end;
     end;
     Result := False;
end;
function FindInvUpText(search : string):integer;
var
   i : integer;
begin
     for i := 2 to 28 do
     begin
          MMouseItem(i);
          if(IsUpText(search))then
          begin
               Result := i;
               Exit;
          end;
     end;
end;

procedure Bank;
var
   Inv : integer;
begin
     Writeln('Start banking');
  //   BankD := DTMFromString('78DA636C64646098C880024E1D5AC72002A48' +
 //    '1320CFF8180B105C86A4155D3DF5E045703028C6D40D66C543527' +
 //    'F6AF4255530564CD42557370FB7C1435006C4D10B2');
     if(FindColorTolerance(x, y, 11190216, MSX1, MSY1, MSX2, MSY2, 10))then
     begin
          MMouse(x,y,1,1);
          if(IsUpText('eposit'))then
          begin
          
          Inv := FindInvUpText('illow');
          Writeln('Found logs in inv, position '+IntToStr(Inv));
          MouseItem(Inv, True);
          Wait(200 + Random(100));
          Mouse(x, y, 1, 1, false);
          ChooseOption('se');
          Wait(200 + Random(300));
          Mouse(258, 451, 1, 1, true);
          Wait(500 + Random(200));

          end else
          begin
               Writeln('Failed opening bank');
               NextPlayer(false);
          end;
     end;
     //FreeDTM(BankD);
end;
          
     
begin
     SetUpSRL;
     DeclarePlayers;
     ActivateClient;

repeat
     if(not(LoggedIn))then
          LoginPlayer;
     PlayerReady;
     Outside;
     AB;
     Randoms;
     repeat
           if(InvFull)then
                Break;
           if(not(LoggedIn))then
                Break;
           if(FindTree)then
           begin
                Mouse(x,y,2,2,true);
                FFlag(0);
                Wait(500 + Random(200));
                Randoms;
                if(not(IsUpText('illo')))then
                begin
                     Wait(500 + Random(200));
                     FindTree;
                end;
                Randoms;
                repeat
                      AB;
                      Wait(800 + Random(800));
                      if(FindEnt(x, y, true))then
                      begin
                           repeat
                                 Wait(RandomRange(5000, 7000));
                           until(not FindEnt(x,y,false));
                      end;
                      Randoms;
                      FindBirdsNest;
                until(InvFull or not(IsUpText('illo')) or not LoggedIn)
           end;
           Wait(100);
     until(InvFull)
     AB;
     Inside;
     Bank;
until(not EndCondition)
end.

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

yay, its not a powerchopper! Yes from me…

No.

No DDTMs and other stuffz.

Good luck on your next app! (if you don't get in on this one)

I said yes. The script looks pretty good, and I didn't see any problems with the script and attitude doesn't seem to bad.

As a note, DDTMS aren't a requirement for someone to get in.

From: boberman
I said yes. The script looks pretty good, and I didn't see any problems with the script and attitude doesn't seem to bad.

As a note, DDTMS aren't a requirement for someone to get in.

DDTMs are an advanced scripting techniques that I think someone should know before they get into SRL Members. Just my opinion.

From: born2code
DDTMs are an advanced scripting techniques that I think someone should know before they get into SRL Members. Just my opinion.

Yes, but they aren't the only scripting technique. Some scripts don't require DDTMs to be good. A good programmer doesn't just put functions in because convention says those functions are good or needed.

DDTMs are trivial to learn, The presence of a DDTM should help someone get in, but the absence of one shouldn't prevent someone from getting in.

As I see it, attitude, standards, and quality of script are all pretty good.

From: boberman
Yes, but they aren't the only scripting technique. Some scripts don't require DDTMs to be good. A good programmer doesn't just put functions in because convention says those functions are good or needed.

DDTMs are trivial to learn, The presence of a DDTM should help someone get in, but the absence of one shouldn't prevent someone from getting in.

As I see it, attitude, standards, and quality of script are all pretty good.

Agreed. I didn't learn DDTMs for along time until after I was a member. Yup

Yes.. and grats on membership soon ^^

Btw, Bord2Code, This goes by activity and such aswell and you can't make up your own stuff he should know to get in. I don't know DDTMs Never used them, but why the **** am i member then? :)

Yeah :)

Yes, because you made alot of useful functions for masterkill and me.

No. Your standards are improper, it appears you only use fail-safes little. You use TPointArrays, but just because they're there (not using them properly). Some functions and procedures you have, are useless, e.g:

function TPC(TP : TPoint):integer;
begin
     Result := GetColor(TP.x, TP.y);
end;

Better luck with the voting ;) Also, you left your username and password in there ;)

Thanks for the catch, Dan. Hopefully I can trust the rest of you all to not steal my account :) Yeah, I messed around with using that function a bit, but decided that iterative mousing/UpText finding worked better.


P.S. Thanks everyone for voting :)

ok seems like u have the attitude for being a member and ur script is ok but still u need to work on ur standards but still its a yes from me good luck!

*looks at TheChineseMans app* you should work on your standards too tbh ;)
Yours aren't 100% either.

ya but still that was like 2 weeks ago got it better now learnt a thing or 2 about standards…

Thanks for the comments, guys.
A few of you have mentioned standards - what is it exactly that I've done wrong? (If tabbing is one of them, then that's my bad - I'm used to using languages where you use the 'tab' key for each nested level).

Yeah.

yes

yes.

Yah from me too. :) Good work.

well this is hard

DTMs - yes
standards - slight fail
object finding - yes

Well, I have to say yes, good luck

I'm not sure why you have so many 'yes' votes…the SRL Members are probably feeling generous.

I'm voting no. There have been better applications than this that haven't gotten in. And I hope no-one asks me to find one of those better applications, I won't waste my time proving myself.

Lol at standards quite odd. Lol btw a tip:

function PlayerReady : boolean;
begin
     if(FindAxe)then
     begin
          Writeln('Axe found.');
          Result := True;
     end else
     begin
          Writeln('No axe.');
          NextPlayer(false);
          Result := false;
          Exit;
     end;
end;

Can be simplfied:

function PlayerReady : boolean;
begin
 Result := FindAxe;
  If not (Result) then
  begin
     Writeln('No axe.');
     NextPlayer(false);
     Exit;
  end else
    Writeln('Axe found.');
end;

Yes from me.

I think he learned the lesson about [correct] SCAR standards already :p

You are a great & helpful guy with cool attitude + you have been contributing SRL with your own ways for a "while" already (I especially like the tools/utilities you have created with SCAR - there is never too many tools around!), so in my opinion you definitely deserve to get in SRL-members.. Which means, I voted yes.

:D

Welcome, sir.