StepMania5.0 Alpha1でジャケットとCDを読み込ませる

!このコードは Lua です!
song:GetJacketPath() ⇒ GetJacketPath_a1(song)
song:HasJacket() ⇒ HasJacket_a1(song)
song:GetCDImagePath() ⇒ GetCDImagePath_a1(song)
song:HasCDImage() ⇒ HasCDImage_a1(song)
Scriptsフォルダに適当にLuaファイルを新規作成し
このコードをコピペすると、グローバル関数として登録されます。

!このコードは Lua です!
song:GetJacketPath() ⇒ GetJacketPath_a1(song)
song:HasJacket() ⇒ HasJacket_a1(song)
song:GetCDImagePath() ⇒ GetCDImagePath_a1(song)
song:HasCDImage() ⇒ HasCDImage_a1(song)
Scriptsフォルダに適当にLuaファイルを新規作成し
このコードをコピペすると、グローバル関数として登録されます。

function GetJacketPath_a1(song)
	local f={};
	local ret="";
	f=FILEMAN:GetDirListing(song:GetSongDir());
	for i=1,#f do
		if string.find(f[i],".*jacket.*[png$jpeg$jpg$gif$bmp$avi$mpg$mpeg]") then
			if FILEMAN:DoesFileExist(song:GetSongDir().."/"..f[i]) then
				ret=song:GetSongDir().."/"..f[i];
				return ret;
			else
				ret="";
			end;
		end;
	end;
	return ret;
end;

function HasJacket_a1(song)
	local f={};
	local ret="";
	f=FILEMAN:GetDirListing(song:GetSongDir());
	for i=1,#f do
		if string.find(f[i],".*jacket.*[png$jpeg$jpg$gif$bmp$avi$mpg$mpeg]") then
			if FILEMAN:DoesFileExist(song:GetSongDir().."/"..f[i]) then
				return true;
			end;
		end;
	end;
	return false;
end;

function GetCDImagePath_a1(song)
	local f={};
	local ret="";
	f=FILEMAN:GetDirListing(song:GetSongDir());
	for i=1,#f do
		if string.find(f[i],".+cd.?[png$jpeg$jpg$gif$bmp$avi$mpg$mpeg]") then
			if FILEMAN:DoesFileExist(song:GetSongDir().."/"..f[i]) then
				ret=song:GetSongDir().."/"..f[i];
				return ret;
			else
				ret="";
			end;
		end;
	end;
	return ret;
end;

function HasCDImage_a1(song)
	local f={};
	local ret="";
	f=FILEMAN:GetDirListing(song:GetSongDir());
	for i=1,#f do
		if string.find(f[i],".+cd.?[png$jpeg$jpg$gif$bmp$avi$mpg$mpeg]") then
			if FILEMAN:DoesFileExist(song:GetSongDir().."/"..f[i]) then
				return true;
			end;
		end;
	end;
	return false;
end;