Если вы играете в 2 и более окон и забываете или ленитесь рекомендовать свои же окна то скрипт для вас.
В скрипте записать ник кого хотите зарекать, и все ваши окна будут автоматически рекомендовать вашего перса.
Тоесть, у вас допустим запущено 4 окна, 3 окна в гиране и 1 в адене которое необходимо рекать.
Как тольо ваш чар делает тп в гиран из адена то 3 ваших окна автоматически рекают вашего чара, если вы релогнитесь то 3 окна снова рекнут вас.
Код
//Автор ATMS_DIFKS
{Все ваши окна и персонажи если увидят персонажа name, автоматически рекомендуют его}
var
name,name2,nik:string;
id,i,j,r,enterworld:integer;
n:array[1..30] of string;
d:array[1..30] of integer;
procedure Init; //Вызывается при включении скрипта
begin
enterworld:=-1;
name:='****; //кого рекомендовать
i:=0;
r:=0;
end;
Procedure Rec(ident:integer;);
begin
buf:=#$B9;
WriteD(id);
if id > 0 then SendToServer;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (pck[1]=#$04) and (ConnectName <> name) and (enterworld = 0) then
begin
enterworld:=1;
end;
if FromClient and (pck[1]=#$03) and (ConnectName <> name) then
begin
enterworld:=0;
end;
if FromServer and (pck[1]=#$03) and (ConnectName <> name) then
begin
id:=ReadD(18);
nik:=ReadS(22);
if nik = name then
begin
r:=0;
for j:=1 to 30 do if (n[j] = ConnectName) and (d[j] = id) then r:=1;
if r = 0 then
begin
rec(id);
enterworld:=-1;
i:=i+1;
n[i]:= ConnectName;
d[i]:= id;
if i >= 30 then i:=0;
end;
end;
if (nik = name) and (enterworld=1) then
begin
rec(id);
enterworld:=-1;
end;
end;
end.
