SRL Archive - Archive

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

What is the meaning to life?
the challenge jackex gave us =p

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


Programming Knowledge
JAVA and XHTML

Other Communitys
None

How Long have You Played Runescape
3-4 years, on and off.

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

I have been learning to Script in Delphi(Scar) for about 2 months. Before this time I used other methods to autoon runescape. I am taking advanced courses in JAVA and learning to script in Scar by reading tuts. I also am learning by looking at the includes folder–using the SRL functions. I would like to contribute to the SRL forums. I would like to Thank SRL for making it possible.
Thanks for reading this application,

~Footballjds

~~I would like to thank a few ppl whose names i remember:
Timer, helped me greatly when i first started, very nice friend.
Swift, uses it a lot and post bugs/ideas and proggies!
Mylsemadness, very nice friend, helped me out.
^thanks everyone!

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

program Footballjds_ANY_LONGBOW_STRINGER;
{=========================================================================]<--Credit to WT-Fakawi For this layout.
[           NAME        : Any Longbow Stringer                            ]
[           WRITER      : Footballjds                                     ]
[           CATEGORY    : Fletching                                       ]
[           DESCRIPTION : Strings And Banks Any Longbow                   ]
[           USAGE       : To Raise Your Fletching Level                   ]
[           AUTOCOLOR   : Yes                                             ]
[           CONTACT     : Pm Or Footballjds2000 On AIM                    ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape With Low Detail, Very Bright.                          ]
[ 2. Set your Screen To 32 bit TRUE color.                                ]
[ 3. Position Players In Bank                                             ]
[ 4. Set Playernames And Passwords / SRL Id And Pass in Player Setup      ]
[ 5. You Do Not Have To Drag Cross Hair Over Client! Amazing Aint It?     ]
[ 6. Start Logged Out                                                     ]
[ 7. Please Post Proggies/Bugs                                            ]
[=========================================================================}

{.include srl/srl.scar}
{.include /srl/srl/misc/MusicLocation.scar}
{.include /srl/srl/skill/Magic.scar}

var
  Loads, EXPFactor, BankLBU, IvinLBU, BankBS, IvinBS, RespondedToLevel, x, y, LogoutLoads : integer;
  WhatBank, WhichLongbow, Your_SRL_ID, Your_SRL_Pass : string; FirstTimeAround : boolean;

procedure PlayerSetup;
begin
  LampSkill       := 'fletching'//If It Finds Lamp What SKill?
  ReinCarnate     := True;      //[True / False]Use DeathWalkback?
  Your_SRL_ID     := '3546';        //Don't have this? Go to:
  Your_SRL_Pass   := 'jesse123123';        //http://www.stats.srl-forums.com/
  WhichLongbow    := 'Yew';     //Normal, Oak, Willow, Maple, Yew, Magic
  CurrentPlayer   := 0;         //Int!
  HowManyPlayers  := 1;         //Int!
  WhatBank        := 'veb';     //See list below!
  NumberOfPlayers(HowManyPlayers);
{*******************************************************************************
   Valid arguments are:
   'akb' = Al Kharid /|\ 'lb' = Lumbridge /|\ 'veb' = Varrock East /|\ 'vwb' = Varrock West
   'feb' = Falador East /|\ 'fwb' = Falador West /|\ 'db' = Draynor /|\ 'eb' = Edgeville Bank
*******************************************************************************}
  Players[0].Name        := 'Username';      //UserName
  Players[0].Pass        := 'Password';      //Password
  Players[0].Nick        := 'sern';          //Nick Name
  Players[0].Active      := True;            //Use This Player [ True / False ]
  Players[0].Integers[0] := 7;               //Number Of Loads
  Players[0].Strings[0]  := '';              //BankPin [If Any]
  Players[0].Booleans[0] := True;            //Use Walkback if Lost? [True / False]
  Players[0].Integers[1] := 35;              //Logout Every How many loads?
  Players[0].Integers[2] := 8;               //Stay Logged Out for how many minutes?
  Players[0].Integers[3] := 4;               //How Many Extra Random minutes to stay logged out?

// Never logging out is not smart, but if you don't want to logout
// change Integers[1] to something above 99999.

////////////////////////////////////////////////////////////////////////////////
  case WhichLongbow of
    'Normal' : EXPFactor := 10 ;
    'Oak'    : EXPFactor := 25 ;
    'Willow' : EXPFactor := 41 ;
    'Maple'  : EXPFactor := 58 ;
    'Yew'    : EXPFactor := 75 ;
    'Magic'  : EXPFactor := 91 ;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure Setup;
begin
  if (not(LoggedIn)) Then
    EXIT;
  if (not(FirstTimeAround)) then
    EXIT;
  GameTab(4);
  SetChat('Off', 2);
  wait(189+random(90));
  HighestAngle;
  MakeCompass('N');
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure LevelRespond;
Var
  Chats: TStringArray;
  I, L: Integer;
