SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
cut em2 it - SRL Member Application Form
cut em2 it

What is the meaning to life?


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


Programming Knowledge
C++, HTML, Visual Basic

Other Communitys
Sythe, Fagex

How Long have You Played Runescape
2 years

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

I have experience with auto-coloring, boxes, and map-walking. I hope you choose me as an SRL Member.

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

program ShrimpThenBank;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}
{By Cut em2 it. Edit line 10- 11 and 16-46, move your
characters to the Draynor fishing area, and run the script!(Have extra nets in first bank slot.)}
var
  x, y, a, b, HowLoads, z, w, o, d, Time:integer;
const
  YourSRLId = '';  //Leave blank if you don't have one.
  YourSRLPassword = ''; //Leave blank if you don't have one
  CurrentVersion = '2.18 BETA';//No Touchey!!!

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

  Players[0].Name        := ''; //username
  Players[0].Pass        := ''; //Password
  Players[0].Nick        := ''; //3-4 letters of user name
  Players[0].Integers[0] := 50;  //How many loads for player to do
  Players[0].Strings[0] :=  '0000'; //PIN Number
  Players[0].Active      := True;  //Player active

{ Players[1].Name        := ''; //username
  Players[1].Pass        := ''; //Password
  Players[1].Nick        := ''; //3-4 letters of user name
  Players[1].Integers[0] := 2;  //How many loads for player to do
  Players[1].Strings[0] :=  '0000'; //PIN Number
  Players[1].Active      := True;  //Player active

  Players[2].Name        := ''; //username
  Players[2].Pass        := ''; //Password
  Players[2].Nick        := ''; //3-4 letters of user name
  Players[2].Integers[0] := 2;  //How many loads for player to do
  Players[2].Strings[0] :=  '0000'; //PIN Number
  Players[2].Active      := True;  //Player active

  Players[3].Name        := ''; //username
  Players[3].Pass        := ''; //Password
  Players[3].Nick        := ''; //3-4 letters of user name
  Players[3].Integers[0] := 2;  //How many loads for player to do
  Players[3].Strings[0] :=  '0000'; //PIN Number
  Players[3].Active      := True;  //Player active
}
end;
procedure ChangeTimeNow;
begin
  if HowLoads=Players[CurrentPlayer].Integers[0] then
  begin
    NextPlayer(False);
    HowLoads := 0;
    MakeCompass('N');
  end;
  if not LoggedIn then
  begin
    LoginPlayer;
    MakeCompass('N');
  end;
end;

procedure Progress;
begin
  Writeln('This is my first auto fisher + banker.');
  Writeln('By cut em2 it.');
  Writeln('Did '+ IntToStr(HowLoads) +' loads.');
  Writeln('Thanks for using my auto fisher!');
end;

procedure ScriptTerminate;
begin
  Progress;
  SendSRLReport;
  Writeln('Script terminated');
end;

procedure Fish;
var x, y, ZeTime: integer;
  Box: TBox;
begin
  MarkTime( ZeTime );
  repeat
    if not LoggedIn then Exit;
    FindTalk;
    FindNormalRandoms;
    FindNonInventoryRandoms;
    MakeCompass('N');
    if FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box)  then
    begin
      case random(2) of
      1: begin
        MMouse(x, y, 1, 1);
        if IsUpText('Net') then
        begin
          Mouse(x, y, 1, 1, true);
          Wait(6000+random(400));
        end;
      end;
      2: begin
        MMouse(x, y, 1, 1);
        if IsUpText('Net') then
        begin
          Mouse(x, y, 1, 1, false);
          ChooseOption('Net');
          Wait(6000+random(400));
        end;
      end;
      end;
      if(FindFight)then
      begin
        RunAwayDirection('S');
        Wait(10000+random(2000));
        RunAwayDirection('N');
      end;
      FindTalk;
      FindNormalRandoms;
    end;
    ReportVars[0] := ReportVars[0] + 1;
  until(InvFull) or (TimeFromMark(ZeTime) > 380000);
  Writeln('Done fishing.');
end;

procedure Bank;
var TehColor: integer;
  TehBoxes: TBoxArray;
