iBlank
2012-05-17 04:42:49
Al's AIO Hide Tanner
Description
This tanning script will tan any hide that is available for tanning at the hide tanner, Ellis, in Al Kharid. The script also has the option of using any type of energy potion in order to increase the speed of the hide tanning process.
Setup
1.) Fill out all necessary information within the script.
2.) Have the hide you want tanned in the first bank tab, in the first slot.
3.) If using potions have them in the first bank tab, in the second slot.
4.) Hit run and enjoy.
Precautions
1.) The script will continue to run even without anymore hides in the bank. (Don't plan on changing. If you want to run it for long times unattended, then learn some scripting and fix it ;))
2.) The antiban is nothing special, so take the time to make it better for your own good!
***Please take the time to post progress reports and/or bug reports. And most of all, enjoy!***
Description
This tanning script will tan any hide that is available for tanning at the hide tanner, Ellis, in Al Kharid. The script also has the option of using any type of energy potion in order to increase the speed of the hide tanning process.
Setup
1.) Fill out all necessary information within the script.
2.) Have the hide you want tanned in the first bank tab, in the first slot.
3.) If using potions have them in the first bank tab, in the second slot.
4.) Hit run and enjoy.
Precautions
1.) The script will continue to run even without anymore hides in the bank. (Don't plan on changing. If you want to run it for long times unattended, then learn some scripting and fix it ;))
2.) The antiban is nothing special, so take the time to make it better for your own good!
***Please take the time to post progress reports and/or bug reports. And most of all, enjoy!***
Program Als_AIO_Hide_Tanner;
{$I SRL/SRL/Misc/Smart.simba}
{$i SRL/SRL.simba}
{$i ObjectDTM/ObjDTMInclude.simba}
{$i SPS/SPS.simba}
Const
World = 88; // Enter world to tan material in.
Pin = ''; // Enter pin number.
HType = ''; // Enter hide you are tanning (Soft,Hard,SnakeNorm,SnakeSwamp,Green,Blue,Red,Black).
UsePots = True; // Set True to use energy pots, False to not use energy pots.
SRLStats_User = ''; /// SRL Stats Username.
SRLStats_Password = ''; /// SRL Stats Password.
Var
X,Y,Tries,Hides,TimeGone,HPH,R :Integer;
MyPath :TPointArray;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; // Enter your username.
Players[0].Pass :=''; // Enter your password.
Players[0].Nick :=''; // Enter parts of character name for randoms and proggy.
Players[0].Active:=True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
Players[0].WorldInfo := [False, World];
End;
Procedure ProgressReport;
Begin
ClearDebug;
SRLRandomsReport;
Stats_Commit;
TimeGone := (GetTimeRunning/1000);
HPH := (3600*(Hides))/((TimeGone));
Writeln('** Als Hide Tanner **');
Writeln('=====================');
Writeln('Hides Tanned: ' + IntToStr(Hides));
Writeln('Hides Per Hr: ' + IntToStr(HPH));
Writeln('=====================');
Writeln('*********************');
End;
Procedure AntiBan;
Begin
Case Random(600) Of
150: SleepAndMoveMouse(500);
450: PickUpMouse;
End;
End;
Procedure IfRandoms;
Begin
FindNormalRandoms;
AntiBan;
End;
Procedure Banking;
Begin
Repeat
If OpenBankFast('akb') Then
Begin
If PinScreen Then InPin(Pin);
Wait(RandomRange(500,700));
End;
Until BankScreen;
If BankScreen Then
Begin
DepositAll;
Wait(RandomRange(250,500));
If (UsePots = True) Then
Begin
If Not RunEnergy(35) Then
Begin
MouseBankSlot(2,Mouse_Left);
Wait(RandomRange(300,600));
R := 1;
End;
End;
MouseBankSlot(1,Mouse_Right);
Wait(RandomRange(300,600));
WaitOption('ll',500);
Wait(RandomRange(250,500));
CloseBank;
End;
AntiBan;
IfRandoms;
End;
Procedure ToTanner;
Begin
If (R = 1) Then
Repeat
InvMouse(1,Mouse_Left)
Wait(RandomRange(300,500));
Until (RunEnergy(85) Or FindBlackChatMessage('lask') Or FindBlackChatMessage('reaks'));
R := 0;
SetRun(True);
SPS_WalkPath(MyPath);
While IsMoving Do Wait(RandomRange(50,100));
AntiBan;
IfRandoms;
End;
Procedure Tanner;
Begin
Repeat
While IsMoving Do
Begin
Wait(RandomRange(115,215));
End;
If FindObjCustom(x,y,['El','lli','lis'],[15590380,5929419],13) Then Mouse(x,y,3,3,False);
IncEx(Tries,1);
Until(ChooseOption('an'))or (Tries>=10);
Flag;
Wait(RandomRange(400,600));
Tries := 0;
end;
Procedure TanHides;
Begin
If (HType = 'Soft') Then
Begin
MouseBox(68,77,110,178,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'Hard') Then
Begin
MouseBox(180,80,220,175,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'SnakeNorm') Then
Begin
MouseBox(284,81,335,180,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'SnakeSwamp') Then
Begin
MouseBox(399,81,449,181,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'Green') Then
Begin
MouseBox(67,205,114,298,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'Blue') Then
Begin
MouseBox(178,207,223,300,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'Red') Then
Begin
MouseBox(287,203,339,292,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
If (HType = 'Black') Then
Begin
MouseBox(399,201,448,294,Mouse_Right);
Wait(RandomRange(400,700));
ChooseOption('ll');
Wait(RandomRange(400,700));
CloseWindow;
End;
IncEx(Hides, 28);
AntiBan;
IfRandoms;
End;
Procedure ToBank;
Begin
InvertTpa(MyPath);
SetRun(True);
SPS_WalkPath(MyPath);
MyPath := [Point(4929, 3996), Point(4937, 3975), Point(4955, 3940), Point(4932, 3908)];
While IsMoving Do Wait(RandomRange(50,100));
AntiBan;
IfRandoms;
End;
Procedure BankArea;
Begin
InvertTPA(MyPath);
If (Not (ObjDTM_InArea('80:80:3:7:7:47:108:7:7:41:76:7:7:45:64:4:61:53:60:89:94:89:94:53',True)))
Then SPS_WalkPath(MyPath);
While IsMoving Do Wait(RandomRange(50,100));
MyPath := [Point(4920, 3997), Point(4936, 3977), Point(4953, 3941), Point(4932, 3908)];
End;
Procedure MainLoop;
Begin
Banking;
ToTanner;
Tanner;
TanHides;
ToBank;
ProgressReport;
End;
Begin
ClearDebug;
MouseSpeed := RandomRange(18,23);
Smart_Server := 00;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
ObjDTM_Setup;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ClearDebug;
SetupSRLStats(1094, SRLStats_User, SRLStats_Password);
SPS_Setup(RUNESCAPE_SURFACE, ['12_8','12_9','12_10']);
MyPath := [Point(4920, 3997), Point(4936, 3977), Point(4953, 3941), Point(4932, 3908)];
Hides := 0;
R := 0;
ClickNorth(0);
BankArea;
Repeat
MainLoop;
Until (Not (LoggedIn));
End.
=P