--Función de doble confirmación por Arkanist en Lua PGE (18/8/09)
function doble_confirmacion()
local pulsado = false -- variable si se ha pulsado o no el primer "X"
	if pge.controls.pressed(PGE_CTRL_CROSS) then --si pulsamos el boton "X", pulsado será true
		pulsado = true -- activa el bucle
	end
while pulsado = true do -- empieza bucle si pulsado es true
 
	if pge.controls.pressed(PGE_CTRL_CROSS) then -- se comprueba si se vuelve a pulsar el botón X
		-- Aquí va la acción que se quiera hacer.
       elseif pge.controls.pressedany() then -- Sino se pulsó "X" pero se pulsa cualquier otro botón, pulsado será falso.
               pulsado = false -- se rompe el bucle
	end
 
end
end

-- Función de doble confirmación en Lua PGE, por Arkanist (17/8/09)
function doble_confirmacion()
local pulsado = false -- variable si se ha pulsado o no el primer "X"
local contador = pge.timer.create()-- se crea el contador
	if pge.controls.released(PGE_CTRL_CROSS) then --si soltamos el boton "X", pulsado será true
		pulsado = true -- activa el bucle
	end
while pulsado = true do -- empieza bucle si pulsado es true
contador:update() -- se reinicia el contador
local tiempo = contador:peekdelta() -- se crea una local para guardar el tiempo
	if pge.controls.pressed(PGE_CTRL_CROSS) then -- se comprueba si se vuelve a pulsar el botón X
		-- Aquí va la acción que se quiera hacer.
	end
	if tiempo > 1 then -- si tiempo llega a 1 segundo, se sale del bucle (puede ser un segundo, medio o lo que se quiera)
		pulsado = false	   -- se rompe el bucle
	end
end
end

oldpad = Controls.readpad
rojo = Color.new(255,0,0)
crosspulsada = 0
 
function pulsar2()
if pad:cross() and oldpad:cross() ~= pad:cross() then
crosspulsada = crosspulsada + 1
end
end
 
function consecuencia()
if crosspulsada == 2 then
screen:clear(rojo)
end
end
 
while true do
pad = Controls.read()
pulsar2()
consecuencia()
screen.waitVblankStart()
screen:flip()
oldpad = pad
end