begin
  if not LoggedIn then Exit;
  MakeCompass('N');
  SymbolAccuracy := 0.5;
  if not(FindSymbol(o,d,'bank')) then
  begin
    TehColor := FindRoadColor;
    RadialRoadWalk(TehColor, 2, 90, 65, 1, 1);
    FFlag(1+random(1));
    FindSymbol(o, d, 'bank');
    Mouse(o, d, 1, 1, true);
    FFlag(1+random(1));
  end;
  if not LoggedIn then Exit;
  If FindSymbol(o,d,'bank') Then
  begin
    Mouse(o,d,0,0,true);
    FFlag(1+random(1));
    while FlagPresent do
    begin
      FindTalk;
      FindNormalRandoms;
      FindNonInventoryRandoms;
      Wait(1000+(320));
    end;
    repeat
      if not LoggedIn then Exit;
      FindObjCustom(z, w, ['Use','Booth'], [3421240,4937311], 5);
      Mouse(z,w,0,0,false);
      ChooseOption('Use-quickly');
      Wait(300+random(12));
    until(BankScreen) or (PinScreen);
    if(PinScreen)then
    begin
      InPin(Players[CurrentPlayer].Strings[0]);
    end;
    if(Bankscreen)then
    begin
      Wait(1000+random(103));
      Writeln('Banking');
      if (not(FindFishingEquipment(3097172,'Small fishing net'))) then
      begin
        Withdraw(1, 1, 1);
      end;
      if not LoggedIn then Exit;
      Deposit(2,28,1);
      ReportVars[1] := 27;
      Wait(700+random(100));
      CloseBank;
      if not FindSymbol(a,b,'fish') then
      begin
        TehColor := FindRoadColor;
        RadialWalk(TehColor, 170, 200, 21, 1, 1);
        FFlag(1+random(1));
        if not FindSymbol(a, b, 'fish') then
        begin
          FindColorSkipBoxArrayTolerance(x, y, 3618, 595, 102, 800, 400, 4, TehBoxes);
          Mouse(x, y, 1, 1, true);
          FFlag(1+random(1));
        end else
        Mouse(a, b, 1, 1, true);
        FFlag(1+random(1));
      end else
      Mouse(a,b,0,0,true);
      if not LoggedIn then Exit;
      FFlag(1+random(1));
    end;
  end;
end;

begin
  MarkTime( Time );
  SRLID := YourSRLId;
  SRLPassword := YourSRLPassword;
  HowLoads := 0;
  LoadSRLFishingBitmaps;
  SetupSRL;
  ScriptId := '477';
  ActivateClient;
  DeclarePlayers;
  Wait(1000);
  if not LoggedIn then LoginPlayer;
  Repeat
    Repeat
      Fish;
      Bank;
      HowLoads := HowLoads + 1;
      SRLRandomsReport;
    Until(HowLoads = Players[CurrentPlayer].Integers[0]);
    Proggie;
    ChangeTimeNow;
  Until( False );
end.

Another piece:

{                          _\/_
                 Super Fire /\
                 Author : cut em2 it
                 Directions : Edit line 12, drag crosshair over runescape screen, press play
                 Have tinderbox in 1st inventory slot and logs in first bank slot.
                 Recommended options: I would do it in draynor.
}
program SuperFire;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}
var HowLoads: integer;
const
  LoadsDo = 2; //How many loads to do
procedure OpenBankWithdraw(FirstSlot, EndSlot: integer);
var
  x, y: integer;
begin
  repeat
    FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
    Mouse(x,y,1,1,false);
    ChooseOption('Use-quickly');
    Wait(1500+random(125));
  until(BankScreen);
  if BankScreen then
  begin
    Withdraw(1, 1, 27);
  end;
  CloseBank;
end;
procedure GetLogs;
var x, y: integer;
begin
  SymbolAccuracy := 0.5;
  FindSymbol(x, y, 'bank');
  Mouse(x, y, 1, 1, true);
  Flag;
  OpenBankWithdraw(2, 28);
  MakeCompass('N');
  HighestAngle;
  MouseFlag(643, 113, 2, 2);
  Flag;
end;
procedure Proggie;
begin
  Writeln('Did '+ IntToStr(HowLoads)+ ' loads.');
  Writeln('Thanks for using this!!!');
end;
procedure BurnThoseLogs;
var
  i: integer;
  Fire: boolean;
