SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
|-|0/\/\13 /\/\4|\| - SRL Member Application Form
|-|0/\/\13 /\/\4|\|

What is the meaning to life?


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


Programming Knowledge
nope

Other Communitys
fagex

How Long have You Played Runescape
1.5 years

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

her is my app for members … edegvill yew cutter it works petty good… i have, multi player exapmles to help kids, 1 thing u need to be in edgevill or it wont work, might miss click did 1 or 2 times for me but i think it is a pretty good script…and i will be making updates to it because it runs a little to fast… welll plz test it out and vote for padro.!!!!

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

            {-----------------------------------------------}
            { 1. You need to be in Edgeville. It won't cut  }
            {    anywhere else... Hence the name, 'Edge' Yew}
            {    Cutter.                                    }
            {                                               }
            { 2. This script took me about 4 hours. There   }
            {    WILL be mis-clicks here and there, I did my}
            {    best to clean it up before releasing.      )
            {                                               )
            { 3. There will be updates for this script....  )
            {    it switches trees realy fast, and does     )
            {    all the randoms it can.                    )
            {-----------------------------------------------)
            
{ Example of a nickname... if your name is pwnz n00bs, put a nickname like...
  1.0bs         //DON'T use a capital letter.
}

Program EdgevillYewCutter;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{.include SRL/SRL/Extended/xBank.scar}

Const
  MyFlag = True; //Use my version of flag?????
  LoadsWanted = 2; //Loads before Switching.
  // I REALLY Recomend a lower number... you get alot of randoms...
  // when you cut the Yew tree.

Procedure DeclarePlayers;      // This is all you have to fill out... just...
begin                          // do it...
  Status('Loading Players')

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

     Players[0].Name      := 'Username';
     Players[0].Pass      := 'Password';
     Players[0].Nick      := 'Nickname'; // 2-4 letters of username  example line  15-16
     Players[0].Active    := True;
     Players[0].Loc       := '';           //bank pin? put it here

     Players[1].Name      := 'Username';
     Players[1].Pass      := 'Password';
     Players[1].Nick      := 'Nickname'; // 2-4 letters of username
     Players[1].Active    := True;
     Players[1].Loc       := '';             //bank pin? put it here

     Players[2].Name      := 'Username';
     Players[2].Pass      := 'Password';
     Players[2].Nick      := 'Nickname'; // 2-4 letters of username
     Players[2].Active    := True;
     Players[2].Loc       := '';              //bank pin? put it here

     Players[3].Name      := 'Username';
     Players[3].Pass      := 'Password';
     Players[3].Nick      := 'Nickname'; // 2-4 letters of username
     Players[3].Active    := True;
     Players[3].Loc       := '';
                                               //bank pin? put it here
     Status('Player''s Loaded')
end;


Var
  LogDTM, BrokenAxeDTM, Loads, AxeHandleDTM, RegularAxeDTM, AxeHeadMask : Integer;
  BankFloorDTM, TotalLoads : Integer;
Procedure LoadDTMs;

begin
Status('Loading DTM''s')

LogDTM := DTMFromString('78DA632C66626078CA8002DC4D3919FE03694' +
       '620FE0F048CB940357718D000231209A42B806ADE1250530354F3' +
       '88809A34C2E60000FACF0C50');

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

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

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

AxeHeadMask := DTMFromString('78DA63CC616260B8C48002D2E313194480342' +
       '310FF0702C664A09A8BA86A54EC18E06A4000005C4C0828'); //Used for banking... don't ask why it says 'AxeHead'

BankFloorDTM := DTMFromString('78DA63AC666260706040012951510C5C409A1' +
       '188FF03016303A69AFAE222B81A1060ACC16F0E08000082BA09F2' +
       '');
       Status('DTM''s Loaded')
end;

//--I like it... if you don't... TURN IT OFF!--//
Function FoursFlag : Boolean;
Var
  I : Integer;
  SFF : LongInt;
Begin
  If (MyFlag) then
  Begin
    GameTab(4)
    MarkTime(SFF)
    Repeat
      If (FlagPresent) then
      Begin
        For I:= 1 to 3 do
        Begin
          Case I of
            1: MMouse(0 + Random(300), 0 + Random(300), 0 + Random(300), 0 + Random(300));
            2: FindNormalRandoms;
            3: FindTalk;
          end;
        end;
      end;
      Wait(600 + Random(400))
      If Not(LoggedIn) then NextPlayer(False);
    Until (Not(FlagPresent)) or (TimeFromMark(SFF)>19000)
  end else
  Begin
    Flag;
  end;
  Result := True;
  Wait(500 + Random(400))
end;

//--WOOT MY OWN FUNCTION!--//
Function FOpenEdgeBank : Boolean;
Var
  bbX, bbY, bbTries : Integer;
Begin
 bbTries := 0
 MakeCompass('E')
 HighestAngle;
 Repeat
  If FindObjMultiText(bbX, bbY, 'ank', 'booth', 'Bank booth', 607324, 3) then
  Begin
    Mouse(bbX, bbY, 0, 0, False)
    Wait(100)
    ChooseOption(x, y, 'uick')
    FoursFlag;
    Wait(2000+Random(1000))
    If (BankScreen) then
    Begin
      Result := True
    end;
  end else
  Begin
    bbTries := bbTries + 1
    WriteLn('Bank not found, tried ' + IntToStr(bbTries) + ' time[s]')
  end;
  If Not(LoggedIn) then NextPlayer(False);
 Until (Result) or (bbTries > 7)
 If (bbTries > 7) then
 Begin
   WriteLn('Took too many tries to find the bank.')
   Players[CurrentPlayer].Loc := 'Lost';
   LogOut;
   NextPlayer(False);
   Exit;
 end;
 QuickFixBank;
end;

//--If noobs close it... I will open it...--//
Function FCheckDoor : Boolean;
Var
  dX, dY, m : Integer;
Begin
  MakeCompass('W')
  HighestAngle;
  m := 0;
  Repeat
    If FindObjMultiText(dX, dY, 'oor', 'Door', 'Doo', 2574956, 4) or
       FindObjMultiText(dX, dY, 'oor', 'Door', 'Doo', 2767952, 4) then
    Begin
      MMouse(dX, dY, 0, 0)
      Wait(100)
      If IsUpText('pen') then
      Begin
        Mouse(dX, dY, 0, 0, True)
        Result := True
        WriteLn('Opened door')
        FoursFlag;
      end else
      Begin
        Result := True;
        WriteLn('Door was open')
      end;
      m := m + 1
    end;
    If Not(LoggedIn) then NextPlayer(False);
  Until (Result) or (m > 4)
  If (m > 4) then
  Begin
    WriteLn('Couldn''t find the door')
    WriteLn('Going to try to enter room')
  end;
end;
//--So... many... symbols...--//
Function FWalkToYew : Boolean;
Var
  wX, wY : Integer;
Begin
  MakeCompass('N')
  If FindSymbol(wX, wY, 'Dungeon') then
  Begin
    Mouse(wX, wY - 10, 0, 0, True)
    SetRun(True)
    GameTab(4)
    FoursFlag;
    FCheckDoor;
    If FindSymbol(wX, wY, 'Tree') then
    Begin
      Mouse(wX + 3, wY + 6, 0, 0, True)
      FoursFlag;
    end;
    Result := True;
  end else
  Begin
    Mouse(652, 150, 0, 0, True)
    SetRun(True)
    GameTab(4)
    FoursFlag;
    If FindSymbol(wX, wY, 'Dungeon') then
    Begin
      Mouse(wX, wY - 10, 0, 0, True)
      FoursFlag;
    end;
    FCheckDoor;
    If FindSymbol(wX, wY, 'Tree') then
    Begin
      Mouse(wX + 3, wY + 6, 0, 0, True)
      FoursFlag;
    end;
    Result := True;
  end;
end;

//--I LOVE THE DISTANCE FORMULA NOW!--//
Var
  SwitchTrees1 : Boolean;

Function SwitchTrees : Boolean;
Var
  tX, tY, sX, sY, Dist : Integer;

Begin
  If Not FindObj(tX, tY, 'Yew', 1990736, 2) then
  Begin
    If FindSymbol(sX, sY, 'Dungeon') or
       FindMMColorTol(sX, sY, 5201919, 2) or
       FindMMColorTol(sX, sY, 5262834, 2) then
    Begin
      If (Distance(648, 84, sX, sY) > 43) then
      Begin
        Dist := Distance(648, 86, sX, sY)
        WriteLn('Distance = ' + IntToStr(Dist) + '.')
        WriteLn('Moving to southern tree.')
        Mouse(618, 89, 0, 0, True)
        FoursFlag;
        Result := True;
        SwitchTrees1 := True;
      end else
      Begin
        Dist := Distance(648, 82, sX, sY)
        WriteLn('Distance = ' + IntToStr(Dist) + '.')
        WriteLn('Moving to northern tree.')
        Mouse(680, 86, 0, 0, True)
        FoursFlag;
        Result := True;
        SwitchTrees1 := True;
      end;
    end;
  end;
end;

//--THIS IS YOHOJO8's--// Torn apart by me... in hopes it would still work...
Var
  EX, EY : integer;
  FX, FY : integer;
  SafeEntWait : LongInt;
Procedure EntChecker;
Begin
  Status('Checking For Ent')
  If (FindObjMultiText(EX, EY, 'Yew', 'Yew', 'Yew', 1990736, 2)) then
  Begin
    MMouse(EX, EY, 0, 0)
    If FindColorTolerance( FX, FY, 55769, 85, 15, 115, 15, 20) then
    Begin
      Status('Ent Found');
      MouseFindFlag(645, 83, 2, 2);
      MarkTime(SafeEntWait)
      Repeat
        FTWait(5)
        FindNormalRandoms;
      If Not(LoggedIn) then NextPlayer(False);
      Until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
      EntsAvoided := EntsAvoided + 1
    end;
  end;
end;

//->Check for Broken Axe<-//
Var
  BX, BY, NX, NY : integer;
Procedure IsAxeBroken;
Begin
  Status('Checking for broken axe')
  GameTab(4)
  Wait(400 + Random (100))
  If (Not(FindDTM(BrokenAxeDTM, BX, BY, MIX1, MIY1, MIX2, MIY2 ))) then
  Begin
    Status('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('Broke an Axe')
      NextPlayer(False)
      end;
   end;
end;

//--DID I GET IT ALL?--//
Procedure CompleteFix;
Begin
  FindNormalRandoms;
  Wait(1)
  FindTalk;
  Wait(1)
  EntChecker;
  Wait(1)
  FindHead;
  Wait(1)
  IsAxeBroken;
  Wait(1)
  SwitchTrees;
end;

//--OH YEAAAH!!! CHOP AWAY!!!--//
Var
  TX, TY : Integer;
  TreeTime, SafeWaiting : LongInt;
Procedure StartChopping;
Begin
  MakeCompass('S')
  Wait(100)
  MakeCompass('W')
  Wait(10)
  MakeCompass('E')
  Wait(1)
  MakeCompass('W')
  MarkTime(TreeTime)
  If ( Not (LoggedIn) ) Then
  Begin
    NextPlayer (False)
    Exit;
  end;
  Repeat
  Begin
    IsAxeBroken;
    Status('Looking for Yew')
    If (InvFull) then
    Begin
      Exit;
    end;
    EntChecker;
    MakeCompass('W')
    If (FindObjMultiText(TX, TY, 'Yew', 'Yew', 'Yew', 1990736, 3)) then
    Begin
      Mouse(TX, TY, 1, 1, True)
      Wait( 1400 + Random (200))
      FoursFlag;
      MarkTime(SafeWaiting)
      Repeat
        CompleteFix;
        If (SwitchTrees1) then
        Begin
          SwitchTrees1 := False;
          Break;
        end;//THIS SCRIPT IS BY FOURSCAPE!-- it is?
        If InvFull then
        Begin
          Exit;
        end;
        Wait(10)
        If Not (LoggedIn) then NextPlayer(False);
      Until (TimeFromMark(SafeWaiting) > 10000 + Random(5000))
    end;
  end;
  If Not (LoggedIn) then NextPlayer(False);                //--------------\\
 Until (InvFull) or (TimeFromMark(TreeTime)>60000 * 12)  // 12 minutes is  \\
end;                                                    //  like forever... \\
//--This is the easy way to do it... Hope it works...--//--------------------\\
Function WalkToEdgeBank : Boolean;
Var
  gX, gY : Integer;
  
Begin
  SetRun(False)
  MakeCompass('S')
  MakeCompass('N')
  HighestAngle;
  If FindSymbol(gX, gY, 'Dungeon') then
  Begin
    Mouse(gX, gY, 0, 0, True)
    FoursFlag;
    FCheckDoor;
  end;
  MakeCompass('N')
  Mouse(625, 16, 0, 0, True)
  Wait(5000+Random(1000))
  FoursFlag;
  MakeCompass('E')
  If FindDTM(AxeHeadMask, gX, gY, MMX1, MMY1, MMX1, MMY2) then
  Begin
    Mouse(gX + 44, - 10, 0, 0, True)
    FoursFlag;
    Result := True;
  end else
  If FindSymbol(gX, gY, 'Bank') then
  Begin
    Mouse(gX, gY, 3, 3, True)
    FoursFlag;
    Result := True;
  end else
  If FindDTM(BankFloorDTM, gX, gY, MMX1, MMY1, MMX1, MMY2) then
  Begin
    Mouse(gX, gY, 3, 3, True)
    FoursFlag;
    Result := True;
  end;
end;

//--IF IT'S NOT A LOG, IT'S GOIN IN!--//
Procedure StoreStuff;
Begin
  If (InventoryCount > 1) or
     Not (FindDtm(RegularAxeDTM, X, Y, MIX1, MIY1, MIX2, MIY2)) then
  Begin
    Repeat
     ClickItemColorTol(65536, 10, False)
     Wait(10)
     ChooseOption(x, y, 'All')
     Wait(1000 + Random(1000))
     If Not(LoggedIn) then NextPlayer(False);
    Until InventoryCount = 0
    Wait(1000 + Random (1000))
    Repeat
     If FindDtm(RegularAxeDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
     Begin
       Mouse(X, Y, 1, 1, True)
       Wait(1000 + Random(1000))
     end;
     If Not(LoggedIn) then NextPlayer(False);
    Until FindDtm(RegularAxeDTM, X, Y, MIX1, MIY1, MIX2, MIY2)
  end;
end;

//---PUT THOSE LOGS AWAY!---//
Var
  LX, LY, Fourscape : Integer;

Procedure BankLogs;
Begin
  Wait(1000+Random(1000))
  If (BankScreen) then begin
  Repeat
    If FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2) then
    Begin
      Mouse(LX, LY, 6, 6, False)
      ChooseOption(x, y, 'All')
      Wait(1000+Random(1000))
    end;
    If Not(LoggedIn) then NextPlayer(False);
  Until (Not(FindDTM(LogDTM, LX, LY, MIX1, MIY1, MIX2, MIY2)))
  Wait(100+Random(100))
  StoreStuff;
  CloseBank;
  end;
end;

Function FGetAxeColor : Boolean;
Var
  inX, inY : Integer;
Begin
  GameTab(4)
  If FindDTM(RegularAxeDTM, inX, inY, MIX1, MIY1, MIX2, MIY2) then
  Begin
    Head := GetColor(590, 220);
    Head2 := GetColor(587, 219);
    Head3 := GetColor(588, 218);
    Result := True;
  end else
  GameTab(5)
  If FindDTM(RegularAxeDTM, inX, inY, MIX1, MIY1, MIX2, MIY2) then
  Begin
    Head := GetColor(599, 294);
    Head2 := GetColor(599, 298);
    Head3 := GetColor(595, 295);
    Result := True;
  end;
  WriteLn('Axe head colors: ' + IntToStr(Head) + ' ' + IntToStr(Head2) + ' ' +
  IntToStr(Head3));
end;

Procedure FoursProgressReport;
Begin
  WriteLn('---Progress---')
  WriteLn('Script time  : ' + TimeRunning)
  WriteLn('Loads Banked : ' + IntToSTr(TotalLoads))
  WriteLn('---Progress---')
end;
  


//--Main loop--
begin
  ActivateClient;
  SetupSrl;
  TotalLoads := 0;
  Wait(3000)
  DeclarePlayers;
  LoadDTMs;
  ClearDebug;
  If Not (LoggedIn) then
  Begin
    LogInPlayer;
  end;
  Repeat
    Loads := 0;
    Repeat
      SetScreenName(Players[CurrentPlayer].Nick)
      FGetAxeColor;
      MakeCompass('S')
      MakeCompass('N')
      FWalkToYew;
      SwitchTrees;
      StartChopping;
      WalkToEdgeBank;
      FOpenEdgeBank;
      BankLogs;
      Loads := Loads + 1;
      TotalLoads := TotalLoads + Loads;
      FoursProgressReport;
      If Not (LoggedIn) then Nextplayer(False);
    Until Loads >= LoadsWanted;
    LogOut;
    NextPlayer(True)
  Until False;
end.

:spot: :spot: :spot: :spot: :spot: :spot: :spot:

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

I bet you copied this…….please give an honest answer.

EDIT: look at one of the variables i found :)………..Fourscape

FoursProgressReport;
WHOS PROGrESS REPORT?!

And also..

//–THIS IS YOHOJO8's–// Torn apart by me… in hopes it would still work…

Who did i give permission to use that?

Lucky i looked at this script yesterday.

You are pretty retarded dude. One of the few times iv seen someone stupid enough to copy a script from THIS site and post it HERE.

Most people are at least smart enough to find a script from another site.
Oh Well either way:

SILLY GOOSE
http://www.villavu.com/forum/showthread.php?t=8045

Omg YoHo, i was about to copy the link and say busted myself and you beat me by like 10 seconds…..Grrrrrrrrr

Well, i almost beat you to it lol.

Its my job, i rarely get beaten.
(Note my Name)

SRL Member / CopyBuster

ROFL, i never noticed that:D

EDIT: im think im going to vote yes because i feel sorry for this poor noob and i dotn want him to feel like too much of a loser. Can i ppplllleeeeeeaaaaaasssseeee vote yes for him :p

I normaly do its funny

Yay :D

Multiple Accounts
Copying
Making too many apps
Annoying me through pm

Learn to script or just leech, just do it quietly or I will ban you.

wtf …. baroes i got a brother … lmao

i sent you 1 pm and it was nice omfg … now u are alll ganna ge p0ed at my couse my brother … i think thats prejudgement… tist tist

I'm still judging for everything else. Tisk tisk.

FFS, STOP APPLYING

sorry well i didnt subscibe to the other one CALMDOWN SORRY!!! read the top paragraph of the other app it spicifly says i didnt add it to subscribed threads…

by the way yohoyo i dont copy scripts maybe my borther does…

wtf is wrong with you? Do you think we're idiots?
The freakin copied script is posted in this very thread under your name!

Dude stfu, if you even have a brother, keep your password safe from him.

:) If there's one lesson you should learn, it's not to get Boreas pissed atcha

