@@ -12,7 +12,7 @@ Credits to Flight and Skunkworks
1212
1313type
1414(*
15- ## ERSSilverItem
15+ ## ERSSilverItem enum
1616```pascal
1717ERSSilverItem = enum(OPAL_RING..TOPAZ_BRACELET);
1818```
@@ -26,11 +26,10 @@ Enum representing the silver jewelry that can be crafted.
2626 );
2727
2828(*
29- ## TRSSilverScreen
29+ ## TRSSilverScreen type
3030Main record to interact with the {ref}`SilverScreen` interface.
3131*)
3232 TRSSilverScreen = record
33- {── static GUI description ──}
3433 Title : TRSInterfaceTitle;
3534 Slots : TRSSlotInterface;
3635 Items : TRSItemInterface;
@@ -39,37 +38,12 @@ Main record to interact with the {ref}`SilverScreen` interface.
3938 Bounds : TBox;
4039 SlotBoxes : TBoxArray;
4140 Buttons : array[ERSItemQuantity] of TRSButton;
42-
43- {── internal helpers ──}
44- //procedure SetupInterface;
45- //function GetButtons : TRSButtonArray;
46- //function GetButton (B : ERSSilverScreenButton) : TRSButton;
47-
48- {── public API ──}
49- //function IsOpen : Boolean;
50- //function WaitOpen (time : Int32 = 600; interval : Int32 = -1) : Boolean;
51- //
52- //function Close (PressEscape : Boolean = False) : Boolean;
53- //
54- //function SetQuantity (Amount : Int32) : Boolean;
55- //function CanCraftItem (Item : TRSItem; out Box : TBox) : Boolean;
56- //function IsItemHighlighted(Item : TRSItem) : Boolean;
57- //function CraftItem (Item : TRSItem; Quantity : Int32;
58- // UseSpaceBar : Boolean = False) : Boolean;
59- //
60- //procedure Draw(Bmp : TMufasaBitmap);
6141 end;
6242
63- {=====================================================================
64- IMPLEMENTATION
65- =====================================================================}
66-
67- {―― internal helpers ―――――――――――――――――――――――――――――――――――――――――――}
6843function TRSSilverScreen.GetButtons(): TRSButtonArray;
6944var
7045 buttonGrid : TBoxArray;
7146begin
72- { cache empty? ➜ build the static grid }
7347 if Self.Buttons[0].Bounds.Area = 1 then
7448 begin
7549 buttonGrid := TBoxArray.Create(
@@ -150,8 +124,6 @@ begin
150124 Self.Buttons[ERSItemQuantity(i)] := btns[i];
151125end;
152126
153- {―― public API ―――――――――――――――――――――――――――――――――――――――――――――――}
154-
155127(*
156128## SilverScreen.IsOpen
157129```pascal
@@ -364,9 +336,9 @@ begin
364336 Mouse.Click(box, EMouseButton.LEFT);
365337end;
366338
339+ var
367340(*
368341## SilverScreen variable
369342Global {ref}`TRSSilverScreen` variable.
370343*)
371- var
372344 SilverScreen: TRSSilverScreen;
0 commit comments