procedure SellCall(buf:Pointer);Stdcall; var CallAddress:pointer; begin CallAddress:=Pointer($005F7340); asm pushad push buf push 1 call CallAddress add esp, $8 popad end; end; procedure Sell(ItemId,ItemCount,CellNum:integer); var buf:array [0..2] of DWORD; begin buf[0]:=ItemId; // ID предмета buf[1]:=CellNum; //Номер ячейки инвентаря buf[2]:=ItemCount; //Количество предметов для продажи. InjectFunc(aHandle,@SellCall,@buf,SizeOf(buf)); end;