-
Число публикаций
197 -
Регистрация
-
Последнее посещение
-
Дней в топе
1 -
AMKoin
1,760 [Подарить AMKoin]
Закладки
-
Universal ACDC и другие perl-скрипты
Universal ACDC и другие perl-скрипты1 час назад, NuclearOZ сказал:распаковать all.spawn от Anomaly 1.5.1
Пытался, даже почти получилось. Правда, пришлось дописать один из perl-скриптов, потому что ACDC "из коробки" ругался на некоторые секции спавна. В папке stkutils, что скачивается из шапки данной темы, есть файл data_packet.pm, почти в самом конце этого файла имеется функция (или процедура? - в Perl'е не разбираюсь от слова "совсем") error_handled, имеющая блоки обработки "нестандартных" секций. В самый конец функции, перед инструкцией fail("unhandled exception\n") я дописал следующий код:
($template eq 'C') && (ref($container) eq 'se_zone_anom') && $container->{version} == 128 && $container->{script_version} == 12 && do { print "unpacking spawn of Anomaly, huh? OK...\n"; bless $container, 'cse_alife_anomalous_zone'; $container->{ini}->{sections_hash}{'sections'}{"'$container->{section_name}'"} = 'cse_alife_anomalous_zone' if defined $container->{ini}; $container->{flags} |= FL_HANDLED; last; };
И - вуаля! - спавн начал распаковываться, правда, не совсем корректно, но начал. Думаю, аналогичным образом нужно обработать и другие секции, на которые ругается распаковщик. У меня пока нет желания в этом разбираться, но порыться в этом направлении стоит.