if dead then
begin
repeat
waitgump('1')
wait(100);
until ?***********?
end;
until what ?
Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Make sure gump is opened
Re: Make sure gump is opened
IsGump ?
GetGumpsCount ?
GetGumpsCount ?
Code: Select all
if dead then begin
while not isgump do
wait(100);
waitgump('1');
end;
Re: Make sure gump is opened
i want use getgumpinfo, until some word show in gumpinfo
Re: Make sure gump is opened
word - in what part of gumpinfo?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Make sure gump is opened
until some words show in text lines or Released_ID = 1210
Re: Make sure gump is opened
this gump info nor for this gump.
For you really need seach in stringlist, filled by GetGumpTextLines.
for example,
if GumpTextStringList.Items.IndexOf(Your_text) > -1 then
....
For you really need seach in stringlist, filled by GetGumpTextLines.
for example,
if GumpTextStringList.Items.IndexOf(Your_text) > -1 then
....
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Make sure gump is opened
Scan if GumpID exist. GumpId for RessGump will be always the same.
Untested since i just hacked it into this post. But i hope you understand the princip.
Code: Select all
function GumpExist(GumpType : Cardinal):Boolean;
var
Index : Word;
Count : Integer;
begin
Count := GetGumpsCount() - 1;
if ( Count > -1 ) then
begin
for Index := 0 to Count do
begin
if ( GetGumpID(Index) = GumpType ) then
begin
Result := True;
exit;
end;
end;
end;
Result := False;
end;
Stealth Development Team & Support
Re: Make sure gump is opened
yes, i think i know.
Code: Select all
const currentgump = getgumpscount;
begin
usbobject(itemid);
while getgumpscount <= currentgump;
wait(100);
end;
Re: Make sure gump is opened
Code: Select all
var currentgump : Integer;
begin
currentgump := getgumpscount;
usbobject(itemid);
while getgumpscount <= currentgump;
wait(100);
end;
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".