Page 1 of 3 123 LastLast
Results 1 to 25 of 61

Thread: NCDS' Cake Thiever!!

  1. #1
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default NCDS' Cake Thiever!!

    NCDS' CAKE THIEVER!



    MUST READ!
    This Script banks in Ardougne, yet there is no Ardougne bank registered in SRL so I have included it in my updated version of Bank.scar which can be found by following the link below. If you wish to NOT download the version which uses the updated Bank.scar the script will still work fine, Just not quite as accurate.

    Includes-->Srl-->Srl-->Core

    Is the Path where you can find Bank.scar to replace it.

    http://www.villavu.com/forum/showthread.php?t=40400

    Is the Link where you can Find it.


    What It Does!

    -Steals from the East Cake Stall in Ardougne then Banks.


    What It WILL Do!

    -Multi Player
    -SRL Stats
    -Open for suggestions


    Credits!

    I would like to thank:
    -Shermanator (Continuously helping me)
    -TViYH
    -noidea
    -NiCbaZ
    -Narcle



    Bugs!
    -Lemme know if you find one PLEASE!


    Instructions!

    -Position your character next to The EAST Bakers Stall in Ardougne.
    -Fill out DeclarePlayers
    -PRESS PLAY!


    NOTE!

    -I re wrote almost the whole script! Its wayyy better with more Failsafes better AntiBan Better walking and I also Added Sleeping!




    I AM OPEN TO ANY AND ALL SUGGESTIONS!



    ...rep+?



    __________________________________________________ ___________________________
    STATUS:


    - THE FULL SCRIPT IS NOW RELEASED! Thats right, its done! This Script will now successfully steal from the Bakers Stall in Ardougne, Bank everything, and repeat that all while dealing with annoying randoms, and providing Anti Ban. Use it, test it out, POST ALL PROGGIES AND BUGS! I am going to continue to update this script while adding more things to make this script better and more convenient.


    1/5/09-COMPLETE UPDATE! Re-Wrote Almost the whole script to make it better

    1/7/09-Fixed All Walking and more efficient Banking!
    Last edited by Sir R. M8gic1an; 10-11-2009 at 07:16 PM.

  2. #2
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Progress Reports!



    ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,
    /\ Time Running : 1 Hours, 7 Minutes and 54 Seconds /\
    /\ Stole From Stall : 349 /\
    /\ Thanks For Using NCDS Thieve And Bank! /\
    `````````````````````````````````````````````````
    ^^ Runs great as of right now! I stopped it on my own.^^

  3. #3
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    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

    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?

  4. #4
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by mormonman View Post
    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
    It sets auto retaliate on so it will fight back and if your health falls below 25% then it will run away.

  5. #5
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    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.

  6. #6
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    lol oops forgot to delete after copy and paste
    thanks

  7. #7
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by mormonman View Post
    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?
    Sorry, I didnt see that before.
    You dont need it if you dont want it.
    Im thinking of a way to make it so when your health get low enough it will run away, eat, then go back.
    For now it just runs away, waits about 10 seconds, then goes back.
    Probably just a weapon would be fine unless your really low leveled.
    You shouldnt die tho.
    When the full complete version is done I guarantee you wont die.
    Does that clear anything up for you?


    P.S. IF I DONT GET ANY FEED BACK ON THIS VERSION I WONT RELEASE THE FULL VERSION!!!

    P.S.S. Next time just post a normal reply, its OK

  8. #8
    Join Date
    Jun 2008
    Location
    San Diego, California
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    -The_Shermanator
    Current Project: All In 1 Falador Script - 20% DONE

  9. #9
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by The_Shermanator View Post
    Looks pretty good, PM me with Anything you might need, don't hesitate to ask.

    -The_Shermanator
    Thank You

    Atleast someone knows hows to use that "New Reply" button down there.

    *HINT* *HINT* EVERYONE!

  10. #10
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NiCbaZ View Post
    SCAR Code:
    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.
    Try to update it to like this , it makes heaps mpre sence.

  11. #11
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by NiCbaZ View Post
    Try to update it to like this , it makes heaps mpre sence.
    Oops thought I did
    Thanks

  12. #12
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by N C D S View Post
    -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.
    Yeah its fine. HyperSecret knows me well and I've been busy so I'm glad you asked him. Just give me good credits and its fine.


    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.
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  13. #13
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by Narcle View Post


    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.
    Yeah I know what your saying and that is the plan, I just dont have time to do that right now and wont until I get back from my trip(should be home by December 20th). I just wanted to get something released so I could get some feedback on how it was working etc. When I do get home tho that is my first priority

    And thanks again for the InFight procedures, I will make sure they are very well credited!

  14. #14
    Join Date
    Oct 2007
    Location
    California
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    "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."

  15. #15
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Quote Originally Posted by gimillii1592 View Post
    "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."
    Actually, the statement should be: "-Position your character next to either of the Baker's Stalls in Ardougne."

    It doesn't do banking yet.

  16. #16
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Oops thanks guys, simple spelling error.
    Yes it doesnt bank yet because there is now Function in SRL for banking in Ardougne, and I simply do not have time to make one until I return.

  17. #17
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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 )

  18. #18
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by Pwnt by Pwnt View Post
    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 )
    Alrigh thank you for the suggestions, I probably wont add reflection right away but it may be added at some point, and yes I would like to make it eat the cake you steal if need be.

    @ Everyone, I have now returned home and will begin working on this script to mke it better such as:
    -Add Banking
    -eating
    and a few other touch ups, please keep posting/testing and letting me know how its doing and what may need work.
    thanks again!

  19. #19
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Small Update.
    Added Version 2
    Still Working on the banking as I have to make the whole procedure on my own because SRL doesnt have one :/ non the less, it should be done soon hopefully!

    EDT: Ive been drinking tonight lol so I dont want to release right now but I do believe it is about done, including banking and everything. I have a it of main loop error which im assuming will be all taken care of once im sobered up so look forward to this script perhaps being finished tomorrow?

  20. #20
    Join Date
    Apr 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

    thanks again,

    -PK

  21. #21
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Quote Originally Posted by pk ownage94 View Post
    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.

    thanks again,

    -PK
    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.

  22. #22
    Join Date
    Apr 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by N C D S View Post
    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.
    Awesome, do you think you'll be releasing it today? It's 7pm here, in England, so within the next 4 hours??

    thanks,

    -PK

  23. #23
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Im gonna sit down in about 30 minutes and work on it so Ill do my best to get it to you!

  24. #24
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    UPDATE!!!!!!

    Full Banking Version Now Released!!!!

    Check the front page for details!

  25. #25
    Join Date
    Apr 2007
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awesome it's been released!!! Going to check this out sometime today, Ill be getting back to you with a good proggy!

    thanks!

    -PK

Page 1 of 3 123 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. NCDS' Power Thieve!
    By NCDS in forum RS3 Outdated / Broken Scripts
    Replies: 64
    Last Post: 04-28-2009, 06:30 AM
  2. NCDS Auto Talk (first script in looong time!)
    By NCDS in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-13-2007, 10:00 PM
  3. Andrew takes the cake...
    By gerauchert in forum The Bashing Club / BBQ Pit
    Replies: 39
    Last Post: 08-18-2007, 10:42 PM
  4. Cake stall stealer...
    By Godlike007 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 07-12-2007, 12:35 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •