-- EVILMANA.COM PSP LUA CODEBASE
-- www.evilmana.com/tutorials/codebase
-- Screenshot
-- SUBMITTED BY: Soulkiller

oldpad = Controls.read()
while true do
pad=Controls.read()
if pad:select() and pad:select() ~= oldpad:select() then screenshot("ms0:/PSP/PHOTO")
end
oldpad = pad
end

Code:
function screenshot(folder)
local directory = {}
local counter = 1
for index, file in System.listDirectory(folder) do
directory[counter] = file.name
counter = counter+1
end
local max = 0
for length = 1,table.getn(directory) do
for length2 = 1,table.getn(directory) do
if directory[length2] == "screenshot"..length..".png" then
max = length
end
end
end
max = max+1
screen:save(folder.."screenshot"..max..".png")
end