thanks
program Footballjds_ANY_LONGBOW_STRINGER;
{$Define SMART} // This is where I defined SMART. If you don't want to use SMART, take out this line.
{$IfDef SMART} // In the next 3 lines, it will only include SMART.scar if you have defined SMART.
{.include SRL/SRL/Misc/Smart.scar}
{$EndIf}
{=========================================================================]<--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, LevelsGained, 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 := ''; //Don't have this? Go to:
Your_SRL_Pass := ''; //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] := 4; //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] := 25; //Logout Every How many loads?
Players[0].Integers[2] := 5; //Stay Logged Out for how many minutes?
Players[0].Integers[3] := 1; //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
Result := False;
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;
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(707, 442);
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;
if (FindNormalRandoms) then SRLRandomsReport;
repeat
MakeCompass('N');
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;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function StringThem(RRange1, RRange2, RRange3, RRange4 : integer) : boolean;
var
Tries, NumberOfItem : integer;
begin
Result := False;
if (not(FirstTimeAround)) then
begin
Tries := 0;
repeat
wait(50+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;
GameTab(4);
NumberOfItem := RandomRange(RRange1, RRange2);
MouseItem(NumberOfItem, True);
wait(65+random(34));
if not(FindColor(x, y, IvinLBU, 707, 442, 707, 442)) then EXIT;
NumberOfItem := RandomRange(RRange3, RRange4);
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));
if not(ChooseOption('ll')) then EXIT;
Result := True;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure WaitWhileString;
var
RunBackX, RunBackY : integer;
begin
repeat
wait(1000 + Random(500));
AntiBanRandom;
LevelRespond;
if FindNpcChatText('vel') then
begin
inc(LevelsGained);
ClickToContinue;
wait(200+random(100));
StringThem(14, 15, 28, 29);
end;
if FindFight then
begin
RunAwayDirection(RunBackX, RunBackY, 'W');
Wait(5000+random(5000));
RunBack(RunBackX, RunBackY);
SRLRandomsReport;
wait(200+random(100));
StringThem(14, 15, 28, 29);
end;
if FindNormalRandoms then
begin
SRLRandomsReport;
wait(200+random(100));
StringThem(14, 15, 28, 29);
end;
until (not ExistsItem(28)) or (not(LoggedIn));
if (not(LoggedIn)) then EXIT;
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;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBanRandom;
begin
case random(500) of
1, 2, 3: Begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
end;
5, 6, 7: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
end;
9, 10, 11: Begin
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
end;
13, 14, 15: Begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
end;
17, 18: Begin
HoverSkill('random', False);
end;
19, 20, 21, 22: Begin
PickUpMouse;
end;
24: Begin
AlmostLogout;
end;
26: Begin
BoredHuman;
end;
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');
if (LevelsGained > 0) then
Writeln('Gained ' + IntToStr(LevelsGained) + ' Levels');
Writeln('Level Responded ' + IntToStr(RespondedToLevel) + ' Times');
Writeln('==========================================');
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));
if StringThem(1, 15, 15, 29) then WaitWhileString;
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
{$IfDef SMART}
SmartSetup('ams3', False, false);
while not(SmartReady) do Wait(100);
SetTargetDC(SmartGetDC);
if not(LoggedIn) then
while not(SmartGetColor(386, 249) = 65535) do Wait(100);
{$EndIf}
SetupSRL;
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.
////////////////////////////////////////////////////////////////////////////////