I will get my new psp in the end of this month, hope it would be 1.5 :\
Here is the code:
Code: Select all
-- Ngel V1.0 Menu Test !
green = Color.new(0, 255, 0)
select = 10
icon = Image.load("icon.png")
function delay(delay)
for i = 1,delay do
end
end
function choice(cho)
screen:clear()
if cho == 1 then
screen:print(200, 200, "Option 1", green)
end
if cho == 2 then
screen:print(200, 200, "Option 2", green)
end
if cho == 3 then
screen:print(200, 200, "Option 3", green)
end
makemenu("0")
end
function makemenu(place)
if place == "down" then
if select < 70 then
select = select +30
screen:clear()
end
elseif place == "up" then
if select > 10 then
select = select - 30
screen:clear()
end
end
screen:print(200, 10, "Option 1", green)
screen:print(200, 40, "Option 2", green)
screen:print(200, 70, "Option 3", green)
screen:blit(177, select-6, icon)
screen.flip()
screen.waitVblankStart()
end
makemenu()
while true do
pad = Controls.read()
if pad:down() then
makemenu("down")
delay("9199900")
end
if pad:up() then
makemenu("up")
delay("9199900")
end
if pad:start() then
break
end
if pad:select() then
if select == 10 then
choice(1)
delay("9199900")
end
if select ==40 then
choice(2)
delay("9199900")
end
if select ==70 then
choice(3)
delay("9199900")
end
end
end
fixed the problem!