Page 1 of 1

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

Posted: 16.09.2010 23:37
by 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.

Posted: 17.09.2010 6:49
by Vizit0r
у меня прикольнее.

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

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

Posted: 17.09.2010 6:52
by 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, плюс вышеописанный баг

Posted: 17.09.2010 6:53
by Vizit0r

Code: Select all

UseObject(findType(Tool, backpack)); 
wait(3100); 
i := findType(Total,backpack);
для чего это ожидание на 3,1 сек?

Posted: 17.09.2010 13:07
by pr0Zak
Думаю он не будет работать, хотя это только мое мнение)

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

Posted: 17.09.2010 19:53
by pr0Zak
Venom wrote: В чем же проблема ?
В скрипте :mrgreen: