У кого есть скрипт на покупку и продажу чегонить (DRW)?

[dukeduke]

Выкладывайте, помогайте!

[dukeduke]

ППЦ! Я ничо не продаю и не покупаю! Я прошу помощи!

А ВОТ ОБЩЕДОСТУПНЫЕ ФУНКЦИИ:

Работа с меню покупки и продажи:

• AutoBuy(ItemType : Word; ItemColor : Word; Quantity : Word) - Добавление ловушки на меню покупки. Если Quantity = 0, то ловушка снимается. ItemColor должен точно совпадать с цветом покупаемой вещи.
• GetAutoBuyMode : Boolean - Запросить статус ловушки на Buy меню.
• SetAutoBuyMode(Value : Boolean) - Включить (выключить) ловушку на Buy меню. (По умолчанию включена)
• GetAutoBuyDelay : Word - Запросить текущую задержку между появлением Buy меню и покупкой вещей.
• SetAutoBuyDelay(Value : Word) - Установить задержку на скупку. Время задается в секундах. По умолчанию - 3 (минимальное значение).
• AutoSell(ItemType : Word; ItemColor : Word; Quantity : Word) - Добавление ловушки на меню продажи. Если Quantity = 0, то ловушка снимается. ItemColor должен точно совпадать с цветом продаваемой вещи.
• GetAutoSellMode : Boolean - Запросить статус ловушки на Sell меню.
• SetAutoSellMode(Value : Boolean) - Включить (выключить) ловушку на Sell меню. (По умолчанию включена)
• GetAutoSellDelay : Word - Запросить текущую задержку между появлением Sell меню и продажей вещей.
• SetAutoSellDelay(Value : Word) - Установить задержку на продажу. Время задается в секундах. По умолчанию - 3 (минимальное значение).

[CFA]

в чем помогать то? как этими ф-ями пользоваться? если да, то пожалуйста -

Code: Select all

setAutoBuyDelay(2000);    // установить задержку
autoBuy(item_type, item_color, item_count);  // установить ловушку
uoSay('buy');  // сказать 'buy'
wait(2000);  // ждать пока купит
autoBuy(item_type, item_color, 0);  // убрать ловушку

[dukeduke]

Ну спасибки

[dukeduke]

На основе вашего примера попытался написать скрипт для ДРВ шарда на покупку ткани - не работает - ткань не покупается!
вот код:

Code: Select all

program BintsBuy;
BEGIN
	AddToSystemJournal('НАЧИНАЮ СКУПКУ ТКАНИ!');
	While not Dead do 
	begin 
		if not GetAutoBuyMode then SetAutoBuyMode(true); 
		SetAutoBuyDelay(4000); 
		AutoBuy($175D,$0000,20);
		uoSay('Yelinda buy');  // сказать 'buy' 
		AddToSystemJournal('Сказал YELINDA BUY!');
		wait(4000);  // ждать пока купит 
		autoBuy($175D,$0000,0);  // убрать ловушку
		FindType($175D,backpack);
		AddToSystemJournal('Куплено ткани: ' + IntToStr(FindCount));
		setAutoBuyDelay(2000);    // установить задержку 
		autoBuy($175D,$0000,20);  // установить ловушку 
		uoSay('Samson buy');  // сказать 'buy' 
		AddToSystemJournal('Сказал SAMSON BUY!');
		wait(4000);  // ждать пока купит 
		autoBuy($175D,$0000,0);  // убрать ловушку
		FindType($175D,backpack);
		AddToSystemJournal('Куплено ткани: ' + IntToStr(FindCount));

	end;
END.

[Edred]

Ведь я, кажись, публиковал свои скрипты на скупку на этом форуме, разве нет? Вот самый простой из них:

Code: Select all

program Skupka_feathers;
// Покупаем у вендора Aynora feather, до веса пака в 300 стоунов

{$Include 'all.inc'}

const
	kolvo = 42;
	feather = $1BD1;

var i, k : Integer;

begin
	if not GetAutoBuyMode then SetAutoBuyMode(true);
	SetAutoBuyDelay(4);
	AutoBuy(feather,$0000,kolvo);
	while Weight <= 300 do
	begin
		k := Count(feather);
		waitconnection(5000);
		UOSay('Aynora buy');
		repeat
			wait(100)
		until (Count(feather) > k) or (Gold < (kolvo*2));
		i := Count(feather);
		addtosystemjournal('куплено ' + inttostr(i-k) + ' из ' + inttostr(i) + ' перьев');
	end;
	AutoBuy(feather,$0000,0);
End.

[stickman]

а как в autobuy выставлять кол-во = все что есть у вендора?

[CFA]

а как в autobuy выставлять кол-во = все что есть у вендора?

ставь заведомо большее число

[Edred]

Или покупать в цикле, ловя сообщение вендора о том, что "сорри, у меня больше нет".