KINGx - Das inoffizielle PlayStation Forum & News Portal

black = Color.new(0,0,0)
white = Color.new(255,255,255)
blue = Color.new(0,255,0)
bg = Image.load("img/menu.png")


current = 1
while true do
pad = Controls.read()
screen:clear()
screen:blit(0,0,bg)

if current == 1 then
screen:clear()
screen:blit(0,0,bg)
screen:fontPrint(font,100,90,"Text erstellen", blue)
screen:fontPrint(font,100,130,"Text laden", black)
screen:fontPrint(font,100,175,"Einstelungen", black)
screen:fontPrint(font,100,220,"Credits", black)
screen:fontPrint(font,100,265,"Exit", black)
end
if current == 2 then
screen:clear()
screen:blit(0,0,bg)
screen:fontPrint(font,100,90,"Text erstellen", black)
screen:fontPrint(font,100,130,"Text laden", blue)
screen:fontPrint(font,100,175,"Einstelungen", black)
screen:fontPrint(font,100,220,"Credits", black)
screen:fontPrint(font,100,265,"Exit", black)
end
if current == 3 then
screen:clear()
screen:blit(0,0,bg)
screen:fontPrint(font,100,90,"Text erstellen", black)
screen:fontPrint(font,100,130,"Text laden", black)
screen:fontPrint(font,100,175,"Einstelungen", blue)
screen:fontPrint(font,100,220,"Credits", black)
screen:fontPrint(font,100,265,"Exit", black)
end
if current == 4 then
screen:clear()
screen:blit(0,0,bg)
screen:fontPrint(font,100,90,"Text erstellen", black)
screen:fontPrint(font,100,130,"Text laden", black)
screen:fontPrint(font,100,175,"Einstelungen", black)
screen:fontPrint(font,100,220,"Credits", blue)
screen:fontPrint(font,100,265,"Exit", black)
end
if current == 5 then
screen:clear()
screen:blit(0,0,bg)
screen:fontPrint(font,100,90,"Text erstellen", black)
screen:fontPrint(font,100,130,"Text laden", black)
screen:fontPrint(font,100,175,"Einstelungen", black)
screen:fontPrint(font,100,220,"Credits", black)
screen:fontPrint(font,100,265,"Exit", blue)
end

if pad:up() and oldpad:up() ~= pad:up() then
current = current - 1
end
if padown() and oldpadown() ~= padown() then
current = current + 1
end

if current == 6 then
current = 1
end

if current == 0 then
current = 5
end

if pad:cross() and current == 1 then
dofile("Text erstellen.lua")
end
if pad:cross() and current == 2 then
dofile("Text laden.lua")
end
if pad:cross() and current == 3 then
dofile("Einstellungen.lua")
end
if pad:cross() and current == 4 then
dofile("credits.lua")
end
if pad:cross() and current == 5 then
System.Quit()
end

screen.waitVblankStart()
screen.flip()
oldpad = pad
end

black = Color.new(0,0,0)
white = Color.new(255,255,255)
blue = Color.new(0,0,255)
bg = Image.load("img/Einstellungen.png")

while true do
pad = Controls.read()
screen:clear()
screen:blit(0,0,bg)

if pad:circle() then
dofile("main.lua")
end

screen.waitVblankStart()
screen.flip()
oldpad = pad
end

black = Color.new(0,0,0)
white = Color.new(255,255,255)
blue = Color.new(0,0,255)
bg = Image.load("img/credits.png")

while true do
pad = Controls.read()
screen:clear()
screen:blit(0,0,bg)

if pad:circle() then
dofile("main.lua")
end

screen.waitVblankStart()
screen.flip()
oldpad = pad
end

System.listDirectory("ms0:/")

while true do
pad = Controls.read()
screen:clear()
screen:blit(0,0,bg)

if pad:up() and oldpad:up() ~= pad:up() then
current = current - 1
end
if padown() and oldpadown() ~= padown() then
current = current + 1
end

if current == 6 then
current = 1
end

if current == 0 then
current = 5
end

if pad:circle() then
dofile("main.lua")
end

if padad:cross() then
io.open()
end

screen.waitVblankStart()
screen.flip()
oldpad = pad
end

-- Farbe weiß
white = Color.new(255,255,255)

-- Schrift größe
big = Font.createProportional()
big:setPixelSizes(35,0)

-- Main Code ( hier kannst du zb. auch die Bilder für dein Main script laden, ZB den BG für das Menü, dazu einfach Image.load("") irgendwo in diesen code teilen einbauen
screen:clear()
in0 = Image.load("In/1.png")
screen:blit(0,0,in0,true)
screen:fontPrint(big,100,50,"Starte psptexteditor", white)
screen.flip()
screen.waitVblankStart(0)
-- löscht die bilder 1-6 aus den RAM
in1 = nil
collectgarbage()
-- Ladet das Main script, das nach dem Lade balken ausgeführt werden soll
dofile("main.lua")

txt.createEmpty(480,272)

while true do
pad = Controls.read()
screen:clear()
screen:blit(0,0,bg)

if pad:cross() then
System.startOSK() Displays the On screen Keyboard. Eg outputtxt = System.startOSK() screenrint(1,1,outputtxt,red)
end

if pad:start() then
screen:save("mso/psp/game/Psptext editor/texte")
end

if pad:circle() then
dofile("main.lua")
end

screen.waitVblankStart()
screen.flip()
oldpad = pad
end