begin if FromServer and (pck[1]=#$16) then begin if ((ReadD(6)-kid)=id) then begin buf:=#$04; if (ObjID=0) then begin ObjID:=ReadD(2); X:=ReadD(14); Y:=ReadD(55); Z:=ReadD(27); end; WriteD(ObjID); WriteD(X); WriteD(y); WriteD(Z); WriteC(0); SendToServer; SendToServer; end; end; if FromServer and (pck[1]=#$0F) and (ObjID<>0) then begin if (pos('_Chat 2', ReadS(6))<>0) then begin buf:=#$21; WriteS('npc_' + inttostr(ObjID) + '_Chat 2'); pck:=''; SendToServer; end; end; end.