Как всегда хочется все облегчить и поэтому человек бла-бла-бла, короче,
сразу к делу)
При написании скрипта на шифт вещей обнаружил, что фаст скрипт или юникод или там яхз кто против символа и . Решил вживить их с помощью HStr'а. У Hex 08 00 09 00, у 1B 00. Сломал весь мозг и пришел сюда
delphi Код:
var
id:integer;
id2:string;
b2,b3:string;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if fromClient and (pck[1]=#$19) then
begin
id:=ReadD(2);
pck:='';
b3:=HStr('1B 00 08 00 09 00');
b2:=HStr('1B 00');
buf:=HStr('49 08 00 09 00');
WriteS('Type=1 ID='+(vartostr(id))+' Color=0 Underline=0 Title='+b2);
buf[(length(buf) * 2 + 2 - 2)]:='';
buf[(length(buf) * 2 + 2 - 1)]:='';
WriteS('Name Item');
buf[(length(buf) * 2 + 2 - 2)]:='';
buf[(length(buf) * 2 + 2 - 1)]:='';
WriteS(b3);
WriteD(0);
SendToServer;
end;
end.