[Amon Ra]

Сообщение от Pahan

Народ помогите пожалуста. Надо переделать на прогу Саурона в FS
begin
if FromClient and (pck[1]=#$0F) then pck:=pck+#$01#$00#$00#$00;
end.

Вот что написал сам
begin
if (not _gFromServ) and StrCmp(copy(_gBuff,1,3), HStr('1F 00 0F')) then
_gOutBuff := _gBuff + #01+#00+#00+#00;
end.
Вообщем дело такое, меняет первый пакет а потом клиент перестаёт обращать внимание на команды, но в тоже время соединение не обрывается.

для wpf ppc вроде этот скрипт ?
скрипт из wpf650, а в публичном wpf655 его уже нету наверное забыли добавить

// demo_0F.fsc выправление пакета на движение на Камаель.
begin
  if length(_gBuff) < 3 then exit;
  if (not _gFromServ) and (_gBuff[3] = #$0F)  then begin
    _gOutBuff := _gBuff + HStr('01 00 00 00');
    _gOutBuff[1] :=  chr(ord(_gOutBuff[1])+4);
  end;
end.