кто-нить знает как конвертировать скрипт для wpf в скрипт l2phx

[stirena]

Вот простой скрипт для wpf

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