AutoMenu 3 lvl

[Dani]

ктонить пробовал ставить 3 уровня AutoMenu?
макрос простой до безумия, 2 раза по инготам вылазит меню и пашла жара, по автоменю пишет таргет кенселед а по WaitMenu ваще выдает ошибку стелса и после тожесамое таргет кенселед

[Dani]

Access violation at address 004030C8 in module 'Stealth.exe'. Read of address 00000402. воттакая вот хрень вылазит

[L'inconnu]

скрипт в кач. примера привел бы, а то гадание на кофейной гуще какое-то

[Dani]

кусок скрепта...

Code: Select all

FindType(Ingots, BackPack);
If FindQuantity < 10 Then
        Begin
           FindType(Ingots, Ground);
           Grab(FindItem, 100);
                Wait(1000);
        End;
If FindQuantity > 10 Then
	Begin
		FindType(Ingots, BackPack);
		UseObject(FindItem);
		WaitMenu('Blacksmithing', 'Armor')
		WaitMenu('Armor', 'Chain Mail')
		WaitMenu('Chain Mail', 'chainmail coif');
		StartTime := Now;
		WaitJournalLine(StartTime, ' You put| failed ', 20000);
	End;

[Acronym]

кусок скрепта...

Code: Select all

		WaitMenu('Blacksmithing', 'Armor')
		WaitMenu('Armor', 'Chain Mail')
		WaitMenu('Chain Mail', 'chainmail coif');

; в конце строк?

[Acronym]

кусок скрепта...

Code: Select all

		WaitMenu('Blacksmithing', 'Armor')
		WaitMenu('Armor', 'Chain Mail')
		WaitMenu('Chain Mail', 'chainmail coif');

; в конце строк нету?

[Dani]

кусок скрепта...

Code: Select all

		WaitMenu('Blacksmithing', 'Armor')
		WaitMenu('Armor', 'Chain Mail')
		WaitMenu('Chain Mail', 'chainmail coif');

; в конце строк нету?

и даже если будут ; в конце строк то всеравно небудет работать, они там были...

[L'inconnu]

; в конце строк?

а нафига? сей символ используется крайне редко, после объявления переменных ну и может еще в паре случаев. я его не использую принциапиально, кроме тех слуев где стелс ругается на отсутсвие, и все прекрасно работает

[Acronym]

; в конце строк?

а нафига? сей символ используется крайне редко, после объявления переменных ну и может еще в паре случаев. я его не использую принциапиально, кроме тех слуев где стелс ругается на отсутсвие, и все прекрасно работает

Ну, не знаю, я вобщем то далек от технических дисциплин, а в примерах которые здесь и на основе которых я что то собираю под себя - этот знак использовался. Вот и подумал...

А по теме: к сожалению сам проверить не могу, у нас почти везде крафтменю на гампах, из того что есть 3-х уровнего вроде нет.

[Alex]

попробуй в начале скрипта единоразово использовать automenu, меньше нагрузки будет на стелс, думаю поможет..

[Miralex]

1. В таких случаях лучше использовать единоразово AutoMenu.
2.

Code: Select all

StartTime := Now;

не в том месте поставил.
Пока ты зафиксируешь время, с которого собираешься потом ждать нужную фразу - ловушки давно уже отработают. В итоге будеш ждать непонятно чего.
Необходимо фиксировать время перед производством чего либо а не после. В данном случае эта строка должна быть перед UseObject.

3. Советую ставить ";" (точку с запятой) везде, где положено, а не где попало. Разработчики Pascal scripts не смогли 100% гарантировать корректное выполнение скриптов в случае отсутствия этих знаков.

4.

Code: Select all

If FindQuantity > 10 Then

В случае подбора инготов с пола - в FindQuantity будет кол-во их на полу а не в бекпаке. Советую перестраховаться и поставить перед этим условием:

Code: Select all

FindType(Ingots, BackPack);

5. Не помешало бы расставить еще задержки, чтобы избавиться от некоторых сбоев и возможных бесконечных циклов.

[Dani]

Саш, канечно спасибо, но работают остальные скрепты именно на такой структуре наура , блин автоменю 3 раза не хтит, а вэйтменю темболие(выдает ошибку), точно такой макр на тинку, 2 автоменю атлично работают абсолютно такаяже структура