Stealth Client Forum

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.

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;