VerifyGump
it stops working.
could someone please help me.
Some have solution?
I would like to also know what is the correct way to run more than one script at a time.
as closing the menu via script?
example: tracking menu.
u should free the TStringList object...Hisered wrote:VerifyGumpthe problem is that after this script spends time running.
it stops working.
could someone please help me.
Some have solution?
I would like to also know what is the correct way to run more than one script at a time.
as closing the menu via script?
example: tracking menu.
1. you could give an example of the release of TStringList object pleasedrabadan wrote: u should free the TStringList object...
And can't you use just events?
it's much more simpler.
Try to avoid using more than 1 script at the moment.
1. you could give an example of the release of TStringList object please
Code: Select all
procedure verifygump;
var i,loop,loop2,cont : integer;
GumpLines : TStringList;
begin
i := 0;
cont := 0;
GumpLines := TStringList.Create; // create a list.
While (i = 0) do //as 'i' is equal to '0'
begin
....
end;
GumpLines.Free;
end;
2. you could give an example of how to use events please
Code: Select all
procedure OnGumpIncoming(Serial, GumpID, X, Y: Cardinal);
begin
AddToSystemJournal('hey guys, we have a new gump here!');
end;
begin
SetEventProc(evIncomingGump, 'OnGumpIncoming');
while true do wait(1000);//infinite cycle, otherwise if script stop - event cant be executed.
end.