Sir Ducksworthy
2012-04-26 05:21:34
LeetzSxcTanner
FEATURES
Al-Kharid
Highly Fail Safed Actions
Color Combination ATPA's
Detects if Standing on NPC almost Instantly
New Custom SPS Walking Function
Will Keep the Char Constantly Running
Can do up to 2400 Hides an Hour
Can use Energy Pot's
Random Mouse Movement's and Constantly Fluctuating Mouse Speed
Updated!
Now support's Green-Black and run's more reliably
program LeetzSxcHideTanner;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$I SRL/SRL/misc/debug.simba}
{$i sps/sps.simba}
const
//////////////////////////////////////////IMPORTANT!!IMPORTANT!!IMPORTANT!!IMORTANT\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//Welcome to LeetzSxcHideTanner by Leetsxc, Please review the STEPS below and complete which are required before starting the script.\\
// \\ // \\
//////////////////////////////Start of $etup////////////////////////////////////
SERVER = 85; // Enter "0" to pick a random server. STEP 1 // //
MEMBERS = False; //False if F2P True for P2P STEP 2 // //
NumbOfPlayers = 1; // \\ // //
StartPlayer = 0; // \\ // //
/////BREAKING SETUP\\\\\ // //
UseBreaks = True; //Do you want to take breaks? STEP 3 \\ // //
SwitchWorld = False;//Do you want to switch worlds after the break? STEP 4 \\ //
BreakIn = 290; //How many minutes until you take a break? STEP 5 \\ // //
BreakInRandom = 10; //How many minutes should the "BreakIn" time be varied by? STEP 6 \\ \\
BreakFor = 7; //How many minutes will you break for? STEP 7 \\\ \\ //
BreakForRandom = 7;//How many minutes should the "BreakFor" time be varied by? STEP 8 //\\ \\
///END OF BREAKING SETUP\\\ //\/\\ \\ //
// \\ //\/\/\\ \\
////LeetzSxcTanner Setup\\\\ \/\/\/\/ // //
Trial_Member = False; //Trial Member Account or not? For the stupid message on start-up. STEP 8
UseEnergyPotions = True; //Use energy pot's on When under 20-30% Energy STEP 9
FirstWordofPot = 'Super e'; //Two Words if Super STEP 10
Potion_Bank_Slot = 28; //Bank Slot Pot's are in STEP 11
FirstWordofHide = 'Black'; // STEP 12
Bank_Slot = 26; //Bank Slot hide's are in STEP 13 /\/\
Profit = 286; //Calculate your profit per Hide tanned through G.E and change it \/\/
HowMany = 15000; //How many Hides to tan STEP 14 //^^\\
UseGloryAsFailSafe = True; //Teleport to Al-Kharid Using Glory if 2Min+ mess up // STEP 15 \\vv//
///End of LeetzSxcTanner Setup\\\
var //\/\\
q,Tanner, Tanner2, RandomPath, posx, posy, StartTime, AntiBans, Tans, x, y, breaktimer, BreaksTaken: integer;
PathPointsBank: Tpointarray;
UsePots,ColorComboDetected:boolean;
MyPos: Tpoint;
procedure DeclarePlayers;
var
i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[i].BoxRewards := ['amp'];
Players[i].LampSkill := 13;
end;
With Players[0] do
begin
Name := ''; //Username. STEP 16
Pass := ''; //Password. STEP 17
Active := True;
end;
{ With Players[1] do //For more players uncomment the {'s at top left and bottem right
begin
Name := ''; //Username.
Pass := ''; //Password.
Active := True;
end; }
end;
////////////////////////////// End of Setup////////////////////////////////////
procedure AntiBan;
begin
if(not(LoggedIn))then
exit;
FindNormalRandoms;
Findnoninventoryrandoms;
Case Random (2500) of
0..18: Begin
SleepAndMoveMouse(1000 + Random(1750));
AntiBans:=AntiBans+1;
End;
19..24: Begin
GameTab(tab_Inv)
ExamineInv;
SleepAndMoveMouse(600 + Random(1553));
AntiBans:=AntiBans+1;
End;
25..42: Begin
RandomAngle(1);
AntiBans:=AntiBans+1;
End;
55..65: Begin
PickUpMouse;
AntiBans:=AntiBans+1;
End;
66..120: Begin
RandomMovement;
AntiBans:=AntiBans+1;
End;
121..124: Begin
BoredHuman;
AntiBans:=AntiBans+1;
End;
End;
end;
function FindTpa(HueModifier, SatModifier:TExtendedArray; Color, Tol, ColorCombo:TIntegerArray; Length1, Length2, xx1, yy1, xx2, yy2:Integer; Text, Option:TstringArray; RandomClicking, MakeShort:Boolean): Boolean;
var
Probability, ArrayLength, CTS, I,II: Integer;
TPA,StoreTPA: TPointArray;
ATPA: Array of TPointArray;
Uptextfound:boolean;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
For i := 0 to High(Color) do
begin
SetColorSpeed2Modifiers(HueModifier[i], SatModifier[i]);
if(FindColorsSpiralTolerance(x, y, StoreTPA, Color[i], xx1, yy1, xx2, yy2, Tol[i]))then
begin
RAaSTPA(StoreTPA, 60);
//Splitting Points once per Color Works best Because you have a higher probability of finding something with 2 colors on the same Area within a range
TPA := TPA+StoreTPA;
StoreTPA:=[];
end else
{*Color Combinations if we do not find for example the red on a chicken or the yellow on the feet inside a TPA it lowers the probability that the rest of the colors relate to a chicken and more likely
A hay bale or something this allows me to very accurately find Creatures or people or basically any item its sort of like TPA DTM Detection*}
For II:=0 to High(ColorCombo) do
if(i=ColorCombo[II])then
begin
Probability:=Probability+1;
if(Probability=High(ColorCombo)+1)then
begin
ColorComboDetected:=False;
Writeln('Didnt Find any Probable Color Combinations Exiting');
Exit;
end else
ColorComboDetected:=True;
break;
end;
end;
ATPA := TPAToATPA(TPA, 40);
SortATPAFromSize(ATPA, 40, true);
ColorToleranceSpeed(CTS);
DebugATPABounds(ATPA);
if(MakeShort)then
ArrayLength:= 2
else
ArrayLength:=High(ATPA);
For I := 0 to ArrayLength do
begin
Try
MiddleTPAEx(ATPA[i], x, y);
Except
//writeln('Something fucked up with middleTPAEx');
End;
mousespeed:=Randomrange(10,35);
MMouse(x, y, 0, 0);
mousespeed:=Randomrange(10,35);
GetMousePos(x, y);
For II := 0 to High(Text) do
If(WaitUpText(Text[II],200-(II*200)))then
begin
Uptextfound:=true;
break;
end;
if(Uptextfound)then
begin
if(RandomClicking)then
begin
Case Random(9) of
0..2: begin //**30% Right Click Chance**\\
Mouse(x,y,0,0,false);
if(WaitoptionMulti(Option, 200))then
begin
Result := True;
Break;
end;
end;
3..9: begin //**70% Left Click Chance**\\
Mouse(x,y,0,0,True);
Result := True;
Break;
end;
END;
end else
begin
Mouse(x,y,0,0,false);
if(WaitoptionMulti(Option, 200))then
begin
Result := True;
Break;
end;
Uptextfound:=false;
end;
end;
end;
end;
{*
#############################################################################################
*********DTM_WalkTo, by Leetsxc**********
#############################################################################################
Made from Orginal SPS_WalkToPos function
- Walks to position, P.
FEATURES
- Break's from loop when Distance from flag has been reached
- Will Randomly Select Run if Below a Random Percentage of 20-40 Energy Level
- No Longer uses Flag as it was to unreliable and would get you stuck in infinite Wait Loops
- Uses a Random Sleep and Move Mouse while waiting to reach specified Flag distance
- Tracks Energy Percentage to see if it has decreased, if it hasn't it will enable run
sxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxc
*}
function DTM_WalkTo(DTM, MMX1,MMY1,MMX2,MMY2, XMinus, YMinus, XPlus, YPlus, Distance:integer; rotated:boolean): boolean;
var
s:string;
z,a,Time, EnergyPercentage:integer;
afound:extended;
begin
if not LoggedIn then
Exit;
EnergyPercentage:=GetMMLevels('run', s);
if(Random(10) < 5)then
if(not(FindcolorTolerance(x, y, 6740716, 714, 99, 734, 118, 6)))then
if(EnergyPercentage > 20)then
SetRun(true);
if(rotated)then
begin
if(not(findDTMRotatedSe(DTM,x,y,MMX1,MMY1,MMX2,MMY2,-Pi, Pi, Pi/30, aFound)))then
begin
Result:=False;
exit;
end;
end else
if(not(findDTM(DTM,x,y,MMX1,MMY1,MMX2,MMY2)))then
begin
Result:=False;
exit;
end;
Result:=True;
X:=X-XMinus+XPlus;
Y:=Y-YMinus+YPlus;
if(FindColortolerance(z, a, 649453, x-20, y-30, x+20, y+25, 20))then
begin
if(CountColorTolerance(6584982, z-4, a-4, z+4, a+4, 15)>7)then
begin
if(Random(100)<49)then
Mouse(z+3,a+3, 0, 0, true)
else
Mouse(z-3,a+3, 0, 0, true);
end else
Mouse(x,y, 0, 0, true);
end else
Mouse(x,y, 0, 0, true);
Marktime(Time);
if WaitFunc(@IsMoving, 1, 3000 + random(500)) then
while isMoving do
begin
if(FlagDistance < Distance)then
break;
if(EnergyPercentage > 20)then
if(TimefromMark(Time)> 3000)then
if(not(GetMMLevels('run', s) < EnergyPercentage))then
begin
mousespeed:=Randomrange(10,27);
writeln('Energy Percentage hasnt decreased so we are not running.');
Mouse(715, 98, 20, 20, true);
EnergyPercentage:=0; //Stop tracking screw using another var to do so
end;
if(random(100) < 10)then
begin
mousespeed:=Randomrange(10,27);
SleepAndMoveMouse(random(500));
end;
if(Random(10) < 5)then
if(not(FindcolorTolerance(x, y, 6740716, 714, 99, 734, 118, 6)))then
if(EnergyPercentage > 20)then
SetRun(true);
sleep(200);
sleep(random(200));
end;
Result := True;
end;
{*
#############################################################################################
*********SPS_WalkToPos, by Leetsxc**********
#############################################################################################
Made from Orginal SPS_WalkToPos function
- Walks to position, P.
FEATURES
- Break's from loop when Distance from flag has been reached
- Will Randomly Select Run if Below a Random Percentage of 20-40 Energy Level
- No Longer uses Flag as it was to unreliable and would get you stuck in infinite Wait Loops
- Uses a Random Sleep and Move Mouse while waiting to reach specified Flag distance
- Tracks Energy Percentage to see if it has decreased, if it hasn't it will enable run
sxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxcsxc
*}
function SPS_WalkToPosSXC(P: TPoint; Distance:integer): boolean;
var
s:string;
Time, EnergyPercentage:integer;
MM: TPoint;
begin
if not LoggedIn then
Exit;
EnergyPercentage:=GetMMLevels('run', s);
if(Random(10) < 5)then
if(not(FindcolorTolerance(x, y, 6740716, 714, 99, 734, 118, 4)))then
if(EnergyPercentage > 20)then
SetRun(true);
MM := SPS_PosToMM(P);
if (MM.X > 0) then
begin
if (SPS_MultiMouse) then
MultiMouse(MM.X, MM.Y, 25, 3, false)
else
Mouse(MM.X, MM.Y, 0, 0, mouse_Left);
Marktime(Time);
if WaitFunc(@IsMoving, 1, 3000 + random(500)) then
while isMoving do
begin
if(FlagDistance < Distance)then
break;
if(EnergyPercentage > 20)then
if(TimefromMark(Time)> 2000)then
if(not(GetMMLevels('run', s) < EnergyPercentage))then
begin
mousespeed:=Randomrange(10,35);
writeln('Energy Percentage hasnt decreased so we are not running.');
Mouse(715, 98, 20, 20, true);
EnergyPercentage:=0; //Stop tracking screw using another var to do so
sleep(1000+random(400));
end;
if(random(100) < 10)then
begin
mousespeed:=Randomrange(10,35);
SleepAndMoveMouse(random(500));
end;
if(Random(10) < 5)then
if(not(FindcolorTolerance(x, y, 6740716, 714, 99, 734, 118, 4)))then
if(EnergyPercentage > 20)then
SetRun(true);
sleep(200);
sleep(random(200));
end;
Result := True;
end;
end;
procedure FailSafe;
var
NoGlory:Boolean;
begin
if(not( (FindNormalRandoms()) or (Findnoninventoryrandoms()) ))then
begin
writeln('We have been trying to Find something and walk to something for over 120 seconds on the Last Walk Points, their is no random and their is no random so to prevent us from looking like a stupid bot we are going to Teleport or log out and terminate script');
if(UseGloryAsFailSafe)then
begin
GameTab(tab_Equip);
sleep(200+random(300));
MMouse(628, 250, 29, 32);
sleep(20+random(30));
if(WaitUptext('glory (', 1000))then
begin
ClickMouse2(mouse_right);
if(WaitOption('Kharid', 1000))then
begin
Sleep(6000+random(3000));
SPS_WalkToPosSXC(Point(5003, 3983), RandomRange(3,8));
SPS_WalkToPosSXC(Point(5003, 3951), RandomRange(3,8));
SPS_WalkToPosSXC(Point(4979, 3931), RandomRange(3,8));
SPS_WalkToPosSXC(Point(4959, 3907), RandomRange(3,8));
SPS_WalkToPosSXC(Point(4931, 3895), RandomRange(3,8));
writeln('Teleported to Al-kharid via glory and walked to shop...');
end else
NoGlory:=true;
end else
NoGlory:=true;
if(NoGlory=true)then
begin
writeln('Either no Glory Equpped or out of charges... Logging out/Terminating');
LogOut;
TerminateScript;
end;
end else
begin
LogOut;
TerminateScript;
end;
end else
writeln('We are in a random event!');
end;
procedure TanProcess;
var
RandomTry,time,tries:integer;
begin
if(random(100)<=5)then
SleepAndMoveMouse(random(3000));
RandomTry:=randomrange(2,3);
MarkTime(time); //Find Black or White Color Combo Along with the Pink Shirt
While (FindTpa([0.03, 0.12, 0.35], [0.08, 0.23, 0.39], [3821188, 11379628, 1646625], [9, 15, 6], [1,2], 40,
40, MSX1, MSY1, MSX2, MSY2, ['Ellis'], ['hides'], False, True) = False) and (TimeFromMark(time)<60000) do
begin
tries:=tries+1;
if((tries=RandomTry) or (ColorComboDetected=False))then
begin
mousespeed:=Randomrange(10,35);
Mmouse(249, 152, 18, 19);
RandomTry:=0;
if(WaitUpText('Ellis', 200+random(100)))then
begin
writeln('We were standing on top of the npc XD...');
Getmousepos(x, y);
Mouse(x, y, 0, 0, false);
mousespeed:=Randomrange(10,35);
if(WaitOption('Tan', 1500+random(1500)))then
Break;
end;
end;
if(tries>randomrange(4,7))then
begin
mousespeed:=Randomrange(10,35);
if((rs_GetCompassAngleDegrees>10) and (rs_GetCompassAngleDegrees<350))then
__MakeCompass_MinCheck(358, 2);
mousespeed:=Randomrange(10,35);
SPS_WalkToPosSXC(Point(4931, 3895), RandomRange(2,3));
tries:=0;
end;
end;
if(TimeFromMark(Time)>120000)then
begin
FailSafe;
TanProcess;
end;
if(Waitfindcolor(x, y, 6951183, 179, 203, 221, 246, 7, 12000+random(5000)) = false)then
TanProcess
else
begin
sleep(random(750));
mousespeed:=Randomrange(10,35);
MMouse(q, 199, 62, 117);
Getmousepos(x,y);
sleep(25+random(30));
Mouse(x, y, 0, 0, False);
mousespeed:=Randomrange(10,35);
while (WaitOption('All', 5000+random(1000)) = false) do
if(Waitfindcolor(x, y, 6951183, 179, 203, 221, 246, 5, 100+random(200)))then
begin
writeln('Didnt find Tan Option All but found Color.. after a 5 sec wait?!');
mousespeed:=Randomrange(10,35);
MMouse(q, 199, 62, 117);
Getmousepos(x,y);
sleep(25+random(30));
Mouse(x, y, 0, 0, False);
mousespeed:=Randomrange(10,35);
end else
begin
writeln('Didnt find color.. or text trading guy again..');
TanProcess;
end;
Tans:=Tans+28;
end;
if(random(100)<=5)then
begin
mousespeed:=Randomrange(10,35);
SleepAndMoveMouse(random(3000));
end;
end;
procedure WalkToTanner;
var
CTS, Time:integer;
begin
MarkTime(time);
mousespeed:=Randomrange(10,35);
While (SPS_WalkToPosSXC(Point(4943, 3963), RandomRange(26,70)) = False) and (TimeFromMark(Time)<25000) do
Sleep(100+random(200));
MarkTime(time);
mousespeed:=Randomrange(10,35);
While (SPS_WalkToPosSXC(Point(4963, 3923), RandomRange(3,8)) = False) and (TimeFromMark(Time)<25000) do
Sleep(100+random(200));
MarkTime(time);
mousespeed:=Randomrange(10,35);
Repeat
ColorToleranceSpeed(1);
writeln('Using dtm to walk to tanner store');
if(DTM_WalkTo(Tanner, 561, 23, 655, 135, 0, 0, 0, 0, 4, true))then
DTM_WalkTo(Tanner2, 561, 23, 655, 135, 0, 0, 0, 0, 4, true);
writeln('Checking for Tanner Store Floor Color.. Incase of MINIMAP Glitch');
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.57);
if(WaitFindColor(x, y, 6127012, 244, 134, 279, 158, 16, 2000+random(1000)))then
begin
writeln('Successfully Ran to the store!');
ColorToleranceSpeed(CTS);
Break;
end else
writeln('Mini-Map Flag Movement Glitch.. Walking into store again!..');
if(TimeFromMark(Time)>35000)then
begin
Break;
ColorToleranceSpeed(CTS);
mousespeed:=Randomrange(10,35);
SPS_WalkToPosSXC(Point(4943, 3963), RandomRange(26,70));
mousespeed:=Randomrange(10,35);
SPS_WalkToPosSXC(Point(4963, 3923), RandomRange(3,8));
end;
if(TimeFromMark(Time)>120000)then
begin
FailSafe;
TanProcess;
end;
Until(False);
sleep(randomrange(400,800));
end;
procedure WalkToBank;
var
time:integer;
begin
MarkTime(time);
mousespeed:=Randomrange(10,35);
While (SPS_WalkToPosSXC(Point(4963, 3923), RandomRange(30,110)) = False) and (TimeFromMark(Time)<15000) do
Sleep(100+random(200));
MarkTime(time);
mousespeed:=Randomrange(10,35);
While (SPS_WalkToPosSXC(Point(4939, 3963), RandomRange(10,30)) = False) and (TimeFromMark(Time)<15000) do
Sleep(100+random(200));
RandomPath:=Random(3);
MarkTime(time);
mousespeed:=Randomrange(10,35);
While (SPS_WalkToPosSXC(PathPointsBank[RandomPath], RandomRange(10,20)) = False) and (TimeFromMark(Time)<10000) do
RandomPath:=Random(3);
end;
procedure BankProcess;
var
count,time,time2:integer;
begin
if(random(100)<=5)then
SleepAndMoveMouse(random(3000));
MarkTime(time);
mousespeed:=Randomrange(10,35);
if(Random(9)<4)then
begin
While (FindTpa([0.48, 0.28, 0.32], [0.05, 0.95, 1.12], [6447719, 4150898, 2175810], [7, 6, 6], [1,2],
40, 40, 105, 140, 259, 170, ['anker'], ['ank Ban'], False, True) = False) and (TimeFromMark(time)<60000) do
begin
count:=count+1;
if(count>3)then
break;
end;
end else
begin
{*Because Random Clicking is activated on the function below we need a wait to avoid 1 clicking the bankers since this is going for booths.*}
Sleep(500+random(400));
While (FindTpa([0.04, 0.07], [3.27, 0.09], [10077418, 6060683], [5, 6], [1], 20, 20, 105, 140,
259, 170, ['k booth'], ['ank Bank bo'], True, True) = False) and (TimeFromMark(time)<60000) do
begin
count:=count+1;
if(count>2)then
break;
end;
end;
if(count>2)then
begin
mousespeed:=Randomrange(10,35);
ClickNorth(0);
RandomPath:=Random(3);
MarkTime(time2);
mousespeed:=Randomrange(10,35);
While (SPS_WalkToPosSXC(PathPointsBank[RandomPath], RandomRange(10,20)) = False) and (TimeFromMark(Time2)<10000) do
RandomPath:=Random(3);
BankProcess;
end;
if(TimefromMark(time)>120000)then
begin
FailSafe;
TanProcess;
end;
end;
function CheckBankUp(Time:integer): Boolean;
begin
Result:= WaitFindColor(x,y,4106994,195,26,321,43,5,Time);
end;
procedure WithdrawProcess;
var
I,D:integer;
s:string;
begin
if(CheckBankUp(2000+random(1000)))then
begin
mousespeed:=Randomrange(10,35);
if(InvEmpty = false)then
QuickDeposit(0);
if(GetMMLevels('run', s) < 40)then
if(UsePots)then
begin
mousespeed:=Randomrange(10,40);
MouseBankSlot(Potion_Bank_Slot, mouse_move);
sleep(25+random(30));
ClickMouse2(mouse_right);
if(WaitOption('1 '+ FirstWordofPot, 6000+random(1000)))then
begin
mousespeed:=Randomrange(10,35);
if(WaitInvCount(1, 4000, ExactCT))then
begin
if(GetMMLevels('run', s) < 20)then
D:=1
else
D:=0;
For I:=0 to D do
begin
mousespeed:=Randomrange(20,35);
MouseItem(1, 0);
mousespeed:=Randomrange(20,35);
WaitOption('Drink',1000);
end;
mousespeed:=Randomrange(20,35);
QuickDeposit(0);
end;
end else
begin
writeln('No Potions Left In the Slot Disabling Energy Potion Drinking..');
UsePots:=False;
end;
end;
mousespeed:=Randomrange(10,35);
MouseBankSlot(Bank_Slot, mouse_Right);
mousespeed:=Randomrange(10,35);
if(Waitoption('All ' + FirstWordofHide,6000))then
begin
if(random(100)<=5)then //Rarely Close the bank by clicking x as Running away is more common
begin
mouse(483,29,5,5,true);
mousespeed:=Randomrange(10,35);
end;
end else
if(CheckBankUp(1))then
begin
writeln('No Hides Left in Bank! Exiting bank, Logging out and Terminating Script...');
mousespeed:=Randomrange(10,35);
mouse(483,29,5,5,true);
mousespeed:=Randomrange(10,35);
Logout;
TerminateScript;
end else
begin
BankProcess;
WithdrawProcess;
end;
end else
begin
BankProcess;
WithdrawProcess;
end;
end;
procedure TakeBreaks;
begin
if not LoggedIn then
Exit;
begin
if (GetSystemTime > BreakTimer) then
begin
WriteLn('Taking a break.');
Logout;
Wait(BreakFor * 60000 + Random(BreakForRandom * 60000));
WriteLn('Logging back in.');
Case (SwitchWorld) of
True: if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False));
False: LoginPlayer;
end;
Wait(2000);
BreaksTaken:=BreaksTaken+1;
BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
end;
end;
end;
Procedure SetupSPSStuff;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['12_9']);
PathPointsBank:=[Point(4911, 3987), Point(4911, 3991), Point(4911, 3995), Point(4911, 3999)];
end;
procedure Dtmz;
begin
Tanner:= DTMFromString('mlwAAAHicY2dgYMhiYmBIZ4LQSUCcCWUXAPFNoPxtIL4KxLeA+BIQPwDiG0CcHaTN4G0hBMYMDIwoWBBIwjA6YMSDoQAAy5MLMw==');
Tanner2 := DTMFromString('mWAAAAHicY2GAAHYg5mJAAEYg5oSKg3gNYTpQUUYwKQnnYWIQAAA+qAFM');
end;
procedure FreeDtmz;
begin
freeDtm(Tanner);
freeDtm(Tanner2);
end;
procedure Proggy;
var
TanRate,Sec:integer;
begin
Sec:=(1+((Getsystemtime-StartTime)/1000));
TanRate:=(3600*(Tans))/(Sec);
Writeln('**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**');
Writeln(' $$$$$$$$$LeetzSxcTanner$$$$$$$$$$');
Writeln(' Time Running: ' + TimeRunning);
Writeln(' Profit Gained: ' + IntToStr(Tans*Profit) + ' GP');
Writeln(' Profit Per Hour: ' + IntToStr(TanRate*Profit) + ' GP');
Writeln(' Hides Tanned: ' + IntToStr(Tans));
Writeln(' Hides Tanned Per Hour: ' + IntToStr(TanRate));
Writeln(' Anti-Bans Performed: ' + IntToStr(AntiBans));
Writeln('**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**');
end;
begin
Smart_server := SERVER;
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
SetupSRL;
DeclarePlayers;
Dtmz;
Addonterminate('FreeDtmz');
SetupSPSStuff;
mousespeed:=25+random(5);
if(not(Loggedin))then
LoginPlayer;
BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
StartTime:=GetSystemTime;
Case FirstWordofHide of
'Red': begin
q:=283;
end;
'Blue': begin
q:=172;
end;
'Black': begin
q:=395;
end;
'Green': begin
q:=62;
end;
End;
if(UseEnergyPotions)then
UsePots:=true;
{ MyPos := SPS_GetMyPos();
posx:=MyPos.x; posy:=MyPos.y;
writeln('My Position is ' + inttostr(posx) + ', ' + inttostr(posy));
TerminateScript(); }
if(Trial_Member)then
begin
sleep(15000);
mouse(331, 314,0,0,true);
end;
repeat
Proggy;
WalkToTanner;
TanProcess;
Antiban;
WalkToBank;
BankProcess;
Antiban;
WithdrawProcess;
if (Tans>Howmany-1) then
TerminateScript();
if (UseBreaks) then
TakeBreaks;
until (not Loggedin);
end.
Hope you enjoy this guys!