Updated On 11/25/09 Verison 1.2
Status: Broken (Thanks to RS update Dec 3,2009)
I have added:
1) A Few More Failsafes
2) MultiPlayer
3) A Few other things to help the script find those symbols
4) Now Should bank better
I still need feedback on how it works and if there are any bugs
This is just a beta right now Enjoy!
Start At Draynor's Willow Tree Spot By Draynor Bank
I'll Be Adding More Stuff To It In The Next Few Days
Please Post Report And Any Bugs You Find, Thanks
This Is The Smart Verison Of It
Need Help Or Just Want To Say Good Job MSN Message Me At [email protected]
Progress Report:
Status: Broken (Thanks to RS update Dec 3,2009)
I have added:
1) A Few More Failsafes
2) MultiPlayer
3) A Few other things to help the script find those symbols
4) Now Should bank better
I still need feedback on how it works and if there are any bugs
This is just a beta right now Enjoy!
Start At Draynor's Willow Tree Spot By Draynor Bank
I'll Be Adding More Stuff To It In The Next Few Days
Please Post Report And Any Bugs You Find, Thanks
This Is The Smart Verison Of It
Need Help Or Just Want To Say Good Job MSN Message Me At [email protected]
Progress Report:
Code:
+++++++++Ghosts WillowKiller+++++++++
+++++++++++++++++++++++++++++++++++++
Script Ran For: 15 Minutes and 3 Seconds
Logs Banked: 108
Exp Gained: 7236
+++++++++++++++++++++++++++++++++++++
Code:
{==============================================================================]
[ Draynor Willow Banker Made By Ghostman ]
[ SRL And SCAR ]
[ ]
[ Please Don't Post Anywhere Else Without Asking Me First ]
[ ]
[ ]
[==============================================================================]
[ Description. ]
[==============================================================================]
[ This script cut willow in the back of Draynor bank and banks them. ]
[ Thats it for the description lol. I'll add more to ir later. ]
[==============================================================================]
[ Instructions. ]
[==============================================================================]
[ 1. Start By The Willows At The Back of Draynor Bank. ]
[ ]
[ 2. You Can Have Your Axe Equiped Or Not ]
[ ]
[ 3. Setup Player Information Up On Lines 41-45. ]
[ ]
[ 4. Hit Run And Enjoy The Script. ]
[==============================================================================]
[ Extras. ]
[ ]
[ ]
[ If You Have Anyideas For The Script Post Them On The Thread Or MSN Message Me]
[ ]
[ Remember To Post Those Progress Report Of The Script On My Thread. ]
[ ]
[ If You Find Any Bugs Please Let Me Know. ]
[==============================================================================}
program GhostsTreeKiller;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
Var
x,y,Logs,Loads,Exp,LoadsFin,LoadsUntilSwitch:integer;
Const
SmartWorld = 171;//World to load
Members = False;//Members?
SignedClient = True;//Used signed client?
HighDetail = False;//Use high detail?
Procedure DeclarePlayers;
begin
HowManyPlayers:= 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
With Players[0] do
begin
Name :='';//Username
Pass :='';//Password
Nick :=''//3-4 Letters of your username, no caps or first letter
Active := True;// Active or Not
Pin :='';//Leave blank if there is no bank pin
Integers[0] := 100;
end;
With Players[1] do
begin
Name :='';//Username
Pass :='';//Password
Nick :=''//3-4 Letters of your username, no caps or first letter
Active :=False;// Active or Not
Pin :='';//Leave blank if there is no bank pin
Integers[0] :=100;
end;
end;
/////Don't touch anything past this///////////////
Procedure Antiban;
begin
if(not(LoggedIn))then Exit;
case random(600) of
0..10: BoredHuman;
100..110: HoverSkill('Woodcutting',False);
200..210: RandomMovement;
300..310:begin
Gametab(21+Random(16));
Wait(1400+Random(1600));
Gametab(Tab_inv);
end;
400..410: PickUpMouse;
500..510: begin
SetAngle(False);
Wait(Random(150+Random(400)));
MakeCompass('E');
Wait(Random(200+Random(325)));
MakeCompass('W');
Wait(Random(400+Random(500)));
SetAngle(True);
MakeCompass('N');
Wait(152+(Random(100)));
MakeCompass('S');
end;
end;
end;
Function FindRandom: Boolean;
begin
If(Not(LoggedIn)) then Exit;
Result := FindNormalRandoms;
If FindFight Then
begin
RunAway('N',True,1,15000);
end;
exit;
end;
Function WalkToTree: Boolean;
begin
if (not(LoggedIn)) then
LoginPlayer;
MakeCompass('S');
SetAngle(True);
begin
SymbolAccuracy:=0.1;
Wait(450+(Random(100)));
If FindSymbol(x,y,'fish') then
begin
SetRun(True);
Mouse(x,y,4,4,True);
FFlag(10);
result := True;
Writeln('Walking To Trees');
end else
begin
WriteLn('Cant Find Symbol');
Players[CurrentPlayer].Active := False;
Players[CurrentPlayer].Loc :='Walking To Trees';
LogOut;
NextPlayer(False);
Exit;
end;
end;
end;
procedure Choptree;
Var
MarkedTime: integer;
begin
if(not(LoggedIn)) then Exit;
MarkTime(MarkedTime);
begin
Repeat
If (not(LoggedIn)) then Break;
Wait(3000+Random(500));
If FindObjTPA(x,y,3165781,13,-1,10,15,15,['Willow']) then
begin
If (IsUpText('Chop down Willow')) then
Wait(1000+Random(450));
begin
FindRandom;
Mouse(x,y,0,0,false);
Wait(1500+(Random(100)));
ChooseOption('hop')
Wait(2000+(Random(250)));
end;
end;
Until((InvFull) or (TimeFromMark(MarkedTime)>=15000));
end;
end;
Function WalkToBank: Boolean;
begin
if (not(LoggedIn)) then Exit;
if(InvFull) then
begin
SetRun(True);
SymbolAccuracy:=0.2;
WriteLn('Walking To Bank');
if findSymbol(x,y,'bank') then
begin
Mouse(x,y,4,4,true)
FFlag(10);
Result:=True;
end else
begin
WriteLn('Cant Find Bank');
Players[CurrentPLayer].Active := False;
PLayers[CurrentPlayer].Loc := 'Walking To Bank';
LogOut;
NextPlayer(False);
Exit;
end;
end;
end;
Function Bankit: Boolean;
Var
Willow:integer;
begin
if (not(LoggedIn)) then Exit;
if (InvFull) then
begin
Willow := DTMFromString('78DA63DCCBC4C050CDC80002CC0C1060AA2FC' +
'02007A441A2FF8180F114504D3DAA1A060626B81A10603C065453' +
'4A40CD11A09A7C026A7601D5143132A00226881C4CCD26841A9CE' +
'66C00AAA924A0660D11FEDA0254D34A40CD3EA09A16026A8E03D5' +
'34E25703009A29135C');
If OpenBank('db',True,True)then
end;
begin
Wait(500+Random(400));
FixBank;
If PinScreen then InPin(Players[CurrentPlayer].Pin);
If (FindDTM(Willow,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
Mouse(x,y,4,4,False);
Wait(250+Random(100));
ChooseOption('All');
Result:=True;
Logs:=logs+27;
Exp:=Exp+27;
LoadsFin:=1;
CloseBank;
FreeDTM(Willow);
WalkToTree;
end;
end;
end;
Procedure ProgressReport;
begin
ClearDebug;
WriteLn('+++++++++Ghostmans WillowKiller+++++++++');
WriteLn('++++++++++++++++++++++++++++++++++++++++');
WriteLn('Script Ran For: ' + TimeRunning);
WriteLn('Logs Banked: ' + IntToStr(Logs));
WriteLn('Exp Gained: ' + IntToStr(Exp*67));
WriteLn('Loads Finished: ' + IntToStr(LoadsFin));
WriteLn('++++++++++++++++++++++++++++++++++++++++');
WriteLn('++++++++++++++++++++++++++++++++++++++++');
end;
procedure MainLoop;
begin
If(Not(LoggedIn)) then LoginPlayer;
begin
WalkToTree;
Repeat
Repeat
LoadsUntilSwitch := Players[CurrentPlayer].Integers[0];
FindRandom;
Antiban;
ChopTree;
if Invfull then
begin;
WalkToBank;
Bankit;
end;
ProgressReport;
Until(LoadsFin >= LoadsUntilSwitch) or (Not(LoggedIn));
If LoadsFin = LoadsUntilSwitch then
WriteLn('Finished Loads, Loading Other Account');
Players[CurrentPlayer].Active := False;
If PlayersActive > 0 then NextPlayer(False);
Until AllPlayersInactive;
Logout;
TerminateScript;
WriteLn('All Players Are Inactive');
ProgressReport;
end;
end;
begin
Smart_Server := 171;//World to load?
Smart_Members := False;//Members?
Smart_Signed := True;//Signed client?
Smart_SuperDetail := False;//SMART high detail?
SetupSRL;
ClearDebug;
DeclarePlayers;
ActivateClient;
LogInPlayer;
Repeat
MainLoop;
Until (False)
end.
