--[[Color del nombre de MSN Ad-Hoc
Por NEKERAFA y parte del codigo del splashlib y de win7]]--
 
--Screens/Pantallas--
img1 = Image.load("./System/Img/color.png")--Pantalla--
mouse = Image.load("./System/Img/raton.png")--Raton--
 
--Funciones y librerias--
function ReadName()
    name = io.open("./System/LocalDiscMSN/Settings/name.stg", "r")
    read = name:read()
    name:close()
end
 
function Credits()
   	dofile("./creditos.lua")
end
 
 
function LeerPulsacion()
    x0 = 235
 
    y0 = 150
 
    x1 = 0
 
    y1 = 0
 
    pad = Controls.read()
 
    x1 = x0
 
    y1 = y0
 
    dy = pad:analogY()
 
    dx = pad:analogX()
 
    if math.abs(dx) > 64 then
 
      x0 = x0 + dx / 24
 
    end
 
    if math.abs(dy) > 64 then
 
      y0 = y0 + dy / 24
 
    end
 
    if pad:up() then
 
      y0 = y0 - 8
 
    end
 
    if pad:down() then
 
      y0 = y0 + 8
 
    end
 
    if pad:right() then
 
      x0 = x0 + 8
 
    end
 
    if pad:left() then
 
      x0 = x0 - 8
 
    end
 
end
--********Bucle********--
while true do
    --inicia libreria--
    dofile ("./System/LocalDiscMSN/Lib/libdesktop.lua")
    --imprime en pantalla--	
    dofile ("./System/LocalDiscMSN/Settings/colornick.lua")
    screen:blit(0,0,img1)
    ReadName()
    screen:fontPrint( regular, 123, 73, ""..read.."", colornombre)
    screen:fontPrint( regular, 10, 250, "1.2v", verdeclaro)
 
    LeerPulsacion()
    --********Desktop********--
    --Amarillo--
    if x0 >= 92 and x0 <= 132 and y0 >= 90 and y0 <= 130 and pad:cross() then
        colora = io.open("./System/LocalDiscMSN/Settings/colornick.lua", "w+")
        colora:write("colornombre = Color.new(255,255,0)")
        colora:close()
    end
    --Rosa--
    if x0 >= 222 and x0 <= 262 and y0 >= 90 and y0 <= 130 and pad:cross() then
        colorrs = io.open("./System/LocalDiscMSN/Settings/colornick.lua", "w+")
        colorrs:write("colornombre = Color.new(255,0,255)")
        colorrs:close()
    end
    --Blanco--
    if x0 >= 351 and x0 <= 391 and y0 >= 90 and y0 <= 130 and pad:cross() then
        colorb = io.open("./System/LocalDiscMSN/Settings/colornick.lua", "w+")
        colorb:write("colornombre = Color.new(255,255,225)")
        colorb:close()
    end
    --Verde--
    if x0 >= 92 and x0 <= 132 and y0 >= 160 and y0 <= 200 and pad:cross() then
        colorv = io.open("./System/LocalDiscMSN/Settings/colornick.lua", "w+")
        colorv:write("colornombre = Color.new(114,224,110")
        colorv:close()
    end
    --Rojo--
    if x0 >= 222 and x0 <= 262 and y0 >= 160 and y0 <= 200 and pad:cross() then
        colorrj = io.open("./System/LocalDiscMSN/Settings/colornick.lua", "w+")
        colorrj:write("colornombre = Color.new(255,200,200)")
        colorrj:close()
    end
    --Azul--
    if x0 >= 351 and x0 <= 391 and y0 >= 160 and y0 <= 200 and pad:cross() then
        coloraz = io.open("./System/LocalDiscMSN/Settings/colornick.lua", "w+")
        coloraz:write("colornombre = Color.new(0,255,255)")
        coloraz:close()
    end
    --Creditos--
    if x0 >= 386 and x0 <= 476 and y0 >= 58 and y0 <= 76 and pad:cross() then
        Credits()
    end
    screen:blit(x1, y1, mouse)
 
    screen.waitVblankStart()
 
    screen.flip()
end