Look for WPF-pro

[Суслиk]

Нужен человек который сможет состряпать маленький скрипт на ВПФ, примерно такой:

if = клиент отправил пакет такой-то - отправить N-е кол-во раз пакет такой-то + такой-то. Или хотя б вторую часть

[Leo_ня]

Как-то так. Пробуй.

var
   pack1,pack2 : string;

procedure OnCreate;                 //При инициализации скрипта
begin                               //Установить значения
     pack1:=HStr('FFFF000000FFFF'); //первого
     pack2:=HStr('0000FFFFFF0000'); //и второго пакета
end;

begin
if (not _gFromServ) and (gInt(_gBuff,0,2)=$2020) then begin  //Если пакет отправлен серверу 
                    // и ID пакета (первые два байта с начала) равны 0x2020,
   gSys.SendS(pack1);                 //то отправить серверу первый пакет,
   gSys.SendS(pack2);                 //отправить второй пакет
   end;
end

[Суслиk]

Цитата: Сообщение от Leo_ня Как-то так. Пробуй. var pack1,pack2 : string; procedure OnCreate; //При инициализации скрипта begin //Установить значения pack1:=HStr('FFFF000000FFFF'); //первого pack2:=HStr('0000FFFFFF0000'); //и второго пакета end; begin if (not _gFromServ) and (gInt(_gBuff,0,2)=$2020) then begin //Если пакет отправлен серверу // и ID пакета (первые два байта с начала) равны 0x2020, gSys.SendS(pack1); //то отправить серверу первый пакет, gSys.SendS(pack2); //отправить второй пакет end; end

I will try

if (not _gFromServ) and (gInt(_gBuff,0,2)=$2020) then begin //Если пакет отправлен серверу
// и ID пакета (первые два байта с начала) равны 0x2020,
можно тут поподробнее?