Вот простой скрипт для wpf
delphi Код:
var
k:Integer;
IsBot:boolean;
Procedure OnCreate;
begin
k:=1;
end;
BEGIN
if _gAbsNumPkt = 1 then
if StrCmp(copy(_gBuff,length(_gBuff)-3,4),HStr('00 00 00 00')) then IsBot:=true
else IsBot:=false;
if IsBot then begin
if (not _gFromServ) and StrCmp( copy(_gBuff,1,2), HStr('13 00')) then
_gOutBuff:=HStr('13 00 CB')+FStr(16);
if (not _gFromServ) and StrCmp( copy(_gBuff,1,2), HStr('05 00')) then begin
if k=1 then begin
_gOutBuff:=HStr('0500D00100');
k:=2;
end
else _gOutBuff:=HStr('0500D02100');
end;
if (not _gFromServ) and StrCmp( copy(_gBuff,1,2), HStr('6B 00')) then begin
_gOutBuff:=HStr('6B 00 11')+copy(_gBuff,4,length(_gBuff)-3);
end;
case _gAbsNumPkt of
3:begin
_gOutBuff:=HStr('31 00 2B')+copy(_gBuff,4,length(_gBuff)-3)+FStr(49-length(_gBuff));
end;
end;
end;
END.
его надо переделать в скрипт для l2phx