SRL Archive - OSR Script Requests

OSRS Script Request: Alch/Superheat AND Cooking at rogues den

Run3pur34eva

2014-04-21 23:15:22

Would be sick if someone could make a Alch/Superheat script.
Also a cooking script at rogues den. :p

Frement

2014-04-22 04:49:41

These following scripts don't have random checks, so babysit them, or use in a world without randoms. (I high alch in duel arena, above the duel arenas, almost at the center of the place.

Superheater, varrock west bank:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR\SRL\misc\SmartGraphics.simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

function F_OpenBank: Boolean;
var
  Booth: TPoint;
begin
  if (not LoggedIn) or (BankScreen) then
    Exit;

  Booth := R_TileToMS(Point(3186, 3436));
  MMouse(Booth.X, Booth.Y, 2, 2);
  Sleep(100 + Random(100));
  if (R_IsUpText('Bank Ba')) then begin
    ClickMouse2(Mouse_Left);
  end else begin
    ClickMouse2(Mouse_Right);
    Sleep(250 + Random(250));
    R_ChooseOption('Bank Ba');
  end;
  Sleep(500 + Random(250));

  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);

  Result := WaitFunc(@BankScreen, 250, 2500);
  Sleep(1000 + Random(250));
end;

procedure F_CloseBank;
begin
  if (not LoggedIn) or (not BankScreen) then
    Exit;

  MMouse(486, 42, 2, 2);
  ClickMouse2(Mouse_Left);
  Sleep(250 + Random(250));
end;

function F_WithdrawEx(Col, Row, Amount: Integer; Uptexts: TStringArray): Boolean;
var
  BBox: TBox;
  X, Y: Integer;
