Serum 207 Maker!

Is this script fixed now or does it still click the money pouch icon instead of the deposit items one?

" if (ChooseOptionMultiEx(S, TextType, Action)) then "

[Error] C:\Simba\Includes\SRL/SRL/core/timing.scar(189:9): Unknown identifier 'ChooseOptionMultiEx' at line 188
Compiling failed.

it used to work just fine!

^^ where i need to add this to?

is it possible for someone to fix the deposit all issue? I tried finding the code for that but I'm not a scripter so I can't figure out which part of the script to edit

can someone update the script?

Looks promising :) Still struggling sometimes with some clicks, but nonetheless, very nice :)

the script isnt working!! please update it!!
it wont withdraw items

It wont withdraw items. Does this have something to do with srl5?

Can someone please update the script ?

It's pretty simple to update the script-- all it needs is upgrading to SRL5 (and fix your own Simba client if there's problems; e.g. update your text.simba)

updated to SRL5:

Code:

---

program Serum207Maker;
{$DEFINE SMART}
{$i SRL\SRL.simba}


const
  S_World = 65;
  S_Signed = True;
  S_Member = True;


procedure DeclarePlayer;
begin
  with Players[0] do
  begin

    Name := 'poptarts';
    Pass := 'poptarts';
    Pin := 'PINHERE';
    Active := True;
  end;
end;


procedure AntiBan;
var
  Int: Integer;
begin
  Wait(300 + Random(40))
  Int := Random(100);
  if (Int <= 91) then
    Exit;
  Writeln('AntiBanned [' + ToStr(Int) + ']');
  case Int of
    92..94: MakeCompass(rs_GetCompassAngleDegrees + RandomRange(-185, 360));
    95..96:
    begin
      SetAngle(SRL_ANGLE_NONE);
      SetAngle(SRL_ANGLE_HIGH);
    end;
    97: HoverSkill(SKILL_HERBLORE, False);

    98..99: PickupMouse;
  end;
end;

function Bank: Boolean;
var
  X, Y: Integer;
  begin
  FindNormalRandoms;
  if (FindObjCustom(X, Y, ['Bank','nk ch','k che','chest'], [2963780,10724266,10000542,5592409], 3)) then
    Mouse(X, Y, 0, 0, True);
    Wait(1500 + Random(300));
    if (PinScreen) then InPin(Players[CurrentPlayer].Pin);
  begin
      depositAll;
    if Withdraw(8, 3, 14) then
      if Withdraw(9, 3, 14) then
        Result := True;
  end;
  if BankScreen then
    CloseBank;
  FindNormalRandoms;
end;


function MixPots: Boolean;
var
  x, y, T: Integer;
  B: TBox;
begin
  if (InvFull) then
    Wait(300 + Random(50));
  InvMouse(1, 1);
  InvMouse(15, 1);
  MouseBox(227, 405, 284, 435, 3);
  T := GetSystemTime + 9000;
  while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
    Wait(100 + Random(100));
  if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
    Exit;
  GetMousePos(x, y);
  if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
    MouseBox(227, 405, 284, 435, 1)
  else
    ClickMouse2(True);
  while (GetSystemTime < T) and not(Result) do
  begin
    if LevelUp then
    Wait(800 + Random(100));
    AntiBan;
    FindNormalRandoms;
  end;
end;


begin
  Smart_Server := S_World;
  Smart_Signed := S_Signed;
  Smart_Members := S_Member;
  Smart_SuperDetail := False;
  SetupSRL;
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  DeclarePlayer;
  if not(LoggedIn) then
  begin
    LogInPlayer;
    Wait(3000 + Random(2000));
    SetAngle(SRL_ANGLE_HIGH);
    MakeCompass('n');
  end else
    PlayerStartTime := GetSystemTime;
  repeat
    if Bank then
      if MixPots then
      else
        WriteLn('Banking')
    else
      WriteLn('Something weird happened..');
  until not(LoggedIn);
end.

---

still needs more tweaking however