begin
  Chats := ['letching l', 'hing lv', 'hing lev'];
  for I := 0 To 2 Do
  begin
    if InChat(Chats[i]) then
    begin
      RespondedToLevel := RespondedToLevel + 1;
      L := GetSkillLevel('fletching');
      case Random(9) of
        0: TypeSend(IntToStr(L));
        1: TypeSend('Me '+IntToStr(L));
        2: TypeSend(IntToStr(L) + ' here');
        3: TypeSend('...'+IntToStr(L));
        4: TypeSend('Im ' + IntToStr(L));
        5: TypeSend('only ' + IntToStr(L));
        6: TypeSend('Pfft, only ' + IntToStr(L));
        7: begin
             TypeSend('onky ' + IntToStr(L));
             TypeSend('only*');
           end;
        8: TypeSend('My Fletching is only ' + IntToStr(L) + ' ...lol');
      end;
      wait(1000 + Random(500));
      Exit;
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function LogoutSleepLogin(SleepTimeInMin, RandSleepTimeInMin : integer): boolean;
begin
  if (not(LoggedIn)) or (SleepTimeInMin <= 0) then
  begin
    Writeln('Error Occurred, Either You''re Already Logged Out Or');
    Writeln('You Set TimeToSleepInMinutes To Zero Or Below.');
    EXIT;
  end;
  if (RandSleepTimeInMin <= 0) then
  begin
    Writeln('WARNING RandSleepTimeInMin Shouldn''t Be Zero Or Less!');
    RandSleepTimeInMin := 1;
    Writeln('I Changed RandSleepTimeInMin To 1 For You.');
  end;
  Result := False;
  if (Logout) then
  begin
    Writeln('Logged Out');
    Writeln('Waiting: ' + (IntToStr(SleepTimeInMin)) + 'Minutes Plus Random: ' + (IntToStr(RandSleepTimeInMin)) + ' Minutes');
    wait(60000 * SleepTimeInMin + random(RandSleepTimeInMin * 60000));
    LogInPlayer;
    Result := True;
  end else
  begin
    Writeln('Error Occured While Logging Out, Script Terminated');
    TerminateScript;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function HomeTeleport : boolean;
var
  DoneWaited : integer;
begin
  Result := False;
  if (CastSpell(1)) then
  begin
    wait(700+random(200));
    if (InBlackChat('minutes')) then
    begin
      Writeln('Sorry But Couldn''t Home Tele');
      EXIT;
    end else
    begin
      repeat
        Wait(1000+random(500));
        DoneWaited := DoneWaited + 1;
      until (not(LoggedIn)) or (DoneWaited >= 14);
      if (DoneWaited >= 12) and (LoggedIn) and (IsMusicLocation('Lumbridge Area')) then
        Result := True;
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

{Function Origanly Made By: Jukka, it clicked in the middle of the two fountains in
lumby. Then I(Footballjds) edited it and added auto color along with some other things}
function FindLumbyCenter(ToleranceLvl : Integer; Click: Boolean): Boolean;
var
  aPoint: TPoint;
  TPA: TPointArray;
  tmpTPA: array of TPointArray;
  I, tmpLength, FountColor, FountColorTol: Integer;
begin
  Result := False;
  repeat
    if FindColorTolerance(x, y, 10375772, MMX1, MMY1, MMX2, MMY2, FountColorTol) then
      Break;
    FountColorTol := FountColorTol + 1;
  until (FountColorTol >= ToleranceLvl) or (Not(loggedIn));
  if (Not(LoggedIn)) then
    EXIT;
  if (FountColorTol >= ToleranceLvl) then
  begin
    Writeln('Unable To Get The Fountain Color');
    Writeln('The Max ToleranceLvl To Use Was Set At: ' + IntToStr(ToleranceLvl));
    EXIT;
  end;
  FountColor := GetColor(x, y);
  WriteLn('We Found The FountainColor: ' + IntToStr(FountColor));
  WriteLn('With A Tolerance Lvl Of: ' + IntToStr(FountColorTol));
  if (FindColorsTolerance(Tpa, FountColor, MMX1, MMy1, MMx2, MMy2, 0)) then
  begin
    tmpTPA := TPAtoATPA(TPA, 10);
    tmpLength := getarraylength(tmpTPA);
    setarraylength(Tpa, tmpLength);
    for I := 0 to tmpLength - 1 do
      Tpa[i] := MiddleTPA(tmpTPA[i]);
    aPoint := MiddleTPA( TPA );
    if( aPoint.X > 0)and( aPoint.Y > 0)then
    begin
      if(Click)then
      begin
        Mouse( aPoint.X, aPoint.Y, 5, 5, True);
        Result := True;
        CountFlag(0);
      end else
        MMouse( aPoint.X, aPoint.Y, 5, 5 );
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function RWalkToBank : boolean;
var
  StairCaseTol, StairCaseColor  : integer;
  RandomMMDirection : string;
begin
  Result := False;
  case random(3) of
    0: RandomMMDirection := 'E';
    1: RandomMMDirection := 'W';
    2: RandomMMDirection := 'S';
  end;
  MakeCompass(RandomMMDirection);
  wait(random(1000));
  PerfectNorth;
  wait(random(1000));
  HighestAngle;
  if (RadialRoadWalk(FindRoadColor, 300, 257, 27, 1, 1)) then
  begin
    CountFlag(0);
    wait(random(1000));
    if (RadialRoadWalk(RoadColor, 206, 198, 35, 1, 1)) then
    begin
      CountFlag(0);
      wait(random(1000));
      if (RadialRoadWalk(RoadColor, 280, 265, 32, 1, 1)) then
      begin
        CountFlag(0);
        wait(500 + random(1000));
        repeat
          if FindColorTolerance(x, y, 737374, 4, 181, 232, 335, StairCaseTol) then
          Break;
          StairCaseTol := StairCaseTol + 1;
        until (StairCaseTol >= 12);
        if (StairCaseTol >= 12) then
          EXIT;
        MMouse(x, y, 5, 5);
        wait(200+random(200));
        if (IsUpTextMultiCustom(['limb', 'up', 'b-', '-u'])) then
        begin
          StairCaseColor := GetColor(x, y);
          Mouse(x, y, 0, 0, True);
          CountFlag(0);
          Wait(2000+random(1500));
          if (FindObjCustom(x, y, (['limb', 'up', 'b-', '-u']), [StairCaseColor], 0)) then
          begin
            Mouse(x, y, 5, 2, False);
            Wait(300+random(100));
            if (ChooseOption('up')) then
            begin
              Wait(2500+random(1500));
              if (RadialWalk( 195836, -10, 30, 65, 1, 1)) then
              Result := True;
            end;
          end;
        end;
      end;
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function WalkBack : boolean;
var
  Tries2 : integer;
