SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
No

Other Communitys
None

How Long have You Played Runescape
3 years on and off

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

I just started scripting about 1 month ago, and this is my first script, but I have worked on it alot. Thats pretty much it:)

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

{     /////// //    // //////// /////// //    // /////// //     //
      //      //    //    //    //      //  //   //      ////   //
      //      ////////    //    //      ////     /////   //  // //
      //      //    //    //    //      //  //   //      //    ///
      /////// //    // //////// /////// //    // /////// //     //
               /////// //    // //     // /////// ///////
               //   // //    // ////   // //      //   //
               //////  // // // //  // // /////   ///////
               //      // // // //    /// //      // //
               //      ///  /// //     // /////// //   //
           -------------------------------------------------
          /                                                 \
         /___________________________________________________\
        /                  Created by: d1s3l                  \
       /                Anti-Randoms + Anti-Bans               \
      |                       Version 2.25                     |
      |        Credits To i pro leechin' On The Tutorial       |
      |                      On AntiRandoms                    |
      |                            And                         |
      |                       BlumbleBee On                    |
      |                    The Progress Reports                |
      +========================================================+


                                                                   }

program ChickenPwner;


{.Include SRL\SRL.SCAR}
{.include SRL/SRL/skill/Fighting.scar}
{.include /srl/srl/skill/Magic.scar}

var
  X, Y, I, Mark,Clicked , AntiRandomz, DeathW, FeathersPickedUp : Integer;
  AntiBanz, ProggyTimer, ChickensKilled, CountFeathers, Feathers : Integer;

const
  YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a>)
  YourSRLPW = ''; //Your Srl Password
  NumberofChickens = 5000; // Number of chickens to kill before switching players.
  ColorOfChicken1 = 4168878; //Pick a main color
  ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken

//--------------------------->Line 150 to change fight mode<--_------------------------//
//      (top ;left attack mode=1 , top right=2 , bottom left=3 , bottom right =4)       //


procedure DeclarePlayers;
begin
 HowManyPlayers :=4; //How many players to use in script
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer :=0;

 Players[0] .Name         := 'ghjghj';
 Players[0] .Pass         := 'ghjghj';
 Players[0] .Nick         := 'ghjgh';   //3/4 of the characters name (bobbey = obb)
 Players[0] .Active       := True; // True=yes, False=no//
 Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
 
 Players[1] .Name         := '';
 Players[1] .Pass         := '';
 Players[1] .Nick         := '';   //3/4 of the characters name (bobbey = obb)
 Players[1] .Active       := False; // True=yes, False=no//
 Players[1] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
 
 Players[2] .Name         := '';
 Players[2] .Pass         := '';
 Players[2] .Nick         := '';   //3/4 of the characters name (bobbey = obb)
 Players[2] .Active       := False; // True=yes, False=no//
 Players[2] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
 
 Players[3] .Name         := '';
 Players[3] .Pass         := '';
 Players[3] .Nick         := '';   //3/4 of the characters name (bobbey = obb)
 Players[3] .Active       := False; // True=yes, False=no//
 Players[3] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
end;

//*******Do not change below this point*******//

procedure CounttheFeathers;
  Var
  FeathersDTM : Integer;
  
Begin
  if not LoggedIn then Exit;
  FeathersDTM:= DTMFromString('78DA637461626078C28002D62C5CC06003A41' +
       '981F83F1030FA02D55C6740038C482490F600AA794E408D0D50CD' +
       '5B026AEC806A1EE257030001080C01');
  CountFeathers := ItemAmount('inv', 'dtm', FeathersDTM, []);
  WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(CountFeathers), 49) + '||');
  FreeDTM(FeathersDTM);
end;
  
procedure AntiRandoms;
begin
  FindTalk;
  if FindNormalRandoms then
  FindLamp('strength');
  if FindFight then
   begin
   RunAway('E', True, 1, 5000);
   Wait(10000+random(2000));
   Inc(AntiRandomz);
   end;
end;

procedure AntiBan;
begin
  if(not(LoggedIn))then Exit;
  inc(AntiBanz);
  case random(4) of
  0: PickUpMouse;
  1: RandomMovement;
  2: RandomRClick;
  3: case random(4) of
  0: HoverSkill('Strength', false);
  1: HoverSkill('Attack', false);
  2: HoverSkill('Defence', false);
  3: HoverSkill('Hitpoints', false);
  end;
 end;
