Code: Select all
AutoBuy procedure AutoBuy(ItemType : Word; ItemColor : Word; Quantity : Word)
AutoBuyEx procedure AutoBuyEx(ItemType : Word; ItemColor : Word; Quantity : Word; Price : Cardinal; Name : String)
GetShopList function GetShopList : TStringList
ClearShopList procedure ClearShopList
GetAutoBuyDelay function GetAutoBuyDelay : Word
SetAutoBuyDelay procedure SetAutoBuyDelay(Value : Word)
AutoSell procedure AutoSell(ItemType : Word; ItemColor : Word; Quantity : Word)
GetAutoSellDelay function GetAutoSellDelay : Word
SetAutoSellDelay procedure SetAutoSellDelay(Value : Word)
Code: Select all
AutoBuy(night,$0000,20);
SetContextMenuHook(vendor,1);
RequestContextMenu(vendor);
Wait(4000);
AutoBuy(night,$0000,0);
end;Code: Select all
Program test;
var a : TStringList;
begin
a := TStringList.Create;
SetContextMenuHook($000034C0,1);
RequestContextMenu($000034C0);
GetShopList(a);
SetSilentMode(False);
a.free;
end.
я понял, спасибоAlex wrote:SetContextMenuHook+RequestContextMenu - открывает меню чара и выбирает пункт какой то
на моем шарде вместо этого можно просто сказать "buy" рядом с чаром и откроется меню покупки
дальше, GetShopList - эта функция заполняет массив строк записями из меню покупки
а при SetSilentMode(False); - стелс откроет окошко(как ,infogump) с результатом работы GetShopList
тебе это посоветовали для того что бы ты отыскал там нужный тип продукта в таком списке и подставил его в AutoBuy
Code: Select all
function RecallRune(RuneBook: Cardinal; Rune: Byte):Boolean; //New
var
Counter: Byte;
X, Y: Word;
begin
Result := False;
X := GetX(Self);
Y := GetY(Self);
CheckLag(LagWait);
Wait(WaitTime);
while Isgump do CloseSimpleGump(0); //это закрывается гамп если он открыт, я так понимаю
if Dead or not Connected then Exit;
UseObject(RuneBook);
CheckLag(LagWait);
Counter := WaitCycles; // вот это я не понимаю что означает
while Counter > 0 do begin
if IsGump then Break;
Wait(WaitTime);
CheckLag(LagWait);
Inc(Counter);
end;
if IsGump then begin
if NumGumpButton(0, RuneBookShift + Rune) then begin //вот тут тоже мне не понятно, откуда берутся значения
CheckLag(LagWait);
Wait(RecalTime);
CheckLag(LagWait);
Result := (X <> GetX(Self)) or (Y <> GetY(Self));
end else Result := False;
end else Result := False;
end;