begin
  Result := False;
  if (NoGameTab) then
  begin
    Writeln('Must have been a random, No Game Tabs Found.');
    Exit;
  end;
  if (not(HomeTeleport)) then
    EXIT;
  if (not(FindLumbyCenter(25, True))) then
    EXIT;
  if (RWalkToBank) then
  begin
    repeat
      LevelRespond;
      OpenBankFast('lb');
      Wait(1000+random(100));
      Tries2 := Tries2 + 1;
    until (BankScreen) Or (PinScreen) Or (Tries2 >= 10);
    if (BankScreen) or (PinScreen) then
    begin
      Result := True;
      Writeln('W00T Walk Back Worked!');
      WhatBank := 'lb';
    end else Writeln('WalkBack Phailed, Sorry, ;-(');
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function SetUpForBank : boolean;
begin
  Result := False;
  if (bankScreen) then
  begin
    BankLBU := GetColor(149, 83);
    BankBS  := GetColor(92, 78);
    Result  := True;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function SetupForIvin : boolean;
var
  Tries : integer;
begin
  Result := False;
  if (NoGameTab) then
    Exit;
  FirstTimeAround := False;
  gameTab(4);
  repeat
    wait(100+random(50));
    if ExistsItem(17) then
      break;
  until (Tries >= 100);
  if (Tries >= 100) then
    EXIT;
  Tries := 0;
  wait(random(500));
  MMouseItem(RandomRange(1, 15));
  wait(300+random(200));
  if(IsUpTextMultiCustom(['owstr', 'wst', 'ow', 'stri', 'tring'])) then
  begin
    IvinLBU := getColor(666, 335);
    IvinBS := GetColor(579, 229);
    wait(100+random(40));
    Result := True;
  end else
  begin
    Writeln('unfound');
    LogOut;
    LogoutLoads := 0;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure BankError;
begin
  Writeln('No Longbows Were Found In Bank.');
  CloseBank;
  LogOut;
  Players[CurrentPlayer].Active := False;
  CurrentPlayer := 0;
  LogoutLoads := 0;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
{*******************************************************************************
function InvCount: Integer;
By: RsN, Edited by Footballjds to fit his purepose(in this script)
Description: Returns amount of items in your inventory
*******************************************************************************}
function InvenCount: Integer;
var
  i: Integer;
begin
  for i := 1 to 28 do
    if (ExistsItem(i)) then
      Result := Result + 1;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function GetIvinStoof : boolean;
begin
  Result := False;
  Deposit(15, 28, 1);
  if (InvenCount = 14) then
    Result := True;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function OpenUpBank : boolean;
Var
  Tries : Integer;
begin
  Result := False;
  if not (LoggedIn) then
    EXIT;
  repeat
    HighestAngle;
    LevelRespond;
    OpenBankFast(WhatBank);
    Wait(1000+random(400));
    Tries := Tries + 1;
  until (BankScreen) Or (PinScreen) Or (Tries >= 5);
  If Tries > 4 Then
  begin
    Writeln('Bank Not Found, Using Walkback.');
    if (Players[CurrentPlayer].Booleans[0] = False) or (not(WalkBack)) then
    begin
      LogOut;
      Players[CurrentPlayer].Active := False;
      CurrentPlayer := 0;
      LogoutLoads := 0;
      FirstTimeAround := True;
      EXIT;
    end;
    FirstTimeAround := True;
  end;
  Tries := 0;
  Result := True;
  if PinScreen Then
    InPin(Players[CurrentPlayer].Strings[0]);
  FixBank;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function WithdrawFromBank1st : boolean;
var
  Tries : integer;
begin
  Result := False;
  If Not LoggedIn Then
    EXIT;
  if not(BankScreen) then
    EXIT;
  DepositAll;
  SetupForBank;
  if (FindColorTolerance (x, y, BankBS, 92, 78, 92, 78, 5)) then
  begin
    MouseBox(79, 72, 103, 86, 2);
    wait(223 + random(145));
    if (ChooseOption('X')) then
    begin
      repeat
        wait(20+random(30));
        Tries := Tries + 1;
      until (FindColorTolerance (x, y, 8388608, 251, 423, 266, 435, 15)) or (Tries >= 100)
      if (Tries>99) then
        BankError;
      Tries := 0;
      wait(random(100));
      TypeSend('14');
      Wait(200+random(400));
      if (FindColorTolerance (x, y, BankLBU, 149, 83, 149, 83, 5)) then
      begin
        MouseBox(131, 67, 151, 88, 2);
        wait(323 + random(245));
        ChooseOption('All');
        wait(300 + random(305));
        if (CloseBank) then
          Result := True;
        wait(200+random(100));
        LevelRespond;
      end else BankError;
    end else BankError;
  end else BankError;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
function WithdrawFromBank : boolean;
var
  Waited : integer;
