SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
By Sythe when i was looking to make millions

Programming Knowledge
Scar, Lil Java and C++

Other Communitys
Sythe, RuinedScape

How Long have You Played Runescape
4 years

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

Hi im Strikerx25 real name = Brendan i live in Campbelltown NSW, Australia and i have been a member of SRL Forums for about 1 year only started taking it seriously for about 3 months and decided to make a script well this is the result dont know if it actually works but oh well thanks for making this website.

-Striker

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

//Thanks to
//Negaal
//EvilChicken
//and people i have i cant rember

program StrikerzWillowWhacker;
{.include SRL/SRL.scar}
Const

SRLStatsID = '3682';
SRLStatsPass = 'bjrobman';
LoadsPerPlayer = 10;// how many loads you want it to do.....
{==============================================================================}
var
  x, y, bank, rock, tree, brokenaxe : integer;



{==============================================================================}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'username';//Runescape Username
  Players[0].Pass := 'password';//Runescape Password
  Players[0].Nick := 'nick';//3 letters of your username not first example= Srlforum write rlf or oru
  Players[0].Active := True;// Use this Dude?.?.?

  {Players[1].Name := 'username';//Runescape Username
  Players[1].Pass := 'password';//Runescape Password
  Players[1].Nick := 'nick';//3 letters of your username not first example= Srlforum write rlf or oru
  Players[1].Active := True;// Use this Dude?.?.?

  Players[2].Name := 'username';//Runescape Username
  Players[2].Pass := 'password';//Runescape Password
  Players[2].Nick := 'nick';//3 letters of your username not first example= Srlforum write rlf or oru
  Players[2].Active := True;// Use this Dude?.?.?}
end;
{==============================================================================}
Procedure Antirandoms;
begin
 FindTalk;
 FindNormalRandoms;
 SolveChatRandom;
 FindLamp('woodcutting');
 SolvePinball;
 DwarfItem;
  If(FindFight)Then
  Begin
  MakeCompass('N');
  RunTo('S', True);
  Wait(10000 +Random(3000));
  RunTo('N', True);
 end;
end;
{==============================================================================}
Procedure AntiBan;
begin
  case Random(20) of
    0: begin
         RandomRClick;
         Wait(40 + Random(20));
         Mouse(40 - Random(20), 30 + Random(20), 5, 5, False);
         Wait(10 + Random(55));
         MMouse(5 + Random(60),5 + Random(60),5,5);
       end;
    1: begin
         BoredHuman;
         Wait(40 + Random(30));
         MMouse(20,49,10,10);
       end;
    2: begin
         RandomMovement;
         Wait(40 + Random(25));
         MMouse(403 - Random(45), 200 - Random(35), 5, 5);
       end;
    3: AlmostLogout;
    4: begin
         PickUpMouse;
         Wait(30 + Random(40));
         HoverSkill('random', False);
       end;
    5: begin
         HoverSkill('mining', False);
       end;
   end;
end;
{==============================================================================}
Procedure Responder;
begin
  if InChat('yo') or InChat('hello') or InChat('hats') or InChat('ell')
  or InChat('assu') or InChat('sup') or InChat('h ey') or InChat('h ello')
  or InChat('hi') or InChat('was up') or InChat('w hats up') then

  case Random(5) of
  0 : Typesend('hi');
  1 : Typesend('hello:)');
  2 : Typesend('hi...ima turn chat off');
  3 : Typesend('Cant talk busy.....soz');
  4 : Typesend('Wassup');
  end;
  if InChat('auto') or InChat('macro') or InChat('cheater') or InChat('otte') or InChat('bot') then
  case Random(6) of
   0: Typesend('who me?');
   1: Typesend('Sure.....');
   2: Typesend('hmm...am i?');
   3: Typesend('Takes one to know one:P');
   4: Typesend('i hate autoers...they runined the game');{-------- not really :P}
   5: Typesend('no bots anymore dummy jagex killed them all');
  end;
end;
{==============================================================================}
procedure walktotrees;
begin
  if FindDTM(Tree, x, y, MMX1, MMY1, MMX2, MMY2) then
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    antiban
if(Not(FindDTM(Tree, x, y, MMX1, MMY1, MMX2, MMY2))) then

if  FindDTM(Rock, x, y, MMX1, MMY1, MMX2, MMY2) then
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    antiban
if (not(FindDTM(Rock, x, y, MMX1, MMY1, MMX2, MMY2))) then

begin
     Logout;
    writeln('We''re lost!');
   Exit;
  end;
end;
{==============================================================================}
Procedure Walktobank;
begin
  if FindDTM(Bank, x, y, MMX1, MMY1, MMX2, MMY2) then
    Mouse(x, y, 5, 5, True);


  if (not(FindDTM(Bank, x, y, MMX1, MMY1, MMX2, MMY2))) then

  if FindSymbol(x, y, 'fish') then
    Mouse(x, y, 5, 5, True);
    FFlag(0);
    
  if (Not(FindSymbol(x, y, 'fish'))) then

  begin
    Logout;
    writeln('Were lost!');
    Exit;
  end;
end;
{==============================================================================}
function CheckAxe: boolean;
begin
    if Pos('an axe', GetBlackChatMessage) = 17 then
    begin
        writeln('You do not have a suitable axe....');
        result := false;
    end else result := true;
end;
{==============================================================================}
procedure CheckEnt;//Thank choo Hy71195
var
  eex, eey : integer;
begin
  if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
  begin
    WriteLn('Ent Found! ~Advoiding~');
    Wait(3000+random(4000));
  end;
end;
{==============================================================================}
procedure chopdemwillows;
begin
 if not Loggedin then Exit;

 if FindObjTPA(x, y, 2653292, 20, -1, 10, 10, 20, ['illo']) then
 Mouse(x, y, 5, 5, True);
 wait(3000);

 if (not(FindObjTPA(x, y, 2653292, 20, -1, 10, 10, 20, ['illo']))) then

 begin
    Logout;
   writeln('Cant find willows');
  Exit;
  end;
end;
{==============================================================================}
procedure FindBirdsNest;
var
  tries, x, y: Integer;
  s: string;
begin
  if (not (GetLastChatText(s))) then
    LastChatter(s);
  if (Pos(s, 'A bird') <> 0) then
  begin
    repeat
      if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        KeyDown(VK_LEFT);
        Wait(700 + Random(500));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
      end;
      if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        x := 648;
        y := 83;
        tries := tries + 1;
        FindColorSpiral(x, y, 241, 570, 5, 725, 155);
        Mouse(x + 3, y + 3, 2, 2, True);
        FFlag(0);
        Wait(200 + Random(100));
      end;
      if (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        WriteLn('Birds Nest Found');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        FFlag(0);
        Wait(500 + Random(300));
        if (Screenshots) then
          SaveScreenshot('Birds Nest - SRL - ' + IntToStr(GetTimeRunning) + '.bmp');
        tries := tries + 100;
        Birdsnest := Birdsnest + 1;
        Mouse(583, 226, 2, 2, False);
        Wait(100 + Random(100));
        ChooseOption('Examine');
        Exit;
      end;
    until (FindObj(x, y, 'Take Bird', 3952984, 10)) or
      (FindObj(x, y, 'Take Bird', 1713706, 10)) or
      (FindObj(x, y, 'Take Bird', 1581604, 10)) or (tries > 5)
  end;
end;
{==============================================================================}
procedure BankDaShite;
begin
 if (not(Loggedin)) then  exit;
 OpenBankFast('db');
 wait(856)
 Deposit(2, 28, 2);
 CloseBank;
 end;
{==============================================================================}
procedure AntiNoob;
begin
  If SRLStatsID ='' then
  begin
    WriteLn('Hmm Please Get a Stats Account');
  end;
  If SRLStatsPass ='' then
  Begin
    WriteLn('Umm....You forgot your PW in stats')
  end;
end;
{==============================================================================}
procedure LoadDTMS;
begin

  Bank := DTMFromString('78DA637CC7C8C0709D010594E6E6816946289' +
       'F91998981E124AA9A172FDFA2AA790D641D25A0E63990F580809A' +
       'FF40D663026A1881EEB98A5F0D00FCA317DB');

  Rock := DTMFromString('78DA637CC9C8C0F087010504FB8530FC07D28' +
       'C503EE37320EB07AA1A77470F881C4CCD0B46241E0418EB9AA0AA' +
       '79826917869AD7986A6CCCEC50D4000070610D20');

  Tree := DTMFromString('78DA63BCCDC8C0F0910103FC076246100D048' +
       'CB780ACAFA8F2C632CC609A11CA67BC06647D4655236AC489AAE6' +
       '2E90F585809A3B40D60754355A2EBCA86AAE0359EFF19B030060C' +
       '61192');

  BrokenAxe := DTMFromString('78DA6364646660D8C480029A920419FE03694' +
       '6289F910FA86605031A60442281F41F2606868304D43011610E33' +
       '50CD66026AD8099B030019A3074C');
{==============================================================================}
end;

begin
  SetupSRL;
  DeclarePlayers;
  repeat
  if Loggedin then Logout;
  LoginPlayer;
  walktotrees;
  chopdemwillows
  Walktobank
  fixbank;
  BankDaShite until (false)
end.

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

I won't comment on the script just yet, but did you know BobboHobbo, another SRL Member, also lives in Campbelltown?

nah……but he helped me out with banking……i heard he got banned shame i'd like to meet him….

rofl copter my first application http://www.villavu.com/forum/showthread.php?t=24645

Not a shame…he asked to be banned for 3 months so he could stay away from the forums.

[email]dbsneo@hotmail.com[/email], in case you want his email.

lol why would someone want that

He was getting bad marks at school.

oh…..any comments on the script i need feed back to improve before i release it

Im going to say no. The biggest procedure in there is the Birds Nest Finder, and thats not even yours..

Erm, your banking procedure could be more advanced really, even though that works its very basic.

Where does it cut trees? Position? Where to start? 0_o

You log out if you dont find the willows? I mean, couldnt there be a backup plan or something?

 begin
    Logout;
   writeln('Cant find willows');
  Exit;

What about my other players? I want them to run too..

And if you cant find the bank, why would you click on the fish symbol? Seems rather silly to me, Maybe I just dont know where were cutting but I doubt that will work really..

You show good understanding of how to use DTM's, but your script is Jumbled and probably wouldnt do its job Imho.

No, sorry.

[H]~Torrent[/H]

From: Santa_Clause
He was getting bad marks at school.

Bad Marks? He just started Year 7 and the first term had ended. Oh, Liverpool isn't in Campelltown by the way. I have a friend that lives in Eagle Vale.

From: IP-Drowner
Bad Marks? He just started Year 7 and the first term had ended. Oh, Liverpool isn't in Campelltown by the way. I have a friend that lives in Eagle Vale.

yeah well i just sleep at campbelltown (st Andrews) i got to school, Work and my girlfriend lives in Liverpool so basically St Andrews is my home away from home……

[Off topic] Hehe im going for a sleepover at my Girlfriends :)[Off topic]

Lol can we stop turning this into a social event here?

And why did you put that bit in OffTopic? All of the stuff in here has been off topic atm lol :)


