Gumps

Pascal:  procedure OnIncomingGump(Serial: Cardinal; GumpID: Cardinal; X, Y: Integer);
Python:  def on_gump(serial: int, gump_id: int, x: int, y: int)

TGumpInfo = packed record
  Serial    : Cardinal;   // gump serial
  GumpID    : Cardinal;   // gump type id
  X, Y      : SmallInt;   // on-screen position requested by the server
  Pages     : Integer;    // number of pages in the gump
  NoMove    : Boolean;    // gump cannot be dragged
  NoResize  : Boolean;    // gump cannot be resized
  NoDispose : Boolean;    // gump cannot be disposed by client logic
  NoClose   : Boolean;    // gump cannot be closed by the player (must be answered)
  // ...arrays of every element type (see below)...
  Text      : TArray<String>;   // the gump's text-line pool
end;

{ page 0 }
{ resizepic 0 0 9200 200 120 }
{ text 20 20 0 0 }
{ checkbox 20 45 210 211 0 1001 }
{ textentry 20 70 150 20 0 3001 1 }
{ button 20 95 4005 4006 1 0 1 }

var
  TL: TStringList;
  i: Integer;
begin
  if GetGumpsCount > 0 then
  begin
    TL := TStringList.Create;
    try
      GetGumpFullLines(GetGumpsCount - 1, TL);   // newest gump
      for i := 0 to TL.Count - 1 do
        AddToSystemJournal(TL[i]);
    finally
      TL.Free;
    end;
  end;
end.

if GetGumpsCount() > 0:
    for line in GetGumpFullLines(GetGumpsCount() - 1):
        AddToSystemJournal(line)

Serial: 0020
GumpID: 5AFBD742
X: 0019
Y: 0019
Pages: 1
Gump Options:
GumpPics: X  Y  ID  Hue  Page  ElemNum
0:        45  5  10460  0  0  4
1:        480  5  10460  0  0  5
2:        45  278  10460  0  0  6
3:        480  278  10460  0  0  7
GumpPicsTiled: X Y   Width   Height   Gump_ID   Page  ElemNum
0:        58  20  438  274  2624  0  2
TilePics: X   Y   ID   Page   ElemNum
0:        410  72  4160  0  13
ResizePics: X   Y   ID   Width   Height   Page   ElemNum
0:        50  10  5054  455  293  0  1
CheckerTrans: X   Y   Width   Height   Page   ElemNum
0:        58  20  438  274  0  3
XmfHTMLGumpColor: X   Y   Width   Height   ClilocID   Background   scrollbar   Hue   Page   ElemNum   ClilocText
0:        225  25  120  20  1045133  0  0  32767  0  8  A bulk order
1:        75  48  250  20  1045138  0  0  32767  0  9  Amount to make:
2:        275  76  200  20  1045153  0  0  32767  0  11  Amount finished:
3:        75  72  120  20  1045136  0  0  32767  0  12  Item requested:
4:        75  96  210  20  1044517  0  0  32767  0  14  sausage pizza
5:        75  120  200  20  1045140  0  0  32767  0  16  Special requirements to meet:
6:        75  144  300  20  1045141  0  0  32767  0  17  All items must be exceptional.
7:        160  192  300  20  1157302  0  0  32767  0  20  Banking Points Enabled
8:        160  216  300  20  1045154  0  0  32767  0  22  Combine this deed with the item requested.
9:        160  240  300  20  1157304  0  0  32767  0  24  Combine this deed with contained items.
10:        160  264  120  20  1011441  0  0  32767  0  26  EXIT
XmfHTMLTok: X   Y   Width   Height   Background   scrollbar   Color   ClilocID   Arguments   ElemNum   ClilocText
0:        75  168  300  20  0  0  32767  1157301  [@225	4,500000@]  18  Worth  turn in points or 225 bank points.
GumpTexts: X   Y   Color   Text_ID   Page   ElemNum
0:        275  48  1152  0  0  10
1:        275  96  1152  1  0  15
Text Lines:
15
0
GumpButtons: X   Y   Released_ID  Pressed_ID   Quit   Page_ID   Return_value   Page   ElemNum
0:        125  192  4005  4007  1  0  3  0  19
1:        125  216  4005  4007  1  0  2  0  21
2:        125  240  4005  4007  1  0  4  0  23
3:        125  264  4005  4007  1  0  1  0  25

