Алхимия[бутылки в стопке]

[Venom]

Суть следующая:
Крафтим бутылки определенного вида и складываем в сумку,
что лежит в бекпаке.
В сумке, итемы (бутылки) складываются один в один, т.е. в стопку (это самое важное в процедуре, чтобы итемы складывались именно в стопку а не в разброс).

Выдает следующую ошибку:
Compiler: [Error] (56.txt at 30:3): Assignment expected
Что это значит, помогите плс исправить?

Code: Select all

Program AlchemyCraft;

CONST
  Item = $0f0e; //Тип Бутылок/
  Tool = $0e9b; //Тип Ступки/
  Total = $0f0b; //Тип Тоталл Рефреша/
  Sumka = $64AEBD67; //ID Сумки куда крафтить/



BEGIN

 Cancelmenu;

 
 AutoMenu('Alchemy', 'Refresh Potions');
 AutoMenu('Refresh Potions', 'Total refresh potion');

SetARStatus(true);
 
  UOSay(Chr(39)+'craftcreate 1');
  Wait(1000);

while true do
  WaitTargetObject(findType(Item, backpack));
UseObject(findType(Tool, backpack));
wait(3100);
i = findType(Total,backpack);
ignore(i);
findType(Total,backpack);
MoveItem(findItem, 0, i, 0, 0, 0);
wait(5000);

end;
END.

[Vizit0r]

у меня прикольнее.

07:48:56:343 [Test - DRW2]: Compiler: [Error] (23.sc at 28:29): Internal error (20)

проникся, пошел копать.

[Vizit0r]

я удивлен.

строка

Code: Select all

i = findType(Total,backpack);

вызывает ошибку

Compiler: [Error] (23.sc at 28:29): Internal error (20)

правильно надо

Code: Select all

i := findType(Total,backpack);

вобщем, код выглядит так:

Code: Select all

Program AlchemyCraft; 

CONST 
  Item = $0f0e; //Тип Бутылок/ 
  Tool = $0e9b; //Тип Ступки/ 
  Total = $0f0b; //Тип Тоталл Рефреша/ 
  Sumka = $64AEBD67; //ID Сумки куда крафтить/ 

var i : Cardinal; 

BEGIN 

 Cancelmenu; 

  
 AutoMenu('Alchemy', 'Refresh Potions'); 
 AutoMenu('Refresh Potions', 'Total refresh potion'); 

SetARStatus(true); 
  
  UOSay(Chr(39)+'craftcreate 1'); 
  Wait(1000); 

while true do 
  WaitTargetObject(findType(Item, backpack)); 
UseObject(findType(Tool, backpack)); 
wait(3100); 
i := findType(Total,backpack); 
ignore(i); 
findType(Total,backpack); 
MoveItem(findItem, 0, i, 0, 0, 0); 
wait(5000); 

END.

был лишний end; и не описана переменная i, плюс вышеописанный баг

[Vizit0r]

Code: Select all

UseObject(findType(Tool, backpack)); 
wait(3100); 
i := findType(Total,backpack);

для чего это ожидание на 3,1 сек?

[pr0Zak]

Думаю он не будет работать, хотя это только мое мнение)

[Venom]

Да, действительно - не работает (
Скрипт запускается, но ... после "craft create 1", ничего не происходит...
В чем же проблема ?

[pr0Zak]

В чем же проблема ?

В скрипте