SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Little bit of vb

Other Communitys
tip.it, not this kind though lol

How Long have You Played Runescape
4 years

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

With all due respect, I probably have a bit more of a "normal" life than a majority of RS players. I have a beautiful girlfriend, a job, and my school which take up the majority of my time. I try my hardest to fit in a little RS playing each day. I have been playing for over 4 years, so I just cant give it up. My first account was "hacked/stolen", and I just recently pushed my new account past my old ones stats.

Now to my views on SCAR… lol. I wish I had more time to play RS the legit way, but since I cant, somehow I came across SCAR. I have been working for a while on learning SCAR, and here is a script which I made for cutting and dropping logs. It's apparently pretty basic but I am quite new at this.

Whether or not I become a member, I plan on spending most of my time learning more about SCAR and just running scripts at night time. I am very determined to get as good at this as I can and would apreciate being a part of an expierienced comunity where I can learn from the "experts".

Also, I know I have a low post count, but I really dont have that much time to be posting atm, especially while I was learning how to make my first script. Once I get a bit more of the hang of SCAR, I plan on trying to help people debug there scripts which will give me more posts, Im sorry I just havnt had the time to do that yet.

Thanks for your time, I hope to be a member soon =)

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

{
DIRECTIONS:
  Setup 30-52
  Put axe in first inventory spot
  Select RS
  Run script
  CREATED BY: BR1@N (AKA Prior)
                                                                             }




{.include SRL\SRL.SCAR}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

Var
  LoadNumber : Integer;
  LogDTM, BrokenAxeDTM, AxeHandleDTM, RegularAxeDTM : Integer;
  StartXP, EndXP, TotalXP, TotalLogs : Integer;

Const

 //SETUP

  AmmountOfLoads = 1000;
  TheTreeName    = 'Willow';
  Boxy           = True;
  Sandy          = True;

  Treecolor = 2572357;
  Treecolor2 = 1853504;



//Declare Players
Procedure DeclarePlayers;
begin
  Status('Loading Players')

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

     Players[0].Name      := 'username';
     Players[0].Pass      := 'pass';
     Players[0].Nick      := 'nick';
     Players[0].Active    := True;

end;


//Dtm's
Procedure LoadDTMs;

begin
Status('Loading DTM''s')

LogDTM := DTMFromString('78DA632C666260E0646440067921460CFF813' +
       '448F43F103066314179C880118904D2354035FF19F0AB2905AA11' +
       '22604E23500D0F0135C94035DCF8D50000507909F5');

BrokenAxeDTM := DTMFromString('78DA633CCAC4C090C1C8800C9A127919FE036' +
       '990E87F2060BC0C54938CAA06220B2381F445A09A04026A8E01D5' +
       'C41050B31FA8A698809AB384CD0100CBBD0D20');


AxeHandleDTM := DTMFromString('78DA637CCFC4C0E0C6C8800CCA227819FE036' +
       '990E87F2060FC06546389AA06220B2381F473A09A00026ADE00D5' +
       'F81350F316A8C685809A97403541F8D50000D0090D3C');

RegularAxeDTM := DTMFromString('78DA637461626060676440060DF1BC0CFF813' +
       '448F43F10300601D5FC6740038C482490F604AAF94D408D13500D' +
       '2B237E35F640358204D4F813618E1F50CD1F02EE0906AA61C26F0' +
       'E0099720B7E');

end;


//Setup
Procedure MySetupScript;
Begin
  Status('Set-Up')
  SetupSRL;
  DeclarePlayers;
  LoadDTMs;
  UseSandwichSolver := Sandy;
  UseBoxSolver      := Boxy;
  Begin
    If (Not(LoggedIn)) then
      Begin
        Status('Logging In')
        Loginplayer;
      end;
   end;
end;


//Anti Randoms
Procedure TheAntiRandoms;
Begin
  Status('Random Check')
  FindNormalRandoms;
  wait(10)
  FindTalk;
  wait(10)
  if (FindFight) then
  begin
    RunAwayDirection('E');
    Wait(8500 + random(3500));
    RunBack;
  end;
  Wait(10);
  FindTalk;
end;


//Anti Ban
Var
  WCLEVEL, DONTBAN : Integer;

