Code: Select all
Assistant.Macro.ContextMenu|0x0000E1E|200|3007003
Code: Select all
SetContextMenuHook($00000E1E, 3007003);
Code: Select all
SetContextMenuHook($00000E1E, 200);
ty for attention =]]]
Code: Select all
Assistant.Macro.ContextMenu|0x0000E1E|200|3007003
Code: Select all
SetContextMenuHook($00000E1E, 3007003);
Code: Select all
SetContextMenuHook($00000E1E, 200);
Code: Select all
Program ContexMenu;
var
i : integer;
npc : cardinal;
begin
FindDistance := 1;
npc := FindType($0191,ground); //female npc
RequestContextMenu(npc);
SetContextMenuHook(npc, 0);
end.
Code: Select all
CheckLag(10000);
AutoSell(GetType(FindItem) , $FFFF, 350);
SetContextMenuHook(NPCBuyer, 2);
RequestContextMenu(NPCBuyer);
ClearContextMenu;
ClearShopList;
Code: Select all
Program ContexMenu;
var
MenuList : TStringList;
i : integer;
npc : cardinal;
{$Include 'CheckLag.inc'}
begin
CheckLag;
FindDistance := 2:
npc := FindType($0191,ground); //female npc
SetContextMenuHook(npc, 0);
RequestContextMenu(npc);
MenuList := TStringList.Create;
GetContextMenu(MenuList);
for i := 0 to MenuList.Count-1 do
begin
addtosystemjournal(MenuList[i]);
end;
MenuList.Free;
ClearContextMenu;
end.
Code: Select all
Program test;
var
MenuList : TStringList;
i : integer;
npc : cardinal;
begin
FindDistance := 4;
npc := FindType($0191,ground); //female npc
MenuList := TStringList.Create;
SetContextMenuHook(npc, 0);
RequestContextMenu(npc);
GetContextMenu(MenuList);
for i := 0 to MenuList.Count-1 do begin
addtosystemjournal(MenuList[i]);
end;
MenuList.Free;
ClearContextMenu;
end.