Следим за Рейд Боссами

[NLObP]

Сообщение от dfackk

Хм... А можно обучить скрипт не спамить, а простенько так в пм 1 раз написать какой рб и время респа?

Вроде надо так исправить

procedure OnTimer(Sender: TObject);
begin
  msg.Lines.Add('Шлём сообщение PlayerName='+PlayerName);
  //msg.Lines.Add(_message);
  say2(_message);
  timer.enabled:=false;
end;

ещё можно поправить так,добавив timer.enabled:=true;

//пакет Die (моб умер)
      //06=Die:h(CharID)d(d)d(HAsHideout)d(HasCastle)d(flags)d(sweepable)d(access)
      #$06: begin
         msg.Lines.Add('S>Пакет Die #$06 ObjectID='+IntToStr(ReadD(2)));
         if (NpcOID=ReadD(2)) then begin
            msg.Lines.Add('Убили моба ObjectID='+IntToStr(NpcOID)+' в '+TimeToStr(time));
            _message:='Убили '+ComboBoxNpc.Items.Strings[ComboBoxNpc.ItemIndex]+' в '+TimeToStr(time);
           timer.enabled:=true;
         end;
      end;
      //***************************************************************
      //12=DeleteObject:d(ObjectID)d(d)
      #$12: begin
        msg.Lines.Add('S>C $12 DeleteObject '+inttostr(ReadD(2)));
        if (NpcOID=ReadD(2)) then begin
          msg.Lines.Add('Пропал ожидаемый моб ObjectID='+IntToStr(NpcOID)+' в '+TimeToStr(time));
          _message:='Пропал '+ComboBoxNpc.Items.Strings[ComboBoxNpc.ItemIndex]+' в '+TimeToStr(time);
           timer.enabled:=true;
        end;
      end;