nah nah wrote:

nah nah wrote:Браво!)

Поторопился

))

Проблемка образовалась, в какой-то момент он остался с даггером в руках, и не мог кастовать пойсон, как бы так по красивее засунуть в скрипт постоянную проверку на наличии даггера в руках ?
А то регов спустил в воздух большое количество из-за этого

Докрутил по полной))
Переделал почти каждую процедуру, но собрал до идеала как считаю для своего уровня пользования и понимания.
Хотел бы услышать мысли людей которые знают в этом лучше, изменение в первом сообщении отобразил в виде полностью рабочего скрипта )

Все вроде работает, хоть и слегка процедура медитация немного закручена с оружием !

Ту проблему поправил, но отрабатывает не правильно, доберусь до компьютера, опишу всю суть.

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

Вдруг кто может сделать скрипт под 4 стелс,суть скрипта. Маг кастует на себя блесс и инту, потом пойсоном сбивает всю ману и начинает медитить, как только медитация сработала, он одевает даггер, проверяет количество маны, если больше чем надо на каст пойсона, выкастовывает и снова пытается медитиров...

Я бы тоже от скрипта не отказался одного.
Если кто готов помочь с этим напишите !

GeeZeR wrote:засекай (Start := Now;) перед использованием кирки (т.е. перед конструкцией с if)

Спасибо, это помогло. Теперь прямо летает по шахте )))

[17:05:21:897] System: Select a place to mine. [17:05:21:997] System: You cannot see that [17:05:53:314] System: Select a place to mine. [17:05:53:383] System: That is too far away [17:06:25:530] System: Select a place to mine. [17:06:25:627] System: That is too far away [17:06:56:845] System: Sele...

Хорошо спасибо попробую что из этого выйдет

procedure mining; begin If TargetPresent Then CancelTarget; if (GetType(ObjAtLayer(RhandLayer)) <> PickType) then begin UseObject(FindType(PickType, Backpack)); end; if (GetType(ObjAtLayer(RhandLayer)) = PickType) then begin UseObject(ObjAtLayer(RhandLayer)); end; WaitJournalLine(Now, 'Select a pla...

Проблема заключается в том, что на некоторые слова из журнала он реагирует, а некоторые просто пропускает WaitJournalLine(Now, 'Select a place', 10000); WaitTargetSelf; WaitJournalLine(Now, 'far away|You stop|your tool|no more ore|breaks|stop mining|cannot see|cannot mine|already doing', 30000); end...