//OSRS07 - Willow Cutter and banker v0.9
//Amberleaf
//Instructions & more scripts can be found at http://www.scar-divi.com
//4/4/13

{$DEFINE RS07}                         // V - Bright Settings
{$DEFINE SMART}                        // Comment out to use normal browser
{$DEFINE OSI_RS07_Color_Anti_Randoms}

{$I OSI\OSI.scar}
{$I MSSL\MSSL.scar}

const
  USERNAME = 'username';
  PASSWORD = 'password';
  BANK_PIN = 'pin'; // Change if you use bank pin
  CHOP_DELAY = 1500; // Minimum delay between chops.
  MAXIMUM_INTERVAL = 30000; // Maximum interval between chopped logs? Prevents our player from getting stuck (happens rarely).

{$IFNDEF MSSL_1.04-2(+)}
  begin
    ClearDebug;
    WriteLn('MSSL is OUTDATED! Please update it with Includes Manager.');
  end.
{$ENDIF}

var
  lastChop: Integer;

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
  FreeOSI;
end;

function EvilTreeAt(x, y: Integer): Boolean; // Make sure treeName is exactly the same as in uptext! CASE-SENSITIVE
var
  p: TPoint;
  t: Integer;
  b: Boolean;
  a: TStrArray;
begin
  Result := False;
  p := Point(x, y); // We create 'p' point of x,y coordinates
  if (PointInBox(p, RS07_GameActionBx) and RS07_LoggedIn) then // We check that point is inside main screen AND that we are logged in, before we continue.
  begin
    a := ['Chop down Tree', 'Chop down Oak', 'Chop down Willow', 'Chop down Maple', 'Chop down Yew', 'Chop down Magic tree'];
    t := GetSystemTime; // Timer reset
    repeat
      case MSSL_MouseNearPt(p, 2) of // With this step we case the next action of.. If mouse is not near our point, we will move it to it.
        True:                        // ..and else we will check for result.
        if ((GetSystemTime - t) > 35) then // If time since mouse movement has been over 35 ms. then we can check for result...
        begin
          Result := RS07_IsUpTextCustomEx(a, [16777215, 65535], RS07_UpTextTol); // Is uptext with white and yellow as "Chop down *"? Result will be set as true, if it is...
          if not Result then // OK, so result wasn't true, lets check for other texts...
            b := (RS07_IsUpTextCustomEx(a, [16777215, 16776960], RS07_UpTextTol) or RS07_IsUpText('Walk here')); // If uptext is normal tree-text OR "Walk here", then variable 'b' will be set as true
        end;
        False:
        begin
          case RS07_QuickObjectCheck of // If this MSSL variable is set as true, then...
            True: SetMousePos(p.X, p.Y); // SetMousePos() will be used and else...
            False: RS07_MoveMouse(p.X, p.Y); // Normal RS07_MoveMouse() movement!
          end;
          t := GetSystemTime; // We mark the timer as current time (after movement)
        end;
      end;
      MSSL_Wait(0); // MSSL_Wait with hotkey check!
    until (Result or b or ((GetSystemTime - t) > 250)); // If this or this or this, then we are ready to break out!
  end;
end;

procedure GetBanking;
var
  x, y, t: Integer;
  c: TPoint;
  b: Boolean;
begin
  c := BoxCenter(RS07_MinimapBounds); // Stores center point from RS07_MinimapBounds (minimap area) to 'c' variable (TPoint).
  RS07_SetCompass(Dir_North);
  if MSSL_FindColorSpiralTolCS(c.X, c.Y, x, y, 4969197, RS07_MinimapBounds.X1, RS07_MinimapBounds.Y1, RS07_MinimapBounds.X2, RS07_MinimapBounds.Y2, 8, MSSL_ColorSettings2(2, 0.19, 2.34)) then
  begin
    Mouse(x, y, 0, 0, True); // left click position and run to bank
    t := GetSystemTime;
    repeat
      if not RS07_LoggedIn then
        Exit;
      b := RS07_FindBankBooth(x, y, RS07_BANK_DRAYNOR);
      case b of
        True:
        if RS07_OpenBank(RS07_BANK_DRAYNOR) then //find bank
        begin
          t := GetSystemTime;
          repeat
            MSSL_Wait(0);
          until (((GetSystemTime - t) > 5000) or RS07_BankOpen or not RS07_LoggedIn);
          if RS07_BankOpen then
          begin
            RS07_DepositEverythingEx([0]);
            MSSL_WaitRange(250, 500);
            RS07_SetCompass(Dir_North);
            Mouse(626, 134, 1, 1, True);
            MSSL_WaitRange(2000, 3000);
          end;
        end;
        False: MSSL_Wait(100);
      end;
    until (b or ((GetSystemTime - t) > 15000));
  end;
