bankpin buttons

Author: Torwent

osrs/interfaces/mainscreen/bank.simba

@@ -300,6 +300,16 @@ var
   tpa: TPointArray;
   offset: Integer;
 begin
+  if BankPin.IsOpen() then
+  begin
+    //TODO:
+    //if not SleepUntil(BankPin.ButtonsLoaded(), 100, 3000) then
+    //  Self.Fatal('Bank pin buttons don''t seem to have loaded in 3 seconds.');
+
+    //if not BankPin.Enter(Login.GetPlayerPin()) then
+    //  Self.Fatal('Failed to enter bank pin');
+  end;
+
   count := Target.CountColor($0, 0, Self._IsOpenHelperBox);
   tpa := Target.FindColor(RSColors.TEXT_ORANGE, 0, Self._IsOpenHelperBox);
   Result := ((count = 94) and (Length(tpa) = 116)) or Self.Title.IsTitle('Bank') or Self.Title.IsTitle('Equip');

osrs/interfaces/mainscreen/bankpin.simba

@@ -8,17 +8,39 @@ Methods to interact with the bank pin interface.
 
 
 type
-  TRSBankPin = type TRSInterface;
+  TRSBankPin = record
+    Bounds: TBox;
+    Buttons: TRSButtonArray;
+  end;
 
 procedure TRSBankPin.SetupInterface();
+var
+  boxes: TBoxArray;
+  i: Integer;
 begin
   with InterfaceArea do
   begin
     Self.Bounds.X1 := Max(Floor(Center.X-(Width-1)/2), Floor(Center.X-487/2));
+    Self.Bounds.Y1 := Max(Floor(Center.Y-(Height-3)/2), Center.Y-148);
     Self.Bounds.X2 := Min(Floor(Center.X+(Width-1)/2), Floor(Center.X +487/2));
-    Self.Bounds.Y1 := Max(Floor(Center.Y-(Height-3)/2), Floor(Center.Y-799/2));
-    Self.Bounds.Y2 := Min(Floor(Center.Y+(Height-3)/2), Floor(Center.Y+799/2));
+    Self.Bounds.Y2 := Min(Floor(Center.Y+(Height-3)/2), Center.Y+157);
+  end;
+
+  boxes := TBoxArray.Create(Self.Bounds.TopLeft.Offset(25,88), 3, 3, 55, 55, [39, 17]);
+  boxes.Insert(boxes[2].Offset([84, 0]), 3);
+
+  SetLength(Self.Buttons, 10);
+  for i := 0 to High(boxes) do
+  begin
+    Self.Buttons[i].Bounds := boxes[i];
+    Self.Buttons[i].EnabledColors := [];
   end;
+end;
 
+function TRSBankPin.IsOpen(): Boolean;
+begin               //TODO:
+  Result := Target.HasColor($060D56, 10, 30000, Self.Bounds);
 end;
 
+var
+  BankPin: TRSBankPin;

osrs/interfaces/setup.simba

@@ -22,6 +22,7 @@ begin
   XPBar.SetupInterface();
   Prayer.SetupInterface();
   Stats.SetupInterface();
+  BankPin.SetupInterface();
   Bank.SetupInterface();
 end;
 

osrs/walker.simba

@@ -1151,7 +1151,7 @@ begin
 
     if path = [] then Continue;
 
-    dist := Floor(path.TotalDistance());
+    dist := Floor(path.PolylineLength());
     if dist < shortest then
     begin
       shortPaths := [path];