Error: ./color.lua:62: attempt to index global 'Color'(a function value9
Press start to restart

--[[color del nombre de MSN Ad-Hoc
26, vie, feb 2010, 13:26:20]]--
 
--Screens/Pantallas--
img1 = Image.load("./System/Img/color1.png")--Pantalla 1--
img2 = Image.load("./System/Img/color2.png")--Pantalla 2--
 
 
function ReadColorR()
    color = io.open("./System/LocalDiscMSN/Settings/colorR.stg", "r")
    readR = color:read()
    color:close()
end
function SaveColorR()
    color = io.open("./System/LocalDiscMSN/Settings/colorR.stg", "w+")
    color:write(teclado)
    color:close()
end
 
ReadColorR()
teclado = System.startOSK(""..readR.."","Valor Rojo 0 - 255\nMSN Ad-Hoc 1.2v")
SaveColorR()
 
function ReadColorG()
    color = io.open("./System/LocalDiscMSN/Settings/colorG.stg", "r")
    readG = color:read()
    color:close()
end
 
function SaveColorG()
    color = io.open("./System/LocalDiscMSN/Settings/colorG.stg", "w+")
    color:write(teclado)
    color:close()
end
 
ReadColorG()
teclado = System.startOSK(""..readG.."","Valor Verde 0 - 255\nMSN Ad-Hoc 1.2v")
SaveColorG()
 
function ReadColorB()
    color = io.open("./System/LocalDiscMSN/Settings/colorB.stg", "r")
    readB = color:read()
    color:close()
end
 
function SaveColorB()
    color = io.open("./System/LocalDiscMSN/Settings/colorB.stg", "w+")
    color:write(teclado)
    color:close()
end
 
ReadColorB()
teclado = System.startOSK(""..readB.."","Valor Azul 0 - 255\nMSN Ad-Hoc 1.2v")
SaveColorB()
 
 
estado = 1
function ShowImg1()
	ReadColorR()
	ReadColorG()
	ReadColorB()
    color = Color.new (readR,readG,readB)
    ReadName()
    screen:clear()
    screen:blit(0,0,img1)
    screen:fontPrint( regular, 78, 147, ""..read.."", color )
    screen:fontPrint( regular, 10, 250, "1.2v", verdeclaro )
    screen:flip()
end
 
function ShowImg2()
	ReadColorR()
	ReadColorG()
	ReadColorB()
    color = Color.new (readR,readG,readB)
    ReadName()
    screen:clear()
    screen:blit(0,0,img2)
    screen:fontPrint( regular, 78, 147, ""..read.."", color )
    screen:fontPrint( regular, 10, 250, "1.2v", verdeclaro )
    screen:flip()
end
 
function Credits()
   	dofile("./creditos.lua")
end
 
--Menu--
while true do
    pad = Controls.read()
    if estado == 1  then
        ShowImg1()
    end
    if estado == 2 then
        ShowImg2()
    end
    if pad:left() and oldpad:left() ~= pad:left() then
        estado = estado-1
    end
    if pad:right() and oldpad:right() ~= pad:right() then
        estado = estado+1
    end
    if estado == 3 then
        estado = 2
    end
    if estado == 0 then
        estado = 1
    end
    if pad:cross() and estado == 1 then
        dofile("./color.lua")
    end
    if pad:cross() and estado == 2 then
        ShowFond()
    end
    if estado == "inicio" then
    	Credits()
    end
end