
ty for attention =]]]
Code: Select all
Program takegump;
var
b : TStringList;
gi : TGumpInfo;
begin
b := TStringList.Create;
SetSilentMode(False);
GetGumpFullLines(GetGumpsCount-1, b);
GetGumpInfo(GetGumpsCount-1, gi);
AddToSystemJournal('Gump has ' + IntToStr(Length(gi.GumpButtons)) + ' buttons');
b.free;
End.
Code: Select all
Serial: 126B5E1
GumpID: 240E
X: 0064
Y: 0064
Pages: 1
Gump Options:
GumpPics: X Y ID Hue Page ElemNum
0: 160 40 9836 0 0 2
1: 40 130 9353 0 0 5
2: 40 360 9353 0 0 6
3: 810 130 9353 0 0 7
4: 810 360 9353 0 0 8
GumpPicsTiled: X Y Width Height Gump_ID Page ElemNum
0: 40 130 770 3 9351 0 3
1: 40 600 770 3 9351 0 4
ResizePics: X Y ID Width Height Page ElemNum
0: 0 0 9390 854 700 0 1
XmfHTMLGumpColor: X Y Width Height ClilocID Background scrollbar Hue Page ElemNum ClilocText
0: 77 148 710 396 1158955 0 0 0 0 9 <center>Rising Tide</center><br><br>The Seas call to us once more! A powerful pirate called Hook has taken control of the Guild, an organization of cutthroats and brigands engaged in high seas piracy! Great peril stands in the way of those brave enough to challenge Hook's vile plan - read the latest headlines in the Town Cryer to learn more!<br><br>The realms tinkers have been busy at work and are proud to announce advancements in ship to ship ballistics! The cannon firing process has been streamlined - from crafting supplies through loading the cannons and lighting the fuse! FIRE IN THE HOLE!<br><br>Whether you are celebrating your first year in Britannia or your 22nd we want to extend a very special thank you to our veteran players! New veteran rewards are available! New MONSTER STATUETTES featuring Krampus, Khal Ankur, and the Krampus Minion, are available! Decorate your home with the WATER WHEEL and personalize your clothes with the EMBROIDERY TOOL. Every crafter will want to get their hands on the REPAIR BENCH and TINKER BENCH!
XmfHTMLTok: X Y Width Height Background scrollbar Color ClilocID Arguments ElemNum ClilocText
0: 27 624 770 18 0 0 0 1114514 [@#1158386] 16 <DIV ALIGN=RIGHT>Gump Options:</DIV>
GumpTexts: X Y Color Text_ID Page ElemNum
0: 403 570 0 0 0 14
Text Lines:
1/2
GumpButtons: X Y Released_ID Pressed_ID Quit Page_ID Return_value Page ElemNum
0: 350 570 1541 1542 1 0 1000 0 10
1: 380 570 1545 1546 1 0 2000 0 11
2: 430 570 1543 1544 1 0 3000 0 12
3: 454 570 1539 1540 1 0 4000 0 13
4: 523 622 1535 1536 1 0 5000 0 15
Previous gump reply:
Button id: 0
Code: Select all
Program takegump;
var
b : TStringList;
i : Integer;
Begin
b := TStringList.Create;
SetSilentMode(False);
for i := 0 to GetGumpsCount - 1 do
GetGumpFullLines(i,b);
b.free;
End.