Stealth Client Forum

Vizit0r wrote:обычный гамп, с полупрозрачным фоном. ничего такого хитрого.

cameli0n wrote:

Vizit0r wrote:обычный гамп, с полупрозрачным фоном. ничего такого хитрого.

а с помощью какой функции указать чтобы он брал нужный предмет? через тайп не получается, через waitmenu так же

drabadan wrote:

cameli0n wrote:

Vizit0r wrote:обычный гамп, с полупрозрачным фоном. ничего такого хитрого.

а с помощью какой функции указать чтобы он брал нужный предмет? через тайп не получается, через waitmenu так же

http://stealth.od.ua/Doc:RU/Manual/Reference/Gump

cameli0n wrote:Если я ничего не путаю, получается мне достаточно просто того чтобы был произведен клик по кнопке нужной, только вот как указать ее? через waitgump это возможно?

procedure PushTehButton;
var
AGInfo : TGumpInfo;
begin
if IsGump then
GetGumpInfo(GetGumpsCount-1, AGInfo);
AddToSystemJournal('Gump has ' + IntToStr(Length(AGInfo.GumpButtons)) + ' buttons');
end;

drabadan wrote:

cameli0n wrote:Если я ничего не путаю, получается мне достаточно просто того чтобы был произведен клик по кнопке нужной, только вот как указать ее? через waitgump это возможно?

нет, читай матчасть! ъ!

ъ!

Пример использования

Code: Select all

procedure PushTehButton;
var
AGInfo : TGumpInfo;
begin
if IsGump then
GetGumpInfo(GetGumpsCount-1, AGInfo);
AddToSystemJournal('Gump has ' + IntToStr(Length(AGInfo.GumpButtons)) + ' buttons');
end;

как нажать на любую из кнопок додумывайся сам или пойми, что тут написано.

drabadan wrote:

Code: Select all

procedure PushTehButton;
var
AGInfo : TGumpInfo;
i : Integer;
begin
if IsGump then
GetGumpInfo(GetGumpsCount-1, AGInfo);
AddToSystemJournal('Gump has ' + IntToStr(Length(AGInfo.GumpButtons)) + ' buttons');
i := 0; //индекс кнопки в массиве кнопок.
NumGumpButton(GetGumpsCount-1, AGInfo.GumpButtons[i].return_value);
end;

cameli0n wrote:

drabadan wrote:

Code: Select all

procedure PushTehButton;
var
AGInfo : TGumpInfo;
i : Integer;
begin
if IsGump then
GetGumpInfo(GetGumpsCount-1, AGInfo);
AddToSystemJournal('Gump has ' + IntToStr(Length(AGInfo.GumpButtons)) + ' buttons');
i := 0; //индекс кнопки в массиве кнопок.
NumGumpButton(GetGumpsCount-1, AGInfo.GumpButtons[i].return_value);
end;

получаю ошибку Out Of Range на строке NumGumpButton(GetGumpsCount-1, AGInfo.GumpButtons.return_value);