<$> Ardougne Fur Thiever Pro beta <$>
Instructions:
Start behind Fur Stall
Press Play
THERE IS NO ANTI-LEACH BUT YOU NEED TO BE ABLE TO LOAD SMART WITH RS07
AND HAVE RS07INCLUDE BY DANNYRS DOWNLOADED!
Requirements:
35 Thieving
Fur sells for 120GP @ Fur NPC in varrock
Features
_________
Collect Fur
Progress Report
Basic Anti-Ban
Basic DTM Banking *Read* If this does not work, update DTMs. (BankLogo) (Furlogo)
Future Updates
______________
FailSafes
Improved Anti-ban
Random Support
Run from combat
Code:
Program FurThiever;
{$define SMART}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Var
Fur, Number, TimeGone, Fur1, Seconds, profit, number2, number3, xp: Integer;
// ----FurThiever Pro Made by Ekarma----
//=============INSTRUCTIONS=============
// MAKE SURE BRIGHTNESS IS SET TO MAX!
// Go behind the Fur stall in ardougne
// Press Play
// Login & Awnser Pin!
// Watch for randoms & combat!
//======================================
Procedure Camera;
begin;
If (Not P07_LoggedIn) Then
Exit;
KeyDown(38);
Wait(RandomRange(1800,2000));
KeyUp(38);
P07_MakeCompassDegree(50);
End;
procedure TurnOnRun;
var x, y: integer;
begin
Mouse(671, 482, random(5), random(5), true);
wait(randomrange(750,600));
if(FindColorTolerance(x, y, 4803917, 651, 422, 659, 430, 10)) then
begin
Mouse(640, 426, random(5), random(5), true);
end;
Mouse(644, 184, random(5), random(5), true);
end;
Procedure WalkToBank;
var
banklogo, X, Y: Integer;
begin;
ClearDebug;
banklogo := DTMFromString('mbQAAAHicY2VgYGAFYk4GCGAGYi4g5gBibiBmhIqzA/HXeyEMPLycKBgbYMSCwQAAvH4C8A==');
Writeln(' ====================================');
Writeln('|| FurThiever Pro ||');
Writeln(' ====================================');
Writeln('Bot Status : Banking...');
Camera;
If FindDTM(banklogo, X, Y, 520, 3, 760, 167) then
Begin
TurnOnRun;
Mouse(x, y, 1, 1, true);
wait(12000+random(5000));
P07_FFlag;
end;
FreeDTM(banklogo);
end;
Procedure BankFur;
var
X, Y: Integer;
begin;
Fur := DTMFromString('mWAAAAHicY2FgYGACYlYGCGAEYi4kNh8QT/DiZODhRWB0wIiGQQAASU8Bcw==');
If FindDTM(Fur, X, Y, 518, 168, 759, 492) then
Inc(fur1);
If FindDTM(Fur, X, Y, 518, 168, 759, 492) then
Begin
Mouse(x, y, 2, 2, true)
wait(900+random(125));
end;
FreeDTM(Fur);
end;
Procedure WalkToFur;
var
furlogo, X, Y: Integer;
begin;
Cleardebug;
furlogo := DTMFromString('mggAAAHicY2NgYGBhgABuKOaDinECMRtUjgeJPTeAl0FSGAtmwA4YcWAIAAC9YQKK');
Writeln(' ====================================');
Writeln('|| FurThiever Pro ||');
Writeln(' ====================================');
Writeln('Bot Status : Walking to Fur...');
If FindDTM(furlogo, X, Y, 520, 3, 760, 167) then
Begin
Mouse(x, y, 1, 1, true);
wait(10000+random(5000));
P07_FFlag;
end;
FreeDTM(furlogo);
end;
Procedure ProgressReport;
begin;
number3 := 36
number2 := 120
TimeGone := (GetTimeRunning/60000);
Fur1 := Fur1;
Number := 28
seconds := (GetTimeRunning/1000);
profit := ((Fur1)) * ((number2));
xp := ((number3)) * ((Fur1));
ClearDebug;
Writeln(' FurThiever Pro ');
Writeln(' ====================================');
Writeln('||Fur collected : ' + IntToStr(Fur1) + ' Fur ');
Writeln('||Profit : ' + IntToStr(profit) + ' GP ' );
Writeln('||XP Gained : ' + IntToStr(xp) + ' XP ' );
Writeln('||RunTime : ' + IntToStr(TimeGone) + ' Minutes ' );
Writeln(' ====================================');
Writeln(' <$> Script By : Ekarma <$> ');
wait(1000+random(2000));
end;
Procedure CountDown;
begin;
Writeln(' =======================================');
Writeln('|| Welcome to FurThiever Pro by: Ekarma ||');
Writeln(' =======================================');
Writeln('Script is starting in 5...');
wait(1000);
Writeln('Script is starting in 4...');
wait(1000);
Writeln('Script is starting in 3...');
wait(1000);
Writeln('Script is starting in 2...');
wait(1000);
Writeln('Script is starting in 1...');
wait(1000);
ClearDebug;
Writeln(' ====================================');
Writeln('|| FurThiever Pro ||');
Writeln(' ====================================');
end;
Procedure B;
var x, y: Integer;
begin;
Camera;
If P07_FindObjCustom(x, y, ['Use', 'Bank booth'], [6710893, 608609], 2) Then
Mouse(x, y, 0, 0, false);
wait(750+random(500));
P07_ChooseOptionMulti(['quickly']);
wait(2500+random(3000));
If P07_BankScreen And P07_InvFull Then P07_Deposit(1, 28, false);
end;
Procedure AntiBan;
begin
wait(randomrange(250,750));
if not(P07_loggedin)then
Exit;
case Random(6) of
0: wait(randomrange(250,250));
1: wait(randomrange(250,250));
2: wait(randomrange(250,250));
3: P07_MakeCameraAngleHigh;
4: wait(randomrange(250,250));
5: wait(randomrange(250,250));
6: wait(randomrange(250,250));
end;
end;
Procedure StealFur;
var x, y: Integer;
begin;
If (Not P07_LoggedIn) Then
terminatescript;
Writeln( 'Bot Status: Looking for Fur stall...')
Camera;
repeat
If P07_FindObjCustom(x, y, ['Steal-from', 'Fur stall'], [1145237, 1143179], 2) Then
begin;
Mouse(x, y, 3, 3, true);
ProgressReport;
antiban;
wait(randomrange(750,500));
end;
until(P07_Invfull)
end;
Begin
ClearDebug;
SetupSRL;
SetupP07Include;
ClearDebug;
CountDown;
Repeat
StealFur;
WalkToBank;
B;
BankFur;
WalkToFur;
Until(false);
end.
http://i46.tinypic.com/359hkqs.jpg