Procedure TheAntiBan;
begin
  TheAntiRandoms;
  Status('Preforming Antiban')
  if ( not ( LoggedIn )) then Exit;
  DONTBAN:= 1 + Random(140)
  case DONTBAN of
     1: RandomRClickEvery(2 + Random(10));
     2: HoverSkill('woodcutting', false);
     3: HoverSkill('random', false);
     4: DoEmote(1 + Random(20));
     6: PickUpMouse;
     9: MMouse(MSX1,MSX2,10,10)
    12: GameTab(1+random(7))
    13: HighestAngle;
    14: TypeSend('Lol my wc lvl is haha ' +IntToStr (WClevel)  + '.')
    15: TypeSend('My Wc lvl ' +IntToStr (WClevel) + '! Sweet!')
    16: TypeSend('Grrrrr, my wc lvl is only ' +IntToStr (WClevel) + '')
    17: GetSkillLevel('WoodCutting')
    18: GameTab(1+Random(7))
    21: TypeSend('I''m lvvlhaha  ' +IntToStr (WClevel) + ', but I want ' +IntToStr (WClevel + 3 + Random(8)) + '')
    22: TypeSend('' +IntToStr (WClevel) + ' woodcuting.../')
    23: TypeSend('I can''ttt wait till im lvl ' +IntToStr (WClevel + 4 + Random(7)) + '')
    24: TypeSend('Hmmmmm... im only lvl ' +IntToStr (WClevel) + ' woodcutting... i should go for ' +IntToStr (WClevel + 6 + Random(8))+'')
    25: TypeSend('yay... im lvl ' +IntToStr (WClevel) + 'wc... still...')
    26: TypeSend('cool! im only ' + IntToStr (10+random(8)) + 'k xp till lvl ' +IntToStr (WClevel + 1 + random(4)) + ' wc')
    27: TypeSend('im WC lvl ' +IntToStr (WClevel) + '')
    28: TypeSend('hmph... im only wc ' +IntToStr (WClevel) + '')
    end;
  TheAntiRandoms;
end;


//Get Axe Colors
Procedure GetAxeColors;
Begin
GameTab(4)
Wait(1000 + Random(100))
FindAxeHeadColor;
Wait(1000 + Random(100))
MakeCompass('N')
end;


//Ent Checker
Var
  EX, EY : integer;
  FX, FY : integer;
Procedure EntChecker;
Begin
  Status(' Im Checking For Ent')
  Flag;
  If (FindObjMultiText(EX, EY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    MMouse(Ex, EY, 0, 0)
      If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
      Begin
        Status('I Found Ent');
        MouseFindFlag(648,83,5,5);
        Wait(15000+Random(5000));
      end;
   end;
end;


//Check for Broken Axe
Var
  BX, BY, NX, NY : integer;

Procedure IsAxeBroken;
Begin
  Status('Im Checking for broken axe')
  GameTab(4)
  Wait(400 + Random (100))
  If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
  Begin
    Status('My Axe Not Broken')
    Exit;
  end;
  Begin
    If (FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 )) and
       (Not(FindDTM(RegularAxeDTM, NX, NY, MIX1, MIY1, MIX2, MIY2))) then
    Begin
      Status('If I Broke an Axe, and I  have no more.')
      NextPlayer(False)
      end;
   end;
end;


//Axe Head Finder
Procedure TheFindAxe;
Begin
Status ('Im Looking For Axe')
FindHead;
end;


//Start Chopping
Var
  TX, TY : Integer;

Procedure StartChopping;
Begin
 Repeat
 Begin
   IsAxeBroken;
   Status('Im Looking For Oak')
   If (InvFull) then
   Begin
     Exit;
end;
  If ( Not (LoggedIn) ) Then NextPlayer (False)
  EntChecker;
  If ( Not (LoggedIn) ) Then NextPlayer (False)
  If (FindObjMultiText(TX, TY, TheTreeName, TheTreeName, TheTreeName, Treecolor, 4)) then
  Begin
    Mouse(TX, TY, 3, 3, True)
    Wait( 100 + Random (200) )
    TheAntiRandoms;
    Wait(10)
    TheAntiBan;
    Wait(10)
    If ( Not (LoggedIn) ) Then NextPlayer (False)
    Wait(10)
    EntChecker;
    Wait(10)
    TheFindAxe;
    Wait(4000+Random(1000))
   end;
  end;
 Until (InvFull)
end;


//Start Dropping
Var
  LX, LY, DroppedLogsCount : Integer;

Procedure StartDropping;
  Begin
   If (InvFull) then
   Begin
     GameTab(4)
     DroppedLogsCount := CountItemDtm(LogDTM) + 6
     Repeat
       GameTab(4)
       If (FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)) then
       begin
         Mouse(LX, LY, 8, 8, false)
         ChooseOption(x,y,'Drop')
         If ( Not (LoggedIn) ) Then NextPlayer (False)
         TheAntiRandoms;
         wait(400+random(100))
       end;
      Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
      LoadNumber := LoadNumber + 1
  end;
end;

//Progress Report
Procedure ReportIt;
Begin
  SRLRandomsReport;
  WriteLn('REPORT---')
  WriteLn('RUNTIME: ' + (TimeRunning) + '')
  WriteLn('LOGS CUT: ' + IntToStr (TotalLogs) +  '')
  WriteLn('EXPERIENCE: ' + IntToStr (TotalXP) +  '')
  WriteLn('_____________')
end;


