Цитата:
Сообщение от dfackk
Хм... А можно обучить скрипт не спамить, а простенько так в пм 1 раз написать какой рб и время респа?
|
Вроде надо так исправить
delphi Код:
procedure OnTimer(Sender: TObject);
begin
msg.Lines.Add('Шлём сообщение PlayerName='+PlayerName);
//msg.Lines.Add(_message);
say2(_message);
timer.enabled:=false;
end;
ещё можно поправить так,добавив
timer.enabled:=true;
delphi Код:
//пакет 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;