SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Not much but i experimented with C++ and java

Other Communitys
Sythe.com occasionally

How Long have You Played Runescape
4 years

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

Well, i love this community because of how fast you can get help on scripting problems, and the how everyone is nice. Without this community i wouldn't of learned scripting, at all. I love scripting, I can do some advanced procedures, although forms are a pain =\. I can do pretty much all the intermediate functions and procedures. although some things I'm confused on. I'm very committed and love to help people with there scripting. I spend a good 2-6 hours on srl-forums. I love working with Dtm's, and banking scripts is my fav's =]. Well i hope i supplied you with enough info on myself, but if you want to ask any questions feel free to ask.

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

{-------------------------Instructions----------------------------}
{------Have All Logs You'de Like To Fletch In 1st Bank Page-------}
{-----------------Set Player Next To Bank Booth-------------------}
{---------------------Knife in inventory slot---------------------}

Program DudezWrathFletcher;
{.Include SRL\SRL.scar}

Var
  x, y, TimesBank, Log,
  Knife, StartXP, EndXP, TotalXP,
  LongBow: Integer;

Const
  Bank          = 'db'; // feb,fwb,veb,vwb,db,eb,akb, <-- Use these for banks
  Pin           = '1210'; //Bankpin number
  NumberOfTimes = 10; // How Many Loads?
  
  
{------------------------------}
{       Declaring Players      }
{------------------------------}

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';   // Username
  Players[0].Pass := '';   // Password
  Players[0].Nick := '';   // 3-4 letters of your Username
  Players[0].Active := True;   // Auto with this char?
  SRLId:= '';     // Srl Stats Id Not Username
  SRLPassword:= '';  // Srl Password
End;

{------------------------------}
{       OpenBankFast           }
{------------------------------}

function OpenBankFast2(Location: String): Boolean; //Credits to Wizzup? and Nielsie95
var
  x, y, i, l, c, z: Integer;
  Info: TIntegerArray;
  Booths, t: TPointArray;
begin
  If BankScreen Or PinScreen Then
  Begin
    Result := True;
    Exit;
  End;
  Wait(400);
  case LowerCase(Location) of
    'akb', 'al kharid': Info := [MSCX, MSCY, 606291, 4, 1];
    'lb', 'lumbridge': Info := [MSCX, MSCY, 6196388, 9, 1];
    'veb', 'varrock east': Info := [MSCX, MSCY, 2971236, 10, 1];
    'vwb', 'varrock west': Info := [270, 270, 5689318, 25, 1];
    'feb', 'falador east': Info := [MSCX, MSCY + 50, 4612728, 14, 1];
    'fwb', 'falador west': Info := [MSCY, MSCY, 4612728, 14, 1];
    'db', 'draynor': Info := [MSCX, MSCY, 605006, 4, 1];
    'eb', 'edgeville bank': Info := [MSCX + 50, MSCY, 3230295, 9, 2];
    else
    begin
      WriteLn('Unknown bank: '+Location);
      Exit;
    end;
  end;

  MakeCompass('n');
  z := GetColorToleranceSpeed;
  ColorToleranceSpeed(Info[4]);
  FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3]);
  ColorToleranceSpeed(z);
  SetArrayLength(t, 0);
  t := Booths;
  SetArrayLength(Booths, 0);
  Booths := ReArrangeAndShortenArray(t, 14);
  l := GetArrayLength(Booths) -1;
  for i := 0 to l do
  begin
    if (not LoggedIn) or BankScreen or PinScreen then
      Break;
    if (LowerCase(Location) = 'vwb') or (LowerCase(Location) = 'varrock west') then
    begin
      Booths[i].X := Booths[i].X + 5;
      Booths[i].Y := Booths[i].Y - 20;
    end;
    MMouse(Booths[i].X, Booths[i].Y, 3, 3);
    Wait(75 + Random(75));
    if IsUpText('ooth') Then
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, False);
      Wait(70 + Random(75));
      if ChooseOption('uickly') then
      begin
        FFLag(0);
        MarkTime(c);
        repeat
          Wait(100);
        until (BankScreen) or (PinScreen) or (TimeFromMark(c) > 3000);
      end;
    end;
  end;
  Result := (BankScreen) or (PinScreen);
