Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

DRW vendor sell Logs

Only working scripts
Post Reply
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

DRW vendor sell Logs

Post by shinma »

Продажа ненужных логов.

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.
Last edited by shinma on 02.05.2011 13:17, edited 3 times in total.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

AutoSell(logs,Cvet[1],999)
AutoSell(logs,Cvet[2],999)
AutoSell(logs,Cvet[3],999)

будет продавать три цвета за раз.

и т.д.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

Post by shinma »

ничего не понимаю днем этот скрипт работал на ура. а сейчас не продает. Перезагрузил клиент и стелс все заработало.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

если в следующий раз такое будет - не выключай стелс, а стучись ко мне в асю.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

Post by shinma »

продажа работает через раз сейчас вот такой скрипт висит уже пол часа

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);
AutoSell(logs,Cvet[21],999);
while CountEx(GoldCoin,$0000,backpack) = 0 do
begin
checksave;
UOSay(GetName($002A80D6)+'sell guards'); //произнести в игре фразу 'Sell'
wait(4000);
end;
end;


Как только остановил скрипт в стелсе то дрова сразу же продались. (((( баг
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Post by Vizit0r »

такие баги я должен повторить у себя, иначе не найду причину точно.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Beren
Novice
Novice
Posts: 108
Joined: 08.09.2008 1:07

Post by Beren »

скорее всего маленькая задержка
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

Post by shinma »

я тоже так думал и сделал вот такую процедуру. Непомогло.

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);
AutoSell(logs,Cvet[21],999);
while CountEx(GoldCoin,$0000,backpack) = 0 do
begin
checksave;
UOSay(GetName($002A80D6)+'sell guards'); //произнести в игре фразу 'Sell'
wait(10000);
end;
end;
Beren
Novice
Novice
Posts: 108
Joined: 08.09.2008 1:07

Post by Beren »

SetAutoSellDelay(7) - вот тут надо больше, видимо.
у меня на некоторых продажах и по 40 секунд задержка. с нормальной задержкой продаёт только то что в стопках, а у тебя 15 видов логов.
если минимальная задержка 3, то попробуй её умножить на количество стопок. 3*15 = 45. а лучше продовай в цикле:

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;
так будет проще подобрать правильную задержку
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

Post by shinma »

скрипт доработал. первый пост обновил. уже часов 8 чар рубит и продает нормально.
outfitman
Posts: 1
Joined: 14.02.2013 18:33

Re: DRW vendor sell Logs

Post by outfitman »

у меня проблемка со скриптом (( пишет что ошибка в строке:
Compiler: [Error] (Sell.sc at 64:15): Unknown identifier 'GoldCoins'
подсажите как исправить!!!
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: DRW vendor sell Logs

Post by Vizit0r »

фигня какая-то.

замени строку
while CountEx(GoldCoin,$0000,backpack) = 0 do
на
while Gold = 0 do
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
mar4k540
Posts: 6
Joined: 23.01.2014 15:40

Re: DRW vendor sell Logs

Post by mar4k540 »

А можно его переделать на продажу руды ?)
drabadan
Expert
Expert
Posts: 730
Joined: 13.12.2012 17:35
Contact:

Re: DRW vendor sell Logs

Post by drabadan »

mar4k540 wrote:А можно его переделать на продажу руды ?)
так а чо ж не?
Envy
Neophyte
Neophyte
Posts: 20
Joined: 04.01.2013 18:13

Re: DRW vendor sell Logs

Post by Envy »

Драсте, у меня вопрос: а как сделать чтоб он продавал каждый цвет отдельно? Тоесть, мне нельзя, чтоб единоразовая сумма сделки превышала 50к, а в паке логов на, скажем, миллион.
Post Reply