Замена прочитанным значением!

[pmen]

Привет! Вот у меня такая проблемка! Как мне #$8A#$7D#$2A#$10 заменить прочитанный значением a:=ReadD(2);


var
// переменная
a:integer; b:boolean;
procedure Init; //Вызывается при включении скрипта
begin
SendMsc('Возьми себя в таргет');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then
begin
a:=ReadD(2);
SendMsc('Запомнен ObjectID = '+inttostr(a));
b:=true;
end;
end;
Begin
If fromclient and (pck=#$38#$2E#$00#$6F#$00#$6C#$00#$79#$00#$6D#$00# $70#$00#$69#$00#$61#$00#$64#$00#$00#$00#$00#$00#$0 0#$00) then
begin
buf:=#$28#$8A#$7D#$2A#$10#$F0#$29#$FE#$FF#$C9#$90# $FC#$FF#$02#$F3#$FF#$FF; //TeleportToLocation
SendToClient;
end;
end;
end.

[Grinch]

сформулируй по человечески я ни хрена не понял что ты хочешь, если обмануть сервер то это сугубо твои личные проблемы и проблемы администрации, в случае успеха твоего, данного кривого сервера...

[pmen]

Кто-то помогите!!! ОЧень надо!

[NLObP]

buf:=#$28#$8A#$7D#$2A#$10#$F0#$29#$FE#$FF#$C9#$90# $FC#$FF#$02#$F3#$FF#$FF; //TeleportToLocation

можно заменить на
buf:=#$28;
WriteD(a);
buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;

[pmen]

Спасибо огромное))!;)