SRL Archive - First Scripts

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

Shadowmarkus Rogues Den Cooker
--------------------------------------
Script Ran For: 22 Minutes and 5 Seconds
--------------------------------------

From: phamxboa
cannot detect the banker :/

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

From: phamxboa
Like It cannot detect the banker, and examines the fire over and over

if FindObj(x,y,'ened',4488020,6)then

4488020

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

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

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

From: phamxboa
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 ?

wait(1600 + RandomRange(150, 250));

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

But, go to line 148, and adjust the

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.

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

From: shadowmarkus
The number I gave you, is the amount of time it waits, before it clicks "cook all" So you might have to raise it…

From: phamxboa
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…

From: shadowmarkus
Try keeping an eye on the mouse, does it go to the chatbox area at all, after withdrawing food?

From: phamxboa
I've tested it over 3-4 times just to make sure, and it doesn't go to the chat box area at all.

 wait(1600 + RandomRange(150, 250));
  MouseBox(235, 400, 284, 455, Mouse_Left); 

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

From: onilika
The problem isn't clicking on banker or fire. The problem is that after selecting the food and fire, it won't select the 'cook all ' option. And that happened to people that fixed the banking and fire issue. That's wierd.

~onilika

From: Tocholoko
does this support monkfish??

From: jarnovg
Can you make this for oldschool runescape?

From: the bank
gratz on first script!