SetEventProc (ивенты). Нужна помощь

[Stels]

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

[Vizit0r]

есть например ивент evAttack

[Stels]

есть например ивент evAttack

я уже смотрел на него, но немного не понял - он возвращает если на меня напали или если у меня вар мод включился и я на кого-то нападаю?

[drabadan]

есть например ивент evAttack

я уже смотрел на него, но немного не понял - он возвращает если на меня напали или если у меня вар мод включился и я на кого-то нападаю?

вроде как был evTimer внутри которого можно чекать свое хп и прочую лабуду типа вармода. Как только что-то не так, мы отписываемся от ивента делаем свои грязные дела и подписываемся назад.

[Stels]

Воспользовался

Code: Select all

SetEventProc(evTimer1,'fight')

и он сбивает весь скрипт, на реколе выдает на процедуру рекола
PS Internal error: Out Of Range.

вот то, что находится в ивенте

Code: Select all

Procedure fight;
var Elemental: Array of Cardinal;
j: integer;
Elem: cardinal; 
begin
 Elemental := [$0070,$0071,$006E,$006D,$00A6,$006F,$006B,$006C];  //Тип элементалей
 for j:=0 to (GetArrayLength(Elemental)-1) do
  begin
    while FindType(Elemental[j],Ground) <> 0 do
      begin 
        AddToSystemJournal('Охота на элементаля началась!');
        if GetDistance(FindItem) < distance  then      
            begin
                distance := GetDistance(FindItem);
                Elem := FindItem;
                setWarMode(true);
                Attack(Elem);
                NewMoveXY(GetX(Elem),GetY(Elem),true,1,true);
            end;
        if (gethp(self) < (getmaxhp(self))) and not dead then
            begin 
                UoSay('[BandSelf]');
                checklag(LagMs);
                wait(6000);    
            end;
        wait(100);
      end;
    wait(100);
    if dead then figh:=0;
  end;
  figh:= 1;
  if WarMode then setWarMode(false);
end;

Раньше просто никогда не работал с ивентами, может что не так делаю?

[Stels]

Такс, с этой проблемой разобрался. Пожскажите, а как отписаться от ивента?

[Stels]

Я правильно понял, что нужно пустой указать внутри ивента, и в конце заново его назначить?

Code: Select all

Procedure fight;
var Elemental: Array of Cardinal;
j: integer;
Elem: cardinal; 
begin
 Elemental := [$0070,$0071,$006E,$006D,$00A6,$006F,$006B,$006C];  //Тип элементалей
 for j:=0 to (GetArrayLength(Elemental)-1) do
  begin
    while FindType(Elemental[j],Ground) <> 0 do
      begin
        SetEventProc(evTimer1,' '); 
        AddToSystemJournal('Охота на элементаля началась!');
        if (gethp(self) < (getmaxhp(self))) and not dead then
            begin 
                UoSay('[BandSelf]');
                checklag(LagMs);
                wait(6000);    
            end;
        if GetDistance(FindItem) < distance  then      
            begin
                distance := GetDistance(FindItem);
                Elem := FindItem;
                setWarMode(true);
                Attack(Elem);
                NewMoveXY(GetX(Elem),GetY(Elem),true,1,true);
            end;
        wait(100);
      end;
    //wait(100);
    if dead then figh:=0;
  end;
  figh:= 1;
  if WarMode then setWarMode(false);
  SetEventProc(evTimer1,'fight');
end;

[drabadan]

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

[Stels]

ну я решил сделать проще, создал два таймера, один на определение врага, а второй на хиллинг. и подписку и одписку соотвтетвенно переместил. Благодарю за помощь, вроде работает))

[Stels]

ну я решил сделать проще, создал два таймера, один на определение врага, а второй на хиллинг. и подписку и одписку соотвтетвенно переместил. Благодарю за помощь, вроде работает))

[Stels]

Появился вопрос:
Когда входит в 1 таймер, отписывается и начинает выполнять процедуру, второй таймер не работает, не обрабатывается... как можно это обойти?

[drabadan]

Code: Select all

const minWait = 100;

// Ето вставляем вместо стандартных вейтов в скрипте
CheckWaitLag(3000);


procedure CheckWaitLag(durationMS: Integer);
var i, count: Integer;
begin
  count := durationMS / minWait;
  for i := 0 to count-1 do
    if (CheckLag(30000)) then
       begin
          // Будет намного лучше чекать все потенциальные проблемы тут
          // Так как у тебя в 100 раз больше контроля по выполнению коллбеков
          Wait(minWait);
       end
    else 
       Beep;
end;

П.С. Синтаксис мог забыть, так что ето просто идея а не реализация.

Таймеры лучше понимать как, что то "на крайний" случай чтоб уже там совсем воот вообще никак без него. ИМХО конечно.

[Vizit0r]

Все ивенты выполняются последовательно, не параллельно. Поэтому тяжелые, долгие вещи в них не стоит пихать вообще.