end;

{------------------------------}
{       FixBank                }
{------------------------------}

Function FixBank2: Boolean;
var
  x, y: Integer;
begin
  if (GetColor(475, 75) = 1777699) and (BankScreen) then
  begin
    Result := True;
    MMouse(475, 65, 3, 3)
    GetMousePos(x, y);
    HoldMouse(x + Random(1), y + Random(1), True);
    while (GetColor(475, 75) = 1777699) do
      Wait(100);
    Wait(300 + Random(300));
    GetMousePos(x, y);
    ReleaseMouse(x, y, True);
  end;
end;

{------------------------------}
{       Declaring Dtm's        }
{------------------------------}

Procedure DTMs;
Begin
  Log := DTMFromString('78DA63CC61626078C28002C27CE519FE03694' +
       '620FE0F048C4940356F19D000231209A44B816ADE1050530054F3' +
       '8E809A0CA09A8FF8D500001D260C8D');
  Knife := DTMFromString('78DA637460626078CE8002C2ADB919FE03694' +
         '620FE0F048C9E4035D718D000231209A42D806A3E1150E30854F3' +
         '8A801A27A09A9704D480DCFC18BF1A0065470C9F');
  LongBow := DTMFromString('78DA63CC65626078C080020EAF5AC4F01F483' +
           '302F17F20604C00AAB9CA8006189148205D0654F391809A22A09A' +
           '9704D41403D53CC3AF0600DD8D0DC0');
End;

{------------------------------}
{       Banking                }
{------------------------------}

Procedure Banking;
Var
  Tries: Integer;
Begin
  If Not LoggedIn Then Exit;
  If OpenBankFast2(Bank) Then
  Begin
    Wait(3000 + Random(500));
    If (Pinscreen) Then
      InPin(Pin);
    If BankScreen Then
    Begin
      If FixBank2 Then
        Wait(1000 + Random(500));
      Repeat
        If FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2) Then
          Break;
        Wait(2342 + Random(423));
        Tries := Tries + 1
        If (Tries >= 5) Then
        Begin
          Writeln(' @@ Could Not Find Logs, Logging Out @@');
          CloseBank;
          Wait(100 + Random(500));
          Logout;
        End;
      Until(FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2));
    End;
    Mouse(x, y, 1, 1, False);
    Wait(100 + Random(50));
    ChooseOption('All');
    Writeln('@@ Withdrawing Logs @@');
    Closebank;
    Wait(1000 + Random(500));
    Gametab(4);
    Wait(100 + Random(134));
  End;
End;

{------------------------------}
{       Depositing             }
{------------------------------}

Procedure Depositing;
Var
  Tries: integer;
begin
  If Not LoggedIn Then Exit;
  If InvFull Then
  Begin
    If OpenBankFast2(bank) Then
    Begin
      Deposit(2, 28, 2);
      Wait(1000 +random(726));
      Timesbank := Timesbank + 1;
      Writeln('@@ Depositing Unstrung bows @@');
      Repeat
        If (not(FindDTM(Longbow, x, y, MIX1, MIY1, MIX2, MIY2))) Then
          Break;
        Tries := Tries + 1;
        If (Tries >= 5) Then
        Begin
          Writeln('@@ Couldnt Deposite Logging Out @@');
          CloseBank;
          Wait(100 + Random(1000));
          Logout;
        End;
        Wait(1000);
      Until (not(FindDTM(Longbow, x, y, MIX1, MIY1, MIX2, MIY2)));
    End;
  End;
End;

{------------------------------}
{       Fletching              }
{------------------------------}

Procedure Fletching;
Var
  FletchingFailSafe: Integer;
