procedure WaitGump(Value: String); // Устанавливается одноразовая ловушка на Gump меню
// В Value должен быть код Button
procedure GumpAutoTextEntry(TextEntryID: Integer; Value: String); // Автоввод текстов в гампы
procedure GumpAutoCheckBox(CheckBoxID,Value: Integer); // для обработки чекбоксов.
function GetGumpsCount: Integer; // Количество гампов
function IsGump: Boolean; // Проверка наличия гампа
function GetGumpSerial(GumpIndex: Integer): Cardinal; // Получить номер гампа, если указанного гампа нет - возвращает ноль
procedure GetGumpTextLines(GumpIndex: Integer; var TL: TStringList); // получить тескт из гампа
procedure GetGumpShortLines(GumpIndex: Integer; var TL: TStringList); // аналог ,infogump в инжекте, самый минимум - кнопки, текст, название и прочая мелочь
procedure GetGumpFullLines(GumpIndex: Integer; var TL: TStringList); // аналог ,infogump в инжекте, полностью разобранный по категориям
Пример:
Code:
Serial: 1A1B9F
GumpID: 11CC34F
X: 0000
Y: 0000
Pages: 13
Gump Options: NoDispose NoClose
GumpPics: X Y ID Page
GumpPic: 480 367 2443 0
TilePics: X Y ID Page
0 TilePic: 80 94 5099 2
1 TilePic: 230 94 5103 2
...
47 TilePic: 230 184 5176 12
48 TilePic: 80 274 5181 12
ResizePics: X Y ID Width Height Page
0 ResizePic: 20 20 5054 540 40 0
1 ResizePic: 20 60 5054 360 300 0
2 ResizePic: 380 60 5054 180 300 0
3 ResizePic: 20 360 5054 540 70 0
CheckBoxes: X Y Released_ID Pressed_ID Status Return_value Page
0 CheckBox: 140 395 210 211 0 1537 0
GumpTexts: X Y Color Text_ID Page
0 GumpText: 159 30 51 0 0
1 GumpText: 60 371 900 1 0
...
61 GumpText: 223 229 900 62 12
62 GumpText: 73 319 900 63 12
TextEntries: X Y Width Height Status Color Return_value Default_text_id Page
0 TextEntry: 487 370 100 30 0 513 5 0
Text Lines:
BLACKSMITH SELECTION MENU
Make last (ringmail gloves)
Repair Item
Hardening
How Many?
1
...
War Hammer
Hammer Pick
GumpButtons: X Y Released_ID Pressed_ID Quit Page_ID Return_value Page
0 GumpButton: 40 372 208 209 1 0 1025 0
1 GumpButton: 40 395 208 209 1 0 1026 0
...
50 GumpButton: 200 164 1209 1210 1 0 5176 12
51 GumpButton: 50 254 1209 1210 1 0 5180 12
procedure CloseSimpleGump(GumpIndex: Integer); // закрыть гамп, если на гампе опция NoClose - то не отработает
для любителей борьбы с антиботами гамповыми - функции, позволяющие работу с конкретными гампами.
function NumGumpButton(GumpIndex, Value : Integer) : Boolean;
function NumGumpTextEntry(GumpIndex, TextEntryID : Integer; Value : String) : Boolean;
function NumGumpCheckBox(GumpIndex, CBID, Value : Integer) : Boolean;
WaitGump('1');
WaitGump('2');
будет в твоем варианте
и вообще, сегодня-завтра поднимется форум, на нем есть список всех команд, уроки по стелсу, вагон скриптов от простых до очень сложных.
P.S. Стелс знает все гампы и простые, и новые - DD пакета, русский юникод полностью.