Управление клиентом

[alexteam]

это просто ответ на нетпинг...
в общем так.. выкладываю скрипт которым пользовался для того чтобы тпшить ботов вслед за основным чаром. т.н. фолловчат.
добавив в него нетпинг, отключение клиентов от пх, фоллов для скилов и следование за основным чаром и будет то что ты хочешь.
писалось для интерлюда. содержит кусок ненужного кода по хранению оайди партимемберов.
Оффтоп

//активация social-yes деактивация social-no

var
ControlCharacter : string;
mychars : array [0..100] of string;
objids : array [0..100] of integer;
needFollow : array[0..100] of string;
Charcount : integer;
followchat:boolean;

procedure Init; 
var
i : integer;
begin
charcount := 6;
ControlCharacter := 'Panzer';
mychars[0] := 'LastTry';
mychars[1] := 'Dag';
mychars[2] := 'DamageR';
mychars[3] := 'Panzer';
mychars[4] := 'GnoM';
mychars[5] := 'Batarejka';


followchat:= false;
i := 0;
while i < charcount do
begin
  objids[i] := 0;
  needFollow[i] := '';
  inc(i);
end;
end;

procedure Free; 
begin

end;

procedure UpdateUserInfo;
var
i : integer;
Character:string;
begin
  Character := ReadS(22);
  i := 0;
  while i < charcount do
  begin
    if mychars[i] = Character then
      objids[i] := readd(18);
    inc(I);
  end;
end;

function CharacterOID(findname:string):integer;
var 
i : integer;
begin
result := 0;
while i < charcount do
begin
  if mychars[i] = findname then
    begin
      result := objids[i];
      break;
    end;
  inc(i);
end; 
end;

procedure follow;
var
  i : integer;
begin
  i := 0; 
  while i < charcount do
  begin  
  if mychars[i] <> ConnectName then
    if objids[i] <> 0 then
      needFollow[i] := pck;    
  inc(i);
  end;    
end;

var
i:integer;
poz:integer;
text:string;
target:string;

begin
i := 0;
while i < charcount do
begin
  if ConnectName = mychars[i] then
  if needfollow[i] <> '' then     
  begin
    buf := needfollow[i];
    needfollow[i] := '';
    SendToServer;
  end; 
inc(i);
end;

if pck = '' then exit;
if fromserver then
case pck[1] of
#$04: 
  begin  
  UpdateUserInfo;
  end;
       
end;


if fromclient then
case pck[1] of
#$04: 
  begin
    if followchat then
      Follow; 
  end;
#$1B: 
  begin
  if ConnectName = ControlCharacter then
    if readd(2) = 6 then 
      followchat := true;
    if readd(2) = 5 then       
      followchat := false; 
    pck := '';
  end;
#$21: 
  begin
    if followchat then
      Follow; 
  end;  
  
end;


end.

[Niksan]

Сообщение от alexteam

это просто ответ на нетпинг...
в общем так.. выкладываю скрипт которым пользовался для того чтобы тпшить ботов вслед за основным чаром. т.н. фолловчат.
добавив в него нетпинг, отключение клиентов от пх, фоллов для скилов и следование за основным чаром и будет то что ты хочешь.
писалось для интерлюда. содержит кусок ненужного кода по хранению оайди партимемберов.
Оффтоп

//активация social-yes деактивация social-no

var
ControlCharacter : string;
mychars : array [0..100] of string;
objids : array [0..100] of integer;
needFollow : array[0..100] of string;
Charcount : integer;
followchat:boolean;

procedure Init; 
var
i : integer;
begin
charcount := 6;
ControlCharacter := 'Panzer';
mychars[0] := 'LastTry';
mychars[1] := 'Dag';
mychars[2] := 'DamageR';
mychars[3] := 'Panzer';
mychars[4] := 'GnoM';
mychars[5] := 'Batarejka';


followchat:= false;
i := 0;
while i < charcount do
begin
  objids[i] := 0;
  needFollow[i] := '';
  inc(i);
end;
end;

procedure Free; 
begin

end;

procedure UpdateUserInfo;
var
i : integer;
Character:string;
begin
  Character := ReadS(22);
  i := 0;
  while i < charcount do
  begin
    if mychars[i] = Character then
      objids[i] := readd(18);
    inc(I);
  end;
end;

function CharacterOID(findname:string):integer;
var 
i : integer;
begin
result := 0;
while i < charcount do
begin
  if mychars[i] = findname then
    begin
      result := objids[i];
      break;
    end;
  inc(i);
end; 
end;

procedure follow;
var
  i : integer;
begin
  i := 0; 
  while i < charcount do
  begin  
  if mychars[i] <> ConnectName then
    if objids[i] <> 0 then
      needFollow[i] := pck;    
  inc(i);
  end;    
end;

var
i:integer;
poz:integer;
text:string;
target:string;

begin
i := 0;
while i < charcount do
begin
  if ConnectName = mychars[i] then
  if needfollow[i] <> '' then     
  begin
    buf := needfollow[i];
    needfollow[i] := '';
    SendToServer;
  end; 
inc(i);
end;

if pck = '' then exit;
if fromserver then
case pck[1] of
#$04: 
  begin  
  UpdateUserInfo;
  end;
       
end;


if fromclient then
case pck[1] of
#$04: 
  begin
    if followchat then
      Follow; 
  end;
#$1B: 
  begin
  if ConnectName = ControlCharacter then
    if readd(2) = 6 then 
      followchat := true;
    if readd(2) = 5 then       
      followchat := false; 
    pck := '';
  end;
#$21: 
  begin
    if followchat then
      Follow; 
  end;  
  
end;


end.

как его переписать под грацию? что нужно заменить? и на что? ссори за нубо вопрос..)

Добавлено через 17 минут

Сообщение от Lynx

перед запуском скрипта запусти скрипт отсюда http://coderx.ru/showthread.php?t=206 и выключи второй клиент

begin
if fromclient and not(pck[1]=#$__) then begin //вместо зеленого вставь первый байт пакета netping для твоих хроник.
buf:=pck;
sendtoserverex('имя второго некра');
end;
end.

там многа скриптов) каторый иименно?

Добавлено через 4 минуты

begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;

  if FromClient and (pck[1]=#$1B) and (ReadD(2)=6) then
    begin
  buf:=#$38;
  WriteS('Hello');
  WriteD(0);
  SendToServer;
    end;
end.

вот этот юзал
выходит красная а на полоска, когда запускаю скрипт, на строке NoFreeOnClientDisconnect;

l2phx.3.5.4.105 - юзаю