begin
  Result := False;
  if (FirstTimeAround) then
  begin
    if (WithdrawFromBank1st) then
      Result := True;
    EXIT;
  end;
  if (not(GetIvinStoof)) or (not(BankScreen)) then
    EXIT;
  if (FindColorTolerance (x, y, BankLBU, 149, 83, 149, 83, 5)) then
  begin
    MouseBox(131, 67, 151, 88, 2);
    repeat
      wait(50+random(20));
      inc(Waited);
    until (ChooseOption('All')) or (Waited >= 50);
    if (Waited >= 50) then
      BankError;
    Waited := 0;
    wait(200+random(50));
    Deposit(1, 1, 2);
    wait(150+random(76));
    if (FindColorTolerance (x, y, BankBS, 92, 78, 92, 78, 5)) then
    begin
      MouseBox(79, 72, 103, 86, 2);
      repeat
        wait(50+random(20));
        inc(Waited);
      until (ChooseOption('All')) or (Waited >= 50);
      if (Waited >= 50) then
        EXIT;
      Waited := 0;
      wait(155+random(200));
      if (CloseBank) then
        Result := True;
    end else BankError;
  end else BankError;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure AntiBanRandom; forward;
procedure ProgressReport; forward;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure StringThem;
var
  Tries, NumberOfItem, RunBackX, RunBackY : integer;
begin
  if (not(FirstTimeAround)) then
  begin
    repeat
      wait(100+random(50));
      inc(Tries);
    until (FindColorTolerance(x, y, IvinBS, 579, 229, 579, 229, 5)) or (Tries >= 100);
    if (Tries >= 100) then
    EXIT;
  end else SetupForIvin;
  Tries := 0;
  GameTab(4);
  NumberOfItem := RandomRange(1, 15);
  MouseItem(NumberOfItem, True);
  wait(65+random(34));
  if (FindColorTolerance (x, y, IvinLBU, 666, 335, 666, 335, 5)) then
  begin
    NumberOfItem := RandomRange(15, 29);
    MouseItem(NumberOfItem, True);
    repeat
      wait(50 + random(50));
      Tries := Tries + 1;
    until(FindColorTolerance(x, y, 128, 136, 361, 170, 381, 2)) Or (Tries >= 100)
    if (Tries > 99) then
    begin
      Writeln('Error While Waiting For String Bows Option');
      Writeln('Please Report This Error');
      LogoutLoads := 0;
      Exit;
    end;
    LevelRespond;
    Tries := 0;
    MouseBox(182, 393, 341, 455, 2);
    wait(200+random(100));
    ChooseOption('ll');
    LevelRespond;
  end else
  begin
    Writeln('No Longbows Found In Ivintory');
    Writeln('Be Sure You Filled Out PlayerSetup Correctly, If You Did Report This ERROR!');
    Logout;
    Players[CurrentPlayer].Active := False;
    CurrentPlayer := 0;
    LogoutLoads := 0;
    Exit;
  end;
  repeat
    wait(1000 + Random(500));
    AntiBanRandom;
    LevelRespond;
    if FindNormalRandoms then
    begin
      RunAwayDirection(RunBackX, RunBackY, 'W');
      Wait(5000+random(5000));
      RunBack(RunBackX, RunBackY);
      SetRun(False);
      SRLRandomsReport;
      if (FindColorTolerance (x, y, IvinBS, 579, 229, 579, 229, 5)) then
      begin
        NumberOfItem := RandomRange(1, 15);
        MouseItem(NumberOfItem, True);
        wait(65+random(34));
      end;
      if (FindColorTolerance (x, y, IvinLBU, 666, 335, 666, 335, 5)) then
      begin
        NumberOfItem := RandomRange(14, 29);
        MouseItem(NumberOfItem, True);
      repeat
        wait(50 + random(50));
        Tries := Tries + 1;
      until(FindColorTolerance(x, y, 128, 136, 361, 170, 381, 2)) Or (Tries >= 100);
      if (Tries > 99) then
      begin
        Writeln('Error While Waiting For String Bows Option');
        Writeln('Please Report This Error');
        LogOut;
        Players[CurrentPlayer].Active := False;
        CurrentPlayer := 0;
        LogoutLoads := 0;
        Exit;
      end;
      Tries := 0;
      MouseBox(182, 393, 341, 455, 2);
      wait(200+random(100));
      ChooseOption('ll');
    end else
    begin
      Writeln('No Longbows Found In Ivintory.');
      Writeln('Be Sure You Filled Out PlayerSetup Correctly, If You Did Report This ERROR!');
      LogOut;
      Players[CurrentPlayer].Active := False;
      CurrentPlayer := 0;
      LogoutLoads := 0;
      EXIT;
    end;
  end;
  until (not ExistsItem(28)) or (not(LoggedIn));
  if (not(ExistsItem(28))) then
  begin
    Writeln('Compleated 1 load');
    Loads := Loads + 1;
    LogoutLoads := LogoutLoads + 1;
    ReportVars[0] := ReportVars[0] + 14;
    ReportVars[1] := ReportVars[1] + (EXPFactor * 14);
    ProgressReport;
    if (LogoutLoads >= (Players[CurrentPlayer].Integers[1] + Random(7))) and (not( Loads >= Players[CurrentPlayer].Integers[0] )) then
    begin
      FirstTimeAround := True;
      LogoutLoads := 0;
      LogoutSleepLogin(Players[CurrentPlayer].Integers[2], Players[CurrentPlayer].Integers[3]);
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure AntiBanRandom;
begin
  case random(500) of
    0, 1, 2, 3: Begin
      KeyDown(VK_Down);
      Wait(random(1000));
      KeyUp(VK_Down);
    end;
    4, 5, 6, 7: Begin
      KeyDown(VK_Left);
      Wait(random(1000));
      KeyUp(VK_Left);
    end;
    8, 9, 10, 11: Begin
      KeyDown(VK_Right);
      Wait(random(1000));
      KeyUp(VK_Right);
    end;
    12, 13, 14, 15: Begin
      KeyDown(VK_Up);
      KeyDown(VK_Left);
      Wait(random(1000));
      KeyUp(VK_Up);
      Wait(random(800));
      KeyUp(VK_Left);
    end;
    16, 17, 18: Begin
      HoverSkill('random', False);
    end;
    19, 20, 21, 22: Begin
      PickUpMouse;
    end;
    23, 24: Begin
      AlmostLogout;
    end;
    25, 26: Begin
      BoredHuman;
    end;
    27, 28, 29, 30, 31: Begin
     HoverSkill('fletching', False);
    end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
