кто-нить знает как конвертировать скрипт для 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

[NLObP]

Что должен делать этот скрипт?

[happy_horror]

уважаемый, а зачем вам переделывать скрипт ВП в скрипт l2phx?? ВП гораздо удобнее и функциональнее пакетхака, фактически ВП это l2phx с кучей дополнительных возможностей...


я вообще пишу скрипты для ВП, имел как-то дело с той прогой, на которую вы хотите конвертить и однозначно могу вам сказать - некоторых аналогов представленных функций в l2phx для конвертации из ВП просто нет...

если интересуют качественные скрипты ВП, то на всякий случай могу предложить моё объявление тут -

_http://allcheats.ru/t93862/

[Faeton]

Скрипт не рабочий и не правильный зачем его переделывать ?

[stirena]

я непонимаю этот синтаксис

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.

и так вочти в каждой строчке

[Faeton]

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

я непонимаю этот синтаксис

и так вочти в каждой строчке

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