SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Java

Other Communitys
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.

Im Jordan. I play sports hang out with friends and partying. I made the highschool baseball team this year "freshmen team" four hour long practices. I just like to come one and relax and play runescape for an hour or two then run my crappy macros. lol. I started started playing runescape my 8th grade year after football. I just feel in love with them game once i started making money. To me 50mil was a lot of money back in the day. lol. Jaymg35 is my old man "that got ban" for asking to remove an offense. I have no clue why but its stupid. After jaymg35 i made a pure pker and i had a few wcers before jaymg35 got ban. I started to look around for ways to cheat and i found autofighter.net "great sight" and it had scar on it and i learnd from some one that scar is the best macroing program out there soo…i looked on google and found this site. I would have to say i undstand how to use scar now. The free scripts "srl" stink they always get stuck. I am working hard on finding ways to use scar so please let me in.

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

program AutoWoodCutter;
{
                   =====================
                       //Sedated`s Test Script\\
                      ============================
                    ________________________________
                   /  ///******   SetUp  ******\\\  \
                  | Setup Player Array (Lines 36-46) |
                  |       Tree Color (Line 26)       |
                  |       Set Loads  (Line 33)       |
                   \ ________________________________/
   _________________
  /Tree:3303512     \      /         ___________
 | Oak:4821128       |    /_________|Tree Colors|_______
 | Willow:4886656    |    \
 | Yew:4415584       |     \
  \_________________/


{===============================================================}
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/woodcutting.scar}

var Loads: Integer;
LogsDTM: Integer;

const
TreeColor =4886656;//Set Tree Color Right now Set at Willows
StartPlayer = 0;
NumberOfUsers = 6;
LoadsPerPerson = 15;//How many loads for each player?

procedure LoadDTMs;
begin
  Logs := DTMFromString('78DA633CCCC0C0B095010D302291407A37903' +
       '84940CD7920B197809A1340E21801359B81C47EFC6A001D5B0798' +
       '');
  end;

procedure DeclarePlayers;

begin

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

  Players[0].Name :='UserName';
  Players[0].Pass :='PassWord';
  Players[0].Nick :='3-4 Letters Of UserName';
  Players[0].Active:=True;
  

  NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
 end;

function DoAntiBan: Boolean;
 begin
  Wait(50 + random(100));
  BoredEvery(4 + random(7));
  Wait(100 + random(100))
  RotateEvery(3 + random(3));
  Wait(750 + random(250));
  LeaveScreenEvery(6 + random(2));
  Wait(500 + random(150));
  HoverEvery(4+random(6),'WoodCutting')
  Wait(1000+random(100));
end;

procedure DoAntiRandoms;
begin
 FindTalk;
 FindNormalRandoms;
if (FindFight = true) then
 begin
  RunAwayDirection('S');
  Wait(10000 + random(2000));
  RunBack;
 end;
end;

Function FindColors: Boolean;
begin
  GameTab(4);
  result := FindAxeHeadColor;
end;

Function FindAxeHead: Boolean;
begin
  AttachHead;
end;

procedure RepeatClicking;
begin
repeat
 if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
 begin
  MMouse(x,y,0,0);
  Wait(100+random(10));
  Mouse(x,y,0,0,false);
  wait(1000+random(100));
  ChooseOption(x,y,'Cho');
  wait(2500+random(250));
  DoAntiRandoms;
  If(isFKeyDown(12))then terminatescript;
 end;
 If not (FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
 begin
  KeyDown(VK_Down);
  Wait(500+random(50));
  KeyUp(VK_Down);
 end;
until(InvFull);
end;

function FindTheEnt(TreeColor: Integer): Boolean;
begin
 If(FindEnt(4878432))then
  begin
    Mouse(648,83,1,1,true);
    FTwait(30);
  end;
end;

procedure Drop;
begin
  repeat
  if(FindDTM(Logs,x,y,0,0,764,700)) then
    begin
      MMouse(x,y,0,0);
      wait(100+random(10));
      Mouse(x,y,0,0,false);
      ChooseOption(x,y,'rop');
    end;
  until not (FindDTM(Logs,x,y,0,0,764,700))
 Loads:= Loads + 1
end;

begin
ActivateClient;
LoadDTMs;
ClearDebug;
SetupSRL;
DeclarePlayers;
If(not(LoggedIn)) then
LoginPlayer;
DisguiseScar('If You Aint Cheaten You aint Trying');
FindAxeHeadColor;
repeat
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
FindColors;
RepeatClicking;
FindTheEnt(TreeColor);
FindAxeHead;
AttachHead;
DoAntiBan;
Drop;

If(Loads = LoadsPerPerson)then NextPlayer(False);
until(false) or
(IsFKeyDown(12));
end.

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

please put your script between

 and 

(leave the space) so its easier to read… if this is yours, good job

Added scar tags.

- Get a bit more familiar with Multiplayer, NextPlayer(False) isn't what you want to use when everything has gone just fine, also make sure to use no endless loops, and use
if not logged in then nextplayer(false) <– just an example.

I voted yes. But you should get a bit more familiar with NextPlayer. :)

im just a little bit worried about the

                      =====================
                       //Sedated`s Test Script\\
                      ============================

part

so i wait for copybuster(btw i never vote, only judge ;))

This is not his script. Remember the procedure repeatclicking. Its inthe woodcutting section. unfortunatly im not there. Anyways I taught the guy about it and i remember reviewing it about a thousand times. YoHo get your copybusting skillz going ;).

I cant find anything like it =/ so for now i say its original.

Im just stereotyping low posts to be copiers.
Closest script i found to this is:
http://www.villavu.com/forum/showthread.php?t=6616?t=7654

But even if it is yours, i vote no

Very unstable
To Failsafes

procedure RepeatClicking;
begin
repeat
 if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
 begin
  MMouse(x,y,0,0);
  Wait(100+random(10));
  Mouse(x,y,0,0,false);
  wait(1000+random(100));
  ChooseOption(x,y,'Cho');
  wait(2500+random(250));
  DoAntiRandoms;
  If(isFKeyDown(12))then terminatescript;
 end;
 If not (FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
 begin
  KeyDown(VK_Down);
  Wait(500+random(50));
  KeyUp(VK_Down);
 end;
until(InvFull);
end;

That is very unsafe with the repeat until.
Make it only repeat a few times and then start over.
And some randomness, not very many people right click and then click chop.
And check for the uptext.
This just clicks ANYTHING the same color as the tree,
Right Clicks,
And looks for Chop option.

And if the chop option isn't there, then its all over.


I cant seem to bust this but i KNOW its coppied, i mean 3 posts come on.
This is also you second app in the same day, and the first one had no script.

You are doing good. Just stay around for a little longer…