Суть. Скрипт должен читать тот текст что я отправляю в чат и перед каждым символом ставить 08 00.
Пытался сам, не получилось как всегда
delphi Код:
var
lengthtext,i,o:integer;
text:string;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
begin
if FromClient and (pck[1]=#$49) then
begin
text:=ReadS(2);
lengthtext:=(length(ReadS(2)) * 2 + 2);
pck:='';
buf:=#$49;
WriteS(text);
for i:=2 to lengthtext do
if i=o+2 then
begin
WriteH(8,i+2);
o:=i;
end;
end;
WriteD(0);
SendToServer;
end;
end.
Добавлено через 11 минут
алеееееекс (