SRL Archive - Archive

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

What is the meaning to life?
Having Fun, making love, and enjoy you're Job/School(, make money ^^).

Where you Referred to SRL? If yes, by whom?
yes
A friend.

Programming Knowledge
HTML, little PHP, small C/C++

Other Communitys
http://forum.ragezone.com

How Long have You Played Runescape
5 years

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

Hello,

I've applied earlier, but i didnt get through, but i updated the script huge!

My real name is Floris.
I'm 12 (Yeah >.<).

Other than the things in the script, i can do:

*RadialWalking
*Symbols
*And some more stuff >D

I am just 12, and i am Dutch, but my english language is pretty good :)
I have a great eager to learn, as you can see :p

I'm also a mid-good-GFX'er (Sigs, avatars, etc.)

I have three 'main' characters:
*Level 66: *Taken Out* (Former WC pure.. my personal char)
*Level 88: *Taken Out* (share it with my brother, 7.5 BM, wont auto on more :P)
*Level ±93: *Taken Out* (Im bit off that one atm, memb expired, etc.)

Further, i ofc have some bots >D
All are LvL3+ , as that is best for Autoing :)
In my signature theres script stats etc.
Like, all of it is me and my family's use, but that still counts >D
I've tested my script with all the equipment possibilty's (Harpoon, Cage, Bait, Net(s), not sure if big net works, since i was only pointing at small net).

Also, when you decline:
Please specify why you declined, and what i should approve.
Same goes for acceptation.

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

Requires my own-made Include, misxster05 taught me how to, and i Created it:

{*******************************************************************************
                  Check for the faulty rod 
********************************************************************************}

Function CheckRod(Var slot: Integer): Boolean;
Var
  i: Integer;

Begin
  For i:= 1 To 4 Do
  Begin
    If(ExistsItem(i)) Then
    Begin
      MMouseItem(i);
      If(IsUpText('ishing rod')) and IsUpText('ait') Then
      Begin
        Result:= True;
        slot:= i;
        Writeln('Rod found!');
        Exit;
      End;
    End;
  End;
End;

{*******************************************************************************
                  Check for a faulty harpoon 
********************************************************************************}

Function CheckHarpoon(Var slot: Integer): Boolean;
Var
  i: Integer;

Begin
  For i:= 1 To 4 Do
  Begin
    If(ExistsItem(i)) Then
    Begin
      MMouseItem(i);
      If(IsUpText('arpoon')) Then
      Begin
        Result:= True;
        slot:= i;
        Writeln('Harpoon found!');
        Exit;
      End;
    End;
  End;
End;

{*******************************************************************************
                  Check for a faulty cage
********************************************************************************}

Function CheckCage(Var slot: Integer): Boolean;
Var
  i: Integer;

Begin
  For i:= 1 To 4 Do
  Begin
    If(ExistsItem(i)) Then
    Begin
      MMouseItem(i);
      If(IsUpText('cage')) Then
      Begin
        Result:= True;
        slot:= i;
        Writeln('Cage found!');
        Exit;
      End;
    End;
  End;
End;

{*******************************************************************************
                  Check for a faulty net 
********************************************************************************}

Function CheckNet(Var slot: Integer): Boolean;
Var
  i: Integer;

Begin
  For i:= 1 To 4 Do
  Begin
    If(ExistsItem(i)) Then
    Begin
      MMouseItem(i);
      If(IsUpText('ishing')) and IsUpText('net') Then
      Begin
        Result:= True;
        slot:= i;
        writeln('Net found!');
        Exit;
      End;
    End;
  End;
End;

{*******************************************************************************
                                    End
********************************************************************************}

Script:

program MultiPowerFisher;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Fishing.scar}
{.include InvFinds.scar}

var x, y, loads, fish, Net, Rod, CageC,
HarpoonC, NetDTM, FLvl, CageDTM, HarpoonDTM, RodDTM : Integer;

