Buy/Sell
Posted: 21.10.2009 18:52
Посидел покумекал...и не понял...а возможно как то организовать в стелсе покупку/продажу
http://stealth.od.ua/forum/viewtopic.php?t=1220
{Shop}
procedure AutoBuy(ItemType: Word; ItemColor: Word; Quantity: Word); // Добавление ловушки на меню покупки. Если Quantity = 0, то ловушка снимается. ItemColor должен точно совпадать с цветом покупаемой вещи
procedure AutoBuyEx(ItemType: Word; ItemColor: Word; Quantity: Word; Price: Cardinal; Name: String); // Добавление ловушки на меню покупки с учетом цены
name - полное либо часть имени
price - максимальная цена, за которую стоит купить
// если используется имя, то тип можно вогнать в ноль
function GetShopList: TStringList; // возвращает результатом стринглист типа
// при появлении следующего меню - старый шоп-лист затирается.
function GetAutoBuyMode: Boolean; // Запросить статус ловушки на Buy меню
procedure SetAutoBuyMode(Value: Boolean); // Включить/выключить ловушку на Buy меню (По умолчанию включена)
function GetAutoBuyDelay: Word; // Запросить текущую задержку между появлением Buy меню и покупкой вещей
procedure SetAutoBuyDelay(Value: Word); // Установить задержку на скупку. Время задается в секундах. По умолчанию - 3 (минимальное значение)
procedure AutoSell(ItemType: Word; ItemColor: Word; Quantity: Word); // Добавление ловушки на меню продажи. Если Quantity = 0, то ловушка снимается. ItemColor должен точно совпадать с цветом продаваемой вещи
function GetAutoSellMode: Boolean; // Запросить статус ловушки на Sell меню
procedure SetAutoSellMode(Value: Boolean); // Включить/выключить ловушку на Sell меню (По умолчанию включена)
function GetAutoSellDelay: Word; // Запросить текущую задержку между появлением Sell меню и продажей вещей
procedure SetAutoSellDelay(Value: Word); // Установить задержку на продажу. Время задается в секундах. По умолчанию - 3 (минимальное значение)