Begin
  If Not LoggedIn Then Exit;
  CloseBank;
  Gametab(4);
  Wait(1000 + Random(500));
  If Not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
  Begin
    Writeln(' @@ Didnt Withdraw Any Logs Repeating @@');
    Banking;
  End;
  If FindDTM(Knife, x, y, MIX1, MIY1, MIX2, MIY2) Then
  Begin
    Writeln('@@ Found Knife @@');
    Mouse(x, y, 1, 1, True);
    Wait(100 +  Random(500));
    If FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
    Begin
      MMouse(x, y, 1, 1);
      If (IsUpText('se')) Then
      Begin
        GetMousePos(x,y);
        Mouse(x, y, 0, 0, True);
        Writeln('@@ Found Wrath Log @@');
        Wait(2000 + Random(500));
        MouseBox(210, 395, 307, 440, 2);
        Wait(100 + Random(100));
        ChooseOption('X');
        Wait(1000 + Random(500));
        If (Random(3) = 0) Then
          TypeSend(IntToStr(27 + Random(242)))
        Else
          TypeSend('27');
        MarkTime(FletchingFailSafe);
        Repeat
          Wait(1045 + Random(242));
          If Not FindDTM(Log, x, y, MIX1, MIY1, MIX2, MIY2) Then
            Break;
          If (CountItemsDtm('inv', LongBow) > 27) Then
            Break;
          If (TimeFromMark(FletchingFailSafe) > 60000) Then
            Break;
          If FindFight Then
          Begin
            RunAway('S', True, 1, (5000 + Random(2000)));
            Fletching;
          End;
          If FindNormalRandoms Then
            Fletching;
        Until(Not LoggedIn);
      End;
    End;
  End;
End;

{------------------------------}
{       Rays Special Antiban   }
{------------------------------}

Procedure RayBan;
Begin
  If Not LoggedIn Then Exit;
  Case Random(11) Of
    1: MakeCompass('S');
    2: MakeCompass('W');
    3: MakeCompass('E');
    4: MakeCompass('N');
    5: Hoverskill('Random', False);
  End;
End;

{------------------------------}
{       AntiBan                }
{------------------------------}

Procedure MouseAntiBan;
Begin
  If Not LoggedIn Then Exit;
  If Not (LoggedIn) Then
    Exit;
  Case Random(10) Of
    0 : PickupMouse;
    1 : IdleTime(9567 + Random(359), 1000, 1.0);
    2 : SleepAndMoveMouse(1343 + Random(2500));
    3 : RandomRClick;
    5 : HoverSkill('Mining', False);
  End;
End;

{------------------------------}
{       Progress               }
{------------------------------}

Procedure Progress(Way: Integer);
Begin
  If Not LoggedIn Then Exit;
  Case Way Of
    1: StartXP := GetXp('Fletching');
    2: Begin
      EndXP := GetXp('Fletching');
      TotalXP := (EndXP - StartXP)
    End;
  End;
End;

{------------------------------}
{       Progress Report        }
{------------------------------}
Procedure Report;
Begin
  SRLRandomsReport;
  ClearDebug;
  Writeln('[]=======================================[]')
  Writeln('[]---[Kooldudes]----[]----[v1.2]----[]----[]')
  Writeln('[]________[Wrath]________[Fletcher]_____[]')
  Writeln('[]    Banked: ' + IntToStr (Timesbank) +   '[]')
  Writeln('[]    XP Gained: ' + IntToStr(TotalXp) +   '[]' )
  Writeln('[]    Worked for '+ TimeRunning);
End;

