И проблема сразу же супер-нубская))))
Code: Select all
Program Hello_World;
{$Include 'checksave.inc'}
{$Include 'WaitConnection.inc'}
Procedure test;
var
x:integer;
ListIT : TStringList;
begin
ListIt:=TStringList.Create;
SetSilentMode(False);
for x := 0 to GetGumpsCount - 1 do
GetGumpFullLines(x,ListIt);
ListIt.free;
end;
Begin
newMoveXY(976,514,true,0,false);
newMoveXY(979,523,true,0,false);
SetContextMenuHook($0000A832,3);
RequestContextMenu($0000A832);
test();
end.

*EDIT* Проблема решена))) видимо активным гампом считалось контектное меню или хз