SRL Archive - RS3 Outdated / Broken Scripts

From: mormonman
question… does it run from fights or go to places where it won't be attacked while thieving?

i need 53 thieving for dt quest…im too lazy to do it on my own

program NCDSBakeStallPowerThieve;
{.include srl/srl.scar}
{
Find instructions and INFO at SRL-FORUMS.COM
}

const
 DirectionToRun = 'S' ;

var
 x , y : integer;
 
Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;


Procedure FindStall;
begin
  If FindObjCustom(x,y,['aker','Bake','tall','all','Stal'],[9677753,9085358,8690343,9282738,9019309,9940668],5)then
  begin
    MMouse(x , y , 1 , 1);
    Wait (100 + random (100));
    If (IsUpTextMultiCustom(['aker','Bake','tall','all'])) then
    begin
      case random(2)of
        0 :
        begin
          Mouse(x, y, 1, 1, True);
          wait(1000+random(300));
        end;
        1 :
        begin
          Mouse(x, y, 1, 1, False);
          wait(300+random(100));
          ChooseOption('teal');
        end;
      end;
    end else
    begin
      writeln('Could Not Find Stall Please Post Error on the Proper Thread');
    end;
  end;
end;


Procedure DontDie;
begin
 if (HpPercent < 25) then
 begin
   WriteLn('Running so we dont die');
   Status('Flee the scene');
   RunAway(DirectionToRun,True,1,9000+random(2000));
   Logout;
  end;
end;

function NInFight: Boolean;
var
  x, y : Integer;
begin
  Result := (FindColor(x, y, 65280, 242, 142, 283, 158) or
   FindColor(x, y, 255, 242, 142, 283, 158));
end;


procedure NAFOutFight;
var
  T: integer;
begin
  if Players[CurrentPlayer].Booleans[6] then
   T := GetSystemTime - 12000
  else
   T := GetSystemTime;
  while not NInFight and (TimeFromMark(T) < 5000) do wait(100);
  if NInFight then
  begin
    Status('Killing monster...');
    repeat
      Wait(1000+random(300));
      DontDie;
      If Players[CurrentPlayer].Booleans[0] then
      Break;
    until(not NInFight) or (not LoggedIn)
    Status('');
  end else
  Wait(300);
end;


Procedure AntiBan;
begin
  case random(12) of
     0 : TypeSend(AddMistakes('I hate thieving lol its so boring',20));
     2 : SleepAndMoveMouse(400+random(200));
     4 : DoEmote(3);
     6 : BoredHuman ;
     8 : HoverSkill('Thieving', False);
     10 : RandomRClick ;
     12 : PickUpMouse;
  end;
end;
 

Procedure MainLoop;
begin
  repeat
    FindNormalRandoms;
    FindStall;
    FindNormalRandoms;
    DontDie;
    NInFight;
    NAFOutFight;
  until (InvFull)
  DropAll;
  Wait (1000+random(500));
end;

begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  FindNormalRandoms;
  Retaliate(True);
  MakeCompass('N');
  SetAngle(True);
  repeat
    MainLoop;
  until false;
end.

From: mormonman

edit: didn't want to clog up your thread so i will reply here… hope you see it
ok… so when i run it wear good armor?

From: The_Shermanator
Looks pretty good, PM me with Anything you might need, don't hesitate to ask.

-The_Shermanator

From: NiCbaZ

program NCDSBakeStallPowerThieve;
{.include srl/srl.scar}
{
Find instructions and INFO at SRL-FORUMS.COM
}

const
 DirectionToRun = 'S' ;

var
 x , y : integer;
 
Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;


