L2PacketHack 3.5.x

[NLObP]

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

[alexteam]

/me уволен.

[xkor]

alexteam, ээ, как уволен, а кто дальше будет модернизацию проводить?, ну или хоть исправление ошибок?)
ЗЫ ваше заявление об увольнении было отклонено)

[LunaticCalm]

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

при чем тут експлорер ?
//QaK:Потому, что гладиолус =)

просто не первая прога, которая начинает выдавать "финты ушами" после обновления до 8-го эксплорера

[Yegor]

IExplorer и винда неразрывное целое, понятно что при его обновлении было так же заменено куча системных библиотек, так что я верю в косяки из за него.

[NLObP]

Revision: 141
Author: nlobp
Date: 6:19:11, 9 августа 2009 г.
Message:
[*] правка кода работы с путями к логам и скриптам;
[*] правка кода обновления из *.ini;
[*] правка некоторых пакетов под Gracia Final в packetsT1.ini;

[alexteam]

в uScripts.pas > procedure TfScript.RefreshScripts;
ты закоментировал кусок кода, тем самым порядок выполненя скриптов не будет восстановлен.
да, там есть проблема когда скрипт запускаеться но не отмечается галочкой.
достаточно было закоментировать вот это

            if Options.ReadBool('scripts','checked'+inttostr(i), false) then
                newScript.ListItem.Checked := true;

или, разобратся почему тестинит производится а галочкой не отмечается в
procedure TfScript.ListViewWindowProcEx(var Message: TMessage);

[NLObP]

alexteam, гляну сейчас, что то не помню, чтобы я там правил. =)

[alexteam]

http://l2phx.pp.ru/wsvn/blame.php?re...pas&rev=0&sc=0
Строки 151 - 167

[NLObP]

alexteam, виноват, забыл расскоментить. Искал причину медленного обновления списка скриптов (1 - 2 минуты весь список составляет, при наличии порядка 20 -30 скриптов, может и вообще весь список не показать).

[alexteam]

Вообще по задумке, "сохранить порядок" сохраняет не только порядок а и состояние "отмечен"
правда как то коряво это состояние "отмечен" восстанавливает.... компилирует, запускает инит но скрипт не отмечает к исполнению..

именно компилирование и запуск скрипта составляющие этой 2х минутной задержки.

починить бы его -)

Добавлено через 1 минуту
если не хочешь напрягаться - заремарь

if Options.ReadBool('scripts','checked'+inttostr(i), false) then
newScript.ListItem.Checked := true;