ReincarnationTools/Test_LoadAccessories.ms at master · TheAlexDarby/ReincarnationTools · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
fn TestAllAccessories datafolder = (
	local accessoryFolders = getDirectories (datafolder+"Accessories\\*")
	accessoryFolders = accessoryFolders + (getDirectories (datafolder+"Pickups\\*"))
	accessoryFolders = accessoryFolders + (getDirectories (datafolder+"Peds\\props\\*"))
	local levelFolders = getDirectories (datafolder+"Levels\\*")
	for levelFolder in levelFolders do (
		accessoryFolders = accessoryFolders + (getDirectories (levelFolder+"Accessories\\*"))
	)

	for accessoryFolder in accessoryFolders do (
		splitPath = (filterstring accessoryFolder "\\")
		accessoryName = splitPath[splitPath.count]
		accessory=AccessoryFileLump()
		accessory.Read (accessoryFolder+"accessory.txt")
		--format "Parsed % with % customblocks and % dyamicsblocks\n" accessoryName accessory.CustomBlocks.count accessory.DynamicsBlocks.count
	)
)