Евент на появление строки в журнале
Posted: 03.01.2015 1:50
Очень хочется поиметь евент на строку в журнале. Это бы позволило более гибко вести журнал во внешних скриптах, ибо мне не очень нравится как отрабатывает InJournalBetweenTimes.
Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
Maxwell wrote:Очень хочется поиметь евент на строку в журнале. Это бы позволило более гибко вести журнал во внешних скриптах, ибо мне не очень нравится как отрабатывает InJournalBetweenTimes.
Code: Select all
evUnicodeSpeech : [Text,SenderName,SenderID]у меня и системные там отражаются.Maxwell wrote:Это не то. Это когда кто-то говорит. А мне нужны все сообщения в журнале, включая системные и с их временем.
Code: Select all
procedure OnSpeech(Text, SenderName : String; SenderID : Cardinal);
begin
AddToSystemJournal(Text + '|' + SenderName + IntToHex(SenderID, 8));
end;
15:03:00:147 [Melnik]: Chat is not currently supported.|SystemFFFFFFFF
15:03:23:153 [Melnik]: 63° 22'N, 59° 12'E|SystemFFFFFFFF
Maxwell wrote:Ну и там как минимум нет времени.
Code: Select all
procedure OnSpeech(Text, SenderName : String; SenderID : Cardinal);
begin
AddToSystemJournal(Text + '|' + SenderName + '|' + IntToHex(SenderID, 8) + '|' + TimeToStr(Now));
end;