скрипт должен превращать строку 35 00 35 00 35 00 35 00 00 00в 35 00 08 00 35 00 08 00 35 00 08 00 35 00 08 00 00 00
Добавлено через 7 минут
весь мозг сломал уже (
delphi Код:
var
lengthtext,i,o,text,text1:integer;
symbols:array [0..255] of integer;
nachalo:boolean;
procedure Init; //Вызывается при включении скрипта
begin
nachalo:=false;
o:=2;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
begin
if FromClient and (pck[1]=#$49) then
begin
lengthtext:=(length(ReadS(2)));
for i:=0 to lengthtext do
begin
symbols[i]:=ReadH(o);
o:=o+2;
end;
if i=lengthtext then
begin
buf:=#$49;
for i:=0 to lengthtext do
if not (symbols[i]=0) then
begin
WriteH(symbols[i]);
WriteH(8);
nachalo:=true;
end;
if (i=lengthtext) and (nachalo=true) then
begin
WriteH(0);
WriteD(0);
SendToServer;
o:=2;
Exit;
end;
end;
end;
end;
end.
так вроде робит, но робит через символ почему-то... то есть слово 'сюда' заменит на 'сд'...