begin
  for i:=2 to 28 do
  begin
    MouseItem(1, true);
    Wait(3000+random(300));
    MouseItem(i, true);
    if InChat('can') then
    begin
      Mouse(267, 190, 2, 2, true);
      Flag;
      Wait(300+random(100));
      MouseItem(1, true);
      Wait(3000+random(300));
      MouseItem(i, true);
    end;
    Wait(5000+random(1000));
  end;
end;
begin
  SetupSRL;
  ActivateClient;
  Wait(1000+random(130));
  MakeCompass('N');
  repeat
    GetLogs;
    BurnThoseLogs;
    HowLoads := HowLoads + 1;
  until(HowLoads >= LoadsDo);
  Proggie;
end.

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

Your "Description" wasn't very descriptive lol.

Okay, here are a few things I noticed…

For your first script:

FFlag(1+random(1));

This will always be the same as FFlag(1), because Random(1) always results in 0. Random(2) has the possibility of 0 or 1, etc.

ReportVars[1] := 27;

This should be:

ReportVars[1] := ReportVars[1] + 27;

Otherwise your stats report will always have variable 2 as 27.

FindNormalRandoms;
FindNonInventoryRandoms;
//and this...
FindTalk;
FindNormalRandoms;

FindNormalRandoms already does the FindNonInventoryRandoms and FindTalk…

You never even declared the TBox array in these procedures:

if FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box)  then
FindColorSkipBoxArrayTolerance(x, y, 3618, 595, 102, 800, 400, 4, TehBoxes);

You could have just used FindColorTolerance for that.

For your firemaker the only error I found was:

repeat
  FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
  Mouse(x,y,1,1,false);
  ChooseOption('Use-quickly');
  Wait(1500+random(125));
until(BankScreen);
if BankScreen then
begin
  Withdraw(1, 1, 27);
end;

^ You should make some more failsafes in there because if you're character will log out it'll still keep looking for the bank… also the begin/end; after if bankscreen isn't needed.

Firemaker doesn't have any antirandoms!!! AHH!!

Also, your firemaker doesn't have multiplayer… :(

Overall the scripts are pretty simple but if they get the job done then thats not a problem. You've got good standards and for the most part know what your doing. There are some things little things that anybody could mess up on, but you're not doing anything past beginner/intermediate level. You've got radialwalk in there but no DTM use or checks to make sure you're withdrawing what needs to be withdrawn… What if a player runs out of logs to burn and you just withdraw all his cash and you go try and light the cash until a random comes and kills him and he loses all his geepees? Just some advice.

You're a nice guy but the scripts aren't really members material. Sorry its a no.

Sorry, for now it is a No. It is a little too simple. You should add a DTM for the bankers.

From: mickaliscious
Your "Description" wasn't very descriptive lol.

Okay, here are a few things I noticed…

For your first script:

FFlag(1+random(1));

This will always be the same as FFlag(1), because Random(1) always results in 0. Random(2) has the possibility of 0 or 1, etc.

ReportVars[1] := 27;

This should be:

ReportVars[1] := ReportVars[1] + 27;

Otherwise your stats report will always have variable 2 as 27.

FindNormalRandoms;
FindNonInventoryRandoms;
//and this...
FindTalk;
FindNormalRandoms;

FindNormalRandoms already does the FindNonInventoryRandoms and FindTalk…

You never even declared the TBox array in these procedures:

if FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box)  then
FindColorSkipBoxArrayTolerance(x, y, 3618, 595, 102, 800, 400, 4, TehBoxes);

You could have just used FindColorTolerance for that.

For your firemaker the only error I found was:

repeat
  FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
  Mouse(x,y,1,1,false);
  ChooseOption('Use-quickly');
  Wait(1500+random(125));
until(BankScreen);
if BankScreen then
begin
  Withdraw(1, 1, 27);
end;

^ You should make some more failsafes in there because if you're character will log out it'll still keep looking for the bank… also the begin/end; after if bankscreen isn't needed.

Firemaker doesn't have any antirandoms!!! AHH!!

Also, your firemaker doesn't have multiplayer… :(

Overall the scripts are pretty simple but if they get the job done then thats not a problem. You've got good standards and for the most part know what your doing. There are some things little things that anybody could mess up on, but you're not doing anything past beginner/intermediate level. You've got radialwalk in there but no DTM use or checks to make sure you're withdrawing what needs to be withdrawn… What if a player runs out of logs to burn and you just withdraw all his cash and you go try and light the cash until a random comes and kills him and he loses all his geepees? Just some advice.