Procedure FindStall;
begin
  If FindObjCustom(x,y,['aker','Bake','tall','all','Stal'],[9677753,9085358,8690343,9282738,9019309,9940668],5)then
  begin
    MMouse(x , y , 1 , 1);
    Wait (100 + random (100));
    If (IsUpTextMultiCustom(['aker','Bake','tall','all'])) then
    begin
      case random(2)of
        0 :
        begin
          Mouse(x, y, 1, 1, True);
          wait(1000+random(300));
        end;
        1 :
        begin
          Mouse(x, y, 1, 1, False);
          wait(300+random(100));
          ChooseOption('teal');
        end;
      end;
    end else
    begin
      writeln('Could Not Find Stall Please Post Error on the Proper Thread');
    end;
  end;
end;


Procedure DontDie;
begin
 if (HpPercent < 25) then
 begin
   WriteLn('Running so we dont die');
   Status('Flee the scene');
   RunAway(DirectionToRun,True,1,9000+random(2000));
   Logout;
  end;
end;

function NInFight: Boolean;
var
  x, y : Integer;
begin
  Result := (FindColor(x, y, 65280, 242, 142, 283, 158) or
   FindColor(x, y, 255, 242, 142, 283, 158));
end;


procedure NAFOutFight;
var
  T: integer;
begin
  if Players[CurrentPlayer].Booleans[6] then
   T := GetSystemTime - 12000
  else
   T := GetSystemTime;
  while not NInFight and (TimeFromMark(T) < 5000) do wait(100);
  if NInFight then
  begin
    Status('Killing monster...');
    repeat
      Wait(1000+random(300));
      DontDie;
      If Players[CurrentPlayer].Booleans[0] then
      Break;
    until(not NInFight) or (not LoggedIn)
    Status('');
  end else
  Wait(300);
end;


Procedure AntiBan;
begin
  case random(12) of
     0 : TypeSend(AddMistakes('I hate thieving lol its so boring',20));
     2 : SleepAndMoveMouse(400+random(200));
     4 : DoEmote(3);
     6 : BoredHuman ;
     8 : HoverSkill('Thieving', False);
     10 : RandomRClick ;
     12 : PickUpMouse;
  end;
end;
 

Procedure MainLoop;
begin
  repeat
    FindNormalRandoms;
    FindStall;
    FindNormalRandoms;
    DontDie;
    NInFight;
    NAFOutFight;
  until (InvFull)
  DropAll;
  Wait (1000+random(500));
end;

begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  FindNormalRandoms;
  Retaliate(True);
  MakeCompass('N');
  SetAngle(True);
  repeat
    MainLoop;
  until false;
end.

From: NiCbaZ
Try to update it to like this , it makes heaps mpre sence.

From: N C D S

-Narcle
(I used a couple of your InFight procedures, HyperSecret said it would be fine but if there IS a problem please just let me know.

From: Narcle



Just a suggestion. Get it to bank and it will be used WAY more. I think banking the cakes is the 2nd most important part. I would make a option for it, like "Power Thieve" or "Bank Thieve" something like that… I think you get the idea.

From: gimillii1592
"Instructions!
-Position your character next to either Baker's Stall in Ardougne."

You should fix this. I'm pretty sure you meant : "-Position your character next to either Baker's Stall in Ardougne, or the bank."

From: Pwnt by Pwnt
running and eating would be easy to do.. and the bank is only about one minimap click away from bank..

;D you should add some reflection :P

(looks good so far btw)

(and after you log out from running you should log it back in :o)

From: pk ownage94
Alright I just download version 2, first download :) BTW what have you changed in V2 that's not in v1?? Looks the same to me but I've just scanned the script so I dont know really, just going to cook some sausages and ill be back a bit later to test probably. :p

thanks again,

-PK;)

From: N C D S
I just added a real simple Progress Report so please post them after you use :) and I added a better "DontDie" because i realised that when the mysterious plant attacks you it poisons you so if the script didnt run till you had >25 percent hp it would still kill you. Now it checks and if your in a fight for more than 5 seconds it runs. Which still might not save everyone, but should help alot. Like I said last night, i got a bit liquored up lol but I managed to finish the walking and banking so I just have to work out a few kinks ans it should be ready for release. Also I think Ill add SRL Stats and a better ProgressReport but that shouldnt take to long.

