Помогите разобраться в пакетах

[Str0lka]

Ребят привет всем. Вот есть кусочек скрипта на телепорт:

Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 00 00 00 00 00 00')) then // команда
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3B 02 00 B0 64 00 00 23 F8 FF FF');// пакет
SendToClient;
end;
end;

Помогите разобраться как его редактировать. Где команды которые вводить в чат а где пакет на телепорт. И как добавлять свои кординаты (т.е чем шифровать чем дешифровать). Только начинаю изучать, облазал форум не смог найти.

[TAMBIK]

И как добавлять свои кординаты

можно взять из пакета например
ValidatePosition

[Str0lka]

Спасибо. но нужно вбивать вручную кординаты ибо буду их брать вручную по x,y,z. Скажите какие кодировки используються для команды и для кординат. Чем кодировать\раскадировать

[TAMBIK]

пакет в НЕХ
59 AD 22 01 00 5D 94 00 00 06 F4 FF FF 78 E8 00 00 00 00 00 00
расшифровка

Tип: 0x59 (ValidatePosition)
Pазмер: 21+2
Время прихода: 16:48:28:984
0002 d X: 74413 (0x000122AD)
0006 d Y: 37981 (0x0000945D)
0010 d Z: -3066 (0xFFFFF406)
0014 d Heading: 59512 (0x0000E878)
0018 d Data: 0 (0x00000000)

buf:=buf+ hstr('89 3B 02 00 B0 64 00 00 23 F8 FF FF');// пакет

[Str0lka]

т.е вводим позицию например 116785 в Dword и кодируем в hex ? я правильно понял?

[alexteam]

мда... зачем ? %)
можно воттак..

procedure init;
begin
UseForConnectName := 'characterName';
end;

var
whatisay: string;
begin

if fromclient then
if pck[1]=#$38 then //say2
begin
whatisay := reads(2);
case lowercase(whatisay) of
'.aden':
begin
pck := '';
writemask('cdddd',[$28, myobjid, 146313, 25776, -2013]);
sendtoclient;
end;
'.giran':
begin
pck := '';
writemask('cdddd',[$28, myobjid, giran_x, giran_y, giran_z]);
sendtoclient;
end;
end;
end.

myobjid брать из пакета userinfo в общем это твое "WriteD(a);"
x,y,z можно и по loc глянуть.

[TAMBIK]

у те в проге вот так отображается пакет

бери из верхней части кординаты