{------------------------------}
{       Siggy                  }
{------------------------------}
procedure Siggy;
begin
  ClearDebug;
  Writeln(' **   **                    **')
  Writeln('/**  **                    /**')
  Writeln('/** **    ******   ******  /**')
  Writeln('/****    **////** **////** /**')
  Writeln('/**/**  /**   /**/**   /** /**')
  Writeln('/**//** /**   /**/**   /** /**')
  Writeln('/** //**//****** //******  ***')
  Writeln('//   //  //////   //////  ///')
  Writeln('*******                **')
  Writeln('/**////**              /**')
  Writeln('/**    /** **   **     /**  *****')
  Writeln('/**    /**/**  /**  ****** **///**')
  Writeln('/**    /**/**  /** **///**/*******')
  Writeln('/**    ** /**  /**/**  /**/**////')
  Writeln('/*******  //******//******//******')
  Writeln('///////    //////  //////  //////')
  Wait(3000 + Random(750));
end;

{------------------------------}
{       Main Loop              }
{------------------------------}

Begin
  SRLId := SRLId;
  SRLPassword:= SRLPassword;
  Declareplayers;
  Setupsrl;
  ScriptId:= '736';
  Siggy;
  Report;
  ActivateClient;
  Progress(1);
  LoginPlayer;
  SetAngle(True);
  Dtms;
  Repeat
    If Not Loggedin Then
      TerminateScript;
      FindNormalRandoms;
      Banking;
      Fletching;
      Progress(2);
      Report;
      Rayban;
      MouseAntiBan;
      Depositing;
  Until(Timesbank = NumberOfTimes);
      Progress(2);
      Report;
end.

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

Ummm. Pretty much yes, though give credits to autor(s) next time, OpenBankFast2 mhm?

Atm Im holding.

There are some things that are just copy/pasted from the SRL Include.
The things made by yourself seems rather basic and I see no failsafes.
It also seems that you don't have the knowledge about functions, there are some procedures which you could've turned into functions imo.

Sorry but I think you'll have to learn some more before being capable as being a member of our group.

More luck next time;)

-Tsn.

Didn't you forget to give some credit here and there?
- OpenBankFast2: OpenBankFast from SRL combined with OpenFallyBankFast from Jukka's Guild Miner.
- FixBank2: Slightly adjusted SRL procedure.

Anyways, holding vote for now

Edit: darn, got beaten twice while typing this, lol

Add radialwalk!
Add linearwalk!
Add bitmaps!
Add Multiplayer!

Hmm..I dunno

very Good Reason stated above, No, good luck next time;) i know you can do it.
add me on msn [email]kotsz@live.nl[/email] and i help you a bit ;) i wont write stuff for you -.-
Hermpie

From: JuKKa
Add radialwalk!
Add linearwalk!
Add bitmaps!
Add Multiplayer!

Hmm..I dunno

Don't trust bobohobbo's (kinda like that username, sorry dude:p) script which graduates.. The things that should be used depends on the script's functionality.. Like for eg. LinearWalk isn't really used over here, same for bitmaps, not really nescecarry:)

But still, he hasn't got the experience to become an SRL Member imo.. so I've voted no.

Sorry kooldude, but this is my opinion, I hope you wont take it too rude.. cause I'm not that kind of a bad guy;)

Just practice a bit and you'll come there some day:)

-Tsn.

EDIT: This let's me thin kabout all putting the heads together to make a system to graduate the SRL Members better. Like the things we should defenitly look at and a "mark system" like SB100's list of Scipting Competition, the things you get graduated on, but not that hard then:p

if you mean automating? no read the rules…

i think you don't but i am not sure ;)

From: Hermpie
if you mean automating? no read the rules…

i think you don't but i am not sure ;)

What automating? My idea..? No way! Omg..just a system to graduate the applications in a better way..because now, you have to admit, that there is a some kind of "friend-policity".
Like, you're my friend, you send an appication and I vote yes, just because you're my friend.. NO WAY! This may not happen..

That's what I ment, a better graduating system..

-Tsn.

P.S. Sorry for those caps:)

Yea, now it turned bit short, I see 3 real procedures… they are kinda okay, just too short…for appling.

Tsn, there are failsafes btw.

Good luck.

Well, this seems to seem quite similar to the fletcher I applied with, and I only just got in and I think it was because I had a form in mine.


A few things that I'm going to say:

