Показать сообщение отдельно
Старый 26.07.2014, 13:40   #4
Новичок
 
Регистрация: 24.07.2014
Сообщений: 8
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
CoolNickname пока неопределено
По умолчанию

Думаю хорошим тоном будет выложить готовый скрипт.
Код:
Var
CharID: Integer;
X,Y,Z: Integer;

//говорилка
Procedure Say(msg:string);
begin
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(msg);
    SendToClient;
end;


//запись таргета каравана
begin
  if FromClient and (ConnectName='InisTrue') 
  and (pck[1]= #$1F) then begin
    CharId:=ReadD(2);
    Say('Таргет каравана записан: '+ IntToStr(CharId));   
  end;
  
if FromServer and (ConnectName='InisTrue') 
  and (pck[1]= #$01) and (ReadD(2) = CharID) then begin 
   X:= (ReadD(6));
   Y:= (ReadD(10));
   Z:= (ReadD(14));
   buf:= #$0F;
   WriteD(X);
   WriteD(Y);
   WriteD(Z);
   WriteC(00);
   SendToServer;
   end;

end.
CoolNickname вне форума   Ответить с цитированием