Meditation
Posted: 26.11.2008 14:16
Всем здрасте.
Давно не скриптил, забыл что и как =)
Нужна помощь по процедуре.
Суть такова:
Кастую харм, лечусь спиритом и юзаю медитацию. Появляется строка "Вы пытаетесь впасть в транс." Ждём 2 секунды, если строки "Впасть в транс не получилось." нет, то ждём пока промедитирует, если строка появилась, повтор медитации.
Вот мой код:
Ошибка в том, что когда появляется в журнале Msg_Fail_Medit никаких действий не происходит. Я там поставил паузу в 0.1 секунду и процедура как я считаю должна пойти заново... В чём ошибка ?
Давно не скриптил, забыл что и как =)
Нужна помощь по процедуре.
Суть такова:
Кастую харм, лечусь спиритом и юзаю медитацию. Появляется строка "Вы пытаетесь впасть в транс." Ждём 2 секунды, если строки "Впасть в транс не получилось." нет, то ждём пока промедитирует, если строка появилась, повтор медитации.
Вот мой код:
Code: Select all
...
Const
Msg_Fail_Medit = 'не получилось';
...
Procedure Medit;
begin
WaitConnection(5000);
If Mana < MaxMana then
begin
Repeat
ClearJournal;
STime:=Now;
UseSkill('Meditation');
Wait(4000);
If (InJournalBetweenTimes('Msg_Fail_Medit',STime,Now)=1) then
begin
Wait(100);
end
Else
begin
While Mana < MaxMana do
begin
Wait(500);
end;
end;
Until Mana = MaxMana;
end;
end;