var
IDPartyMember, IDAssistTarget, IDMy: String;
CoordVarkX, CoordVarkY, CoordVarkZ :String;

procedure VarkBeg;
begin
if (CoordVarkX<>'Bot1') and (IDPartyMember<>'TRATATA') then
begin
buf:=hstr('04') + IDPartyMember + CoordVarkX + CoordVarkY + CoordVarkZ + hstr('00');
SendToServerEX('Bot1');
buf:=hstr('04') + IDPartyMember + CoordVarkX + CoordVarkY + CoordVarkZ + hstr('00');
SendToServerEX('Bot1');
end;
end;

begin
if pck='' then exit;

if FromServer and (pck[1]=#$a7) then
begin
IDPartyMember:=pck[6] + pck[7] + pck[8] + pck[9];
end;

if FromServer and (pck[1]=#$29) then
if (pck[2]+pck[3]+pck[4]+pck[5]=IDPartyMember) then
begin
IDAssistTarget:= pck[6]+pck[7]+pck[8]+pck[9];
end;

if FromClient and (ConnectName='TRATATA') and (pck[1]=#$48) then
begin
CoordVarkX:= pck[6] + pck[7] + pck[8] + pck[9];
CoordVarkY:= pck[10] + pck[11] + pck[12] + pck[13];
CoordVarkZ:= pck[14] + pck[15] + pck[16] + pck[17];
end;

if FromClient and (ConnectName='TRATATA')and (pck[1]=#$38) then
begin
pck:='';
VarkBeg;
exit;
end;

end.