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

Thread: Rogues Den Cooker

  1. #1
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Rogues Den Cooker

    I noticed there were no cooking scripts so I decided to make one.
    It cooks any food you want in Rogues Den.

    I have no experience in simba scripting so I made this by looking and copying other peoples scripts.
    If it missclicks you must click manually in the game because if the food is selected in inventory it doesn't know how to open bank.

    Just have the food you want to cook in the first slot of the bank and have the brightness all the way up.
    The bank and the fire must be on the screen all the time.

    If someone wants to edit or improve this script feel free to do so.

    Check the comments for improvements on the script!



    RoguesDenCookerV1.2.simba
    Last edited by Ashaman88; 07-14-2013 at 09:11 PM.

  2. #2
    Join Date
    Apr 2013
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    IF it doesn't opena bank, then it is pretty much useless. I mean the 1 second it takes to click to cook the food isn't worth it to even download this. I guess its a try though. Just try to improve it.

  3. #3
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by eye5755 View Post
    IF it doesn't opena bank, then it is pretty much useless. I mean the 1 second it takes to click to cook the food isn't worth it to even download this. I guess its a try though. Just try to improve it.
    You understood wrong, it does open the bank. It just doesn't open it when it has missclicked the fire once.
    Last edited by mr1machine1; 05-05-2013 at 03:50 PM.

  4. #4
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    You need to add antiban in your script :/

  5. #5
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by hoodz View Post
    You need to add antiban in your script :/
    Ok, now there is atleast somekind of antiban added
    Last edited by mr1machine1; 05-05-2013 at 05:01 PM.

  6. #6
    Join Date
    Mar 2013
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    for some reason if it never finishes more than 1 inventory of fish for me /:

  7. #7
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Gannon View Post
    for some reason if it never finishes more than 1 inventory of fish for me /:
    I have cooked over 7k lobsters with it so I don't know why it doesn't work for you

    Edit: Worked fine yesterday but now it randomly clicked on the minimap while banking, but that should be fixed now
    Last edited by mr1machine1; 05-06-2013 at 02:07 PM.

  8. #8
    Join Date
    May 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    If the bank are not close to the fire it will take the fish out and miss the fire even though i heel it manually it does not work if the banker are to far away.

    Edit: with that i wanted to say use this in a world where the banker are "lured" next to the fire.
    Last edited by cakeking; 05-06-2013 at 08:14 PM.

  9. #9
    Join Date
    Mar 2013
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Not sure why but it only manages to click the fire about 1/10 times, I used this script to get 58-65 cooking and never had it run for more than about 4 minutes without needing to manually fix it ):

    Also this was in a world where legit players were constantly luring him, he never got more than 5 spaces away from the fire. After it mis-clicks even 1 time the script just gives up please add some sort of fail-safe to stop it from just standing there.
    Last edited by Gannon; 05-06-2013 at 10:22 PM.

  10. #10
    Join Date
    Mar 2013
    Location
    The Netherlands
    Posts
    185
    Mentioned
    2 Post(s)
    Quoted
    70 Post(s)

    Default

    Quote Originally Posted by pacotaco2468 View Post
    this script sucks balls. delete it! or improve it vastly!
    Go dig a hole, atleast give the guy some feedback or help.
    Nothing to do here :l.

  11. #11
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by pacotaco2468 View Post
    this script sucks balls. delete it! or improve it vastly!
    It has cooked over 15k fish for me... Had to babysit a lot but better than nothing
    And as I stated earlier I don't know how to code so can't really improve it, Sorry
    Last edited by mr1machine1; 05-09-2013 at 07:20 AM.

  12. #12
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    ok i take back the ball sucking comment. :P i figured out how to make it work right. just have to change 1 line. that line being 64. all u gotta do is remove FireColor1, FireColor2 and insert 4307941. so that it only finds the right fire color. again sorry the rude comment. just got frustrated. ty for the good script. also having the camera angle over head allthe way helps it find fire. ty again! btw theres some tutorials on utube. u might look into. i am currently.
    Last edited by pacotaco2468; 05-08-2013 at 10:48 PM.

  13. #13
    Join Date
    Apr 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    if FindObjCustom(x,y, ['Use'], [4307941, 2132697], 5) then
    . thats line 64 with and extra color just to make sure it finds fire better if yall want it.
    or at least it works a bit better so far. also kinda tbh u might have to set ur own color for it to work more then a few mins.
    Last edited by pacotaco2468; 05-08-2013 at 10:55 PM.

  14. #14
    Join Date
    Mar 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    49-70 using this. good job

  15. #15
    Join Date
    Sep 2012
    Location
    Netherlands
    Posts
    2,752
    Mentioned
    193 Post(s)
    Quoted
    1468 Post(s)

    Default

    Quote Originally Posted by mr1machine1 View Post
    Ok, now there is atleast somekind of antiban added
    Nice, good job!

  16. #16
    Join Date
    May 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL-OSR/SRL.simba' used from 'C:\Simba\Scripts\RoguesDenCookerV1.2.simba'

  17. #17
    Join Date
    Mar 2013
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Ran this script for 20s and i leveled up, So i watched it sit there without doing anything for 40s ish..
    To fix this i added this in the end of startCook
    Code:
    MarkTime(t);
            repeat
            sleep (500);
            if FindNPCChatText('gratu', Nothing) then
            begin
            writeln('Leveled up');
            startcook;
            end;
            FindNormalRandoms;
            until TimeFromMark(t) > 62000;
    I had alot of trouble finding the fire but after i done this it works way better so far.
    Code:
     repeat FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
       until FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
    Also i didnt like the 5s wait after finding fire so i made it loop till it finds the all option and removed the 5s wait before this.
    Code:
          repeat
            MoveMouse(259, 407);
            Wait(randomRange(100,200))
            Clickmouse2(mouse_right);
            Wait(randomRange(100,200));
          until chooseOptionMulti(['All']);
    Now i know my ways aint the best so if u have better ideas how to fix these problems please share

  18. #18
    Join Date
    Mar 2012
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Quote Originally Posted by Rodelol View Post
    Ran this script for 20s and i leveled up, So i watched it sit there without doing anything for 40s ish..
    To fix this i added this in the end of startCook
    Code:
    MarkTime(t);
            repeat
            sleep (500);
            if FindNPCChatText('gratu', Nothing) then
            begin
            writeln('Leveled up');
            startcook;
            end;
            FindNormalRandoms;
            until TimeFromMark(t) > 62000;
    I had alot of trouble finding the fire but after i done this it works way better so far.
    Code:
     repeat FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
       until FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
    Also i didnt like the 5s wait after finding fire so i made it loop till it finds the all option and removed the 5s wait before this.
    Code:
          repeat
            MoveMouse(259, 407);
            Wait(randomRange(100,200))
            Clickmouse2(mouse_right);
            Wait(randomRange(100,200));
          until chooseOptionMulti(['All']);
    Now i know my ways aint the best so if u have better ideas how to fix these problems please share
    nice imgoin to try this..mind uploading the script u got now? i doint mind remaking myself just if u have it allready i wont=D

  19. #19
    Join Date
    Mar 2013
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Simba Code:
    program RoguesDenCooker;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I SRL-OSR/SRL/Misc/SmartGraphics.Simba}

    const
    BankNick = 'merald';
    BankColor1 = 7049917;
    BankColor2 = 5007496;
    FireColor1 = 3519463;
    FireColor2 = 3317181;

    var
    banked, t, x, y: Integer;

      const
      default = 'Tahoma';

    procedure DeclarePlayer;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := 'Username';
      Players[0].Pass := 'Password';
      Players[0].Nick := 'Nickname';
      Players[0].Active:=True;
    end;

    procedure openBankScreen;
    var x, y: Integer;
      begin
      writeln('Looking for Bank');
      repeat
      FindNormalRandoms;
      repeat
      wait(50 + random(80))
       until FindObjCustom(x,y, ['alk-to',  BankNick], [BankColor1, BankColor2], 5)
          wait(randomRange(200,600));
          ClickMouse2(mouse_right);
          wait(randomRange(200,600));
          ChooseOptionMulti(['Bank']);
       wait(randomRange(800,1600));
       until (BankScreen = True);
       writeln('Found BankScreen');
       end;


    Procedure withdrawBank;
    begin
      repeat
        Deposit(1,28,True);
        Wait(RandomRange(210,410));
      until (InvCount < 1);
      wait(randomRange(300, 600))
      Withdraw(0,0,28);
      Wait(randomRange(800,1000));
      if (InvCount < 28) then
        withdrawBank;

      CloseBank;
      FindNormalRandoms;
    end;

    procedure startCook;
    begin
      FindNormalRandoms;
      MarkTime(t);
      repeat
        repeat
        MouseItem(28,mouse_left);
        Wait(50+random(50));
        until FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
        wait(100+random(200));
        ClickMouse2(mouse_right);
        wait(randomRange (100, 500));
        ChooseOptionMulti(['Fire']);
        wait(randomRange (1500, 2000));
        FindNormalRandoms;
        MoveMouse(259, 407);
        Wait(randomRange(100,200))
        Clickmouse2(mouse_right);
        Wait(randomRange(100,200));
        FindNormalRandoms;
      until chooseOptionMulti(['All']) or (TimeFromMark(t)>20000);
      Wait(RandomRange(900, 1100));
      FindNormalRandoms;
      MarkTime(t);
        repeat
        sleep(500);
        if FindNPCChatText('gratu', Nothing) then
          begin
          writeln('Leveled up');
          openbankscreen;
          withdrawBank;
          startCook;
          end;
        FindNormalRandoms;
        until TimeFromMark(t) > 62000;
    end;

    Procedure antiBan;
    begin
      Case Random(50) Of
        1: HoverSkill(SKILL_COOKING, False);
        2: BoredHuman;
        3: Wait(1500 + random(2500));
        4: PickUpMouse;
        5: ExamineInv;
        6: RandomRClick;
        7: MakeCompass('random');
        8: MMouseOffClient('random');
      end;
    end;

    procedure Prog;
    var
      Sec: Integer;
    begin
      Sec := GetTimeRunning/1000;
      Writeln('Total Cooked : ' + IntToStr(Banked));
      Writeln('Time Ran     : ' + TimeRunning);
    end;


    begin
      SetupSRL();
      DeclarePlayer;
      SetScreenName(Players[0].Nick);
      ActivateClient;
      Wait(2000);

      If (Not LoggedIn) Then
      begin
        LogInPlayer;
      end;

      begin
      repeat
      openBankScreen;
      withdrawBank;
      IncEx(Banked, 28);
      startCook;
      Prog;
      antiBan;
      until(not LoggedIn);
      end;
    end.

    Working pretty well now.. Ill post a proggy before i go to sleep or when it fails

    Total Cooked : 1652
    Time Ran : 1 Hours, 26 Minutes and 53 Seconds

    At the end someone spammed alot of firemaking around me so it slowed me down quite a bit.. but ran nicely for 1h 27min
    Last edited by Rodelol; 05-16-2013 at 12:44 AM.

  20. #20
    Join Date
    Jan 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The script skeleton itself is pretty allright. I had to modify it quite a bit though.
    After it find the fire and uses to food on it, it will not wait until it sees the option to cook the lobster. Instead, it waits just over 2 seconds which sometimes isn't enough.
    I did the fixes mentioned in the thread, and adjusted some of the procedures a bit and it works perfectly.
    Thanks!

  21. #21
    Join Date
    Jan 2012
    Posts
    1,104
    Mentioned
    18 Post(s)
    Quoted
    211 Post(s)

    Default

    Simba Code:
    Procedure withdrawBank;
    begin
      repeat
        Deposit(1,28,True);
        Wait(RandomRange(210,410));
      until (InvCount < 1);
      wait(randomRange(300, 600))
      Withdraw(0,0,28);
      Wait(randomRange(800,1000));
      if (InvCount < 28) then
        withdrawBank; //HERE!

      CloseBank;
      FindNormalRandoms;
    end;
    This is logically bad, once you have less than 28 fish, it will keep depositing/withrawing them. Try to avoid infinite loops, use Timer failsafes.

  22. #22
    Join Date
    May 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    works nice, thx ! one thing i noticed for me though was when it gained a cooking lvl it stopped doing anything.

  23. #23
    Join Date
    May 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    program RoguesDenCooker;
    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I SRL-OSR/SRL/Misc/SmartGraphics.simba}

    const
    BankNick = 'merald';
    BankColor1 = 2768967;
    BankColor2 = 3758433;
    BankColor3 = 1522241;
    FireColor1 = 2010082;
    FireColor2 = 2267089;

    var
    banked, t, x, y: Integer;

    const
    default = 'Tahoma';

    procedure DeclarePlayer;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    Players[0].Name := 'Username';
    Players[0].Pass := 'Password';
    Players[0].Nick := 'NickName';
    Players[0].Active:=True;
    end;

    procedure openBankScreen;
    var x, y: Integer;
    begin
    writeln('Looking for Bank');
    repeat
    FindNormalRandoms;
    repeat
    wait(50 + random(80))
    until FindObjCustom(x,y, ['alk-to', BankNick], [BankColor1, BankColor2, BankColor3], 5)
    wait(randomRange(200,600));
    ClickMouse2(mouse_right);
    wait(randomRange(200,600));
    ChooseOptionMulti(['Bank']);
    wait(randomRange(800,1600));
    until (BankScreen = True);
    writeln('Found BankScreen');
    end;


    Procedure withdrawBank;
    begin
    repeat
    Deposit(1,28,True);
    Wait(RandomRange(210,410));
    until (InvCount < 1);
    wait(randomRange(300, 600))
    Withdraw(0,0,28);
    Wait(randomRange(800,1000));
    if (InvCount < 28) then
    withdrawBank;

    CloseBank;
    FindNormalRandoms;
    end;

    procedure startCook;
    begin
    FindNormalRandoms;
    MarkTime(t);
    repeat
    repeat
    MouseItem(28,mouse_left);
    Wait(400+random(600));
    until FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
    wait(100+random(200));
    ClickMouse2(mouse_right);
    wait(randomRange (300, 800));
    ChooseOptionMulti(['Fire']);
    wait(randomRange (2000, 3000));
    FindNormalRandoms;
    MoveMouse(259, 407);
    Wait(randomRange(400,800))
    Clickmouse2(mouse_right);
    Wait(randomRange(200,400));
    FindNormalRandoms;
    until chooseOptionMulti(['All']) or (TimeFromMark(t)>20000);
    Wait(RandomRange(900, 1100));
    FindNormalRandoms;
    MarkTime(t);
    repeat
    sleep(500);
    if FindNPCChatText('gratu', Nothing) then
    begin
    writeln('Leveled up');
    startCook;
    end;
    FindNormalRandoms;
    until TimeFromMark(t) > 62000;
    end;


    Function AntiBan: Boolean;
    begin
    case random(500) of
    0: RandomRClick;
    1: HoverSkill(skill_Woodcutting,False);
    2: PickUpMouse;
    3: BoredHuman;
    4: MMouseOffClient('top');
    5: MMouseOffClient('left');
    6: MMouseOffClient('right');
    7: MMouseOffClient('bottom');
    8: SmallRandomMouse;
    9: SetRun(true);
    end;
    end;

    procedure Prog;
    var
    Sec: Integer;
    begin
    Sec := GetTimeRunning/1000;
    Writeln('Total Cooked : ' + IntToStr(Banked));
    Writeln('Time Ran : ' + TimeRunning);
    end;


    begin
    SetupSRL();
    DeclarePlayer;
    SetScreenName(Players[0].Nick);
    ActivateClient;
    Wait(2000);

    If (Not LoggedIn) Then
    begin
    LogInPlayer;
    end;

    begin
    repeat
    openBankScreen;
    withdrawBank;
    IncEx(Banked, 28);
    startCook;
    Prog;
    antiBan;
    until(not LoggedIn);
    end;
    end.
    Added few adjustments while I was cooking today.
    I am still unsure which way is better when you lvl up to bank or to cook again.
    If you could somehow like pause the timer when that pops up for the cooking length then carry it on afterwards would be great.Oh and unsure if anti ban works that may need looking into too. (check cooking lvl and so on...)
    but yeah man with all the little adjustments timings and so on its running perfect for me.
    Thanks for this.
    Last edited by NZFrog; 05-18-2013 at 08:12 PM.

  24. #24
    Join Date
    Mar 2013
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by NZFrog View Post
    Added few adjustments while I was cooking today.
    I am still unsure which way is better when you lvl up to bank or to cook again.
    If you could somehow like pause the timer when that pops up for the cooking length then carry it on afterwards would be great.Oh and unsure if anti ban works that may need looking into too. (check cooking lvl and so on...)
    but yeah man with all the little adjustments timings and so on its running perfect for me.
    Thanks for this.
    I was thinking about this for a while and i think if we add the timer and the leveling into the main loop it could work but in my opinion this wouldn't speed it up in anyway since banking only takes like 5sec anyway.. And it only happens like once in a hour or less atlast for me

    Actually nvm it wouldnt work
    Last edited by Rodelol; 05-18-2013 at 10:00 PM.

  25. #25
    Join Date
    Mar 2013
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Horrible script.

    Doesn't even work, does not click the fire LOL.

    0/10.

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
  •