Var LRT : Integer;

procedure ProgressReport;
Begin
  ClearDebug;
  Writeln('==========================================');
  Writeln('-§ Any Longbow Stringer By: FootBalljds §-');
  Writeln('-           Thanks SRL Team!!!           -');
  Writeln('==========================================');
  Writeln('Been Making Bows For You For');
  Writeln(TimeRunning);
  Writeln('Gained ' + IntToStr(Loads*14*EXPFactor) + ' Exp');
  Writeln('Strung ' + IntToStr(Loads*14) + ' ' + WhichLongbow + ' Longbows');
  Writeln('Did ' + IntToStr(Loads) + ' Loads');
  Writeln('Level Responded ' + IntToStr(RespondedToLevel) + ' Times');
  Writeln('==========================================');
  SRLRandomsReport;
  If LRT >= 315000 Then
  Begin
    SendSRLReport;
    MarkTime(LRT);
  end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
Procedure MainLoop;
begin
  if not LoggedIn then
    LoginPlayer;
  repeat
    MouseSpeed := 16 + random(1);
    if (OpenUpBank) then
    begin
      wait(100+random(50));
      if (WithdrawFromBank) then
      begin
        wait(100+random(50));
        StringThem;
        SRLRandomsReport;
      end;
      if not LoggedIn then
        LoginPlayer;
    end;
  until ( Loads >= Players[CurrentPlayer].Integers[0] );
  If LoggedIn Then
  begin
    LogOut;
    LogoutLoads := 0;
    FirstTimeAround := True;
  end;
  Players[CurrentPlayer].Active := False;
  CurrentPlayer := 0;
  while Players[CurrentPlayer].Active = False do
  begin
    CurrentPlayer := CurrentPlayer + 1;
    if CurrentPlayer > HowManyPlayers - 1 then
    begin
      Writeln('No More Active Players');
      Writeln('Terminating');
      TerminateScript;
    end;
  end;
  CurrentPlayer := 0;
  NextPlayer(False);
  if not LoggedIn then
    LoginPlayer;
  Loads := 0;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
begin
  SetupSRL;
  PlayerSetup;
  SRLID := Your_SRL_ID;
  SRLPassword := Your_SRL_Pass;
  ScriptId := '537';
  FirstTimeAround := True;
  MarkTime(LRT);
  if FindRs then
  begin
    ActivateClient;
  end else
  Begin
    Writeln('No RS');
    TerminateScript;
  end;
  Wait(500 + Random(500));
  repeat
    Setup;
    MainLoop;
  until False;
end.
////////////////////////////////////////////////////////////////////////////////

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

Looks Nice, Yes lol… Need To Work On Standards…
LOLZ!!!

[PHP]{=========================================================================]<–Credit to WT-Fakawi For this layout.
[ ]
[ NAME : Draynor Netter V10 ]
[ WRITER : Timer150/Richk1693 ]
[ CATEGORY : Fletching ]
[ DESCRIPTION : Strings And Banks Any Longbow ]
[ USAGE : To Raise Your Fletching Level ]
[ AUTOCOLOR : Yes ]
[ CONTACT : Pm Or Footballjds2000 On AIM ]
[ ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Position Players In Bank ]
[ 4. Set Playernames and Passwords / SRL Id and Pass in Player Setup ]
[ 5. You Do Not Have To Drag Cross Hair Over Client!, Amazing Aint It? ]
[ 6. Start Logged Out ]
[ 7. Please Post Proggies/Bugs ]
[=========================================================================}
[/PHP]

I'm Laughing My Ass Off!!!

Looks preety good. Yes from me.

hehe timer…

Woups…. lol :o
there i fixed it, how could i have put ur name in there haha… im such a dip.:eek:

Thanks BobboHobbo, i hope others agree with you.

Hehehehehhehehehehe =]

Yes from me (I got a preview :p)

Seems to have talent to me (not that I would know what it looks like:rolleyes:)

He's very nice and always respectful, to me anyways

From: Hobbit
Yes from me (I got a preview :p)

Seems to have talent to me (not that I would know what it looks like:rolleyes:)

He's very nice and always respectful, to me anyways

thanks hobbit, im hoping everyone else agrees. :)

EDIT: i guess 1 person didn't, who ever you are could you post your reason why?
thank you everyone for participating.

Yes.

Yes from me.

Wow thats the script that i see is very much popular in the free scripts section. I always thought you had potential and i think that in right

I vote NO!!!!!!!!

yes :)

its a yes from me got some good potential (Y)

From: the flea
its a yes from me got some good potential (Y)

thank you.