end;

procedure TiltScreen;
begin
  if not(loggedIn) then Exit;
  keydown(VK_DOWN);
  wait(200+random(125)+random(138));
  keyup(VK_DOWN);
  wait(random(232));
end;

procedure SetupPlayers;
begin
    if not LoggedIn then LoginPlayer;
    MakeCompass('n');
    SetAngle(true);
    SetRun(true);
    TiltScreen;
    SetFightMode(i+1);
    end;
   end;
end;

procedure Report;
begin
  WriteLn('===================================================');
  WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
  CounttheFeathers;
  WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
  WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
  WriteLn(Padr('|| Death Walkz: ' + IntToStr(DeathW), 49) + '||');
  WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
  WriteLn('===================================================');
end;

procedure FindGate;
begin
  if not FindSymbol(x, y, 'churn') then
   begin
   WriteLn('Couldnt find the chicken gate...sorry')
   NextPlayer(False);
   end;
    begin
    if FindSymbol(x, y, 'churn') then
     begin
     FindObjCustom(x, y, ['gat', 'ate', 'ga', 'te'], [3688532,4412772,3095622,3293002,3293002], 3);
     Mouse(x, y, 2, 2, False);
     Wait(900 + Random(110));
     if not ChooseOption('pen') then Exit;
     end;
   end;
end;


procedure DeathWalk;
begin
  if not LoggedIn then Exit;
  MakeCompass('n');
  WriteLn('Walking to the chicken pen');
  if RadialRoadWalk(FindLumbyRoadColor, 90, 100, 70, 5, 5)then // out of castle
  FFlag(6);
  if RadialRoadWalk(FindLumbyRoadColor, 20, 50, 70, 5, 5)then // out of castle
  FFlag(6);
  if RadialRoadWalk(FindBridgeColor, 40, 100, 50, 5, 5)then // onto bridge
  FFlag(6);
  if RadialRoadWalk(FindLumbyRoadColor, 90, 110, 70, 5, 5)then // off of bridge
  FFlag(6);
  if RadialRoadWalk(FindLumbyRoadColor, 10, 35, 70, 5, 5)then // right before dirt road
  FFlag(6);
  if RadialRoadWalk(FindDirtRoadColor, 330, 360, 70, 5, 5)then //middle of dirt road
  FFlag(6);
  if RadialRoadWalk(FindDirtRoadColor, 330, 360, 70, 5, 5)then// end of dirt road
  FFlag(6);
  if RadialRoadWalk(FindLumbyRoadColor, 330, 360, 70, 5, 5)then // almost at pen
  FFlag(6);
  if RadialRoadWalk(FindLumbyRoadColor, 330, 360, 70, 5, 5)then // infront of pen
  FFlag(6);
  if not FindSymbol(x, y, 'churn') then Exit;
  if FindSymbol(x, y, 'churn')then
   begin
   FindGate;
   inc(DeathW);
   end;
end;

procedure Teleport;
  Var
  LumbyTeleDTM : Integer;

begin
  LumbyTeleDTM := DTMFromString('78DA63B466626078CA8002FEFEFB07A619A17' +
       'C46574C353059B81A1BA09ADB04D41801D53C21C29C77F8D50000' +
       '2AE508B3');
  if FindSymbol(x, y,'churn')then Exit;
  if FindSymbol(x, y,'farming spot')then Exit;
  if not FindSymbol(x, y,'churn')then
  WriteLn('Teleporting to Lumbridge');
  CastSpell(1);
  Wait(15000 + Random(110));
   begin
   if FindSymbol (x, y,'water source') then
   WriteLn('Sucessfully Teleported');
    begin
    Deathwalk;
    FreeDTM(LumbyTeleDTM);
    end;
   end;
end;

procedure ChickenPen;
begin
  if FindSymbol(x, y, 'water source') then
   begin
   DeathWalk;
   if FindSymbol(x, y, 'churn') then Exit;
   end;
    begin
    if not FindSymbol(x, y, 'churn') then
    Teleport;
    end;
