Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.
Парсинг системных сообщений
- Автор темы AmonRay
- Дата начала
- Рег
- 8 Дек 2015
- Сообщения
- 191
- Реакции
- 0
@AmonRay, приведу пример куска кода из скрипта Krickt
while (true) do
begin
Engine.WaitAction([laSysMsg], p1, p2);
print(p1);
case p1 of
2088: begin print('10 минут до осады'); Engine.BlinkWindow(true); PlaySound('Sounds/hp.wav'); end;
2090: begin print('Осада началась'); Engine.BlinkWindow(true); PlaySound('Sounds/hp.wav'); end;
end;
end;
Думаю дальше сам разберешься
while (true) do
begin
Engine.WaitAction([laSysMsg], p1, p2);
print(p1);
case p1 of
2088: begin print('10 минут до осады'); Engine.BlinkWindow(true); PlaySound('Sounds/hp.wav'); end;
2090: begin print('Осада началась'); Engine.BlinkWindow(true); PlaySound('Sounds/hp.wav'); end;
end;
end;
Думаю дальше сам разберешься
magogs, Donny это вовсе не systemmsg. Такие сообщения приходят с сервера и их быть не может в папке с клиентом.
Спасибо savant за подсказку. Обязательно попробую и спасибо Krickt за исходники
идет сообщение об регистрации на твт 20-29 лвл, окна быстренько релогаются и заходят на персонажа 20 лвла (логин происходит по ячейкам), после чего принимают диалог и улетают на эвент. После эвента (проверка по событию телепорт дистанц) запускается sendMail (отправляем награду с эвента на основу). И зацикливаем это дело под разные уровни. Прийдется ввести небольшой switch/case, но уже уже другой разговор
Спасибо savant за подсказку. Обязательно попробую и спасибо Krickt за исходники
не думаю что в этом может возникнуть проблема. Я планирую такую логику вложить:
идет сообщение об регистрации на твт 20-29 лвл, окна быстренько релогаются и заходят на персонажа 20 лвла (логин происходит по ячейкам), после чего принимают диалог и улетают на эвент. После эвента (проверка по событию телепорт дистанц) запускается sendMail (отправляем награду с эвента на основу). И зацикливаем это дело под разные уровни. Прийдется ввести небольшой switch/case, но уже уже другой разговор
- Рег
- 14 Мар 2016
- Сообщения
- 166
- Реакции
- 0
Код:
38 1 u,Эвент TGS2002 начинается!\0 0 FF FF 0 FF a, a, 0 0 0 0 0 a, a,none\0
39 1 u,Эвент TGS2002 закончен. Всем большое спасибо.\0 0 FF FF 0 FF a, a, 0 0 0 0 0 a, a,none\0Вот что я нашел у себя в патче systemmsg
Где TGS2002 Єто скорее всего и есть сис сообщение
@magogs, не отлавливает такое Пробовал в print'e отловить, просто 0 реакции
var Index:integer;
p1:integer;
p2:integer;
begin
while true do begin
begin
print(Engine.WaitAction([laChat], p1, p2));
if(ChatMessage.Unread) then begin
print(ChatMessage.ChatType);
print(ChatMessage.Text);
if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then
begin
Index:=Pos('CtF',ChatMessage.Text);
if index>0 then begin
print('CtF');
end;
Index:=Pos('TVT',ChatMessage.Text);
if index>0 then begin
print('TVT');
end;
end;
end;
end;
end;
end.
мой код уже похож на помойку)
Пробовал в print'e отловить, просто 0 реакцииvar Index:integer;
p1:integer;
p2:integer;
begin
while true do begin
begin
print(Engine.WaitAction([laChat], p1, p2));
if(ChatMessage.Unread) then begin
print(ChatMessage.ChatType);
print(ChatMessage.Text);
if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then
begin
Index:=Pos('CtF',ChatMessage.Text);
if index>0 then begin
print('CtF');
end;
Index:=Pos('TVT',ChatMessage.Text);
if index>0 then begin
print('TVT');
end;
end;
end;
end;
end;
end.
мой код уже похож на помойку
)
- Рег
- 14 Мар 2016
- Сообщения
- 166
- Реакции
- 0
@AmonRay, Зачем тебе ?
print(Engine.WaitAction([laChat], p1, p2));
if(ChatMessage.Unread) then begin
print(ChatMessage.ChatType);
print(ChatMessage.Text);
Если у тебя есть
if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then
А вообще на тебе норм код =)
var Index:integer;
begin
while true do begin
if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then
begin
Index:=Pos('CtF',ChatMessage.Text);
if index>0 then begin
print('CtF');
end;
Index:=Pos('TVT',ChatMessage.Text);
if index>0 then begin
print('TVT');
end;
end;
end;
end.
Теперь проверь и запели в отдельную функцию. После там где принт твт всталяй свою на авто релог =)
print(Engine.WaitAction([laChat], p1, p2));
if(ChatMessage.Unread) then begin
print(ChatMessage.ChatType);
print(ChatMessage.Text);
Если у тебя есть
if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then
А вообще на тебе норм код =)
var Index:integer;
begin
while true do begin
if (ChatMessage.ChatType = mtSystem) and ChatMessage.Unread then
begin
Index:=Pos('CtF',ChatMessage.Text);
if index>0 then begin
print('CtF');
end;
Index:=Pos('TVT',ChatMessage.Text);
if index>0 then begin
print('TVT');
end;
end;
end;
end.
Теперь проверь и запели в отдельную функцию. После там где принт твт всталяй свою на авто релог =)