end;

procedure GetChopping;
var
  f, m, s: Boolean;
  o, n, x, y, t: Integer;
  b, a, c: TPoint;
  p: TPointArray;
begin
  repeat
    if not RS07_LoggedIn then
      Exit;
    GetMousePos(c.X, c.Y);
    if not PointInBox(c, RS07_GameActionBx) then
      c := BoxCenter(RS07_GameActionBx);
    GetMousePos(b.X, b.Y);
    f := RS07_FindObjectsEx(p, ['Chop down Willow'], um_IsUpTextCustom, MSSL_ColorSettings2(2, 0.23, 0.72), 2581337, 3, 40, RS07_GameActionBx.X1, RS07_GameActionBx.Y1, RS07_GameActionBx.X2, RS07_GameActionBx.Y2, 1, c);
    if f then
    begin
      WriteLn(MSSL_TheTime + ': Found a tree...');
      GetMousePos(a.X, a.Y);
      m := (Distance(a.X, a.Y, b.X, b.Y) > 10); // If tree has moved certain amount of pixels before detecting it!
      if (m or ((GetSystemTime - lastChop) > MAXIMUM_INTERVAL) or not s) then
      begin
        Mouse(p[0].X, p[0].Y, 0, 0, True);
        lastChop := GetSystemTime;
        s := True;
      end else
        RS07_MoveMouse(p[0].X, p[0].Y);
      SetLength(p, 0);
      t := GetSystemTime;
      o := RS07_UsedInventorySlots;
      GetMousePos(x, y);
      if (RS07_InventoryFull or EvilTreeAt(x, y)) then
        GetBanking;
      n := RS07_UsedInventorySlots;
      if ((n > -1) and (n <> o)) then // To make sure the used slots were detected correctly
      begin
        t := GetSystemTime; // We reset the timing mark of when we got last log to our inventory.
        o := n;
      end;
      if MSSL_FindColorSpiralTolCS(227, 159, x, y, 610633, 1, 1, 510, 334, 2, MSSL_ColorSettings2(2, 0.06, 0.03)) then //check for nests
      begin
        MMouse(x, y, 0, 0);
        WriteLn('found a nest or root random');
        MSSL_WaitRange(40, 50);
        if (RS07_UpTextContains('Take') or RS07_UpTextContains('Pick')) then
        begin
          Mouse(x, y, 0, 0, True);
          MSSL_WaitRange(3000, 5000);
        end;
      end;
      if FindColorTol(x, y, 3240548, 39, 363, 90, 405, 2) then //lvl up check
        Mouse(292, 447, 0, 0, True);
      //OSIFindRandoms;  //wip
    end;
  until (not f or ((GetSystemTime - t) > MAXIMUM_INTERVAL));
end;

procedure ScriptSetup;
begin
  RS07_UpTextCustomColors := [16777215, 16776960]; // Used for detecting only normal Willow tree's with RS07_FindObject()
  RS07_SetActivePlayer(USERNAME, PASSWORD, '', MSSL_TCAToTIA(MSSL_StrToTCA(BANK_PIN)));
  RS07_SetCompass(Dir_North);
  RS07_SetCameraAngleH;
  RS07_SetMoveSpeed(1);
  RS07_OpenGameTab(3);
  RS07_ControlCameraScriptwise := True; // We set the camera to highest angle manually, so banking functions don't need to worry about it!
end;

begin
  SetUpOSI;
  MSSL_Setup;
  ScriptSetup;
  repeat
    case RS07_LoggedIn of
      False:
      if RS07_LogInPlayer then // Logins with currently active player's details.
      begin
        RS07_SetCompass(Dir_North);
        RS07_SetCameraAngleH;
        RS07_SetMoveSpeed(1);
        RS07_OpenGameTab(3);
      end;
      True: GetChopping;
    end;
    MSSL_Wait(0);
  until False;
end.