Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Помогите нажать на кнопку "нет".

тут можно задать вопрос по скриптингу
Post Reply
reynard
Posts: 7
Joined: 04.06.2016 0:00

Помогите нажать на кнопку "нет".

Post by reynard »

Image
Есть вот такая менюшка.
Не пойму где себе сломать голову чтобы получилось "No"

Code: Select all

Serial: B3EF7
GumpID: C76290C
X: 0000
Y: 0000
Pages: 1
Gump Options: NoClose

GumpPics: X  Y  ID  Hue  Page  ElemNum
0:        70  50  96  0  0  4

ResizePics: X   Y   ID   Width   Height   Page   ElemNum
0:        10  10  3600  300  140  0  2

GumpTexts: X   Y   Color   Text_ID   Page   ElemNum
0:        30  25  500  0  0  3
1:        45  70  500  1  0  6
2:        45  100  500  2  0  8

Text Lines:
Destroy it?
Yes
No

GumpButtons: X   Y   Released_ID  Pressed_ID   Quit   Page_ID   Return_value   Page   ElemNum
0:        30  75  2103  2104  1  0  1  0  5
1:        30  105  2103  2104  1  0  0  0  7

Previous gump reply:
  Button id: 0
drabadan
Expert
Expert
Posts: 730
Joined: 13.12.2012 17:35
Contact:

Re: Помогите нажать на кнопку "нет".

Post by drabadan »

NumGumpButton(GetGumpsCount-1, 0);
reynard
Posts: 7
Joined: 04.06.2016 0:00

Re: Помогите нажать на кнопку "нет".

Post by reynard »

Спасибо огромное!
Помогла процедурка описанная в другой теме:
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;
Post Reply