|
Цитата: |
|
|
|
|
Сообщение от 666Смерть666 |
|
|
|
|
|
|
|
ладно скажу как нужен друг когда вы взяли в таргет ловите пакет начинающийся на ED с 6 по 10 байтов ид персонажа
|
|
|
|
|
|
спс большое я на сообчений 5 тыкнул спс) ща проверю)
Добавлено через 13 минут
карочи зырь что получилось
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if fromserver and (readC(1)=$EF) and (ReadC(35)=$00) then begin
buf := hstr('EF 00 6D 10 FF B5 02 01 00 7D
00 00 00 00 00 79 8D 00 00');
writes(ReadS(50) + ' ' + vartostr(readH(length(pck)-19)) + ' ');
setlength(buf, length(buf)-2);
case ReadC(37) of
$04: writes('Убийца ');
$05: writes('Стрелок ');
$0B: writes('Чародей ');
$08: writes('Закл ');
$01: writes('Глад ');
$0A: writes('Целитель ');
$02: writes('Страж ');
$07: writes('Волш ');
end;
setlength(buf, length(buf)-2);
case ReadH(length(pck)-13) of
$01: writes('Воин 9-го ранга');
$02: writes('Воин 8-го ранга');
$03: writes('Воин 7-го ранга');
$04: writes('Воин 6-го ранга');
$05: writes('Воин 5-го ранга');
$06: writes('Воин 4-го ранга');
$07: writes('Воин 3-го ранга');
$08: writes('Воин 2-го ранга');
$09: writes('Воин 1-го ранга');
$0A: writes('Офицер 1-го ранга');
$0B: writes('Офицер 2-го ранга');
$0C: writes('Офицер 3-го ранга');
$0D: writes('Офицер 4-го ранга');
$0E: writes('Офицер 5-го ранга');
$0F: writes('Генерал');
$10: writes('Великий генерал');
$11: writes('Командующий');
$12: writes('Военачальник');
end;
sendtoclient;
end;
end.
красным был id перса (A2 01 00 00) я поставил как ты сказал 00 00 00 00 ну проверяй)