Schau dir mal meine LUA Tuts an, habe da genau das erklärt.
Bildname = Image.load("./pics/bild2a.jpg")
white = Color.new(255,255,255)
black = Color.new(0,0,0)
red = Color.new(255, 0, 0)
green = Color.new(0, 255, 0)
blue = Color.new(0,0,255)
light_blue = Color.new(0,180,255)
orange = Color.new(235,115,0)
yellow = Color.new(255,255,0)
gray = Color.new(160,160,160)
punkte={}
punkte[1]="seite 3"
punkte[2]="Hauptseite"
punkte[3]="Geheim"
punkte[4]="beenden"
punkte[5]="Text on/off"
f={}
f[1]=function ()
dofile("seite3.lua")
end
f[2]=function ()
dofile("script.lua")
end
f[3]=function ()
while true do
screen:print(165,53, "Sie Leben!!!!", red)
screen:print(165,63, "Sie sehen Dich!!!!", red)
screen:print(165,73, "Doch AE und UE koennen sie nicht!", red)
pad =Controls.read()
if pad:cross() then
else
if pad:circle() then
dofile("seite2.lua")
end
end
screen.flip()
screen.waitVblankStart()
end
end
f[4]=function ()
System.Quit()
end
f[5]=function ()
while true do
screen:print(165,63,"Druecke X um einen Text einzublenden.", red)
screen:print(165,73,"Druecke O um zu beenden", red)
pad =Controls.read()
if pad:cross() then
screen:print(165,53,"Testen ob Button gehen", red)
else
if pad:circle() then
dofile("seite2.lua")
end
end
screen.flip()
screen.waitVblankStart()
end
end
current = 1
farbe={}
ypos=40
oldpad=Controls.read()
while true do
pad =Controls.read()
screen:clear()
screen:blit(0,0,Bildname)
if pad:up() and oldpad:up() ~= pad:up() then
current = current - 1
end
if pad:down() and oldpad:down() ~= pad:down() then
current = current + 1
end
if current > table.getn(punkte) then
current = 1
else if current<1 then
current=table.getn(punkte)
end
counterfarbe=0
while counterfarbe<current do
counterfarbe=counterfarbe+1
farbe[counterfarbe]=black
end
counterfarbe=current
while counterfarbe<table.getn(punkte) do
counterfarbe=counterfarbe+1
farbe[counterfarbe]=black
end
farbe[current]=red
counter=0
yposa=ypos
ypos=ypos+4
while counter<table.getn(punkte) do
counter=counter+1
screen:print(10,ypos,punkte[counter],farbe[counter])
ypos=ypos+15
end
if pad:cross() then
f[current]()
end
end
ypos=yposa
screen.flip()
screen.waitVblankStart()
oldpad=pad
end