//Main Stuff
begin
  wait(1200)
  MySetupScript;
  HighestAngle;
  MakeCompass('W')
  WCLEVEL :=  GetSkillLevel('WoodCutting')
  Repeat
    GetAxeColors;
    StartXP := GetXp('Woodcutting')
    Repeat
      DisguiseScar('[' + IntToStr(LoadNumber) + '/' +IntToStr(AmmountOfLoads) + '] ' +(Players[CurrentPlayer].name) + '')
      StartChopping;
      If ( Not (LoggedIn) ) Then NextPlayer (False)
      StartDropping;
      EndXP := GetXp('Woodcutting')
      TotalLogs := TotalLogs + DroppedLogsCount
      TotalXP := (EndXP - StartXP) + (TotalXP)
      ReportIt;
      GetAxeColors;
      Until (LoadNumber + Random (5) > AmmountOfLoads)
        LogOut;
        NextPlayer(True);
        HighestAngle;
        MakeCompass('W')
        WCLEVEL :=  GetSkillLevel('WoodCutting')
        If ( Not (LoggedIn) ) Then NextPlayer (False)
      Until False;
end.

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

I dunno about you guys but I love it!

SILLY GOOSE!


http://sythe.org/showthread.php?t=150940

They look so similar… But I have to hand it to you, whoever you coppied that script from has skillz.

1 BUST.

This one was easy… I wonder why…

//->Progress Report<-//
Procedure ReportIt;
Begin
  SRLRandomsReport;
  WriteLn('[>-----------------------FOURS REPORT-----------------------<]')
  WriteLn('[>Script Time: ' + (TimeRunning) + '')
  WriteLn('[>Logs Chopped: ' + IntToStr (TotalLogs) +  '')
  WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
  WriteLn('[>----------------------------------------------------------<]')
end;

^^ Thats My report from the link above =D

Edit : You could have coppied my new one, it works alot better, and it's more impressive, with better antiban.

I was trying to copy bust him too.. :p You beat me to it. I think he mixed some scripts together, he registered on my forums too, probably took some code from scripts in there if i ts not all from yours.

LMAO, the script is identical =D Look it over.

So, how many do I need for the 'Copy Buster' Next to my name? =D

lol, it was worth a shot. You guys pay more attention than I thought lol. Now really, what do I have to do to be a member other than learn stuff. I can donate $10 right now. Dont even make me a member till you recieve it through paypal.

From: prior
lol, it was worth a shot. You guys pay more attention than I thought lol. Now really, what do I have to do to be a member other than learn stuff. I can donate $10 right now. Dont even make me a member till you recieve it through paypal.

You will not be getting in for a LONG time, if at all. You have started your reputation as someone who wants to get by the easyest way he can, and cut as many corners to get there…

Donating is not 'DONATING' if it is just being used to buy your way into a membership. I would really concider trying to go to a help forum.

Look at it from our view. Let's see all the things you have shown us.

Members should be trustworthy : Blew that outa the water copying a script.
Members should know SCAR and SRL : Copy>Paste doesn't cut it.

There is a thread that lets you know what your best chances are of becoming an SRL member. IT TELLS YOU HOW TO DO IT! But you had to try and just copy and paste.

GL on next app.

lol, why dont you guys just play the game for real? If your gonna only be able to use good scripts if you waste loads of time making scripts, why use scripts at all and why not just play the game for real?

If someone wants a script, they want the easy way out. Are you that surprised that that is what I want lol???

Anyway, I honestly have been looking into learning about scar, its just it takes so dang long to learn. So, is there apsolutely no way into becoming a member an easy way?

From: prior
lol, why dont you guys just play the game for real? If your gonna only be able to use good scripts if you waste loads of time making scripts, why use scripts at all and why not just play the game for real?

If someone wants a script, they want the easy way out. Are you that surprised that that is what I want lol???

Anyway, I honestly have been looking into learning about scar, its just it takes so dang long to learn. So, is there apsolutely no way into becoming a member an easy way?

@Fourscape, he didn't just copy and paste. He had to put the scar tags in too, lets give him credit for that :D

and there is no easy way. Once you learn the basics though reading whocares357's tut, bego's tut or bebemycat's tut, you will be able to learn anything about scripting much quicker. Once you understand variables, constants and color finding, you can learn/do anything! Just keep at it, if you make a hell of a good script, I will actually say yes. But its going to need to be better then what the standards are for membership, since you coppied which is really stupid..

prior, take this lesson for everything in life: nothing worth having is easy. You can either spend countless hours playing legit, or spend a hour a day for a month learning to script. The second way you also get programming experience.

Ok, he did put the tags arround it AND took my name out of the script. Sorry.

Prior, you do have a point that most people start to use scripts to spend less time. However, once you get to a point where you make good enough scripts to get into SRL, you already spend more time and enjoy scripting than playing, and instead of scripting to cheat at runescape, you end up cheating at runescape to script more. I think most SRL members will agree with me on that.

And I'm a jealous bastard, so there is NO way I'm going to let somebody in an easy way when I had to devote lots of time to learning. :D

However, if you donate, I will be more inclined to 'forget' you're plagiarism if you apply with your own script next time…

If he donates, he's trying to buy himself in, not say sorry. =/. Maybe I'm taking it personally, because it is my script. Oh well =D.