From: NaumanAkhlaq
Wow thats the script that i see is very much popular in the free scripts section. I always thought you had potential and i think that in right

I vote NO!!!!!!!!
i don't quite understand what you meant but thanks for participating anyhow.

yes :)

thanks!

From: Wizzup?
Yes from me.

Thank you very much Wizzup? and also for tell the ppl on my thread there are randoms at pc island. hehe

From: Negaal
Yes.

thanks negaal!

Did you PM all members telling them that you're going to apply…?

(Not voting yet BTW. I'll hold off till later, when I look at the script)

you will get in anyways, but doesnt mean you deserve less yes.

From: bullzeye95
Did you PM all members telling them that you're going to apply…?

(Not voting yet BTW. I'll hold off till later, when I look at the script)

no, i did pm a few asking them if i should apply or not(whether or not its even worth it) and yes please look over it, thanks!
PS i like your dancing robot =p haha

From: Killerdou
you will get in anyways, but doesnt mean you deserve less yes.

i don't quite understand what you mean by that, but hey, you voted yes =p/

and thanks to the anonymous person who just voted yes, ty everyone for participating!

Yes from me. You deserve membership.

He pmed me too, I think… I ain't going to vote in this one, sorry :) But dw, you'll get in for sure.

Well, first of all, I'll tell you, you get a yes from me. Here are a few things I saw though…

  case WhichLongbow of
    'Normal' : begin
      EXPFactor := 10 ;
    end;
    'Oak' : begin
      EXPFactor := 25 ;
    end;
    'Willow' : begin
      EXPFactor := 41 ;
    end;
    'Maple' : begin
      EXPFactor := 58 ;
    end;
    'Yew' : begin
      EXPFactor := 75 ;
    end;
    'Magic' : begin
      EXPFactor := 91 ;
    end;
  end;
end;

could be

  case WhichLongbow of
    'Normal' : EXPFactor := 10 ;
    'Oak' : EXPFactor := 25 ;
    'Willow' : EXPFactor := 41 ;
    'Maple' : EXPFactor := 58 ;
    'Yew' : EXPFactor := 75 ;
    'Magic' : EXPFactor := 91 ;
  end;
end;

Also,

      if (DoneWaited >= 12) and (LoggedIn) and (IsMusicLocation('Lumbridge Area')) then
        Result := True;

Should be something like

      if (DoneWaited >= 12)then
        if(LoggedIn)then
          Result:= IsMusicLocation('Lumbridge Area')

This way, it won't check the music location every time :)

And… wow. I couldn't really find anything else wrong with it… very nice :D

From: bullzeye95
Well, first of all, I'll tell you, you get a yes from me. Here are a few things I saw though…

This way, it won't check the music location every time :)

And… wow. I couldn't really find anything else wrong with it… very nice :D

thank you! il be sure to change those things that you mentioned! thanks for voting!

Yes from me. You're active + seems that you've worked hard on this script.

From: GoF
Yes from me. You're active + seems that you've worked hard on this script.

thank you, and about working hard… 5 hrs from 10 till 3 in the morning for past 2-3 weeks. because im not even aloud to play rs(my parents say). although they don't mind me scripting. but how am i guna test lol. thanks for the vote!

I saw stuff I rarely ever see in that script. While I don't really appreciate being pmed about it, he knows more than enough to become a member in my opinion.
YES!

From: JackLKrawl
I saw stuff I rarely ever see in that script. While I don't really appreciate being pmed about it, he knows more than enough to become a member in my opinion.
YES!

Thank you! Sorry about pming anyone i pmed, i was nervous as hell and didn't know whether or not to apply.

Sorry. I don't see any Bitmaps or DTMs. Your object finding is all based on colour…and you have things like:

 if (bankScreen) then
  begin
    BankLBU := GetColor(149, 83);
    BankBS  := GetColor(92, 78);
    Result  := True;
  end else
    Exit;

Why the 'end else Exit'?

From: Santa_Clause
Sorry. I don't see any Bitmaps or DTMs. Your object finding is all based on colour…and you have things like:

 if (bankScreen) then
  begin
    BankLBU := GetColor(149, 83);
    BankBS  := GetColor(92, 78);
    Result  := True;
  end else
    Exit;

Why the 'end else Exit'?

thank you for participating. i have no DTMs or BitMaps your correct. i believe they're unneeded in my script, and was only going to put them in to improve my chances. but i decided thats not *right*

From: Santa_Clause
Sorry. I don't see any Bitmaps or DTMs. Your object finding is all based on colour…and you have things like:

 if (bankScreen) then
  begin
    BankLBU := GetColor(149, 83);
    BankBS  := GetColor(92, 78);
    Result  := True;
  end else
    Exit;

Why the 'end else Exit'?

So you posted after all :D

i guess Santa didn't wanna give me a late x-mas gift =p;)

I'm not going to vote, maybe later.

I don't like that you didn't give credit to anybody but yourself for the main script. (Layout doesn't count). I helped you with finding bugs, ideas, and letting you know what things you can change in your script.

EvilChicken helped you loads with your script, yet no credit.

Give credit where it's due…

Sorry. I don't see any Bitmaps or DTMs. Your object finding is all based on colour…and you have things like:

My object finding is based on colour and no one complains to me :confused:
:p

But yes I know what is your point, jds, your object finding isn't very complex, you are looking for one point to move mouse on, if not uptext found, to next point - searching with Tol 5 for one color without any sorting the points to groups or skipboxes etc results in many points, and that will be a lot of mmousing, which normal people don't do.

So, next time you're making an object finder, find it like you would ;)

From: n3ss3s
My object finding is based on colour and no one complains to me :confused:
:p

But yes I know what is your point, jds, your object finding isn't very complex, you are looking for one point to move mouse on, if not uptext found, to next point - searching with Tol 5 for one color without any sorting the points to groups or skipboxes etc results in many points, and that will be a lot of mmousing, which normal people don't do.

So, next time you're making an object finder, find it like you would ;)

thank you! my object finding isn't very complex your correct.

@Swift, i cant name every person that helped me! i Did thank you, and everyone else on The srl forums. but im sorry i don't have your specific name in there. yes you tell me bugs. but everyone that uses my script should do that. thanks for you comment though

Another thing I don't appreciate is you going into everyone elses fletching script, or anyone with a question about fletching scripts, and saying to go to the link in your sig for the best script in da worle.

From: footballjds
if you want a working 1337 stringer use mine, link in siggy

From: footballjds
Use my Script for longbow stringing, strings any longbow! very fast, anti ban, anti randoms, random offsets! very fast!!! link in my sigggy

From: footballjds
Checkout my Longbow stringer, very fast, anti randoms, anti ban, random offsets! everything, link in sigg

From: footballjds
if you want a working 1337 stringer use mine, link in siggy

From: footballjds
Use mine, for link click link in siggy, it has anti ban, anti randoms, auto color, and more!

From: footballjds
use mine! for link click the link in siggy

From: footballjds
Use mine, its very good, click link from my SIG

All of these posts you made are in different threads of different users.

Look at how many people helped you, no credit anywhere for the code you used in your script from help:
http://www.villavu.com/forum/showthread.php?t=23614?t=25763

From: Swift
Another thing I don't appreciate is you going into everyone elses fletching script, or anyone with a question about fletching scripts, and saying to go to the link in your sig for the best script in da worle.

All of these posts you made are in different threads of different users.

Look at how many people helped you, no credit anywhere for the code you used in your script from help:
http://www.villavu.com/forum/showthread.php?t=23614?t=25763

ok first off all i only posted those in outdated threads that ppl kept saying didn't work and were begging for a stringer, or in the script request section when ppl were asking for a longbow stringer, it is not the best in the world!
^^also i didn't post that many, just like 3-4
but i belive it is the only Longbow stringer for JR mem this isn't outdated.
second that link is a function i posted. i didn't ask for help, and i didn't use any ideas that were posted there. also i thanked everyone on the srl forums. if i were to name each person 1 by 1 would that make you happy??

thanks for posting your concerns though, even if your purpose is to put a ding on my rep.

You only thanked Timer and all of SRL Forums until I brought it up.
Now you added me to your thanks using the same wording I said I helped you with…

You think I'm making up all those quotes? Those are all genuine.

Why post in outdated threads, you pretty much bumped and brought them back to life. More people will look at those threads you bumped because you wanted to advertise your own script.

From: Swift
You only thanked Timer and all of SRL Forums until I brought it up.
Now you added me to your thanks using the same wording I said I helped you with…

You think I'm making up all those quotes? Those are all genuine.

Why post in outdated threads, you pretty much bumped and brought them back to life. More people will look at those threads you bumped because you wanted to advertise your own script.

im sorry you feel i was "advertising" my script. i told you the truth and i can do nothing as to whether or not you believe it. i do thank everyone for helping me!
there is absolutely NO way i could have made this script with the srl forums help, that includes everyone on it!:fiery:

Offtopic] Congratz on membership Jack :)[/offtopic]

sorry jds, but I'm quite sure Swift didn't make them up.

@Nauman: Jack being who?
a) Don't post such offtopic in an application
b) Don't post offtopic stuff with peoples real names making it more offtopic if the person's forum name is not known by everyone or clear by the thread's title.
c) Or maybe instead just pm him?

