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

Camping Щепки

тут можно задать вопрос по скриптингу
Verana
Novice
Novice
Posts: 60
Joined: 26.06.2015 18:44

Re: Camping Щепки

Post by Verana »

Vizit0r wrote://Stack(Shield,ground);
//if FindType(Shield,Backpack) > 0 then
//DropHere(FindItem);

может стоило не комментировать это?
program Kindling; // for Zulu Hotel Europe - zuluhotel.net.ua

{$Include 'all.inc'}
{$Include 'stack.inc'}

var i:integer;

const
Logs = $1BDD;
Logs_Color = $0000; // цвет металла
Kindlings = $0DE1; // тип предмета который клепаем
ExTorch = $0DE1; // тип эксептового предмета который клепаем
Box = $41A4850C; //Сундук куда все складываем
Dagger = $0F51;

Procedure make_item;
Begin
CancelMenu;
UseObject(FindType(Dagger, backpack));
FindTypeEx(Logs, Logs_Color, ground, false);
WaitTargetObject(finditem);
wait(500);
// настройки 1-го меню
AutoMenu('What would you like to make?', 'kindling');
wait(500);
WaitJournalLine(Now, 'You place|produce anything!|You Add items', 2000);
FindDistance := 0;
Stack(Kindlings,-1);
FindType($0DE1,Backpack);
if FindCount > 0 then Drophere (finditem);
// настройки меню предмета который клепаем
//WaitMenu('What would you like to make?', 'Shelf');
if TargetPresent then CancelTarget;
end;

//procedure MoveMake;
//begin
//FindType($14F0, backpack);
//if (FindCount >= 1) and (GetDistance(finditem) <=2) and (GetDistance(finditem) >=0) and connected and (not dead) then begin
//wait(100);
//MoveItem(finditem, 0, Box, 0, 0, 0);
//wait(100);
//end;
//end;

Begin
waitconnection(1000);
while not dead do
begin
for i :=1 to 20 do
begin
WaitConnection(2000);
checksave;
//MoveMake;
Wait(2000);
make_item;
FindDistance := 2;
Stack(Shield,ground);
if FindType(Shield,Backpack) > 0 then
DropHere(FindItem);
end;

// Выключил чтобы не удалял созданные вещи.
//UOSay('.killobject');
//Wait(1000);
//WaitTargetType($1DB8);
//UOSay('.killobject');
//Wait(1000);
//WaitTargetType($1DB8);

//Hungry(1,-1);
//Wait(1000);

WaitGump('0001');
end;
end.

17:03:54:015 [3]: Compiler: [Error] (stack.inc at 1:11): Duplicate identifier 'STACK'
исправил но причина кроется не в этом...
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Camping Щепки

Post by Vizit0r »

ты только последний пост читаешь? предыдущий про Duplicate identifier 'STACK' уже проигнорировал?

Следующий раз исправишь дублирование, но опять закомментируешь само стекирование?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Verana
Novice
Novice
Posts: 60
Joined: 26.06.2015 18:44

Re: Camping Щепки

Post by Verana »

Блин так и не добился никакого ответа... Ошибка дублирования осталась. Удалил комментирование той части что за стакованте, но ведь в первой процедуре она уже была... Комментирование это не корень сей ошибки...
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Camping Щепки

Post by Vizit0r »

Verana wrote:
Vizit0r wrote:{$Include 'all.inc'}
{$Include 'stack.inc'}

я подозреваю, что если ты откроешь файл all.inc там уже будет {$Include 'stack.inc'}
вот тебе и дублирование.

и ошибку ты так и не перевел на русский.
пардон, 17:03:54:015 [3]: Compiler: [Error] (stack.inc at 1:11): Duplicate identifier 'STACK'

вот мои инклюды

Code: Select all

{$Include 'checksave.inc'} 
{$Include 'hungry.inc'} 
{$Include 'checktargeterror.inc'} 
{$Include 'WaitConnection.inc'} 
{$Include 'stack.inc'}
{$Include 'my_func.inc'}
а вот если делать без

Code: Select all

{$Include 'stack.inc'}
в скрипте то просто кидает по 10шт(за раз по дефолту производит10единиц) под себя и скрипт работает, но хочу чтоб кидал сразу в стак под собой....
вот это склеить с
Vizit0r wrote://Stack(Shield,ground);
//if FindType(Shield,Backpack) > 0 then
//DropHere(FindItem);

может стоило не комментировать это?
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Macks
Apprentice
Apprentice
Posts: 250
Joined: 27.02.2006 22:23
Location: АоП - Age Of Power

Re: Camping Щепки

Post by Macks »

Убрать {$Include 'stack.inc'} из скрипта оставить в all.inc

Использовать функционал инклуда.
kraft
Posts: 3
Joined: 09.12.2019 9:35

Re: Camping Щепки

Post by kraft »

Народ, кто-нибудь скажет что в итоге?)
Post Reply