<$> Ardougne Silk Thiever! <$>
This is an ardougne silk thiever, start from behind the stall.
THIS ONLY WORKS FOR SMART. THATS WHY THERE IS NO ANTI-LEACH B/C only people with smart can use it :)
Features ;
Steals Silk
Basic Anti-Ban
Code:
program SilkStealer;
{$define SMART}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Procedure CountDown;
begin;
Writeln('Welcome to Ekarma''s silk stealer!');
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;
end;
Procedure AntiBan;
begin
if not(P07_loggedin)then
Exit;
case Random(4) of
0: P07_HoverSkill('thieving', random(5000));
1: PickUpMouse;
2: P07_MakeCameraAngleLow;
3: P07_MakeCameraAngleHigh;
4: P07_MakeCompassNorth;
end;
end;
Procedure Camera;
begin;
If (Not P07_LoggedIn) Then
Exit;
KeyDown(38);
Wait(RandomRange(1800,2000));
KeyUp(38);
P07_MakeCompassDegree(50);
End;
Procedure StealSilk;
var x, y: Integer;
begin;
If (Not P07_LoggedIn) Then
Exit;
Writeln( 'Looking for silk stall...')
repeat
If P07_FindObjCustom(x, y, ['Steal-from', 'Silk stall'], [6244186, 4292715], 2) Then
begin;
Mouse(x, y, 3, 3, true);
antiban;
wait(randomrange(750,500));
end;
until(P07_Invfull)
end;
Procedure Invyfull;
begin;
Writeln('Inventory Full! Please bank!');
Writeln('Waiting 10 Seconds, Please pause script and bank!');
Wait(10000);
end;
Begin
ClearDebug;
SetupSRL;
SetupP07Include;
ClearDebug;
CountDown;
Repeat
Camera;
StealSilk;
Invyfull;
Until(false);
end.
http://i46.tinypic.com/359hkqs.jpg