Buying arrow buyer with world switcher.

Buying arrow buyer with world switcher.
Paying around 200-400k
At this shop

 

Might work, might not. I'll get back on it later, just thought I would post what I had so far and see if it's what you wanted.

Code:

program ArrowBuyer;

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/BuySell.scar}
{.include SRL/SRL/Misc/Amount.scar}
{.include SRL/SRL/Misc/WorldSwitcher.scar}

const
  BuySlot = 1; // Slot To Buy
  AmountToStop = 1; // When there are this many left, stop
  BuySlotAgain = 1; // Another slot to buy     Put the same slot to if you want it the same
  AmountToStopAgain = 1; // Same
  WorldSwitch = 1; // First world to switch to
  WorldSwitchh = 1; // Second        Put 0 if you don't want to switch
  WorldSwitchhh = 1; // Third
  WorldSwitchhhh = 1; // Fourth
  WorldSwitchhhhh = 1; // Fifth
  ShopOwnerColor = 1; // Color of the shop owner

var
  WorldsToSwitch: Array[1..5] Of Integer;
  i, Worldss: Integer;

procedure MakeWorldArray;
var
  f: Integer;
begin
  for f := 1 to 5 do
  begin
    case f of
      1: WorldsToSwitch[1] := WorldSwitch;
      2: WorldsToSwitch[2] := WorldSwitchh;
      3: WorldsToSwitch[3] := WorldSwitchhh;
      4: WorldsToSwitch[4] := WorldSwitchhhh;
      5: WorldsToSwitch[5] := WorldSwitchhhhh;
    end;
  end;
end;


begin
  MakeWorldArray;
  for Worldss := 1 to 5 do
  begin
    repeat
      BuyAmount(BuySlot, 10);
      Wait(100 + Random(1400));
      if (Amount('inv', 1) < 1000) then Exit;
    until (Amount('shop', 2) < AmountToStop);
    Wait(1000 + Random(1000));
    repeat
      if (BuySlot = BuySlotAgain) then Break;
      BuyAmount(BuySlotAgain, 10);
      Wait(100 + Random(1400));
      if (Amount('inv', 1) < 1000) then Exit;
    until (Amount('shop', 2) < AmountToStopAgain);
    Wait(1000 + Random(1000));
    if (not (WorldsToSwitch[Worldss] = 0)) then
    begin
      CloseWindow;
      Logout;
      i := WorldsToSwitch[Worldss];
      SelectWorld(i);
      if (not (LoggedIn)) then LoginPlayer;
      if (FindObj3(x, y, 'ick', ShopOwnerColor, 25)) then
      begin
        Mouse(x, y, 2, 2, false);
        ClickOption('rade', 1)
        repeat
          Wait(100)
        until (ShopScreen) or (not (LoggedIn));
      end;
    end;
  end;
end.