From: pk ownage94
Ran it starting at the cake stall, worked well but the cake thieving was a bit slow, someone else was playing legit next to me and was often stealing the cake before me so that needs fixing ;)
Went back to the bank fine but as soon as it clicked on the bank minimap symbol the script started to search for the bank booth before i was even in the bank, that needs fixing too.

The main problem was on the way back to the stall it got completely lost and said it was 'fleeing the scene' even though I had full hp.

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
/\ Time Running : 9 Minutes and 5 Seconds /\
/\ Thanks For Using NCDS Thieve And Bank! /\
`````````````````````````````````````````````````
Running so we dont die


Thanks for the script, it just needs a few tweaks and it should be flawless.

-PK;)

From: N C D S
Hmmm thats odd, it was running just fine for me. Ill try and tighten some things up and get another update out soon!

• More Randomness
• Much faster cakestall finding and Thieving
• More accurate radialwalking and symbol finding
• Much, much more antibans
• A procedure to eat the food in the inventory(cakes/bread etc,) If low on health.
• Better progress report; Amount of cakes stolen; Amount of Chocloate Cakes Stolen; Amount of Bread Stolen
• The Progress report could then use this information to set Calculate how much Thieving XP has been gained.
• Other useful things like 'Target thieving level' would also be very useful:)

From: pk ownage94
OK thanks :) you should make the next version

• More Randomness
• Much faster cakestall finding and Thieving
• More accurate radialwalking and symbol finding
• Much, much more antibans
• A procedure to eat the food in the inventory(cakes/bread etc,) If low on health.
• Better progress report; Amount of cakes stolen; Amount of Chocloate Cakes Stolen; Amount of Bread Stolen
• The Progress report could then use this information to set Calculate how much Thieving XP has been gained.
• Other useful things like 'Target thieving level' would also be very useful:)

I hope I helped and looked forward to the end result of this script!:stirthepot: ;)

-PK:eek:

From: Scar Newbie v1
You left your password in

NCDSCakeStallThieveAndBank v1.2.scar (7.4 KB, 3 views)

Please check your pms.

From: N C D S
UPDATED!
Check front page for more details.

Better progress report coming soon as well as eating at low health!

From: pk ownage94
Awesome glad to see your taking my suggestions! What's in V2.1 that's not in 2.0?

I need this script to be flawless with antibans/randomness etc before i use it on my main. :p

Thanks,

-PK;)

From: N C D S
I just added more anti ban and failsafes for the most part, and slightly better FindStall(just switched it to FindObjTPA instead of FindObjCustom). Once I get the Find Bank flawless then I will tighten up the rest of the script and it should be pretty much flawless for you!

From: Floor66
Use Reflection to see if there's a guard looking at you :p
If you'd want to do that, just see if one of the guards (just search all of em) is past Tile x and/or y.

From: Shuttleu
i will test and post the proggy

just one question
how does it avoid fight and guards and everything else that attacks?

~shut

From: N C D S
That seems like a really good idea, but I dont know Reflection yet :redface:
Sometime I will look into it tho!



Thank you!
It uses Narcles NInFight and NOutFight to detect if its in a fight and if you characters HP drops below 50% it runs south(or whatever direction you pick) and eats whats in your inventory until your HP is above 50% again.

From: Shuttleu
i can help with reflection :)
and what if you dont have enough food to get above 50%?

~shut

From: djcheater
dos it show exp gained in proggy?

From: francishelie
i tryed it, it work great but very slow you should make it faster

From: XxsomethingxX
It overshoots the bank on the way back from a full load and won't find the banker for me. This would be a great script if there was a power-thieve option. :)

Edit: It also overshoots on the way back to the stall which leads into it becoming lost and nowhere near the designated spot.

From: XxsomethingxX
It overshoots the bank on the way back from a full load and won't find the banker for me. This would be a great script if there was a power-thieve option. :)

Edit: It also overshoots on the way back to the stall which leads into it becoming lost and nowhere near the designated spot.

From: jakeyboy29
does this fight the ncps which stop u from stealing? and if so maybe show str xp gained on proggie?

From: jakeyboy29
does this fight the ncps which stop u from stealing? and if so maybe show str xp gained on proggie?

procedure FindStall;

begin
  if FindObjTPA(x, y, 9677753, 5, -1, 5, 5, 10,['Baker','ake','aker'])then
  begin
    MMouse(x , y , 1 , 1);
    Wait (Randomrange(100, 200));
    if (IsUpTextMultiCustom(['aker','Bake','ake'])) then
    begin
      case random(2)of
        0 : begin
              Mouse(x, y, 1, 1, True);
              wait(RandomRange(300, 400));
            end;
        1 : begin
              Mouse(x, y, 1, 1, False);
              wait(RandomRange(300, 400));
              ChooseOption('teal');
            end;
      end;
    end;
    WriteLn('Stole From Stall!');
    Inc(AmtStolen);
    FindNormalRandoms;
    Exit;
  end;
  WriteLn('Dindt Find Stall, Trying 1 More Time');
  if FindObjTPA(x,y,9677753,10,-1,5,5,10,['Baker','ake','aker'])then
  begin
    MMouse(x , y , 1 , 1);
    Wait (100 + random (100));
    if (IsUpTextMultiCustom(['aker','Bake','ake'])) then
    begin
      case random(2)of
        0 : begin
              Mouse(x, y, 1, 1, True);
              wait(RandomRange(300, 400));
            end;
        1 : begin
              Mouse(x, y, 1, 1, False);
              wait(RandomRange(300, 400));
              ChooseOption('teal');
            end;
      end;
      AntiBan;
      WriteLn('Stole From Stall!');
      Inc(AmtStolen);
      Exit;
    end;
[B]    writeln('Could Not Find Stall Please Post Error on the Proper Thread');
    TerminateScript;[/B]
  end;
end;

procedure FindStall;

begin
  if FindObjTPA(x, y, 9677753, 5, -1, 5, 5, 10,['Baker','ake','aker'])then
  begin
    MMouse(x , y , 1 , 1);
    Wait (Randomrange(100, 200));
    if (IsUpTextMultiCustom(['aker','Bake','ake'])) then
    begin
      case random(2)of
        0 : begin
              Mouse(x, y, 1, 1, True);
              wait(RandomRange(300, 400));
            end;
        1 : begin
              Mouse(x, y, 1, 1, False);
              wait(RandomRange(300, 400));
              ChooseOption('teal');
            end;
      end;
    end;
    WriteLn('Stole From Stall!');
    Inc(AmtStolen);
    FindNormalRandoms;
    Exit;
  end;
  WriteLn('Dindt Find Stall, Trying 1 More Time');
  if FindObjTPA(x,y,9677753,10,-1,5,5,10,['Baker','ake','aker'])then
  begin
    MMouse(x , y , 1 , 1);
    Wait (100 + random (100));
    if (IsUpTextMultiCustom(['aker','Bake','ake'])) then
    begin
      case random(2)of
        0 : begin
              Mouse(x, y, 1, 1, True);
              wait(RandomRange(300, 400));
            end;
        1 : begin
              Mouse(x, y, 1, 1, False);
              wait(RandomRange(300, 400));
              ChooseOption('teal');
            end;
      end;
      AntiBan;
      WriteLn('Stole From Stall!');
      Inc(AmtStolen);
      Exit;
    end;  
  end;
  writeln('Could Not Find Stall Please Post Error on the Proper Thread');
  TerminateScript;
end;

From: Baked0420
no problem, and this is a decent script though, I like it. when do you think you'll be getting members back and update this?

From: Baked0420
nice, I'll be looking forward to an update, and also, I think a while ago it just logged out because of >50% hp, but I think I had food, not positive though. I'll watch for next time I have less then 50%