SRL Archive - OSR Outdated / Broken Scripts

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!



[ATTACH]21161[/ATTACH]

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.

From: eye5755
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.

You need to add antiban in your script :/

From: hoodz
You need to add antiban in your script :/

Ok, now there is atleast somekind of antiban added

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

From: Gannon
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

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.

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.

From: pacotaco2468
this script sucks balls. delete it! or improve it vastly!

Go dig a hole, atleast give the guy some feedback or help.

From: pacotaco2468
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 :(

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.

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.

49-70 using this. good job

From: mr1machine1
Ok, now there is atleast somekind of antiban added

Nice, good job!

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

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

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.

 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.

      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 :)

From: Rodelol
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

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.

 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.

      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

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 :)

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!

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. :)

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

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.

From: NZFrog
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 :p

Actually nvm it wouldnt work :p

Horrible script.

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

0/10.

From: mees94
Horrible script.

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

0/10.

Yet… It works flawless for me and many others.

From: mees94
Horrible script.

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

0/10.

Its not the script its you.

From: mees94
Horrible script.

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

0/10.

lol… People like you are horrible i give your attitude 0/10, plus as many said this script work fine with them, I my self gained around 2M xp from using this script, many thanks to the script writer and all who have put in their time and effort on this script <3! 9.9/10 to this script.

From: mr1machine1
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!



[ATTACH]21161[/ATTACH]

Improved this script:

[ATTACH]21358[/ATTACH]

• Better fire + bank colours (you can use your own or old by changing: BankColor1/2 + FireColor1/2 and the 'Pick a colour'-tool in Simba)
• Failsafe for banking(sort of)
• Pin support :D
• Better deposit

so I dont want to sound ungrateful but this script really doesn't work for me. I've changed the fire color because before it wouldn't even find the fire. Now I am lucky to get 1 full inv cooked and 2 is like finding a shiny pokemon. Is there anything I am missing here?

I can help you with this script. PM me with what you need done.

From: bob_dole
I can help you with this script. PM me with what you need done.

Sorry, but I kinda gave up on this script for three reasons:
1. There already are improved versions of the script in the comments
2. I got to 99 cooking with it
3. I got hacked and lost about 5-6 million and I don't feel like playing that much runescape anymore

can someone fix this? it doesn't do randoms and sometimes it just sits there after finishing an inventory

Exception in Script: File "SRL-OSR/SRL.simba" not found at line 3, column 5

it always says this, what does it mean and how do i fix it?

From: harkat013
Exception in Script: File "SRL-OSR/SRL.simba" not found at line 3, column 5

it always says this, what does it mean and how do i fix it?

By using google. https://github.com/SRL/SRL-OSR extract to c:/simba/includes and rename SRL-OSR

Exception in Script: File "SRL/SRL/Misc/Debug.Simba" not found at line 4, column 5

how do I fix this?

why do all the posts on this site die the last message is allways the problem with the script and its never been fixed its been so long whats going on with this script????

Improved this script:

RoguesDenCookerV1.2_Matthew.simba

Better fire + bank colours (you can use your own or old by changing: BankColor1/2 + FireColor1/2 and the 'Pick a colour'-tool in Simba)
Failsafe for banking(sort of)
Pin support
Better deposit

In order for me to get this to work i was having a debug prob but changed {$I SRL/SRL/Misc/debug.Simba} to {$I SRL-OSR/SRL/Misc/debug.Simba}
at the top idk how this affected the script but has trouble wanting to cook the lobs.

Great script! Decided to train cooking again. I noticed that there was no "level up" detection. If the char levels up the inventory still has food to cook. Here's the level tracker.

Side note: you may want to adjust the co-ord for the item that's selected for cooking. I use one of the last four inventory slots.
Also, you can remove the writeLn statements, left those in for debugging.

begin
  SetupSRL();
  DeclarePlayer;
  SetScreenName(Players[0].Nick);
  ActivateClient;
  Wait(2000);
  stop := randomRange(61000,64000)
  Writeln(stop);
  If (Not LoggedIn) Then
  begin
    LogInPlayer;
  end;

  begin
    repeat
      openBankScreen;
      withdrawBank;
      startCook;

      repeat
           if (LevelUp) then begin
              wait(200 + random(300));
              antiBan;
              startCook;
           end;

      Wait(100);
      i := i + 100;
      Writeln(i);
     until(i >= 62000);

     antiBan;
     i := 0;
     stop := randomRange(61000,64000);

  until(not LoggedIn);


  end;
end.