1: In your fletching failsafe, wont it just keep opening the bank if it can't find the logs. Correct me if I'm wrong.

2: Give credit for your OpenBankFast2, unless you made it.

3: Give credit for the FixBank2, unless you made it.

4: IMO your antiban is too short, it will do the same one too many times making it look more botty.


I probably wont vote on this one, unless you change a few things.

From: Negaal
Yea, now it turned bit short, I see 3 real procedures… they are kinda okay, just too short…for appling.

Tsn, there are failsafes btw.

Good luck.

From: Dude Richard

1: In your fletching failsafe, wont it just keep opening the bank if it can't find the logs. Correct me if I'm wrong.

-Tsn.

From: the scar noob
There are some things that are just copy/pasted from the SRL Include.
The things made by yourself seems rather basic and I see no failsafes.
It also seems that you don't have the knowledge about functions, there are some procedures which you could've turned into functions imo.

Sorry but I think you'll have to learn some more before being capable as being a member of our group.

More luck next time;)

-Tsn.

I put in many failsafes i dont know were your getting no failsafes, not trying to be rude but almost everything in my script uses failsafes, but if im wrong please correct me.

From: kooldude
I put in many failsafes i dont know were your getting no failsafes, not trying to be rude but almost everything in my script uses failsafes, but if im wrong please correct me.

Function FixBank2: Boolean;
var
  x, y: Integer;
begin
  if (GetColor(475, 75) = 1777699) and (BankScreen) then
  begin
    Result := True;
    MMouse(475, 65, 3, 3)
    GetMousePos(x, y);
    HoldMouse(x + Random(1), y + Random(1), True);
    while (GetColor(475, 75) = 1777699) do
      Wait(100);
    Wait(300 + Random(300));
    GetMousePos(x, y);
    ReleaseMouse(x, y, True);
  end;
end;

  HoldMouse(x + Random(1), y + Random(1), True);
    while (GetColor(475, 75) = 1777699) do
      Wait(100);
    Wait(300 + Random(300));
    GetMousePos(x, y);
    ReleaseMouse(x, y, True);

A couple of things wrong here, Im not 100 % sure but isnt this procedure an infinitive loop?

Why not use Mouse?

What if its not the bank screen or it doesnt find that color. Script messes up.

 
Procedure RayBan;
Begin
  If Not LoggedIn Then Exit;
  Case Random(11) Of
    1: MakeCompass('S');
    2: MakeCompass('W');
    3: MakeCompass('E');
    4: MakeCompass('N');
    5: Hoverskill('Random', False);
  End;
End;
 

Why dont you just call Jagex and tell them your autoing=]
Holding vote.

From: kooldude
I put in many failsafes i dont know were your getting no failsafes, not trying to be rude but almost everything in my script uses failsafes, but if im wrong please correct me.

Let me check the script a bit closer, but let me first play some ET;)

-Tsn.

        If FindDTM(Log, x, y, MSX1, MSY1, MSX2, MSY2) Then
          Break;
        Wait(2342 + Random(423));
        Tries := Tries + 1
        If (Tries >= 5) Then 

If it finds the DTM, why would you want it to add to Tries?

Are you sure this is all of your work? Lots of silly mistakes in there.

Holding vote.

Omg, I know you guys are very overcautious about people plagirizing other peoples work, but seriously i scripted almost everything in this, i did forget to credit Wizzup? on th e banking Function, but that was a silly mistake. I wouldnt be that stupid to say i did do thaat, because hes one of the most well known scripters..


@Torret of Flame - If i was taking peoples procedures and such dont you think they'd be correct? Yes i did USE other scripts for learning and i might of read it wrong, but i DID NOT just take it from there script.

no, sorry

at least add multiplayers

After Re-reading, I voted no.

Lots of silly mistakes in the script, Im not saying it isnt your work, but some of it isnt. You may have changed it, but you didnt really write it.

I'm afraid you're not getting in this time.
You may try again in one month, good luck.
Closed.