[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 глянуть.