SRL Archive - OSR Outdated / Broken Scripts

<$> Ardougne Silk Thiever! <$>

Ekarma

2013-03-03 19:47:21

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

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.

Sequence

2013-03-03 19:58:56

Use P07_HoverSkill instead of just HoverSkill.
Why would you make the antiban hover woodcutting when training thieving btw?

You can shorten it like this


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;

Ekarma

2013-03-03 20:04:21

From: Sequence
Use P07_HoverSkill instead of just HoverSkill.
Why would you make the antiban hover woodcutting when training thieving btw?

You can shorten it like this
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;

thanks, wasnt paying attention just took the antiban outa my old wcing script and tweaked it :P

Pegusis

2013-03-03 20:53:08

From: Ekarma
thanks, wasnt paying attention just took the antiban outa my old wcing script and tweaked it :P

[Error] (29:46): comma (',') expected at line 28
Compiling failed.

Mikkoz99

2013-03-04 12:10:43

Would be nice if you added banking

Chabbis1

2013-03-04 15:06:22

From: Pegusis
[Error] (29:46): comma (',') expected at line 28
Compiling failed.

Same for me..
[Error] (29:46): comma (',') expected at line 28
Compiling failed.

My_Sp3c_Ftw

2013-03-04 18:43:07

How do you obtain SMART?

drc1998

2013-03-04 20:33:37

are you thinking about implementing DTM walking at all? Would be awesome if you did :) great script

Ekarma

2013-03-04 20:52:32

From: Chabbis1
Same for me..
[Error] (29:46): comma (',') expected at line 28
Compiling failed.

Fixed it.

From: drc1998
are you thinking about implementing DTM walking at all? Would be awesome if you did :) great script

Probably not because im working on my fur script, but for that I will be adding DTM walking :)
Thanks :)

Ashaman88

2013-11-27 22:19:08

P07include outdated. Please use official one - shoot me a PM when/if this is updated.