end;
  
  
procedure ClickTheMouse;
begin
  Mouse(x,y,1,1,true)
  Clicked := Clicked + 1;
  GameTab(4);
end;

function InventoryCount: Integer;
  var
  i: Integer;
  
begin
  GameTab(4);
  Result := Feathers;
  for i := 1 to 28 do
  if (ExistsItem(i)) then
  Result := Result + 1;
  Inc(FeathersPickedUp);
end;


Function MobTPAs: TPointArray;
  Var
  TPA: TPointArray;
  
begin
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
  If Length(TPA) < 1 Then
  Exit;
  RAaSTPA(TPA, 4);
  SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
  result := TPA;
end;

procedure KillChicken;
begin
  ChickenPen;
  if not LoggedIn then exit;
  if FindObjCustom(x, y, ['chi', 'hic', 'ick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3)then
  Mouse(x, y, 2, 2, False);
  Wait(900 + Random(110));
  if not ChooseOption('ttack') then Exit;
  Flag;
  MarkTime(Mark);
  Wait(5 * 1000 + Random(1050));
  if HPPercent < 25 then RunTo('N', true);
  Wait(500);
  GameTab(4);
  inc(ChickensKilled);
end;
  
procedure FindFeathers;
begin
  if not LoggedIn then exit;
  if (FindObjCustom(X, Y, ['ake', 'eat', 'ther'], [403205], 3)) then
   begin
   Mouse(x, y, 2, 2, False)
   if not(ChooseOption('ake')) then
   wait(500);
   Exit;
   end else
end;




procedure MainLoop;
var Mark : Integer;

begin
  repeat
  repeat
  SetupPlayers;
  MobTPAs;
  AntiRandoms;
  AntiBan;
  ChickenPen;
  KillChicken;
  FindFeathers;
  MarkTime(Mark);
  if not LoggedIn then break;
  KillChicken;
  FindFeathers;
  AntiBan;
  Report;
  until ((TimeFromMark(Mark) / 1000 * 60) >= 50);
  NextPlayer ( False );
  until(ChickensKilled >= NumberofChickens)
end;

begin
  SetUpSRL;
  SRLID := YourSRLID;
  SRLPassword := YourSRLPW;
  DeclarePlayers;
  SetupPlayers;
  MainLoop;
  SendSRLReport;
  if (GetSystemTime >= ProggyTimer) then
   begin
   Report;
   ProggyTimer := GetSystemTime + 300000;
   end;
end.

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

your standards look a little edgy, I'll hold my vote…

everything else looks awesome though.

You need more failsafes. Also, multiplayer is a huge requirement. Its a big thing in srl. Also, you should use DDTMs. (just my opinion)

Read some tutorials and keep scripting! This is a great first script! Good luck on your next app. As for now, no.

-TravisV10

From: TravisV10
You need more failsafes. Also, multiplayer is a huge requirement. Its a big thing in srl. Also, you should use DDTMs. (just my opinion)

Read some tutorials and keep scripting! This is a great first script! Good luck on your next app. As for now, no.

-TravisV10

sure I'll add multiplayer, cause I dont use it ever so I wouldnt know how important it is, thanks for the coments:)

From: d1s3l
sure I'll add multiplayer, cause I dont use it ever so I wouldnt know how important it is, thanks for the coments:)

SRL prides itself in being undetectable.

To be undetectable, you need to act like a human. A human doesn't play runescape 24/7. That is why there is multiplayer. If one player fails, it moves to the next. Also, it helps control the amount of time each character plays for. Plus, logging in and out helps prevent/delay randoms.

Also, mutliplayer wasnt the only reason I voted no. Add that, DDTMs << i guess thats optional -.-, and failsafes.

DDTMs are not required, but i do recommend failsafes and multiplayer, i assumed you had both lol.

so to get my vote, you will need failsafes, multiplayer, and better standards…

From: mariofan12
DDTMs are not required, but i do recommend failsafes and multiplayer, i assumed you had both lol.

so to get my vote, you will need failsafes, multiplayer, and better standards…

I will get on those, but arent failsafes like if not findsymbol then?

RadialWalk supports its own FFlag so you do not need those FFLags between all your radialwalks. And those arent proper failsafes ethier, because if one stuffs up most likely the whole walking will too.

I posted a new version here if I can convince some more yes's;)

Function MobTPAs: TPointArray;
Var
TPA: TPointArray;

begin
FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
If Length(TPA) < 1 Then
Exit;
RAaSTPA(TPA, 4);
SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
result := TPA;
end;

Narcles?

Holding Vote.

same as nauman

You could do some arrays and proper standards, anyways yes from me.

Learn arrays, very good in every programming language. Can save lot of room and time.

Been a long time since I have replied. However, radialwalk needs more failsafes, I'll see what other people have to say

yes from me, i like your attitude, and the script is pretty good, failsafes and arrays would be my only suggestions. Good luck ;)

-Blumblebee

From: blumblebee
yes from me, i like your attitude, and the script is pretty good, failsafes and arrays would be my only suggestions. Good luck ;)