:)

no he didn't. but he did

if you want a working 1337 stringer use mine, link in siggy

put that in twice. thats what i was referring 2.:o

@congrats on membership? im not a member, and if swift keeps trying hard as hell to stop me from being 1 i might not be, and you meant jack ass right? not just jack? or what were you talking about …

I put it in twice because you must have posted it twice in different threads.

Nauman = High or something, he thinks your name is Jack or someone else who has posted in this thread that has recently became one.

@Football: Swift = Doctor Sloane.

@swift, i didn't post that on 2 threads, i wasn't trying to *advertise* i was trying to show people that there was a script that worked.
about the link in my siggy, maybe my siggy knows where you live? and will come get you , jkjkjkjk…:rolleyes:

@n3ss3s, im lmfao, thanks for makin my day.. =p

PS i siggied that!

maybe my siggy knows where you live? and will come get you

The transsexual doll with too much lipstick and make up and a bad surgery??

Lol, I can imagine the conversation on Swift's door:

- "Pizza!"
- "I didn't order any"

*10 minutes*

- " It's your wife, come open the door! What was my name again ? "
- "Lol -.-"

*10 minutes*

- " I'm coming to get you "

- /takes a hairdryer and attacks the doll.

HAHAHAHAHAHAHAHA
HAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHA… if my siggy had enough room id add that to!!!!!!!!!!:p

PS.. maybe a rolling pin would be better? hehe…

Lol @ n3ss3s:

sorry jds, but I'm quite sure Swift didn't make them up.

@Nauman: Jack being who?
a) Don't post such offtopic in an application
b) Don't post offtopic stuff with peoples real names making it more offtopic if the person's forum name is not known by everyone or clear by the thread's title.
c) Or maybe instead just pm him?

