это просто ответ на нетпинг...
в общем так.. выкладываю скрипт которым пользовался для того чтобы тпшить ботов вслед за основным чаром. т.н. фолловчат.
добавив в него нетпинг, отключение клиентов от пх, фоллов для скилов и следование за основным чаром и будет то что ты хочешь.
писалось для интерлюда. содержит кусок ненужного кода по хранению оайди партимемберов.
Оффтоп
delphi Код:
//активация 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.