-Blumblebee

Thanks for the yes:) Yeah Im working on failsafes now and I'll learn arrays today too.

Nuh uh.

Please try and clean up your code, add some failsafes, and some use of DDTMs. Although DDTMs aren't required, failsafes are a MUST. Good attempt, hope to see more. :)

Gl on your next app.

From: Nava2
Nuh uh.

Please try and clean up your code, add some failsafes, and some use of DDTMs. Although DDTMs aren't required, failsafes are a MUST. Good attempt, hope to see more. :)

Gl on your next app.

Thanks for the tips. Where should I add more failsafes, because I cannot see where I could possibly add anymore.

Hmm, I won't vote.
Script looks good, but the only thing that restricts me from voting 'yes' is your way of finding objects. You should learn TPAs, they are quite easy to learn and there are several tutorials available on that topic. Until you've fully grasped finding objects using TPointArrays, I would suggest to atleast replace all "FindObj" functions with "FindObjTPA". It's in the same Objects.scar file as FindObj, and you should take a look at it. Hopefully you'll learn something.


Good luck! :)

Hmmm… Looks neat… Yes &#12484;

EvilChicken: Thats for the feedback, Im actually reading about TPA's right now.
Laurens: Thanks for the yes:)

hmm…this really is quite a tough one because your attitude is good and you take note of what we say to learn more yet, at the moment the script needs some work, but because of what i said at first youve got a yes from me :)

From: sandos1234
hmm…this really is quite a tough one because your attitude is good and you take note of what we say to learn more yet, at the moment the script needs some work, but because of what i said at first youve got a yes from me :)

Thanks for the yes, and your right, it does need some work.
I added two little things, your now able to set how many chickens to kill, and the script will not run if your didn't enter your srl id/pass..just to prevent some leeching:)

From: BobboHobbo
RadialWalk supports its own FFlag so you do not need those FFLags between all your radialwalks. And those arent proper failsafes ethier, because if one stuffs up most likely the whole walking will too.

sorry no, like bobbo stated, i would like you to add more creative ideas and failsafes.

gl next time.

From: ~~Joker~~
sorry no, like bobbo stated, i would like you to add more creative ideas and failsafes.

gl next time.

K but what should I use instead of if radialroadwalk then, just so that it doesnt get stuffed up. Is there a tutorial for it?

you could use DDTM for walking as a failsafe

No I dont think I will vote on this. TBH I would have voted 'no', because of what other people have said, but it already looks like your not getting in.

From: NaumanAkhlaQ
No I dont think I will vote on this. TBH I would have voted 'no', because of what other people have said, but it already looks like your not getting in.

haha well maybe I'm not getting more yes's because they think its bad because they see other no's and then they vote no:garfield:

well in intermediate theres walking tutsand stuff but making it not run if you dont have an srl id/pass is against some type of rule now i believe

From: sandos1234
well in intermediate theres walking tutsand stuff but making it not run if you dont have an srl id/pass is against some type of rule now i believe

hah oh dam I saw it in a script and thought it was a good idea, thanks for telling me.

look at this example:

if not Radialwalk then
begin
DDTM
if not DDTM then
Begin
coord;
end;

okay that is really a rough/shaky example lol, but i hope you get it.

GL

From: ~~Joker~~
look at this example:

if not Radialwalk then
begin
DDTM
if not DDTM then
Begin
coord;
end;

okay that is really a rough/shaky example lol, but i hope you get it.

GL

Haha yup I understand..except for the coords but Im sure I'll figure it out.