SCAR Code:
{ MainScreen, Minimap, Inventory, Chat, Bank boxes as TBox }
var
MSBox, MMBox, MIBox, MCBox, MBBox: TBox;
{These next functions get the Boxes setup as consts into TBoxes}
function GetMSBox: TBox;
begin
Result := IntToBox(MSX1, MSY1, MSX2, MSY2);
end;
function GetMMBox: TBox;
begin
Result := IntToBox(MMX1, MMY1, MMX2, MMY2);
end;
function GetMIBox: TBox;
begin
Result := IntToBox(MIX1, MIY1, MIX2, MIY2);
end;
function GetMCBox: TBox;
begin
Result := IntToBox(MCX1, MCY1, MCX2, MCY2);
end;
function GetMBBox: TBox;
begin
Result := IntToBox(MBX1, MBY1, MBX2, MBY2);
end;
Procedure SetupBoxes;
begin
MSBox := GetMSBox;
MMBox := GetMMBox;
MIBox := GetMIBox;
MCBox := GetMCBox;
MBBox := GetMBBox;
end;
commited. Post later. edited srl.scar accordingly.
~RM