И проблема сразу же супер-нубская))))
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.
... а менюшка с инфой по нему почему-то не выходит. если поменять хук на контекст на 1 (для опции на покупку) меню с инфой по гампу (в данном случае список покупки) выйдет.... подскажите плиз где я не прав(*EDIT* Проблема решена))) видимо активным гампом считалось контектное меню или хз