Diamondhero learned the hard way.

My advice: Wait atleast two months (four or more recommended), learn to script, and keep your password safe from your brother *sarcasm*

I think you'll be sorry if we catch you lying to us like that again…

When Athens was threatened by Xerxes, the people prayed to Boreas, who was said to have then caused winds to sink 400 Persian ships.

I say no because my girlfriend told me to :)
She says honesty is important and he is not honest.

Hmm, im gonna get her to register here and then we will have 1 girl here!!!
:D

I chose yes because he chose a good script to copy :p

im not ganna be on for a long time … im ganna work on my pure and learn to script… bye

If too dumb to even leech a script as good as the other copiers then you aren't smart enough whether or not you made the script (which you didn't).

No.

From: |-|0/\/\13 /\/\4|\|
im not ganna be on for a long time … im ganna work on my pure and learn to script… bye

Good luck, and I hope you'll take the advice that's been given to you

When are you people going to stop bumping this thread……

Sorry if this is a bump, but hopefully it will stop many more bumps, you never know =)

From: Boreas
When Athens was threatened by Xerxes, the people prayed to Boreas, who was said to have then caused winds to sink 400 Persian ships.

Boreas was very strong, with a violent temper to match. He was frequently depicted as a winged old man with shaggy hair and beard, holding a conch shell and wearing a billowing cloak.[1] Pausanias wrote that Boreas had snakes instead of feet, though in art he was usually depicted with winged human feet.

|-|0/\/\13 /\/\4|\| how bout you and your noobish personality split…. Like siemise twins…… then one of you go die…….

From: Rune Hacker
When are you people going to stop bumping this thread……

Sorry if this is a bump, but hopefully it will stop many more bumps, you never know =)

Im quoting myself because obviously no one read it……….

wow, you guys are very nice… (sarcasm)
well good luck scripting |-|0/\/\13 /\/\4|\|. just work on it
and maybe you can become member…

From: jahuro
|-|0/\/\13 /\/\4|\| how bout you and your noobish personality split…. Like siemise twins…… then one of you go die…….

fag? dude im starting to learn to script can any1 read?

I have reread this application a few times over the last few days whenever I needed a laugh….I'm to lazy to even click the No button, but If I did, it would be just because of his name alone…So, How do you pronounce that ?….. "The Scraptor formerly known as Prince" ? (Creative, sure, but functional ? )

Closed.