Показать сообщение отдельно
Старый 20.09.2008, 21:59   #1
Пользователь
 
Регистрация: 08.08.2007
Адрес: гандурас
Сообщений: 20
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
stirena
По умолчанию кто-нить знает как конвертировать скрипт для wpf в скрипт l2phx

Вот простой скрипт для 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

Последний раз редактировалось QaK, 23.09.2008 в 08:49.
stirena вне форума   Ответить с цитированием