Page 1 of 2 12 LastLast
Results 1 to 25 of 37

Thread: Rogues Den Cooker

  1. #1
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default Rogues Den Cooker

    Well, I've spent alot of time on this now, and think it's somewhat ready to be released.

    Features:
    Antiban (Some)
    Failsafes (Some)
    Supports almost all cooking
    And that's about it, for now..

    Bugs:
    Please inform me, so I can fix them ^^

    Future:
    More failsafes
    User suggestions
    Polishing

    Usage:
    Place your character by the fire in the Rogue's Den in Burthope
    Put whatever you're cooking in the first row and first slot of your bank
    Type in your information
    Run

    Code:
    {                Welcome to Shadowmarkus' Rogues Den Cooker!
                Place your character by the fire in Rogues Den (Burthope)
                                   Declare players
                                          Run
    
                                                                                   }
    
    program RoguesDen_Cooker;
    
    {$I SRL/SRL/misc/SMART.simba}
    {$I SRL/SRL.simba}
    
    const
    
      //Smart Setup
      SmartWorld = 16;
      Members = True;
      SignedClient = True;
      HighDetail = False;
    
    var
      tri: integer;
    
    procedure SetupPlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; //Your login name/email
      Players[0].Pass := ''; // Your password
      Players[0].Active := True;
      Players[0].Nick := ''; // 3-4 letters from your ingame name
    end;
    
    procedure ProgressReport;
    begin
      ClearDebug;
      WriteLn('Shadowmarkus Rogues Den Cooker');
      WriteLn('--------------------------------------');
      WriteLn('Script Ran For: ' + TimeRunning);
      //  WriteLn('Experience gained' + IntToStr(exp));
      WriteLn('--------------------------------------');
    end;
    
    procedure DoWithdraw;
    begin
      if (bankscreen) then
      begin
        MouseBox(38, 92, 71, 117, Mouse_Right);
        WaitOptionMulti(['ithdraw-All', 'w-A'], RandomRange(250, 500));
      end;
    end;
    
    procedure AntiBan;
    begin
      if (not (LoggedIn)) then
        Exit;
    
      case random(5000) of
        0: SleepAndMoveMouse(1232 + random(857));
        45:
          begin
            HoverSkill('cooking', False);
            GameTab(tab_inv);
          end;
        3: MMouse(random(250), random(250), 10, 10);
        4: PickUpMouse;
        5: ExamineInv;
        5:
          begin
            GameTab(1 + Random(12));
            wait(1000 + random(1000));
            GameTab(tab_inv);
          end;
      end;
    end;
    
    procedure Findbanker;
    var
      FindBankerTimer, x, y: integer;
      tri: integer;
    begin
      if FindObj(x, y, 'ened',3299902, 15) then
      begin
        Mouse(x, y, 5, 5, False);
        ChooseOption('ank');
      end;
      MarkTime(FindBankerTimer);
      repeat
      until (bankscreen) or (TimeFromMark(FindBankerTimer) > 1000)
        if (TimeFromMark(FindBankerTimer) > 2500) then
        if (tri < 5) then
        begin
          inc(tri);
          if FindSymbol(x, y, 'Bank') then
          begin
            Mouse(x, y, 0, 0, Mouse_Left);
          end;
          Findbanker;
          if (tri > 5) then
          begin
            writeln('Failed banking five times, IQuit');
            TerminateScript;
          end;
        end;
      deposit(1, 28, true);
      DoWithdraw;
      while CloseBank do
      begin
        MouseSpeed := (MouseSpeed + RandomRange(-1, +3));
      end;
    end;
    
    procedure Cook;
    var
      x, y, d, c, b, SlotCol, DTM, i, xx, yy: integer;
      FoodCol: TIntegerArray;
      aFound: Extended;
      a: TInvenItem;
    begin //burnt color at end
      FoodCol := [1860553, 1661107, 8804991, 3289909];
      DTM :=
        DTMFromString('mWAAAAHicY2FgYNBkZGBgB+JSINYAYgkg/ggUFwLSYUD8ZZ8HQ3yoJ0NGjD9DWpQfgyRQDhkzomEQAACSbwfK');
      if existsitem(1) then
        MouseItem(1, Mouse_Left);
      marktime(d);
      repeat
      until (FindDTMRotated(DTM, xx, yy, MSX1, MSY1, MSX2, MSY2, -Pi / 2, Pi / 2, Pi
        / 30, aFound)) or (TimeFromMark(d) > 5000)
        if (TimeFromMark(d) > 5000) then
      begin
        if FindSymbol(x, y, 'Bank') then
        begin
          Mouse(x, y, 0, 0, Mouse_Left);
        end;
        cook;
      end;
      Mouse(xx, yy, 0, 0, Mouse_right);
      ChooseOption('ire');
      marktime(b);
      repeat
      until (FindColorTolerance(xx, yy, 2070783, MCX1, MCY1, MCX2, MCY2, 15) or
        (TimeFromMark(b) > 5000))
        if (TimeFromMark(b) > 5000) then
      begin
        Cook;
      end;
      wait(1600 + RandomRange(150, 250));
      MouseBox(235, 403, 283, 453, 1);
      a := GetInven(28);
      SlotCol := GetColor(a.CenterPoint.x, a.CenterPoint.y - 3);
      writeln(SlotCol);
      markTime(c);
      repeat
        AntiBan;
        if LevelUp then
        begin
          ClickContinue(true, true);
        end;
      until (not FindColorTolerance(xx, yy, SlotCol, 692, 431, 715, 451, 15) or
        (TimeFromMark(c) > 68000))
        FreeDTM(DTM);
    end;
    
    procedure MainLoop;
    var
      TimesToRepeat: integer;
    begin
      repeat
        tri := 0;
        inc(TimesToRepeat);
        Findbanker;
        Cook;
        FindNormalRandoms;
        ProgressReport;
      until (TimesToRepeat > 99)
    end;
    
    begin
      Smart_Server := SmartWorld;
      Smart_Members := Members;
      Smart_Signed := SignedClient;
      Smart_SuperDetail := HighDetail;
      SetupSRL;
      SetupPlayers;
      ActivateClient;
      SetAngle(SRL_ANGLE_High);
      if not LoggedIn then
        LogInPlayer;
      MainLoop;
    
    end.
    Code:
    Shadowmarkus Rogues Den Cooker
    --------------------------------------
    Script Ran For: 22 Minutes and 5 Seconds
    --------------------------------------


    Credits: CRU1Z1N, this guy is an awesome scripter, and a really helpful guy, he taught me EVERYTHING, and has been the BEST help ever. Also a petite thanks to Daniel, for helping me fix a tiny error in my script
    Last edited by shadowmarkus; 01-19-2012 at 02:38 PM.

  2. #2
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    cannot detect the banker :/

  3. #3
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    cannot detect the banker :/
    After it has cooked, or in the beginning of the script? Because it's running perfectly for me.

    Do you have highest brightness, lowest graphics settings, newest srl/simba? (Sorry! Mistype! It's ROGUES DEN, not Thieving Guild)
    Last edited by shadowmarkus; 01-09-2012 at 05:39 PM.

  4. #4
    Join Date
    Dec 2011
    Posts
    59
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'll try this when I reach 70 Mining, I hope this script will work because there is no script for Rogues Den cooking ;P

  5. #5
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by Sunblast View Post
    I'll try this when I reach 70 Mining, I hope this script will work because there is no script for Rogues Den cooking ;P
    Which is the exact reason I made it, and damn it, Rogues Den... Name error, lol.

    But it does work. Just hoping for some people to test it, so I can perfect it..
    Last edited by shadowmarkus; 01-09-2012 at 03:55 PM.

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Nice release! I'll go over it when I get home from the office. A quick look and it seems legit
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  7. #7
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Like It cannot detect the banker, and examines the fire over and over

  8. #8
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    Like It cannot detect the banker, and examines the fire over and over
    And you are in rogues den? And the banker is visible? If not, try setting your own color of the banker, at

    Code:
    if FindObj(x,y,'ened',4488020,6)then
    Change
    Code:
    4488020
    To the color you pick.

  9. #9
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    I already had changed the color, but the script starts examining the fire. So..It doesn't open the bank to get the raw fish, examines only the fire. But when works great, it bank, cooks and withdraws without any faillure.
    The script needs some more improvements but it is looking good

    ~onilika
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

  10. #10
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by onilika View Post
    I already had changed the color, but the script starts examining the fire. So..It doesn't open the bank to get the raw fish, examines only the fire. But when works great, it bank, cooks and withdraws without any faillure.
    The script needs some more improvements but it is looking good

    ~onilika

    I have no idea why that's happening to you.. I gotta look deeper into this, it's working perfectly for me.

  11. #11
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by onilika View Post
    I already had changed the color, but the script starts examining the fire. So..It doesn't open the bank to get the raw fish, examines only the fire. But when works great, it bank, cooks and withdraws without any faillure.
    The script needs some more improvements but it is looking good

    ~onilika
    I'm having the same problem aswell, even after changing the color.

  12. #12
    Join Date
    May 2011
    Location
    In an Island.
    Posts
    1,413
    Mentioned
    2 Post(s)
    Quoted
    149 Post(s)

    Default

    Ok...I changed some things.
    I used the Auto Color function for the banker.
    Also, found out that, since I was wearing Guilded clothes of mining, it was messing the script.
    Working good now, and I'll post some proggies later

    ~onilika
    ''If you want something you've never had, you have to do something you've never done''


    total leve 2715/1b exp +... exterminated.

  13. #13
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by onilika View Post
    Ok...I changed some things.
    I used the Auto Color function for the banker.
    Also, found out that, since I was wearing Guilded clothes of mining, it was messing the script.
    Working good now, and I'll post some proggies later

    ~onilika

    Is it possible if you can PM me your edited version ? :O

  14. #14
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    I've managed to fix the banker, and fire detection, but I'm having an issue where it doesn't choose the cook all option. Can you help me with that ?

  15. #15
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    I've managed to fix the banker, and fire detection, but I'm having an issue where it doesn't choose the cook all option. Can you help me with that ?

    I'd like to know how both of you fixed the issue lol.

    But, go to line 148, and adjust the
    Code:
    wait(1600 + RandomRange(150, 250));
    Adjust the 1600 to fit your need, you might need to raise the number so it clicks correctly, depends on your lag really.

  16. #16
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by shadowmarkus View Post
    I'd like to know how both of you fixed the issue lol.

    But, go to line 148, and adjust the
    Code:
    wait(1600 + RandomRange(150, 250));
    Adjust the 1600 to fit your need, you might need to raise the number so it clicks correctly, depends on your lag really.

    My current issue with what I stated above is that it clicks the fire correctly after selecting the lobster to cook, but when the "cook all" selection shows up, it seems as it doesn't detect it and just continuously clicks the lobster onto the fire

  17. #17
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    My current issue with what I stated above is that it clicks the fire correctly after selecting the lobster to cook, but when the "cook all" selection shows up, it seems as it doesn't detect it and just continuously clicks the lobster onto the fire
    The number I gave you, is the amount of time it waits, before it clicks "cook all" So you might have to raise it...

  18. #18
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by shadowmarkus View Post
    The number I gave you, is the amount of time it waits, before it clicks "cook all" So you might have to raise it...
    Yeah, tried it, and it doesn't make a difference at all. I don't think you fully understand my issue. Specifically, after it selects the food in the inventory and uses it onto the fire to cook, it doesn't detect the the chatbox area at all, and continues to use the food onto the fire...

  19. #19
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    Yeah, tried it, and it doesn't make a difference at all. I don't think you fully understand my issue. Specifically, after it selects the food in the inventory and uses it onto the fire to cook, it doesn't detect the the chatbox area at all, and continues to use the food onto the fire...
    Try keeping an eye on the mouse, does it go to the chatbox area at all, after withdrawing food?

  20. #20
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by shadowmarkus View Post
    Try keeping an eye on the mouse, does it go to the chatbox area at all, after withdrawing food?
    I've tested it over 3-4 times just to make sure, and it doesn't go to the chat box area at all.

  21. #21
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by phamxboa View Post
    I've tested it over 3-4 times just to make sure, and it doesn't go to the chat box area at all.
    That's really odd. I'm looking into it.

    The odd part is, I have 2 methods to detect the chatbox, one is an actual color check, which can fail, but the second is a timer, set to click coordinates inside the box, that shouldn't fail, it's the failsafe XD

    Code:
     wait(1600 + RandomRange(150, 250));
      MouseBox(235, 400, 284, 455, Mouse_Left);
    I'll look more into it though!

  22. #22
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    looks sweet and difficult enough. See if you can use move over the object check uptext for banker if it wasn't working.
    Will def test this after school today
    Oh Hai Dar

  23. #23
    Join Date
    Apr 2008
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by Main View Post
    looks sweet and difficult enough. See if you can use move over the object check uptext for banker if it wasn't working.
    Will def test this after school today
    Well, I did have an uptext check for the banker! But now it can't find the "Cook all" option in the chatbox, for some reason, even though there's a coordinate failsafe.. :S I'm confused.

  24. #24
    Join Date
    Dec 2011
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script

  25. #25
    Join Date
    Oct 2009
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok guys so I have fixed the banker problem... Change the first colour to:"3827527" and then the colour after:"3449508" This made a massive difference....

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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