I'll wait a little while and try to decide how I'll vote.

Your comment on the Stats report is incorrect…when you SendSRLReport it returns all variables to 0…:p

So…your stats report is fine.

Thanks for everyones' input.

From: Santa_Clause
Your comment on the Stats report is incorrect…when you SendSRLReport it returns all variables to 0…:p

So…your stats report is fine.

OH, well I just use the SRLRandomsReport to send my stuff. It works just the same… but different… :eek:

well im going for a no sorry/like mick said you havent wrote a paragraph about your self (paragragh should be 5-6 sentences well in texas it is )

and the script looks too simple dont get me wrong i always think every script needs anti-ban so yeah =) get 1 of those im making a guide about commands you can read that later

well hope you understand

Thanks :p. I will work on a new script instead of this one. Thanks for the feedback :D

No… sorry it's too basic, im 99% sure you'll get in next time… good luck mate:)
overally you are nice guy:)
1 reason

Originally posted by Mick

You never even declared the TBox array in these procedures:

if FindColorSkipBox(x, y, 16315112, 0, 0, 259, 331, Box)  then
FindColorSkipBoxArrayTolerance(x, y, 3618, 595, 102, 800, 400, 4, TehBoxes);

You could have just used FindColorTolerance for that.

Don't go further, if you don't got the map:p

Thanks for posting :p . Also Im not voting coz you have lots of potential and because you post my functions in ure include :p. OtherThan that i would vote Yes as i think it deserves it Im even trying to read up on TArrays. You can overcome minor errors cant you?(<— Rethorical question :D).

->{Nauman}<-

I have to say no sorry. Script is way to short. One thing i do like is your standards. Better look next month

case random(2) of
1: begin
// Something
End;
2: begin
// Something
End;
End;

Random(2) Will never be 2. Random(2) Will be 0's and 1's
So, it should be :

case random(2) of
0: begin
// Something
End;
1: begin
// Something
End;
End;

I never knew it didn't do it till 2 wow. No wonder my guild miner was fucking up. Thank you for teaching us both a lesson lalaji :)

Yeah it is a lil confusing…

To make sure i always use this script

program New;
Var I : Integer;
begin
  Repeat
  I := Random(1)
  WriteLn(IntToStr(I));
  Wait(100); // Needs a lil wait
  Until(False)
end.

Random(1) = always 0's
Random(2) = 0's and 1's
Random(3) = 0's, 1's and 2's
And So On…

From: Lalaji
Yeah it is a lil confusing…

To make sure i always use this script

program New;
Var I : Integer;
begin
  Repeat
  I := Random(1)
  WriteLn(IntToStr(I));
  Wait(100); // Needs a lil wait
  Until(False)
end.

Random(1) = always 0's
Random(2) = 0's and 1's
Random(3) = 0's, 1's and 2's
And So On…

Or for bigger stuff you could use the function RandomRange(start,end)

Example:
RandomRange(100,600) would give a random number between 100 and 600. Its basically the same thing as (100 + Random(501))

Wow thanks for RandomRange, sweet that will be useful as! Sick of doing case (Random(10) + 125) of and stuff lol.

procedure ScriptTerminate;
begin
  Progress;
  SendSRLReport;
  Writeln('Script terminated');
end;

I'm wondering why you don't actually have TerminateScript in this procedure, it only says that its going to…

Also little things like this:

if(PinScreen)then
    begin
      InPin(Players[CurrentPlayer].Strings[0]);
    end;

should be

if(PinScreen)then
  InPin(Players[CurrentPlayer].Strings[0]);

 FindNormalRandoms;
      FindNonInventoryRandoms;

Why do you need both of these, all of the NonInventoryRandoms are found during the FindNormalRandoms =/

I'm not voting :) just helping. Maybe, if that was helpful.
Have a good day and good luck for next time if you don't get in!

From: Fr0zN_S0uL
Wow thanks for RandomRange, sweet that will be useful as! Sick of doing case (Random(10) + 125) of and stuff lol.

Yeah, you'd be amazed what you can discover when your internet goes out for 2 days and all you can do is read the SCAR and SRL manuals.