Stealth Client Forum

Code: Select all

program sel_log;
const
logs=$1BDD; // тип логов
kol_log = 19; //Кол-во цветных дров

type
mas_cvet = array[1..kol_log] of Integer; //Создаем массив цветов дров

var
Cvet : mas_cvet;

procedure Cvet_log;
//Примерное положение дел на рынке ДРВ
//Name					-	Color	-	Цена магаз	-	Цена рынка	-	Свойства						-	Скил добычи
//Logs					- 	$0000	- 	не покупают	-	20			-									-	0.0%
//Oak Logs				-	$047C 	-	8			-				-	Прочнее производимые айтемы		-	50.0%
//Red Tree Logs			- 	$0279 	-	11			-				-									-	5.0%
//Dark Tree Logs		- 	$096B 	-	13			-				-									-	60.0%
//Swamp Logs			-	$0237 	-	16			-				-	Отравление 						-	65.0%
//Silver Leaf Logs		-	$0482 	- 	18			-				-	+ 50% damage к undead монстрам 	-	70.0%
//Keranit Logs			-	$010F 	- 	18			-				-									-	75.0%
//Perit Logs			-	$0014 	- 	23			-				-									-	77.5%
//Petrified Logs		-	$03C1 	-	26			-				-	Отнимает стамину у цели 		-	80.0%
//Dragon Tree Logs		-	$0085  	- 	39			-				-									-	82.5%
//Vampire Tree Logs		-	$04C2 	- 	51			-				-	Вампиризм (сосет жизни) 		-	85.0%
//Eridan Logs			-	$0033 	-	64			-				-	Отнимает ману у цели 			-	87.5%
//Hellios Logs			-	$002B 	-	77			-				-									-	90.0%
//Illusions Tree Logs	-	$0071 	- 	90			-				-									-	92.5%
//Crystal Logs			- 	$09A4 	-	102			-				-									-	95.0%
//Dead Tree Logs		-	$0B82  	- 	128			-				-									-	96.0%
//Paradise Logs			- 	$00BE 	-				-				-									-	97.0%
//Titan Tree Logs		-	$0035 	- 	179			-	1000		-									-	98.0%
//Avalon Logs			-	$0BB6	-				-	2000		-	Диспел 							-	99.0%
//Elven Logs			-	$0487 	-	230			-	15000		-	+ 15% tactics + 10% archery 	-	99.9%
//Asterxylon Logs		- 	$0498	-				-	20000		-									-	100.0%
//Простые Logs в магазин не продашь. 
//Последние 4 типа самые ценные в игре. Их нужно или копить или продовать игрокам.

begin

Cvet[1] := $047C; //Oak Logs 	
Cvet[2] := $0279; //Red Tree Logs 	
Cvet[3] := $096B ; //Dark Tree Logs	
Cvet[4] := $0237; //Swamp Logs 
Cvet[5] := $0482; //Silver Leaf Logs
Cvet[6] := $010F; //Keranit Logs 
Cvet[7] := $0014; //Perit Logs 
Cvet[8] := $03C1; //Petrified Logs
Cvet[9] := $0085; //Dragon Tree Logs
Cvet[10] := $04C2; //Vampire Tree Logs
Cvet[11] := $0033; //Eridan Logs 
Cvet[12] := $002B; //Hellios Logs 
Cvet[13] := $0071; //Illusions Tree Logs
Cvet[14] := $09A4; //Crystal Logs 
Cvet[15] := $0B82; //Dead Tree Logs 
Cvet[16] := $00BE ; //Paradise Logs


Cvet[17] := $0035; //Titan Tree Logs 
Cvet[18] := $0000; //Avalon Logs 	
Cvet[19] := $0487; //Elven Logs
Cvet[20] := $0498; //Asterxylon Logs 	
Cvet[21] := $0000; //Logs 

end;

procedure vendor_sell;
var
i:word;
begin
i:=0;
SetAutoSellDelay(7);		//Установить задержку на продажу. Время задается в секундах. По умолчанию - 3 (минимальное значение).
AutoSell(logs,Cvet[1],999);
AutoSell(logs,Cvet[2],999);
AutoSell(logs,Cvet[3],999);
AutoSell(logs,Cvet[4],999);
AutoSell(logs,Cvet[8],999);
AutoSell(logs,Cvet[5],999);
AutoSell(logs,Cvet[6],999);
AutoSell(logs,Cvet[7],999);
AutoSell(logs,Cvet[8],999);
AutoSell(logs,Cvet[9],999);
AutoSell(logs,Cvet[10],999);
AutoSell(logs,Cvet[11],999);
AutoSell(logs,Cvet[12],999);
AutoSell(logs,Cvet[13],999);
AutoSell(logs,Cvet[14],999);
AutoSell(logs,Cvet[15],999);
AutoSell(logs,Cvet[16],999);
while CountEx(GoldCoin,$0000,backpack) = 0 do
begin
checksave;
UOSay(GetName($002A80D6)+'sell guards');				//произнести в игре фразу 'Sell'
wait(10000);
end;
end;

begin
Cvet_log;
vendor_sell;
end.

Code: Select all

SetAutoSellDelay(7); 
for i:=0 to 15 do
begin
 AutoSell(logs,Cvet[i],999);
 UOSay(GetName($002A80D6)+'sell guards'); //произнести в игре фразу 'Sell'
 wait(7000);//  тут можешь и цикл поставить определения паданья gp в бэкпэк
 AutoSell(logs,Cvet[i],0);
end;