program CFletch;

{$i SRL\SRL.scar}
{$define SMART}

var
  logs, knife, shaftsChat, shafts, x, y, p, currLoads: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0

  Players[0].Name := 'lolwutham2@mailinator.com'; // Username
  Players[0].Pass := 'lolwutnom4'; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
  Players[0].Integers[1] := 2; // Number of loads

end;

procedure InitDTMs;
begin
  logs   := DTMFromString('mrAAAAHic42BgYOBngAA2KFsCiGWAWBKIxYGYD4hFoGwQLQTEPEDMAtUX564FJJlwYi4G/ICRAIYBAOg9Ae8=');
  knife  := DTMFromString('mwQAAAHic42RgYOBhgABmIGYFYnYg5gZifiAWBmIRIOYCYhkglgViSSAWA2IBqDgrVH9aUhKQZMKLuRgIA0YiMBwAACU9AkQ=');
  shaftsChat := DTMFromString('mwQAAAHic42RgYOAGYkYGCGAFYh4gFgJiMSgWBGIOJHFhIBYBYj6oODNUr4GCApBkQsFiPMwofC4GwoCRCAwHANBwAZI=');
  shafts := DTMFromString('m6wAAAHic42ZgYMhhYmAoBOJSIK4E4jIgLgbifCDOBOI0II4H4hQgfgJUfwuI7wHxHSB+CMQvgPgdEH8E4tdA/BIq7qrBCSSZiMQQwMVAGDCSgJEAALm3D0s=');
end;

procedure FreeDTMs;
begin
  FreeDTM(logs)
  FreeDTM(knife)
  FreeDTM(shafts)
  FreeDTM(shaftsChat);
end;

procedure WithdrawLogs;
begin
  if not LoggedIn then Exit;
  if PinScreen then
  begin
    p := 0;
    repeat
      InPin(Players[0].Pin);
      Inc(p)
    until BankScreen or (p > 0) or not (LoggedIn);
  end;
  if FindDTM(shafts, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    MMouse(x, y, 6, 6);
    if WaitUptext('osit-1 Arrow', 500) then
    begin
      Mouse(x, y, 0, 0, False);
      sleep(50);
      ChooseOption('All');
      sleep(500);
      Inc(currLoads);
      if currLoads = Players[CurrentPlayer].Integers[1] then
      begin
        Writeln('Finished loads for this player');
        Players[CurrentPlayer].Active := False;
        CloseBank;
        LogOut;
        Exit;
      end;
    end;
  end;
  if FindDTM(logs, x, y, MSX1, MSY1, MSX2, MSY2) then
  begin
    MMouse(x, y, 6, 6);
    if WaitUptext('draw-1 Logs', 500) then
    begin
      Mouse(x, y, 0, 0, False);
      sleep(50);
      ChooseOption('All');
      sleep(1000);
      CloseBank;
      Sleep(1000);
    end;
  end else begin
  Writeln('No logs found, logging out');
  Players[CurrentPlayer].Active := False;
  CloseBank;
  LogOut;
  Exit;
  end;
end;

procedure CutLogs;
begin
  if not LoggedIn then Exit;
  if FindDTM(knife, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    MMouse(x, y, 6, 6);
    if WaitUptext('Use Knife', 500) then
    begin
      Mouse(x, y, 0, 0, True);
      sleep(300);
    end;
    if FindDTM(logs, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      MMouse(x, y, 6, 6);
      if WaitUptext('Logs', 500) then
      begin
        Mouse(x, y, 0, 0, True);
        sleep(1500);
        if FindDTM(shaftsChat, x, y, MCX1, MCY1, MCX2, MCY2) then
        begin
        MMouse(x, y, 6, 6);
        if WaitUptext('Make All', 500) then
          Mouse(x, y, 0, 0, True);
          Sleep(48000);
        end;
      end;
    end;
  end;
end;

begin

  ClearDebug;
  Smart_Server := 18;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;

  InitDTMs;
  currLoads := 0;

  repeat
    repeat
      OpenBank('vwb', True, True);
      WithdrawLogs;
      CutLogs;
    until (not LoggedIn)
    NextPlayer(Players[CurrentPlayer].Active);
  until False;

  FreeDTMs();
end.