Universal ACDC и другие perl-скрипты

[Italmas 2]

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;
		};

И - вуаля! - спавн начал распаковываться, правда, не совсем корректно, но начал. Думаю, аналогичным образом нужно обработать и другие секции, на которые ругается распаковщик. У меня пока нет желания в этом разбираться, но порыться в этом направлении стоит.

Изменено 26 Июля 2021 пользователем Italmas