Рейтинг темы:
  • 0 Голос(ов) - 0 в среднем
  • 1
  • 2
  • 3
  • 4
  • 5
Автосохранение расшифрованого пакета
#1
Использую программу l2phx 3.5
Помогите сделать сохранение расшифрованых пакетов в файл
вот сам скрипт:
Код:
var
s:TstringList;

procedure init;
begin
s:=TStringList.Create;
end;

procedure Free;
begin
s.SaveToFile('C:\NPCinfo.txt');
s.Free;
end;

begin
if (FromServer) and (ReadC(1)=$0C) then s.Add(pck);
end.


создает пустой файл, пакеты расшифрованые не записует
пробовал без :
Код:
and (ReadC(1)=$0C)
сохраняет лог пакетов через раз не пойму почему так
Sad

скрипт нужен для парсинга инфы о нпс\htm файлов и прочего с PTS Goddess of Destruction
если кто не жадный поделитесь скриптами\програмами для данной работы =) буду очень благодарен
Ответ
#2
PHP код:
<?php 
var
objId, npcId : integer;
list :
TstringList;

//Вызывается при выключении скрипта
procedure init;
begin
//Создаем лист
list:=TStringList.Create;
end;

//Вызывается при выключении скрипта
procedure Free;
begin
list.SaveToFile('C:\NPCinfo.txt');
list.
Free;
end;

//Сохронение пакета ( ObjId и npcId )
procedure save;
begin
//Читаем 4 байта
ObjId := readd(2);
//Читаем 4 байта
npcId := readd(6);
//Записываем в лист
list.add(IntToStr(ObjId)+' '+IntToStr(npcId));
end;

//основная часть скрипта
begin
//Запускаем метод save при приходе от сервера пакета NpcInfo
if fromserver and (pck[1]=#$0C) then save;
end.

дальше сам
Человек просто обязан ошибаться, раз другие учатся на его ошибках .......
Ответ
#3
аналогично работает как и первый скрипт. сохраняет файл 0 байт
Ответ
#4
4ipolino Написал:аналогично работает как и первый скрипт. сохраняет файл 0 байт

значит пакет NpcInfo не приходит
Человек просто обязан ошибаться, раз другие учатся на его ошибках .......
Ответ
#5
Bacekk Написал:значит пакет NpcInfo не приходит

NpcInfo только и забит лог пакетника етим пакетом :redlol:

Добавлено через 6 часов 45 минут
как я понял никто не знает что с пакетником творится и как ету байду настроить =(
Ответ
#6
проблема была в пакетхаке.... скомпилил версию с свн и вс начало работать отлично
Ответ
#7
http://coderx.ru/showthread.php?t=789
Ответ


Возможно похожие темы ...
Тема Автор Ответы Просмотры Последний пост
  перевод языкового пакета на английский Dementor 4 1,441 09-24-2015, 09:06 PM
Последний пост: Donatte

Перейти к форуму:


Пользователи, просматривающие эту тему: 1 Гость(ей)