begin
  Result := False;
  FixBank;
  if not bankscreen then
    exit;

  BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col, Row)));
  BBox := IntToBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3);
  GetMousePos(X, Y);
  if (not PointInBox(Point(X, Y), BBox)) then
    MouseBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3, mouse_move);

  if (Length(Uptexts) > 0) then
    if (not R_WaitUpTextMulti(Uptexts, 500)) then
      Exit;

  if (Amount = 1) then
    ClickMouse2(mouse_left)
  else
    ClickMouse2(mouse_right);
  if (Amount = 1) then
  begin
    Result := True;
    Wait(RandomRange(250, 550));
    Exit;
  end;

  if (Amount = -1) then
  begin
    if (WaitOptionMultiEx(['Withdraw-All-but', 'l-b'], 'All', Nothing, 300)) then
      Result := R_ChooseOption('Withdraw-All-but');
  end else
    if (Amount = 0) then
    begin
      if (WaitOptionMultiEx(['Withdraw-All', 'w-A'], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-All');
    end else
      if (WaitOptionMultiEx(['Withdraw-' + IntToStr(Amount) + ' ', 'w-' + IntToStr(Amount) + ' '], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-' + IntToStr(Amount) + ' ');

  if (not (Result)) and (Amount > 0) then
  begin
    if (not OptionsExist(['Withdraw', 'ithdraw', 'draw'], False)) then
      MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, mouse_right);

    if WaitOptionMulti(['Withdraw-X', 'w-X', 'X'], 500) then
    begin
       X := GetSystemTime + 10000;
       while (X >= GetSystemTime) and (not (InRange(CountColor(0, 211, 394, 308, 411), 200, 300))) do
         Wait(50);
       Wait(RandomRange(75, 400));
       TypeSend(IntToStr(Amount));
       Result := True;
    end;
  end;
end;

procedure WithdrawOres;
begin
  F_OpenBank;
  F_WithdrawEx(2, 0, 9, ['Iron ore']);
  F_WithdrawEx(1, 0, 0, ['Coal']);
  F_CloseBank;
end;

procedure SuperheatBar;
begin
  GameTab(tab_Magic);
  MMouse(666 + RandomRange(-3, 3), 313 + RandomRange(-3, 3), 2, 2);
  Sleep(100 + Random(100));
  ClickMouse2(Mouse_Left);
  Sleep(100 + Random(100));
  InvMouse(10, 1);
  Sleep(1000 + Random(250));
end;

procedure Superheat;
var
  I: Integer;
begin
  for I := 0 to 8 do begin
    SuperheatBar;
  end;
end;

procedure DepositBars;
begin
  F_OpenBank;
  Deposit(2, 28, True);
end;

begin
  SetupSRL;
  SetupReflection;
  repeat
    WithdrawOres;
    Superheat;
    DepositBars;
  until(False);
end.

High Alcher:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

var
  PT: TPoint;
  StartExp: Integer;

procedure SetupScript;
begin
  PT := Point(712 + RandomRange(-2, 2), 339 + RandomRange(-2, 2));
  StartExp := R_GetSkillExp(SKILL_MAGIC);
end;

procedure Click;
begin
  ClickMouse2(Mouse_Left);
  Sleep(RandomRange(200, 250));
end;

procedure ProgressReport;
var
  ExpGained, ExpGainedPerHour, YewPerHour: Integer;
begin
  ExpGained := R_GetSkillExp(SKILL_MAGIC) - StartExp;
  ExpGainedPerHour := Round((ExpGained * 3600) / (GetTimeRunning / 1000));
  YewPerHour := Round(((ExpGained / 65.0) * 3600) / (GetTimeRunning / 1000));
  Writeln('');
  Writeln('High Alcher - By Frement');
  Writeln(' - Time Running: ' + TimeRunning);
  Writeln(' - Yew Longbows Alched: ' + ToStr(Round(ExpGained / 65.0)) + ' (' + ToStr(YewPerHour) + '/H)');
  Writeln(' - Experience Gained: ' + ToStr(ExpGained) + ' (' + ToStr(ExpGainedPerHour) + '/H)');
end;

begin
  SetupSRL;
  SetupReflection;
  SetupScript;
  MMouse(PT.X, PT.Y, 2, 2);
  repeat
    Click;
    ProgressReport;
  until(False);
end.

And #@Pakkyanistan; has a rogue den cooking script, I dont know if he released it, you might want to PM him if he doesn't see this mention.

Hoodz

2014-04-22 07:28:29

http://villavu.com/forum/showthread.php?t=106396 ? got 99 cooking with it on 3 accs. if it doesnt work then say why it doesnt work

Run3pur34eva

2014-04-22 23:15:29

From: hoodz
http://villavu.com/forum/showthread.php?t=106396 ? got 99 cooking with it on 3 accs. if it doesnt work then say why it doesnt work


Unable to find file 'SRL-OSR/SRL/core/antirandoms/C_AntiRandoms.simba' used from 'C:\Users\PRIVATE\Desktop\PRIVATE\Hoodzcooker.simba'
When I try to start your script.

Run3pur34eva

2014-04-22 23:18:15

From: Frement
These following scripts don't have random checks, so babysit them, or use in a world without randoms. (I high alch in duel arena, above the duel arenas, almost at the center of the place.

Superheater, varrock west bank:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR\SRL\misc\SmartGraphics.simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

function F_OpenBank: Boolean;
var
  Booth: TPoint;
begin
  if (not LoggedIn) or (BankScreen) then
    Exit;

  Booth := R_TileToMS(Point(3186, 3436));
  MMouse(Booth.X, Booth.Y, 2, 2);
  Sleep(100 + Random(100));
  if (R_IsUpText('Bank Ba')) then begin
    ClickMouse2(Mouse_Left);
  end else begin
    ClickMouse2(Mouse_Right);
    Sleep(250 + Random(250));
    R_ChooseOption('Bank Ba');
  end;
  Sleep(500 + Random(250));

  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);

  Result := WaitFunc(@BankScreen, 250, 2500);
  Sleep(1000 + Random(250));
end;

procedure F_CloseBank;
begin
  if (not LoggedIn) or (not BankScreen) then
    Exit;

  MMouse(486, 42, 2, 2);
  ClickMouse2(Mouse_Left);
  Sleep(250 + Random(250));
end;

function F_WithdrawEx(Col, Row, Amount: Integer; Uptexts: TStringArray): Boolean;
var
  BBox: TBox;
  X, Y: Integer;
begin
  Result := False;
  FixBank;
  if not bankscreen then
    exit;

  BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col, Row)));
  BBox := IntToBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3);
  GetMousePos(X, Y);
  if (not PointInBox(Point(X, Y), BBox)) then
    MouseBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3, mouse_move);

  if (Length(Uptexts) > 0) then
    if (not R_WaitUpTextMulti(Uptexts, 500)) then
      Exit;

  if (Amount = 1) then
    ClickMouse2(mouse_left)
  else
    ClickMouse2(mouse_right);
  if (Amount = 1) then
  begin
    Result := True;
    Wait(RandomRange(250, 550));
    Exit;
  end;

  if (Amount = -1) then
  begin
    if (WaitOptionMultiEx(['Withdraw-All-but', 'l-b'], 'All', Nothing, 300)) then
      Result := R_ChooseOption('Withdraw-All-but');
  end else
    if (Amount = 0) then
    begin
      if (WaitOptionMultiEx(['Withdraw-All', 'w-A'], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-All');
    end else
      if (WaitOptionMultiEx(['Withdraw-' + IntToStr(Amount) + ' ', 'w-' + IntToStr(Amount) + ' '], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-' + IntToStr(Amount) + ' ');

  if (not (Result)) and (Amount > 0) then
  begin
    if (not OptionsExist(['Withdraw', 'ithdraw', 'draw'], False)) then
      MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, mouse_right);

    if WaitOptionMulti(['Withdraw-X', 'w-X', 'X'], 500) then
    begin
       X := GetSystemTime + 10000;
       while (X >= GetSystemTime) and (not (InRange(CountColor(0, 211, 394, 308, 411), 200, 300))) do
         Wait(50);
       Wait(RandomRange(75, 400));
       TypeSend(IntToStr(Amount));
       Result := True;
    end;
  end;
end;

procedure WithdrawOres;
begin
  F_OpenBank;
  F_WithdrawEx(2, 0, 9, ['Iron ore']);
  F_WithdrawEx(1, 0, 0, ['Coal']);
  F_CloseBank;
end;

procedure SuperheatBar;
begin
  GameTab(tab_Magic);
  MMouse(666 + RandomRange(-3, 3), 313 + RandomRange(-3, 3), 2, 2);
  Sleep(100 + Random(100));
  ClickMouse2(Mouse_Left);
  Sleep(100 + Random(100));
  InvMouse(10, 1);
  Sleep(1000 + Random(250));
end;

procedure Superheat;
var
  I: Integer;
begin
  for I := 0 to 8 do begin
    SuperheatBar;
  end;
end;

procedure DepositBars;
begin
  F_OpenBank;
  Deposit(2, 28, True);
end;

begin
  SetupSRL;
  SetupReflection;
  repeat
    WithdrawOres;
    Superheat;
    DepositBars;
  until(False);
end.

High Alcher:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

var
  PT: TPoint;
  StartExp: Integer;

procedure SetupScript;
begin
  PT := Point(712 + RandomRange(-2, 2), 339 + RandomRange(-2, 2));
  StartExp := R_GetSkillExp(SKILL_MAGIC);
end;

procedure Click;
begin
  ClickMouse2(Mouse_Left);
  Sleep(RandomRange(200, 250));
end;

procedure ProgressReport;
var
  ExpGained, ExpGainedPerHour, YewPerHour: Integer;
begin
  ExpGained := R_GetSkillExp(SKILL_MAGIC) - StartExp;
  ExpGainedPerHour := Round((ExpGained * 3600) / (GetTimeRunning / 1000));
  YewPerHour := Round(((ExpGained / 65.0) * 3600) / (GetTimeRunning / 1000));
  Writeln('');
  Writeln('High Alcher - By Frement');
  Writeln(' - Time Running: ' + TimeRunning);
  Writeln(' - Yew Longbows Alched: ' + ToStr(Round(ExpGained / 65.0)) + ' (' + ToStr(YewPerHour) + '/H)');
  Writeln(' - Experience Gained: ' + ToStr(ExpGained) + ' (' + ToStr(ExpGainedPerHour) + '/H)');
end;

begin
  SetupSRL;
  SetupReflection;
  SetupScript;
  MMouse(PT.X, PT.Y, 2, 2);
  repeat
    Click;
    ProgressReport;
  until(False);
end.

And #@Pakkyanistan; has a rogue den cooking script, I dont know if he released it, you might want to PM him if he doesn't see this mention.


Huh what does this mean?

[Error] C:\Simba\Includes\SRL-OSR\SRL\Reflection\AntiRandoms\AntiRandoms.simba(109:39): Unknown identifier 'R_FindTalk' at line 109
Compiling failed.

Run3pur34eva

2014-04-26 01:41:41

Bump! :[

Run3pur34eva

2014-04-27 23:03:08

Bump, =\

Frement

2014-04-28 06:17:12

From: Run3pur34eva
Bump, =\


Bumping the thread is not necessary, whats your current issue?

Run3pur34eva

2014-04-28 22:31:49

From: Frement
Bumping the thread is not necessary, whats your current issue?


I mentioned it earlier, and I will mention it again.
From: Run3pur34eva
Huh what does this mean?

[Error] C:\Simba\Includes\SRL-OSR\SRL\Reflection\AntiRandoms\AntiRandoms.simba(109:39): Unknown identifier 'R_FindTalk' at line 109
Compiling failed.

Run3pur34eva

2014-04-30 22:43:36

Help plox, read the above post.

hakishakataki

2014-05-11 01:12:51

From: Frement
These following scripts don't have random checks, so babysit them, or use in a world without randoms. (I high alch in duel arena, above the duel arenas, almost at the center of the place.

Superheater, varrock west bank:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR\SRL\misc\SmartGraphics.simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

function F_OpenBank: Boolean;
var
  Booth: TPoint;
begin
  if (not LoggedIn) or (BankScreen) then
    Exit;

  Booth := R_TileToMS(Point(3186, 3436));
  MMouse(Booth.X, Booth.Y, 2, 2);
  Sleep(100 + Random(100));
  if (R_IsUpText('Bank Ba')) then begin
    ClickMouse2(Mouse_Left);
  end else begin
    ClickMouse2(Mouse_Right);
    Sleep(250 + Random(250));
    R_ChooseOption('Bank Ba');
  end;
  Sleep(500 + Random(250));

  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);

  Result := WaitFunc(@BankScreen, 250, 2500);
  Sleep(1000 + Random(250));
end;

procedure F_CloseBank;
begin
  if (not LoggedIn) or (not BankScreen) then
    Exit;

  MMouse(486, 42, 2, 2);
  ClickMouse2(Mouse_Left);
  Sleep(250 + Random(250));
end;

function F_WithdrawEx(Col, Row, Amount: Integer; Uptexts: TStringArray): Boolean;
var
  BBox: TBox;
  X, Y: Integer;
begin
  Result := False;
  FixBank;
  if not bankscreen then
    exit;

  BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col, Row)));
  BBox := IntToBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3);
  GetMousePos(X, Y);
  if (not PointInBox(Point(X, Y), BBox)) then
    MouseBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3, mouse_move);

  if (Length(Uptexts) > 0) then
    if (not R_WaitUpTextMulti(Uptexts, 500)) then
      Exit;

  if (Amount = 1) then
    ClickMouse2(mouse_left)
  else
    ClickMouse2(mouse_right);
  if (Amount = 1) then
  begin
    Result := True;
    Wait(RandomRange(250, 550));
    Exit;
  end;

  if (Amount = -1) then
  begin
    if (WaitOptionMultiEx(['Withdraw-All-but', 'l-b'], 'All', Nothing, 300)) then
      Result := R_ChooseOption('Withdraw-All-but');
  end else
    if (Amount = 0) then
    begin
      if (WaitOptionMultiEx(['Withdraw-All', 'w-A'], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-All');
    end else
      if (WaitOptionMultiEx(['Withdraw-' + IntToStr(Amount) + ' ', 'w-' + IntToStr(Amount) + ' '], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-' + IntToStr(Amount) + ' ');

  if (not (Result)) and (Amount > 0) then
  begin
    if (not OptionsExist(['Withdraw', 'ithdraw', 'draw'], False)) then
      MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, mouse_right);

    if WaitOptionMulti(['Withdraw-X', 'w-X', 'X'], 500) then
    begin
       X := GetSystemTime + 10000;
       while (X >= GetSystemTime) and (not (InRange(CountColor(0, 211, 394, 308, 411), 200, 300))) do
         Wait(50);
       Wait(RandomRange(75, 400));
       TypeSend(IntToStr(Amount));
       Result := True;
    end;
  end;
end;

procedure WithdrawOres;
begin
  F_OpenBank;
  F_WithdrawEx(2, 0, 9, ['Iron ore']);
  F_WithdrawEx(1, 0, 0, ['Coal']);
  F_CloseBank;
end;

procedure SuperheatBar;
begin
  GameTab(tab_Magic);
  MMouse(666 + RandomRange(-3, 3), 313 + RandomRange(-3, 3), 2, 2);
  Sleep(100 + Random(100));
  ClickMouse2(Mouse_Left);
  Sleep(100 + Random(100));
  InvMouse(10, 1);
  Sleep(1000 + Random(250));
end;

procedure Superheat;
var
  I: Integer;
begin
  for I := 0 to 8 do begin
    SuperheatBar;
  end;
end;

procedure DepositBars;
begin
  F_OpenBank;
  Deposit(2, 28, True);
end;

begin
  SetupSRL;
  SetupReflection;
  repeat
    WithdrawOres;
    Superheat;
    DepositBars;
  until(False);
end.

High Alcher:
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

var
  PT: TPoint;
  StartExp: Integer;

procedure SetupScript;
begin
  PT := Point(712 + RandomRange(-2, 2), 339 + RandomRange(-2, 2));
  StartExp := R_GetSkillExp(SKILL_MAGIC);
end;

procedure Click;
begin
  ClickMouse2(Mouse_Left);
  Sleep(RandomRange(200, 250));
end;

procedure ProgressReport;
var
  ExpGained, ExpGainedPerHour, YewPerHour: Integer;
begin
  ExpGained := R_GetSkillExp(SKILL_MAGIC) - StartExp;
  ExpGainedPerHour := Round((ExpGained * 3600) / (GetTimeRunning / 1000));
  YewPerHour := Round(((ExpGained / 65.0) * 3600) / (GetTimeRunning / 1000));
  Writeln('');
  Writeln('High Alcher - By Frement');
  Writeln(' - Time Running: ' + TimeRunning);
  Writeln(' - Yew Longbows Alched: ' + ToStr(Round(ExpGained / 65.0)) + ' (' + ToStr(YewPerHour) + '/H)');
  Writeln(' - Experience Gained: ' + ToStr(ExpGained) + ' (' + ToStr(ExpGainedPerHour) + '/H)');
end;

begin
  SetupSRL;
  SetupReflection;
  SetupScript;
  MMouse(PT.X, PT.Y, 2, 2);
  repeat
    Click;
    ProgressReport;
  until(False);
end.

And #@Pakkyanistan; has a rogue den cooking script, I dont know if he released it, you might want to PM him if he doesn't see this mention.



how do I use the super heater to make iron bars? It only opens up the bank and sits there.

or it opens the bank, doesnt withdraw anything then clicks around in the inventory.

Frement

2014-05-11 01:29:32

From: hakishakataki
how do I use the super heater to make iron bars? It only opens up the bank and sits there

As with the old one, varrock west bank, iron ores in column 3 first row.
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR\SRL\misc\SmartGraphics.simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

function F_OpenBank: Boolean;
var
  Booth: TPoint;
begin
  if (not LoggedIn) or (BankScreen) then
    Exit;

  Booth := R_TileToMS(Point(3186, 3436));
  MMouse(Booth.X, Booth.Y, 2, 2);
  Sleep(100 + Random(100));
  if (R_IsUpText('Bank Ba')) then begin
    ClickMouse2(Mouse_Left);
  end else begin
    ClickMouse2(Mouse_Right);
    Sleep(250 + Random(250));
    R_ChooseOption('Bank Ba');
  end;
  Sleep(500 + Random(250));

  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);

  Result := WaitFunc(@BankScreen, 250, 2500);
  Sleep(1000 + Random(250));
end;

procedure F_CloseBank;
begin
  if (not LoggedIn) or (not BankScreen) then
    Exit;

  MMouse(486, 42, 2, 2);
  ClickMouse2(Mouse_Left);
  Sleep(250 + Random(250));
end;

function F_WithdrawEx(Col, Row, Amount: Integer; Uptexts: TStringArray): Boolean;
var
  BBox: TBox;
  X, Y: Integer;
begin
  Result := False;
  FixBank;
  if not bankscreen then
    exit;

  BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col, Row)));
  BBox := IntToBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3);
  GetMousePos(X, Y);
  if (not PointInBox(Point(X, Y), BBox)) then
    MouseBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3, mouse_move);

  if (Length(Uptexts) > 0) then
    if (not R_WaitUpTextMulti(Uptexts, 500)) then
      Exit;

  if (Amount = 1) then
    ClickMouse2(mouse_left)
  else
    ClickMouse2(mouse_right);
  if (Amount = 1) then
  begin
    Result := True;
    Wait(RandomRange(250, 550));
    Exit;
  end;

  if (Amount = -1) then
  begin
    if (WaitOptionMultiEx(['Withdraw-All-but', 'l-b'], 'All', Nothing, 300)) then
      Result := R_ChooseOption('Withdraw-All-but');
  end else
    if (Amount = 0) then
    begin
      if (WaitOptionMultiEx(['Withdraw-All', 'w-A'], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-All');
    end else
      if (WaitOptionMultiEx(['Withdraw-' + IntToStr(Amount) + ' ', 'w-' + IntToStr(Amount) + ' '], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-' + IntToStr(Amount) + ' ');

  if (not (Result)) and (Amount > 0) then
  begin
    if (not OptionsExist(['Withdraw', 'ithdraw', 'draw'], False)) then
      MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, mouse_right);

    if WaitOptionMulti(['Withdraw-X', 'w-X', 'X'], 500) then
    begin
       X := GetSystemTime + 10000;
       while (X >= GetSystemTime) and (not (InRange(CountColor(0, 211, 394, 308, 411), 200, 300))) do
         Wait(50);
       Wait(RandomRange(75, 400));
       TypeSend(IntToStr(Amount));
       Result := True;
    end;
  end;
end;

procedure WithdrawOres;
begin
  F_OpenBank;
  F_WithdrawEx(2, 0, 0, ['Iron ore']);
  //F_WithdrawEx(1, 0, 0, ['Coal']);
  F_CloseBank;
end;

procedure SuperheatBar;
begin
  GameTab(tab_Magic);
  MMouse(666 + RandomRange(-3, 3), 313 + RandomRange(-3, 3), 2, 2);
  Sleep(100 + Random(100));
  ClickMouse2(Mouse_Left);
  Sleep(100 + Random(100));
  InvMouse(28, 1);
  Sleep(1000 + Random(250));
end;

procedure Superheat;
var
  I: Integer;
begin
  for I := 0 to 27 do begin
    SuperheatBar;
  end;
end;

procedure DepositBars;
begin
  F_OpenBank;
  Deposit(2, 28, True);
end;

begin
  SetupSRL;
  SetupReflection;
  repeat
    WithdrawOres;
    Superheat;
    DepositBars;
  until(False);
end.

Flight

2014-05-11 11:01:42

Frement, you should really expand upon those and officially post them, I'm sure people would like to use those scripts.

hakishakataki

2014-05-11 11:02:10

From: Frement
As with the old one, varrock west bank, iron ores in column 3 first row.
program new;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR\SRL\misc\SmartGraphics.simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}

function F_OpenBank: Boolean;
var
  Booth: TPoint;
begin
  if (not LoggedIn) or (BankScreen) then
    Exit;

  Booth := R_TileToMS(Point(3186, 3436));
  MMouse(Booth.X, Booth.Y, 2, 2);
  Sleep(100 + Random(100));
  if (R_IsUpText('Bank Ba')) then begin
    ClickMouse2(Mouse_Left);
  end else begin
    ClickMouse2(Mouse_Right);
    Sleep(250 + Random(250));
    R_ChooseOption('Bank Ba');
  end;
  Sleep(500 + Random(250));

  if (PinScreen) then
    InPin(Players[CurrentPlayer].Pin);

  Result := WaitFunc(@BankScreen, 250, 2500);
  Sleep(1000 + Random(250));
end;

procedure F_CloseBank;
begin
  if (not LoggedIn) or (not BankScreen) then
    Exit;

  MMouse(486, 42, 2, 2);
  ClickMouse2(Mouse_Left);
  Sleep(250 + Random(250));
end;

function F_WithdrawEx(Col, Row, Amount: Integer; Uptexts: TStringArray): Boolean;
var
  BBox: TBox;
  X, Y: Integer;
begin
  Result := False;
  FixBank;
  if not bankscreen then
    exit;

  BBox := BankIndexToMSBox(BankPointToBankIndex(Point(Col, Row)));
  BBox := IntToBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3);
  GetMousePos(X, Y);
  if (not PointInBox(Point(X, Y), BBox)) then
    MouseBox(BBox.X1 - 2, BBox.Y1 + 10, BBox.X2 - 2, BBox.Y2 + 3, mouse_move);

  if (Length(Uptexts) > 0) then
    if (not R_WaitUpTextMulti(Uptexts, 500)) then
      Exit;

  if (Amount = 1) then
    ClickMouse2(mouse_left)
  else
    ClickMouse2(mouse_right);
  if (Amount = 1) then
  begin
    Result := True;
    Wait(RandomRange(250, 550));
    Exit;
  end;

  if (Amount = -1) then
  begin
    if (WaitOptionMultiEx(['Withdraw-All-but', 'l-b'], 'All', Nothing, 300)) then
      Result := R_ChooseOption('Withdraw-All-but');
  end else
    if (Amount = 0) then
    begin
      if (WaitOptionMultiEx(['Withdraw-All', 'w-A'], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-All');
    end else
      if (WaitOptionMultiEx(['Withdraw-' + IntToStr(Amount) + ' ', 'w-' + IntToStr(Amount) + ' '], 'All', Nothing, 300)) then
        Result := R_ChooseOption('Withdraw-' + IntToStr(Amount) + ' ');

  if (not (Result)) and (Amount > 0) then
  begin
    if (not OptionsExist(['Withdraw', 'ithdraw', 'draw'], False)) then
      MouseBox(BBox.X1 + 5, BBox.Y1 + 5, BBox.X2 - 5, BBox.Y2 - 5, mouse_right);

    if WaitOptionMulti(['Withdraw-X', 'w-X', 'X'], 500) then
    begin
       X := GetSystemTime + 10000;
       while (X >= GetSystemTime) and (not (InRange(CountColor(0, 211, 394, 308, 411), 200, 300))) do
         Wait(50);
       Wait(RandomRange(75, 400));
       TypeSend(IntToStr(Amount));
       Result := True;
    end;
  end;
end;

procedure WithdrawOres;
begin
  F_OpenBank;
  F_WithdrawEx(2, 0, 0, ['Iron ore']);
  //F_WithdrawEx(1, 0, 0, ['Coal']);
  F_CloseBank;
end;

procedure SuperheatBar;
begin
  GameTab(tab_Magic);
  MMouse(666 + RandomRange(-3, 3), 313 + RandomRange(-3, 3), 2, 2);
  Sleep(100 + Random(100));
  ClickMouse2(Mouse_Left);
  Sleep(100 + Random(100));
  InvMouse(28, 1);
  Sleep(1000 + Random(250));
end;

procedure Superheat;
var
  I: Integer;
begin
  for I := 0 to 27 do begin
    SuperheatBar;
  end;
end;

procedure DepositBars;
begin
  F_OpenBank;
  Deposit(2, 28, True);
end;

begin
  SetupSRL;
  SetupReflection;
  repeat
    WithdrawOres;
    Superheat;
    DepositBars;
  until(False);
end.


Yes, I've already modified the script to do it like that (the omition of coal). I just need to figure out why it wont withdraw.

EDIT: I figured it out! It doesnt work nicely with bank tabs. When I closed them all it worked great :) thank you again frement!

Frement

2014-05-11 11:24:32

From: hakishakataki
Yes, I've already modified the script to do it like that (the omition of coal). I just need to figure out why it wont withdraw.

EDIT: I figured it out! It doesnt work nicely with bank tabs. When I closed them all it worked great :) thank you again frement!


Oh there are bank tabs now? Great.

hakishakataki

2014-05-11 12:50:36

From: Frement
Oh there are bank tabs now? Great.


Yeah, but they can be disabled so its no big deal. However, I do enjoy using them.