Помогите со скриптом

[sguaj]

var
MyPck:array[1..10] of string;
name:string;
Timer:TTimer;
i,CountPck:integer;

procedure Init;
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.interval:=100;
Timer.enabled:=false;



MyPck[1]:=HStr('FF 01 57 BC FE 1E 0B 00 00 ');
MyPck[2]:=HStr('9D 00 57 5A FF ED 02 00 00 F1 03 01 00 47 09 1E 0B 00 00 00 00 ');
MyPck[3]:=HStr('9D 00 57 5A FF ED 02 00 00 12 00 01 00 05 00 1E 0B 00 00 00 00 '); //сдачи юснеру


CountPck:=3;
end;

procedure Free;
begin
Timer.enabled:=false;
end;

procedure OnTimer(Sender: TObject);
begin
buf:=MyPck[i];
SendToServerEx(name);
inc(i);
if (i>CountPck) then
i:=1;
end;

begin
//включение/выключение скрипта (команда в чат .ы)
if FromClient and (pck[1]=#$B2) then
begin
if (ReadS(7)='B2 00 57 71 FF 00 2E 00 33 04 3E 04 43 04 00 00') then
begin
name:=ConnectName;
pck:='';
i:=1;
if(Timer.enabled) then
Timer.enabled:=false
else
Timer.enabled:=true;
end;
end;
end.




Помогите плиз сделать активацию скрипта эмоцией Улыбка вместо .ы

[Mongol]

В конце скрипта замени пакет B2 на пакет эмоции.

[sguaj]

понял спасибо