Stealing with strange menu
Posted: 17.03.2014 16:56
Всем привет, нужна помощь как задействовать такое меню в скрипте на стилинг
Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
а с помощью какой функции указать чтобы он брал нужный предмет? через тайп не получается, через waitmenu так жеVizit0r wrote:обычный гамп, с полупрозрачным фоном. ничего такого хитрого.
http://stealth.od.ua/Doc:RU/Manual/Reference/Gumpcameli0n wrote:а с помощью какой функции указать чтобы он брал нужный предмет? через тайп не получается, через waitmenu так жеVizit0r wrote:обычный гамп, с полупрозрачным фоном. ничего такого хитрого.
в титориале нету линков к тексту, это ошибка или нету еще учебников?drabadan wrote:http://stealth.od.ua/Doc:RU/Manual/Reference/Gumpcameli0n wrote:а с помощью какой функции указать чтобы он брал нужный предмет? через тайп не получается, через waitmenu так жеVizit0r wrote:обычный гамп, с полупрозрачным фоном. ничего такого хитрого.
нет, читай матчасть! ъ!cameli0n wrote:Если я ничего не путаю, получается мне достаточно просто того чтобы был произведен клик по кнопке нужной, только вот как указать ее? через waitgump это возможно?
Этой процедурой я получаю количество этих кнопок, осталось только нажать:).Был бы благодарен если бы сказано было как, но попробую сам разобраться, спасибо.drabadan wrote:нет, читай матчасть! ъ!cameli0n wrote:Если я ничего не путаю, получается мне достаточно просто того чтобы был произведен клик по кнопке нужной, только вот как указать ее? через waitgump это возможно?
ъ!
Пример использованиякак нажать на любую из кнопок додумывайся сам или пойми, что тут написано.
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);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:получаю ошибку Out Of Range на строке NumGumpButton(GetGumpsCount-1, AGInfo.GumpButtons.return_value);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;