g_credits = {
"Production Director", 
"Miguel Guillen",
"Technical Director",
"Alberto Garcia-Baquero",
" ",
" ",
"Game Design",
"Miguel Guillen\\nCesar Rios",
" \\nProgramming",
" \\nBenjamin de la Fuente",
" ",
" ",
"Scripting",
"Juan Miguel Lopez",
"Graphic Design",
"Marco del Campo",
" ",
" ",
"Art",
"Emilio Dominguez\\nJuan Miguel Lopez",
" \\nAdditional art",
" \\nSamuel Suarez\\nErnesto Cabeza",
" ",
" ",
"Music and FX",
"Juan Canton",
"QA",
"Fabian Berti\\nPaul Marcu",
" ",
" ",
"Special thanks to",
"Carlos Escribano\\n... and all the Bravo team",
" ",
" ",
"www.bravogamestudios.com",
" ",
}

function backText()
	return { scale = 0.1, font = "fontTRN_fg.fnt", overlap = g_TextOverlap, text = g_Text.backButton, align = E_ALIGN_LEFT, layer = LF_PANELS+1}
end

function webText()
	return { scale = 0.1, font = "fontTRN_fg.fnt", overlap = g_TextOverlap, text = g_Text.webButton, align = E_ALIGN_LEFT, layer = LF_PANELS+1}
end

function creditsText(bForeGround)
	local fontStr = "fontTRN_bg.fnt"
	local layerFlag = LF_PANELS
	if bForeGround then
		fontStr = "fontTRN_fg.fnt"
		layerFlag = LF_PANELS + 1
	end
	return { scale = 0.15, font = fontStr, overlap = g_TextOverlap, text = g_Text.credits, align = E_ALIGN_LEFT, layer = layerFlag }
end

function productionsText(bForeGround)
	local fontStr = "fontTRN_bg.fnt"
	local layerFlag = LF_PANELS
	if bForeGround then
		fontStr = "fontTRN_fg.fnt"
		layerFlag = LF_PANELS + 1
	end
	return { scale = 0.09, font = fontStr, overlap = g_TextOverlap, text = g_Text.productions, align = E_ALIGN_LEFT, layer = layerFlag }
end

function mainTextYellow(bForeGround,_line)
	local fontStr = "fontTRN_bg.fnt"
	local layerFlag = LF_PANELS
	local aux = "line"
	if bForeGround then
		fontStr = "fontTRN_fg.fnt"
		layerFlag = LF_PANELS + 1
		aux = aux .. "_fg_"
	else
		aux = aux .. "_bg_"
	end
	return { scale = 0.075, font = fontStr, overlap = g_TextOverlap, text = g_credits[_line], name = aux .. _line, align = E_ALIGN_CENTER, layer = layerFlag }
end

function mainTextWhite(bForeGround,_line)
	local fontStr = "fontTRN_bg.fnt"
	local layerFlag = LF_PANELS
	local aux = "line"
	if bForeGround then
		fontStr = "fontTRN_fg.fnt"
		layerFlag = LF_PANELS + 1
		aux = aux .. "_fg_"
	else
		aux = aux .. "_bg_"
	end
	return { scale = 0.075, font = fontStr, overlap = g_TextOverlap, text = g_credits[_line], name = aux .. _line, align = E_ALIGN_CENTER, layer = layerFlag }
end

function drawLines(_line)
	if _line > table.getn(g_credits) then
		EnqueueTimeExecuteScript("drawLines(1)", 10)
		return
	end
	
	local aux_settexts = ""
	
	for	i=0, 5, 1	do
		local auxtext = ""
		if(_line + i <= table.getn(g_credits)) then
			auxtext = g_credits[_line + i]
		end
		aux_settexts = aux_settexts ..  [[SetText("line_bg_]] .. i + 1 .. [[", "]] .. auxtext .. [[")
		SetText("line_fg_]] .. i + 1 .. [[", "]] .. auxtext .. [[")
		]]
	end
	
	EnqueueExecuteScript("Credit_lines", aux_settexts .. [[
			if ExistsActor("Credit_lines") then 
				SetActorAnim("Credit_lines", { anim = "menu/credit_lines_screen.anm", loop = false, })
				drawLines(]] .. _line + 6 .. [[)
			end]])
end

DestroyActor("Menu")
CreateActor("ActorGeom", { name = "Background", model = "menu/credits_background.mesh", layer = LF_WORLD})
CreateActor("ActorGeom", { name = "Menu", model = "menu/credits.mesh", layer = LF_PANELS, touchable = true})
if(not ExistsActor("Fade")) then
	CreateActor("ActorGeom", { name = "Fade", model = "menu/fade_to_black.mesh", layer = LF_PANELS+4})
end
CreateActor("ActorGeom", { name = "Credit_lines", model = "menu/credit_lines.mesh", layer = LF_PANELS+1})
SetActorAnim("Menu", { anim = "menu/credits_start.anm", loop = false, })
SetActorAnim("Fade", { anim = "menu/fade_black_from_1_to_0.anm", loop = false, })

drawLines(1)