[OffTopic] Have fun dude ;) *Nudge Nudge* [/Offtopic]

GRR okay i need feedback on the script

I gave you feedback lol :P

……………but why what can i improve

DTM's are easy i need help on RadialWalk though

TBH, its too short. You need to give credit for some procedures, and I don't think that its 90% yours either.

Please can we get less apps that are willow cutters, 50% are these days…

Let's look at the cold facts.

Your most advanced procedure isn't that advanced (no offense SB :p), and it's a direct copy from SRL's WoodCutting.scar, which tells about that you don't know how to include, you just know you need to put {.include SRL/SRL.scar}.

You do not free your DTMs, you do not utilize the SRL MultiPlayer correctly, you don't know that you can use If () Then DoStuff; instead of

If () Then
Begin
–DoStuff;
End;

You do not use much failsafes, and the script is overall quite simple.


Sorry if I was too harsh, but some days the last thing I want to see is an apply script with no fulfilled requirements that are listed in a sticky which tells you to read it and is located in the FAQ.

One question before I start picking away / commenting on your script. Where is this for? If I'm going to test it I need to know where, I'm guessing Draynor since you're using the Fish Symbol thing I see so often.

For your FindBirdsNest procedure, why not just use FindObjCustom to cut down on lines?

For your Anti ban, why would you hover over mining and not woodcutting?

Not going to vote.

From: Iron man
For your FindBirdsNest procedure, why not just use FindObjCustom to cut down on lines?

For your Anti ban, why would you hover over mining and not woodcutting?

Not going to vote.

FindObjCustom = EVIL!

FindObjTPA = 1337493

What n3ss3s said. Keep up the good work :)

willow killer but i haven't fully got to understand radial walk yet….

Edit: Just realized i posted an older version of the script…..GRR!!!!

Close this?

Nava2

From: Nava2
Close this?

Nava2

If you are going to post on every app that hasn't been closed, please warn me now. Yes, sometimes the admins don't close them, but the poll is closed so it can't change that fact that he didn't get in.

Please don't do this, there are lots of open apps that have the poll closed, but most people don't find it affects them… at all…

I like the script, you seem pretty, nice I will vote yes.

Nava, if you want accept on a thread staying open or not, report the thread using the x next to the first post…

Seems like you're not getting in.
You may try again in two weeks.
Closed.