Работа меню
Posted: 11.03.2012 0:02
Вычитал, что
Проблемный код (чуть облегченная версия, нашел где-то тут на форуме):
Однако есть трабл: меню не закрывается. При каждом очередном крафте, вызываются 2 новые панельки меню.К вопросу о меню:
нет смысла использовать в цикле WaitMenu, постоянно его устанавливая - если в меню всегда выбираются одни и те же элементы (а именно так и происходит в 99% случаев).
Что есть WaitMenu - это как раз и есть тот же AutoMenu, только срабатываемый один раз.
Так что (на примере инскрипта) кда лучше и надежнее поставить что-то типа
Код:
AutoMenu('circle','4');
AutoMenu('spell','Recall');
перед циклом, чем выстраивать конструкции вида
Код:
while ... do
begin
WaitMenu('circle','4');
WaitMenu('spell','Recall');
...вызов меню, кидание таргетов....
end;
Проблемный код (чуть облегченная версия, нашел где-то тут на форуме):
Code: Select all
begin
CancelMenu;
OpenContainer(SundukIngot);
OpenContainer(BagIngot);
OpenContainer(SundukBottles);
OpenContainer(BagBottles);
AutoMenu(MenuFirst,MenuSecond);
AutoMenu(MenuSecond,MenuThird);
while true do begin
ClearJournal;
if (Count(IngotType) < NeedIngots) then begin
FullMove(ItemType,-2,BackPack,BagBottles);
FullMove(IngotType,20,BagIngot,BackPack)
end;
UseType(ToolsType,$FFFF);
i := 0;
repeat
wait(100);
i := i + 1;
until (InJournal(SuccsessLine) <> -1) or (InJournal(' failed') <> -1) and (i<50);
wait(100);
end;
CancelMenu;
End.
