SRL Archive - Archive

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

What is the meaning to life?


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

Programming Knowledge
HTML, A bit of PHP, a little C.

Other Communitys
http://forum.ragezone.com | http://forums.steampowered.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 before, about a year ago, but i was not skillfull enough.
In that time i learned alot, i also learned that patience pays!
I also have a good GFX background, i can make Signatures, Avatars, etc.

On RuneScape i have a lvl 93, lvl 87, and lvl 66 account as Main and sub-mains.
I share the lvl 93 and 78 with my brother.
Names are:
lvl 93: Floor69
lvl 87: Nop Noob (most active on this atm)
lvl 66: Selling Yews (my 'personal' account, on which i auto a 'lil)

I am willing to help out people, learn alot more, and have Fun in this community!

I'm from The Netherlands, but i can speak and write English very well!

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

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

var x, y, loads, fish, Net : 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]
         

  Features:

     *SMART!!
     *MultiPlayer (tested)
     *Good AntiBan
     *AntiRandom
     *Proggy!
     *Option for Net/Bait!
     *SCAR Title says Loads+Fishes fished!
     *Many many more!

  Credits:
       
     * The Script: Me.
     * Lots of help: n3ss3s
     * Little help: JuKKa
     * 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!
        
        Press play, let SMART load, and off it goes!
         
{*******************************************************************************
                                  BEGIN SETUP
********************************************************************************}

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

procedure PlayerSetup;
begin
  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     :=  True;
  Players[0].Strings[1] := 'Bait'; //Net or bait?

  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 or bait?

  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 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('|    Floor66`s PowerNetter!       |');
 Writeln('|    Player Completed ' +IntToStr(Loads)+ ' Loads     |');
 Writeln('|    Player Fished ' +IntToStr(Fish)+ ' Fishes      |');
 Writeln('|   ©Floor66 ~ SRL-Forums.com     |');
 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 :9');
 17: TypeSend('white:  ');
 18: TypeSend('Lol');
 19: TypeSend('Boredom ftw');
 20: TypeSend('white: ..');
 
 end;
end;

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

procedure FindSpotAndFish;
begin
FailSafe;
SetAngle(true);
Status('Searching, clicking spot');
if FindObjCustom(x,y,['pot','ishing'],[15394011,13216659], 25) then
  begin
  if (Players[CurrentPlayer].Strings[1] = 'Net') then
  begin
   Mouse(x, y, 5, 5, true);
   Status('Clicked spot');
   SleepAndMoveMouse(2500+random(1337+random(3000)));
  end;
  if (Players[CurrentPlayer].Strings[1] = 'Bait') then
  begin
   Mouse(x, y, 5, 5, false);
   ChooseOption('Bait');
   Status('Clicked spot');
   SleepAndMoveMouse(2500+random(1337+random(3000)));
  end;
  end;
end;

procedure Randoms;
begin
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
 FindFishingEquipment(Net, 'Fishing Rod');
end;
if (Players[CurrentPlayer].Strings[1] = 'Net') then
begin
 FindFishingEquipment(Net, 'small fishing net');
end;
 NoGameTabLocs;
 Wait(1000+random(2344));
end;

begin
SetUpSRL;
PlayerSetUp;
SmartSetupEx(World, False, False);
SetTargetDC(SmartGetDC);
ActivateClient;
 repeat
 LoginPlayer;
 Repeat
Repeat
 FindSpotAndFish;
  Randoms;
  AntiBan;
 Until(InvFull);
    Loads := Loads + 1;
    Fish := Fish + 27;
    Disguise('Done ' + IntToStr(Loads) + ' Loads, Done ' +IntToStr(Fish)+ ' Fishies');
 Status('Dropping');
Drop;
Until(Loads = LoadsToDo);
Prog;
Loads := 0;
Fish := 0;
 NextPlayer(true);
 Until(false);
end.

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

Short, way too much space went for art…
Gl next time.

After a FindObj, use GetMousePos(x,y) and then use Mouse(x,y,0,0,true) so the script clicks in the same place that the object was found (I hate FindObj anyway :p).

You can't do what you did with your failsafe procedure. If you're not logged in, then it will just exit the failsafe procedure, which doesn't make a difference because the failsafe procedure would have ended anyways. You need to put if(not(LoggedIn))then Exit; in there instead of "failsafe".

Try not to use random chat that may cause a conversation like this:

Bot: sup?
LegitPlayer: not much, you?
Bot: *doesn't say anything*
LegitPlayer: you there?
LegitPlayer: Reported

Your drop procedure could use a case. Cases normally make scripts shorter while doing the same thing in those situations, and look more professional because then you don't have alllll those if's.

I believe (correct me if I'm wrong) that there is a lot of waiting in your anti ban procedure that will just cause the script to run slower (not get as much fish)? Consider taking that wait out unless it was used to wait while fishing.

Your script is going to do a hella lot of anti ban! That will actually make it ban without the anti! :p Try making the case in your anti ban have the random() number higher so it doesn't always do something. like

case random(100) of
1: RandomRClick
...other things

FindSpotAndFish you could use a case. And in there you should take out the sleep and move mouses…. Nobody sleeps and moves there mouse every single time they click a fishing spot! Make it so it doesn't always do it there, but randomly.

For the if then in your findtalk you don't need a begin and end;. You don't need begin/end after an if then statement that only executes one command. And you really don't need to call for FindTalk at all there because FindNormalRandoms is going to check for a talk right after that.

Again with the waiting in your randoms procedure.

You need a if(not(LoggedIn))then NextPlayer(false); in your main loop or else this script will only be multi player if it runs smooth through every run (99.9% chance that wouln't happen every single time with any script :))


Anyways, good try and keep working on it! Good work, keep it up.

And try learning a more advanced technique than findObj for best results (you could use DDTM's or you could use HSL/RGB or anything else if you want to stick with colors).

I'm sorry, but you wont make it - you didn't obviously read the requirements.

However, if we'd play there is no list, that was a good try, and try again after a month.

Remember to have all the requirements mentioned in the link. Gl.

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

do this is just not working. the exit will just exit the failsafe procedure and not the other procedure you want to exit.

you made a start, but it's not good enough YET for srl members.

good luck

Too short and basic, sorry it's a no from me..

on a side note…..
Never divuldge your real Runescape Username in these forums. You would have to be fairly naive to believe that Jagex don't keep an eye on developments and have at least one member account here.

By publishing that information you could have just given jagex 3 accounts which they may now know as having broken their rules.

I suggest you edit them out of your original post..

sorry no from me too short/simple =(

I don't think you'll get in this time, try again in one month.
Good luck and closed.