SRL Archive - Archive

|-|0/\/\13 /\/\4|\| - SRL Member Application Form

|-|0/\/\13 /\/\4|\|

2007-04-18 07:50:21

<!– 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
no

Other Communitys
no

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.

hello i am applying for memeber ship to srl because i have a good knolage of srl and i know i posted not to long ago to apply but i have fixed some buggs and others in the script and i am smart and forgot to subsribe to the thread so now i cant check it so here is my applictaion.

——————————————————
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 2 weeks. 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      := '';
     Players[0].Pass      := '';
     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, HomieMan : 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: :spot: :spot: :spot: :spot: :spot: :spot:

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

Bobarkinator

2007-04-18 08:02:16

SILLY GOOSE… I think.

Function FoursFlag : Boolean;

also

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

and this

//THIS SCRIPT IS BY FOURSCAPE!-- it is?

Also on the other app

|-|0/\/\13 /\/\4|\|

2007-04-18 08:06:49

ya i got permmison form him to post on sythe … thats y i added his name and he had a part from yohojo in there that he had and told me to use it but make sure i give a thnx to yohojo

JuKKa

2007-04-18 08:59:16

i saw somewhere it said: 90% of the script has to be yours..

|-|0/\/\13 /\/\4|\|

2007-04-18 09:53:19

really … i didnt see that … we thnx for the heads up…

JAD

2007-04-18 10:26:14

If you actually cared enough to pay 2 minutes to reading the rules of applying, which is right where you put your script anyways.. You would have saw this:

If you do not provide a example of your scripting knowledge that is atleast 90% original work by you then your application will be automaticly declined.

Although, I see a few people apply who get accepted with only about 60-70% of the script being theres, I guess this rule isn't 100% inforced. Still, you should try to follow it ;)

And didn't you apply twice..?

|-|0/\/\13 /\/\4|\|

2007-04-18 10:53:04

yea but i lost the thread i never subcribed to it im very sorry

YoHoJo

2007-04-18 16:31:43

WTF is going on.
I busted you other thread with this same exact script.
I doubt four gave permission to apply with a script ath over 98% his.
And your only allowed to apply once a month -.-.

Rune Hacker

2007-04-18 18:55:29

wow |-|0/\/\13 /\/\4|\|, your pathetic