Юникод VS шифт вещей

[supernewbie]

Как всегда хочется все облегчить и поэтому человек бла-бла-бла, короче,
сразу к делу)
При написании скрипта на шифт вещей обнаружил, что фаст скрипт или юникод или там яхз кто против символа  и . Решил вживить их с помощью HStr'а. У  Hex 08 00 09 00, у  1B 00. Сломал весь мозг и пришел сюда

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.

[alexteam]

var
  text : string;
begin
  id:=ReadD(2);

  text := 'Type=1 ID='+inttostr(id)+' Color=0 Underline=0 Title='

  buf := #$49; // [49] //id


  writed($90008);              //[49] [08 00 09 00
  writes(text);                //[49] [08 00 09 00+uText+00 00
  writec($1B, length(buf)-1);  //[49] [08 00 09 00+uText+1B 00
  writes('ItemName');          //[49] [08 00 09 00+uText+1B 00+uItemName+00 00
  writec($1B, length(buf)-1);  //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00
  writed($90008);              //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00
  writeh(0);                   //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] //text
  writed(0);                   //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] [00 00 00 00] //type 
 

[supernewbie]

упс, оказывается  это 1B 00 09 00

[alexteam]

готовый пакет покажи.

[supernewbie]

все пздц) пробелов понатыкали

готовый скрипт)

const
Name='1';

var
id,i,iditem:integer;
text : string;
ItemsName:TStringList;
itemsid:array [0..80] of integer;
itemsobjid:array [0..80] of integer;


procedure Init; //Вызывается при включении скрипта
begin
ItemsName:=TStringList.Create;
ItemsName.LoadFromFile('settings\itemsid.ini');
for  i:=0 to 80 do
itemsobjid[i]:=0;
for  i:=0 to 80 do
itemsid[i]:=0;
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure InventoryCreate;
var
  i,offset,CurrentInvRazmer : integer;  
  
begin
  offset:= 64; 
  CurrentInvRazmer:=ReadH(4);
  for i:=0 to CurrentInvRazmer do  
  begin                
    itemsid[i]:=ReadD(i*offset+12);
    itemsobjid[i]:=ReadD(i*offset+8);       
    end;
    
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if fromClient and (ConnectName=Name) and (pck[1]=#$19) then
begin
  id:=ReadD(2);   
  for  i:=0 to 80 do
  if id=itemsobjid[i] then
  begin          
  iditem:=itemsid[i];  
  end; 
  

  text := 'Type=1   ID='+inttostr(id)+'   Color=0   Underline=0   Title=';

  buf := #$49; // id


  writed($90008);              //[08] [00 09 00
  writes(text);                //[08] [00 09 00+uText+00 00
  writec($1B, length(buf)-1);  //[08] [00 09 00+uText+1B 00
  writes(ItemsName.Values(vartostr(iditem)));          //[08] [00 09 00+uText+1B 00+uItemName+00 00
  writec($1B, length(buf)-1);  //[08] [00 09 00+uText+1B 00+uItemName+1B 00
  writed($90008);              //[08] [00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00
  writeh(0);                   //[08] [00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] //text
  writed(0);                   //[08] [00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] [00 00 00 00] //type 
 SendToServerEx(Name);  
 pck:='';
end;

if fromServer and (ConnectName=Name) and (pck[1]=#$11) then InventoryCreate;


end.