{*******************************************************************************
                                 My 2nd Script!
                     ______
                    //   ) )
                   //___/ /  ___                   ___      __
                  / ____ / //   ) ) //  / /  / / //___) ) //  ) )
                 //       //   / / //  / /  / / //       //
                //       ((___/ / ((__( (__/ / ((____   //


            /|    //| |
           //|   // | |             // __  ___ ( )
          // |  //  | |   //   / / //   / /   / /
         //  | //   | |  //   / / //   / /   / /
        //   |//    | | ((___( ( //   / /   / /
     _______
    //______|
   //___      ( )  ___     / __      ___      __
  //____|    / / ((   ) ) //   ) ) //___) ) //  ) )
 //         / /   \ \    //   / / //       //
//         / / //   ) ) //   / / ((____   //

            ______
           //   ) ) \\    / /
          //___/ /   \\  / /
         / __  (      \\/ /
        //    ) )      / /
       //____/ /      / /
 ______ _                    __    __
|  ____| |                  / /   / /
| |__  | | ___   ___  _ __ / /_  / /_
|  __| | |/ _ \ / _ \| '__| '_ \| '_ \
| |    | | (_) | (_) | |  | (_) | (_) |
|_|    |_|\___/ \___/|_|   \___/ \___/


  ChangeLog:

     [v1 To v2]:
         *SMART
         *MultiPlayer
         *Proggy
         *Net OR Bait possibility
         *Everything i forgot ^^

     [v2 To v2.01]:
         *FindObjCustom in use now [Thx heavenzeyez1]

     [v2.0.1 To v2.0.2]
         *SRL Script stats!

     [v2.0.2 To v2.0.3]
         *Fixed Script stats
         *Better proggy
         *Some minor changes

     [v2.0.3 To v2.0.4]
         *Added Equipment checking DTM's

     [v2.0.4 To v2.0.5]
         *Multiple fishing types now!
         *Better equipment finding!


  Features:

     *SMART!!
     *MultiPlayer (tested)
     *Good AntiBan
     *AntiRandom
     *Proggy!
     *Multiple equipment
     *SCAR Title says Loads+Fishes fished!
     *Many many more!

  Credits:

     * The Script: Me.
     * Lots of help: n3ss3s
     * Little help: JuKKa, heavenzeyez1 (Eerik)
     * A great community: SRL-Forums.com!
     * For all those i forgot:
         BIG THANKS!!


    Quick HowTo:

        Setup Between 72&101:
           Set Constants (const)
           Set PlayerSetup
           Make sure the character(s) are
           next to a fishing spot!

           P.S: It's better to have SMART
           loaded from before. (Just launch script, and Re-Play it).

        Press play, let SMART load, and off it goes!

{*******************************************************************************
                                  BEGIN SETUP
********************************************************************************}

const
LoadsToDo = 1; //How much loads/player?
Dir = 'n'; //n, e, s, w run direction
RFar = True; //Run far away from fight?
World = 107; //Wich world to launch SMART in?

procedure PlayerSetup;
begin

  SRLID := '';             // SRL Stats ID -
  SRLPassword := '';       // SRL Stats Password -

  HowManyPlayers := 2;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name       := ''; //Username
  Players[0].Pass       := ''; //Password
  Players[0].Nick       := ''; //3-4 letters of username. e.x sern
  Players[0].Active     :=  False;
  Players[0].Strings[1] := 'Cage'; //Net, Bait, Cage, Harpoon.

  Players[1].Name       := ''; //Username
  Players[1].Pass       := ''; //Password
  Players[1].Nick       := ''; //3-4 letters of username. e.x sern
  Players[1].Active     :=  True;
  Players[1].Strings[1] := 'Net'; //Net, Bait, Cage, Harpoon.

  Writeln('Using ' + IntToStr(HowManyPlayers) + ' Player(s)');
 end;

{*******************************************************************************
                                     END SETUP!
                  DONT EDIT BELOW UNLESS YOU KNOW WHAT UR DOING!!!
********************************************************************************}

procedure FailSafe;
begin
 if (not(LoggedIn)) then Exit;
end;


procedure LoadDTMs;
begin
   NetDTM := DTMFromString('78DA6314636060106440019ECE960CFF81342' +
       '310FF0702461120839D010D302291409A0F48701350C30A244409' +
       'A801B9459A801A79202143408D12901026A0066406177E350088E' +
       '6070F');

   CageDTM := DTMFromString('78DA631466606000612490E2C2C3F01F48330' +
       '2F17F20609402323818D000231209A4F981041B01355C40828B80' +
       '1A16202144400D2B909024A0860F48C81150230E24E409A891051' +
       '2E204D480ECE1C5AF06005B7A0733');

   HarpoonDTM := DTMFromString('78DA631461606000612410EDC2CDF01F48330' +
       '2F17F20609405329819D000231209A42580040F01358240429480' +
       '1A3E202145408D00905020A04618484813E16621026A6488F0972' +
       '2906021A0461E4870E257030091E0077D');

   RodDTM := DTMFromString('78DA6394646060106600036608C5501A2EC02' +
       '007A41981F83F103082E42550D5244645C1D58000A30890104355' +
       'C3C5C585AA06242F43841A25543593F24451D580DCA288AA665E0' +
       '99A1A6920A18CAAC65A5313558D3A90E026A006640F2F013783C2' +
       '4712558D9C9414AA1A014C35F5E565A86A0431C3B924371B558D1' +
       'A90E0405553102A80A9861DBF9B0145E41220');

end;

procedure Drop;
var I : Integer;
begin
if (Players[CurrentPlayer].Strings[1] = 'Bait') then
begin
  for I := 3 to 28 do
   DropItem(i);
end;
 if (Players[CurrentPlayer].Strings[1] = 'Net') then
begin
  for I := 2 to 28 do
   DropItem(i);
end;
end;

procedure Prog;
begin
 Writeln('=======================================');
 Writeln('                                       ');
 Writeln('     Floor66`s PowerNetter!            ');
 Writeln('     Ran for '+TimeRunning+' !         ');
 Writeln('     '+Players[CurrentPlayer].Name+' Completed ' +IntToStr(Loads)+ ' Load(s) ');
 Writeln('     '+Players[CurrentPlayer].Name+' Fished '  +IntToStr(Fish)+ ' Fishes    ');
 Writeln('     ©Floor66 ~ SRL-Forums.com         ');
 Writeln('           Post proggys!!              ');
 Writeln('                                       ');
 Writeln('=======================================');
 Writeln('                                       ');
 Writeln('        >>>Next Player!<<<             ');
 Writeln('                                       ');
  end;

procedure RandomTalk;
begin
 case random(21) of
 0 : TypeSend('Hey');
 1 : TypeSend('Sup?');
 2 : TypeSend('Fish lbls?');
 3 : TypeSend('Fish lvls?');
 4 : TypeSend('Booriiing');
 5 : TypeSend('....');
 6 : TypeSend('This takes so long');
 7 : TypeSend('Any skillers here?');
 8 : TypeSend('Fish lvs?');
 9 : TypeSend('>.<');
 10: TypeSend('Hmm..');
 11: TypeSend('..');
 12: TypeSend(':P');
 13: TypeSend('xD');
 14: TypeSend('Fish lvls?');
 15: TypeSend('Argh.. so much xp to lvl');
 16: TypeSend('I got full friends list');
 17: TypeSend('white:  ');
 18: TypeSend('Lol');
 19: TypeSend('Boredom ftw');
 20: TypeSend(' ..');

 end;
end;

procedure AntiBan;
begin
FailSafe;
 Status('AntiBanning');
  case random(7) of
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('fishing', False);
    3: AlmostLogout;
    4: SleepAndMoveMouse(2337+random(667));
    5: RandomTalk;
    6: PickUpMouse;
  end;
Wait(2000+random(2000+random(500)));
end;

procedure FindSpotAndFish;
var c, c1, c2, c3 : Integer;
begin
FailSafe;
SetAngle(true);
Status('Searching, clicking spot');
  if (Players[CurrentPlayer].Strings[1] = 'Net') then
  begin
   repeat
   C := C + 1;
   if (C = 50) then
   begin
   Writeln('Better luck next time.. couldnt find it in 50 times, now you have to wait for AntiBan to go..');
   end;
   until(FindObjCustom(x,y,['pot','ishing', 'et'],[15394011,13216659], 35));
   begin
   FailSafe;
   Mouse(x, y, 5, 5, false);
   ChooseOption('et');
   Status('Clicked spot');
   SleepAndMoveMouse(2500+random(1337+random(3000)));
   C := 0;
   end;
  end;
  if (Players[CurrentPlayer].Strings[1] = 'Bait') then
  begin
   repeat
   C1 := C1 + 1;
   if (C1 = 50) then
   begin
   Writeln('Better luck next time.. couldnt find it in 50 times, now you have to wait for AntiBan to go..');
   end;
   until(FindObjCustom(x,y,['pot','ishing', 'ait'],[15394011,13216659], 35));
   begin
   FailSafe;
   Mouse(x, y, 5, 5, false);
   ChooseOption('ait');
   Status('Clicked spot');
   SleepAndMoveMouse(2500+random(1337+random(3000)));
   C1 := 0;
   end;
  end;
  if (Players[CurrentPlayer].Strings[1] = 'Cage') then
  begin
   repeat
   C2 := C2 + 1;
   if (C2 = 50) then
   begin
   Writeln('Better luck next time.. couldnt find it in 50 times, now you have to wait for AntiBan to go..');
   end;
   until(FindObjCustom(x,y,['pot','ishing', 'age'],[15394011,13216659], 35));
   begin
   FailSafe;
   Mouse(x, y, 5, 5, false);
   ChooseOption('age');
   Status('Clicked spot');
   SleepAndMoveMouse(2500+random(1337+random(3000)));
   C2 := 0;
   end;
  end;
   if (Players[CurrentPlayer].Strings[1] = 'Harpoon') then
  begin
   repeat
   C3 := C3 + 1;
   if (C3 = 50) then
   begin
   Writeln('Better luck next time.. couldnt find it in 50 times, now you have to wait for AntiBan to go..');
   end;
   until(FindObjCustom(x,y,['pot','ishing', 'arpoon'],[15394011,13216659], 35));
   begin
   FailSafe;
   Mouse(x, y, 5, 5, false);
   ChooseOption('arpoon');
   Status('Clicked spot');
   SleepAndMoveMouse(2500+random(1337+random(3000)));
   C3 := 0;
   end;
  end;
end;

procedure Randoms;
begin
FailSafe;
Status('Doing AntiRandom!');
   if (FindFight = True) then
   begin
    RunTo(Dir, RFar);
    end;
if (FindTalk = True) then
begin
SolveChatRandoms := True;
end;
 FindNormalRandoms;
if (Players[CurrentPlayer].Strings[1] = 'Bait') then
begin
 FindFishingEquipmentColor('fishingrod');
 Rod := GetColor(x, y);
 FindFishingEquipment(Rod, 'Fishing Rod');
if (Players[CurrentPlayer].Strings[1] = 'Net') then
begin
 FindFishingEquipmentColor('smallnet');
 Net := GetColor(x, y);
 FindFishingEquipment(Net, 'Small Fishing Net');
end;
if (Players[CurrentPlayer].Strings[1] = 'Cage') then
begin
 FindFishingEquipmentColor('cage');
 CageC := GetColor(x, y);
 FindFishingEquipment(CageC, 'Lobster Cage');
end;
if (Players[CurrentPlayer].Strings[1] = 'Harpoon') then
begin
 FindFishingEquipmentColor('harpoon');
 HarpoonC := GetColor(x, y);
 FindFishingEquipment(HarpoonC, 'Harpoon');
end;
 if (NoGameTab = True) then
  begin
  LogOut;
   NextPlayer(true);
  end;
 Wait(1000+random(2344));
end;
end;

procedure Find;
var Tries, Tries1, Tries2, Tries3, i : Integer;
begin
FailSafe;
if (Players[CurrentPlayer].Strings[1] = 'Net') then
begin
 repeat
 begin
 Tries := Tries + 1;
 if (Tries = 50) then
 begin
  Writeln('Didnt find net after 50 tries, make sure you have it!');
 end;
 end;
 until(FindDTM(NetDTM, x, y, 1, 1, 800, 600) or CheckNet(i));
 begin
 Writeln('Found net!');
 Tries := 0;
 end;
 if (Players[CurrentPlayer].Strings[1] = 'Bait') then
begin
repeat
 begin
  Tries1 := Tries1 + 1;
  if (Tries1 = 50) then
  begin
   Writeln('Didnt find Fishing Rod after 50 tries! Make sure you have it!');
  end;
  end;
 until(FindDTM(RodDTM, x, y, 1, 1, 800, 600) or CheckRod(i));
 begin
 Tries1 := 0;
 Writeln('Found rod!');
 end;
if (Players[CurrentPlayer].Strings[1] = 'Cage') then
begin
 repeat
 begin
 Tries2 := Tries2 + 1;
 if (Tries2 = 50) then
 begin
  Writeln('Didnt find cage after 50 tries, make sure you have it!');
 end;
 end;
 until(FindDTM(CageDTM, x, y, 1, 1, 800, 600) or CheckCage(i));
 begin
 Writeln('Found cage!');
 Tries2 := 0;
 end;
if (Players[CurrentPlayer].Strings[1] = 'Harpoon') then
begin
 repeat
 begin
 Tries3 := Tries3 + 1;
 if (Tries3 = 50) then
 begin
  Writeln('Didnt find harpoon after 50 tries, make sure you have it!');
 end;
 end;
 until(FindDTM(HarpoonDTM, x, y, 1, 1, 800, 600) or CheckHarpoon(i));
 begin
 Writeln('Found harpoon!');
 Tries3 := 0;
 end;
end;//   Excuses for the ugly looking much ends!
end;//   Excuses for the ugly looking much ends!
end;//   Excuses for the ugly looking much ends!
end;//   Excuses for the ugly looking much ends!
end;//   Excuses for the ugly looking much ends!

procedure FreeDTMs;
begin
 FreeDTM(NetDTM);
 FreeDTM(CageDTM);
 FreeDTM(HarpoonDTM);
end;

begin
SetUpSRL;
 ScriptID := '637';
PlayerSetUp;
SmartSetupEx(World, False, False);
SetTargetDC(SmartGetDC);
ActivateClient;
if (SRLID = '') or (SRLPassword = '') then
begin
 Writeln('Without SRLID this script will NOT work! Get one!');
 TerminateScript;
end;
 repeat
 if (Players[CurrentPlayer].Active = False) then NextPlayer(True);
 LoginPlayer;
 LoadDTMs;
  Find;
 Repeat
Repeat
FailSafe;
 FindSpotAndFish;
  Randoms;
  AntiBan;
 Until(InvFull);
    FailSafe;
    Loads := Loads + 1;
    ReportVars[0] := ReportVars[0] + 1;
    Fish := Fish + 27;
    ReportVars[1] := ReportVars[1] + 27;
    Disguise('Done ' + IntToStr(Loads) + ' Loads, Done aprox. ' +IntToStr(Fish)+ ' Fishies');
 Status('Dropping');
Drop;
FLvl := GetSkillInfo('fishing', false);
Writeln(''+Players[CurrentPlayer].Name+'`s Fish lvl is ' +IntToStr(FLvl)+'');
Until(Loads = LoadsToDo);
 SRLRandomsReport;
 SendSRLReport;
Prog;
FreeDTMs;
 NextPlayer(true);
 Until(false);
end.

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

Nice app sorry ill have to vote no.
Lacks a bit and i see mixter helped you alot ill say it was 70% your work, no?
You did well.
GL Next time :)

same here, should fix those standards and normally you should have waited a month like they said in your former application

Mixter helped me on 1 bit.. less then 1%.. n3ss3s on like 2% and jukka also 1%..
I mean that amount of the total script

Mixter helped me on the InvFinds, but i created em

So.. no, it wasnt just 70% my work.. :(

And soz for the 1 month thing, but i updated it so..

So if i'd fix standards.. i'd make a chance?

I tested this through and through with my OWN risk of getting banned, cuz i tested it so much..
I am still running it atm, as my stats keep updatin' :)

misxster05 helped him learn how to make a function. misxster05 didn't actually do them.
You should just credit him once with somethng like:
"misxster05, thanks for teaching me how to make functions" because otherwise it's not really clear who did them unless people bother to read what you posted.

what i looked at from the script looked good, but please please learn standards. it's really hard to read otherwise. if you learnt standards would you have a chance of getting in? i think so.

ps: i'm holding my vote waiting for those standards.

edit: also i strongly suggest you take your account names out.
~RM

I left name name&pass in? *shocked*

btw, these standards, dont expect em today, its almost bedtime :p
And i got school 2morrow, important test.. Tomorrow/Day after it it will be done i guess

i meant in your intro:

I have three 'main' characters:
*Level 66: … (Former WC pure.. my personal char)
*Level 88: …(share it with my brother, 7.5 BM, wont auto on more :P)
*Level ±93: … (Im bit off that one atm, memb expired, etc.)

Oh, thanks i almost had an attaque xD cuz they are worth alot :p
Ill removeem now

I vote yes.

Yes, But please learn standards.. or im going to be disapointed in u forever.

If standards are too hard for you I suggest downloading some delphi formatter..

And dunno. The code looked a bit nubby and ugly but that could be cause of the standards too.. I'll check back later if you fix them.

No from me.

Why aren't you using cases elsewhere than like

Case Random(5) Of
1: DoStuff;
2: DoOtherStuff;
…

- you can use Begin - End in cases.


Also, in the FindFishSpotAndFish or what was the name, the uptext of the spots shouldn't be same, net && bait != harpoon & cage, like, for the netting spot it hasn't got the same uptext as caging spot.


The script also is quite simple, it has got just enough what the rules say, but lack of… how could I put it to words… anyway.

Also, you didn't wait the full month you need to wait, you waited total… three days.

So, remember to wait the month before applying again.

I will apply in a month with the standards, i just dont have enough time.

No, do not.

Standards isn't the only thing you need.

Read the requirements here.

Phew, made it before Niels x)

There is some lack of failsafes and complexicity. Gl.

I can only assume that the good standards aren't your part of the script…So it's going to have to be a no from me as well…Fix up on some things and read the requirements and you will probably be accepted in a month.

I'm afraid you're not getting in this time.
You may try again in one month, good luck.
Closed.