// idx = index of this gump (matched by GumpID $5AFBD742)
NumGumpButton(GetGumpsCount - 1, 1);   // EXIT (return_value 1)

NumGumpButton(GetGumpsCount() - 1, 1)   # EXIT (return_value 1)

// PascalScript / DWScript
var
  idx: Integer;
begin
  idx := -1;
  // find the gump we expect by its GumpID
  if GetGumpsCount > 0 then
    for var i := GetGumpsCount - 1 downto 0 do
      if GetGumpID(i) = $1A2B3C4D then
      begin
        idx := i;
        Break;
      end;

  if idx >= 0 then
  begin
    NumGumpCheckBox(idx, 1001, 1);        // tick checkbox return_value 1001
    NumGumpTextEntry(idx, 3001, 'Vizit'); // fill text entry return_value 3001
    NumGumpButton(idx, 1);                // press OK (return_value 1) -> sends reply
    AddToSystemJournal('Gump answered');
  end
  else
    AddToSystemJournal('Target gump not found');
end.

idx = -1
for i in range(GetGumpsCount() - 1, -1, -1):
    if GetGumpID(i) == 0x1A2B3C4D:
        idx = i
        break

if idx >= 0:
    NumGumpCheckBox(idx, 1001, 1)          # tick checkbox 1001
    NumGumpTextEntry(idx, 3001, 'Vizit')   # fill text entry 3001
    NumGumpButton(idx, 1)                   # press OK -> sends reply
    AddToSystemJournal('Gump answered')
else:
    AddToSystemJournal('Target gump not found')

var
  i: Integer;
  Lines: TStringList;
begin
  // wait up to ~5s for any gump
  for i := 0 to 50 do
  begin
    if GetGumpsCount > 0 then Break;
    Wait(100);
  end;

  if GetGumpsCount > 0 then
  begin
    Lines := TStringList.Create;
    try
      GetGumpTextLines(GetGumpsCount - 1, Lines);
      for i := 0 to Lines.Count - 1 do
        AddToSystemJournal('Line ' + IntToStr(i) + ': ' + Lines[i]);
    finally
      Lines.Free;
    end;
  end;
end.

for _ in range(50):
    if GetGumpsCount() > 0:
        break
    Wait(100)

if GetGumpsCount() > 0:
    lines = GetGumpTextLines(GetGumpsCount() - 1)
    for i, line in enumerate(lines):
        AddToSystemJournal(f'Line {i}: {line}')

procedure OnGump(Serial, GumpID: Cardinal; X, Y: Integer);
begin
  AddToSystemJournal(Format('Gump arrived: ID=$%x Serial=$%x', [GumpID, Serial]));
  // do NOT answer the gump here — flag it and handle it in the main loop
end;

begin
  SetEventProc(evIncomingGump, 'OnGump');
  while True do
    Wait(50);
end.

from py_astealth.stealth_enums import EventType

def on_gump(serial, gump_id, x, y):
    AddToSystemJournal(f'Gump arrived: ID={gump_id:08X} Serial={serial:08X}')
    # flag it; answer it from the main loop, not here

SetEventProc(EventType.EvIncomingGump, on_gump)
while True:
    Wait(50)

var
  i: Integer;
begin
  for i := GetGumpsCount - 1 downto 0 do
    if IsGumpCanBeClosed(i) then
      CloseSimpleGump(i);
end.

for i in range(GetGumpsCount() - 1, -1, -1):
    if IsGumpCanBeClosed(i):
        CloseSimpleGump(i)

gdoc_arrow_left_alt Events Installation and configuration gdoc_arrow_right_alt