swift, you ignored the fact that you were called DR sloane…;) jk..

DR. Sloane = Teh 1337

Nauman was talking to JackLKrawl… I'm not going to state how easy that was to figure out.

And Football… Its a no just because you're siggy freaked me out. You'll get in anyway lol.

ohh jacklkrawl.. lolz im dip.. hehe.
and mick, why vote no? cmon i don't want to take chances like that. you should vote what you think. not based on anything siggy related. but based on the script. wizzup? bases his vote on the script. =p

From: footballjds
ohh jacklkrawl.. lolz im dip.. hehe.
and mick, why vote no? cmon i don't want to take chances like that. you should vote what you think. not based on anything siggy related. but based on the script. wizzup? bases his vote on the script. =p

btw i found swifts mom
http://ymess.ro/files/funimg/fat-bitch%5B1%5D.jpg

How old are you? You have to be older than 13 to join SRL.

How many others agree with me that his last post with my mom's pic in it would make them wish they had voted No?

He edited his post, or a mod did, but I'm not making this up.

As a general rule, I don't vote on member applications. But your little deal with the PMing makes me want to vote no.

I'm not going to. I'm just saying… You really think I need you filling my inbox up with crap like that?

Kay boys, game off, Wizzy is Wizzy and Swift is Swift.

Voting on the attitude or anything like that is also part of the voting.

Also, you said he should vote what he thinks, well, isn't what he thinks what he thinks? :p

From: NaumanAkhlaq
Offtopic] Congratz on membership Jack :)[/offtopic]

Thanks =D

From: Swift
Lol @ n3ss3s:

sorry jds, but I'm quite sure Swift didn't make them up.

@Nauman: Jack being who?
a) Don't post such offtopic in an application
b) Don't post offtopic stuff with peoples real names making it more offtopic if the person's forum name is not known by everyone or clear by the thread's title.
c) Or maybe instead just pm him?

… =D
[OffTopic]I'm keeping a copy of that picture[/OffTopic]

Football doesn't usually keep a good attitude, and I started to vote no because of it. He bashed Ip-Drowner or Downer, hijacks threads, he does all sorts of lame stuff but he's not doing it on purpose. It kinda makes me sad that he went and googled 'fat bitch' for a picture to bash swift with, and I'm worried he'll get a little too proud if he does become a member.

sorry swift, and im the one that edited it out, not a mod, because i thought it was not right.
and i was not trying to hijack anyones threads.
I'm not to proud, sorry for getting upset with you swift, and sorry for the pic.
I didn't bash Ip-Drowner.
im realy not what y'all are making me out to be, i made some mistakes, not on purpose, i said stuff i thought to be funny. needless to say no one agreed.
well i promise i won't do anything of the sort. even if i stay a community member.
i would like to apoligize to everyone and ask them to forgive me,

Sorry,

~footballjds
P.S. I promise i will do nothing of the sort again, if you believe me, please vote based on my script. not my previous actions, thank you.

You think all you need is a good script to get in??

Seems like the tides are starting to turn on this thread. I think we should give him one more month before he becomes a member…just to fix the attitude.

From: Swift
You think all you need is a good script to get in??

no i do not.

From: Santa_Clause
Seems like the tides are starting to turn on this thread. I think we should give him one more month before he becomes a member…just to fix the attitude.

I completely understand why you say this, if i must wait another month i will do so. and i will understand why. it is because i acted wrongly. i am sorry for doing so.

You obviously do:

please vote based on my script. not my previous actions, thank you.

From: Swift
You obviously do:

your taking what i said out of context.

Your script is nice, but I don't see why you didn't use a dtm of the unstrung longbow and a dtm of the bowstrings for finding them.

And when you use the getcolor from a certain position and then search for the color in the bank then check the uptext, you might as well MMouse over that position and check the uptext.

If I'm wrong please correct me.

From: mickaliscious
Your script is nice, but I don't see why you didn't use a dtm of the unstrung longbow and a dtm of the bowstrings for finding them.

And when you use the getcolor from a certain position and then search for the color in the bank then check the uptext, you might as well MMouse over that position and check the uptext.

If I'm wrong please correct me.

you're right. i didn't use DTM's because i believed they were undeeded, actouly i stated above why i didn't….

From: footballjds
you're right. i didn't use DTM's because i believed they were undeeded, actouly i stated above why i didn't….

I know, I've read the entire thread. I just don't see why you believe they are un-needed.

because it really wouldn't make much of a difference and DTMs are slower than color finding.

From: Santa_Clause
Seems like the tides are starting to turn on this thread. I think we should give him one more month before he becomes a member…just to fix the attitude.

I don't, he didn't say that to be cruel or to offend anyone. It's just a thoughtless thing people do while trying to be funny. Hyper holds a grudge because I did something similar a few months ago. I think we need to remember intentions, not the actions themselves.

thanks jack, i can only hope others to agree, and i am sorry for what i did, pmed swift and said so.

From: JackLKrawl
I don't, he didn't say that to be cruel or to offend anyone. It's just a thoughtless thing people do while trying to be funny. Hyper holds a grudge because I did something similar a few months ago. I think we need to remember intentions, not the actions themselves.

Care to explain his thread advertising…? His explanation 'All those script threads were outdated' isn't good enough, as Swift said.

Can we please just stick to the application.

No more bickering

Vote, say your two cents and be done with it already.

footballjds, remember me?

Hehehehe.
Not to be cruel, but fix your attitude. (sp? >_<)

*sigh*
Yes from me.

Swift:Thanks for pointing that out.

In.