Lua Programming Help Thread

[Anti-QuickJay]

It will only work on the mod version, you should get an error, Unknown function or something like that.

[dsoft20]

I need to implement a simple highscore system in my game, but i don't know how i can do it. I have a idea in pseudocode :) the file must contain only one string :)

Start of program
-------------------------------

high=read("high.txt")

---------------------------------

function writescore()
-----------------------------------
if score>highscore then

write score in "high.txt"
high=read("high.txt")

end if
---------------------------------
thanks in advance

[Access_Denied]

I need to implement a simple highscore system in my game, but i don't know how i can do it. I have a idea in pseudocode :) the file must contain only one string :)

Start of program
-------------------------------

high=read("high.txt")

---------------------------------

function writescore()
-----------------------------------
if score>highscore then

write score in "high.txt"
high=read("high.txt")

end if
---------------------------------
thanks in advance

high = io.open("high.txt","r")
highscore = high:read()
high:close()

if score > highscore then
high = io.open("high.txt","w")
high:write(score)
high:close()
end

[dsoft20]

high = io.open("high.txt","r")
highscore = high:read()
high:close()

if score > highscore then
high = io.open("high.txt","w")
high:write(score)
high:close()
end

Thanks you :Jump:

[myschoo]

pls can anyone help me?
i want it, so when object1 is over the object2 and u press button, object2 will disappear...
what should i use? whats best? collision or...?



so the green one would disapper if i press button

[TacticalPenguin]

function checkclick(object)
 if pad:cross() and (object1.x > object.x) and (object1.x < object.x + object.w) and (object1.y >  object.y) and (object1.y < object.y + object.h) then
  return true
 else
  return false
 end
end
checkclick(object2)
if checkclick(object2) then
--insert your method of getting rid of object 2 here
end

[myschoo]

thx i will try it! :)

[TacticalPenguin]

Also, that method allows for object1 to simply be overtop of object2, they dont have to be perfectly lined up.

[myschoo]

yeh thats what im looking for

[Grimfate126]

function checkclick(object)
 if pad:cross() and (object1.x > object.x) and (object1.x < object.x + object.w) and (object1.y >  object.y) and (object1.y < object.y + object.h) then
  return true
 else
  return false
 end
end
checkclick(object2)
if checkclick(object2) then
--insert your method of getting rid of object 2 here
end

thats perfect, but it will be more efficient to do this:

function checkclick(object)
 if (object1.x > object.x) and (object1.x < object.x + object.w) and (object1.y >  object.y) and (object1.y < object.y + object.h) then
  return true
 else
  return false
 end
end

if pad:cross() then 
   if checkclick(object2) then
        --insert your method of getting rid of object 2 here
   end
end

that way it doesnt check for collision when youre not pressing the button, saving you some speed.

[the undead]

function checkclick(object)
 if pad:cross() and (object1.x > object.x) and (object1.x < object.x + object.w) and (object1.y >  object.y) and (object1.y < object.y + object.h) then
  return true
 else
  return false
 end
end
checkclick(object2)
if checkclick(object2) then
--insert your method of getting rid of object 2 here
end

that doesnt work you get this error

attempt to index global object <a nil value>

-= Double Post =-
a way you could do it instead of that way would be

function collisionCheck(object, object2)
if (object2.x + object2.width > object.x) and (object2.x < object.x + object.width) and (object2.y + object2.height > object.y) and (object2.y < object.y + object.height) then
return 1
end
end	
while true do

if pad:cross() and collisionCheck(Player, Enemy) then
--what you want it to do
end

screen.waitVblankStart()
screen.flip()
end

that way will work

[dracule]

My game is running kind of slow, I took out all looping functions that I could, took out everything that I could, and so now I am running out of ideas of what to get rid of... what else can i do? (I even set my psp to 333mhz but it still is slow)

[TacticalPenguin]

OPTIMIZATION! First of all, take all theimages you use that never even move and blit them to a buffer then blit the buffer. Thatll reduce the load from blitting less images.

[dracule]

well, most of my images are tiles, and they change... I only have 2 items that remain static.

also, is it best to have all your images on one file, or multiple files?

[the undead]

maybe after you blit the image's you could make them nil?

[dracule]

I downsized some of my image files (had some transparencies that I could crop) and now it works a little bit better. should i have alpha on or off for images?

[TacticalPenguin]

Iff the image has transparency in it, dont specify alpha. If it has no transparency, specify false.

[dracule]

will that speed anything up?
-= Double Post =-
Ill post some of my code (this is the code without the full AI, but it still runs slow)... the AI takes up some more room (400 more lines) so I just took out the bulk of it but there may still be some in there... I dont know if you can help me or not (mainly since who wants to read over a thousand lines of code?)

you might recognize this as Lumo's bomberman beta (some of his comments are still in there), he gave me permission to take it and make a full game out of it. Im going to go rewrite most of it, but first I need to get to the bottom of what is making my code so bad. just tell me what you think I could do to make it run faster...

Spoiler for Dracule's code:

freemovement=false

style = "ice"
Level={background="bg_fie ld2.png"}

if style=="" or style=="default" then
gfxstyle = "gfx_park_tiles.png"
else
gfxstyle = "gfx".."_"..style.."_tile s.png"
file = io.open(gfxstyle, "r")
io.close() -- cleanup
if not file then
gfxstyle="gfx_park_tiles. png"
end
end
dropage=true


images={
gfx_bombs = Image.load("gfx_bombs.png "), --192x32
gfx_tiles = Image.load(gfxstyle),
tiles = Image.load("tiles.png"),
gfx_p1 = Image.load("gfx_p1.png"),
gfx_p2 = Image.load("gfx_p2.png"),
level_border = Image.load("pow.png")
}

snd_explode = Sound.load('snd_explode.w av', false)
snd_laybomb = Sound.load('snd_laybomb.w av', false)


layer = {
background = Image.load(Level.backgrou nd),
map = Image.createEmpty(480, 272),
backpuffer = Image.createEmpty(480, 272),
explode = Image.createEmpty(480, 272)
}


maxSpeed = 10
score = 0
high = 0
movement = {p1={dx=0,dy=0,speedx=1,s peedy=1},p2={dx=0,dy=0,sp eedx=1,speedy=1}}

framecount = 0
singleplayer = false

gameOver = 'false'



down = 1
up = 2
right = 3
left = 4

check_coordinates = {
{{0, 16},{16,16}},
{{0, 0}, {16,0}},
{{16, 0}, {16,16}},
{{0, 0}, {0, 16}}
}
check_tiles = {
{0, 1},
{0, -1},
{1, 0},
{-1,0}
}


tile = {
grass = { x = 0, y = 0, cycle=8 },
solid = { x = 16, y = 0, cycle=8 },
wall = { x = 48, y = 0, cycle=8 },
breakingWall = {x=0,y=0,cycle=8},
bomb = { x = 0, y = 0, cycle=8 },
lawn = { x = 32, y = 0, cycle=8 },
bombexplode = { x = 0, y = 16, cycle=8 },
}
tile_p1_down = { x = 0, y = down*24-24, cycle=8 }
tile_p1_up = { x = 0, y = up*24-24, cycle=8 }
tile_p1_right = { x = 0, y = right*24-24, cycle=8 }
tile_p1_left = { x = 0, y = left*24-24, cycle=8 }

tile_p2_down = { x = 0, y = down*24-24, cycle=8 }
tile_p2_up = { x = 0, y = up*24-24, cycle=8 }
tile_p2_right = { x = 0, y = right*24-24, cycle=8 }
tile_p2_left = { x = 0, y = left*24-24, cycle=8 }

tile_p1 = {tile_p1_down, tile_p1_up, tile_p1_right, tile_p1_left}
tile_p2 = {tile_p2_down, tile_p2_up, tile_p2_right, tile_p2_left}

Level ={
x=8,
y=24,
usebackground=false,
background="pow.png",
style = "ice",
data= {
{0,0,0,2,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1 ,1,1,1,1},
{0,0,0,2,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,2,0,0,0,0,0,0,0,3, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{2,2,0,2,0,0,0,0,0,0,0,0, 0,1,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,3,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,1,0,0, 0,1,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,1,0, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,1, 0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,1,0,0,1,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,0,1,0,1,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,1,1,0,0,0,0,0,0,0,0 ,0,0,0,0},
{0,0,0,0,0,0,0,0,0,0,0,0, 0,1,1,1,1,0,0,0,0,0,0,0,0 ,0,0,0,0}
}
}

Startpos = {
p1 = {x=1,y=1},
p2 = {x=29,y=15}
}

LEVEL_TYPE = 'TIME'


GameType = {
TimePoints = {title='TimePoints', time=2, value=0 }, --in minutes
TimeKills = {title='TimeKills', time=2, value=0 }, --in minutes
Points = {title='Points', time=0, value=10},
Kills = {title='Kills', time=0, value=10}
}

player = {
p1={
x=Level.x+Startpos.p1.x*1 6-16, --the pos where the image starts --+8,+21 <-- the pos where bomberman actually stands
y=-14+Startpos.p1.y*16-16,
posx = Level.x+Startpos.p2.x*16-16,
posy = -14+Startpos.p2.x*16-16,
direction=down,
lastdirection=down,
speed=5,
tilex=Startpos.p1.x,
tiley=Startpos.p1.y,
flamelength=3,
hasbombs=3,
bombs={
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },{time=60,x=0,y=0,active =false,placed=false,frame =0},

{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },{time=60,x=0,y=0,active =false,placed=false,frame =0},

{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },{time=60,x=0,y=0,active =false,placed=false,frame =0},

{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 }},
visible=true,
undestroyable=false,
kills=0,
deaths=0,
suicide=0,
freeze=0
},
p2={
x=Level.x+28*16, --the pos where the image starts --+8,+21 <-- the pos where bomberman actually stands
y=Level.y+13*16-22,
posx = Level.x+Startpos.p2.x*16-16,
posy = -14+Startpos.p2.x*16-16,
direction=up,
lastdirection=up,
speed=5,
tilex=Startpos.p2.x,
tiley=Startpos.p2.y,
flamelength=3,
hasbombs=3,
bombs={
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },{time=60,x=0,y=0,active =false,placed=false,frame =0},

{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },{time=60,x=0,y=0,active =false,placed=false,frame =0},

{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },{time=60,x=0,y=0,active =false,placed=false,frame =0},

{time=60,x=0,y=0,active=f alse,placed=false,frame=0 },
{time=60,x=0,y=0,active=f alse,placed=false,frame=0 }},
visible=true,
undestroyable=false,
kills=0,
deaths=0,
suicide=0,
freeze=0
}

}

highscoreFile = "highscore.txt"

function transposeMatrix(matrix)
newMatrix = {}
for i = 1,table.getn(matrix[1]) do --1..17
table.insert( newMatrix, {} ) --adds a line
for j = 1,table.getn(matrix) do --1..17
table.insert( newMatrix[i], matrix[j][i] ) --change i|j
end
end
return newMatrix
end

function drawMap()
layer.map:clear()
for i=0,table.getn(Level.data )-1 do --15lines
for j=0,table.getn(Level.data[1])-1 do --29tiles
if Level.data[i+1][j+1]<0 then --empty; -1 = kill
--layer.map:fillRect(Level. x+i*16, Level.y+j*16, 16, 16, Color.new(0,0,255))
elseif Level.data[i+1][j+1]==0 then --empty; -1 = kill
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.grass.x, 0, 16, 16, true)
elseif Level.data[i+1][j+1] == 1 then--solid
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.grass.x, 0, 16, 16, true)
-- wall may have some trans-parts so draw the floor below
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.solid.x, 0, 16, 16, true)
elseif Level.data[i+1][j+1] == 2 then--wall
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.grass.x, 0, 16, 16, true)
-- wall may have some trans-parts so draw the floor below
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.wall.x, 0, 16, 16, true)
elseif Level.data[i+1][j+1] == 3 then
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.grass.x, 0, 16, 16, true)
-- wall may have some trans-parts so draw the floor below
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.lawn.x, 0, 16, 16, true)
else --sprite or player
layer.map:blit(Level.x+i* 16, Level.y+j*16, images.tiles, tile.grass.x, 0, 16, 16, true)
--sprites
end
end
end
if not Level.usebackground then
layer.map:blit(0, 0, images.level_border, 0, 0, images.level_border:width (), images.level_border:heigh t(), true)
end
end


function drawStats()
screen:blit(2,2, images.gfx_p1, 0, 0, 16, 12, true)
screenrint(25,4,'D:'..player.p1 .deaths..' S:'..player.p1.suicide..' K:'..player.p1.kills,Colo r.new(255,0,0))

screen:blit(462,2, images.gfx_p2, 0, 0, 16, 12, true)
screenrint(370,4,'D:'..player.p 2.deaths..' S:'..player.p2.suicide..' K:'..player.p2.kills,Colo r.new(255,0,0))

end


function drawSprites()
drawBombs()
drawBreakingWall()
end


function drawBreakingWall()
for i=0,table.getn(Level.data )-1 do --15 tiles
for j=0,table.getn(Level.data[1])-1 do --17 tiles
if Level.data[i+1][j+1] >= 100 then--wall-breaking
curframe=Level.data[i+1][j+1]

layer.backpuffer:blit(Lev el.x+i*16, Level.y+j*16, images.gfx_tiles, tile.breakingWall.x+math. mod(curframe,10)*16,

tile.breakingWall.y, 16, 16, true)

if curframe<108 then
Level.data[i+1][j+1]=curframe+1
else
Level.data[i+1][j+1]=3 --its an empty block now
end
end
end
end
end


function drawPlayers()

if player.p1.move and player.p1.visible then
layer.backpuffer:blit(pla yer.p1.x, Level.y+player.p1.y, images.gfx_p1, tile_p1[player.p1.direction].x+math.mod(framecount,ti le_p1

[player.p1.direction].cycle)*16, tile_p1[player.p1.direction].y, 16, 24, true)
elseif player.p1.visible then --show it standing
layer.backpuffer:blit(pla yer.p1.x, Level.y+player.p1.y, images.gfx_p1, tile_p1[player.p1.direction].x, tile_p1[player.p1.direction].y, 16,

24, true)
end
if not singleplayer then
if player.p2.move and player.p2.visible then
layer.backpuffer:blit(pla yer.p2.x, Level.y+player.p2.y, images.gfx_p2, tile_p2[player.p2.direction].x+math.mod(framecount,ti le_p2

[player.p2.direction].cycle)*16, tile_p2[player.p2.direction].y, 16, 24, true)
elseif player.p2.visible then --show it standing
layer.backpuffer:blit(pla yer.p2.x, Level.y+player.p2.y, images.gfx_p2, tile_p2[player.p2.direction].x, tile_p2

[player.p2.direction].y, 16, 24, true)
end
end
end

function getBombCount(local_player )
count=0
for i=1,10 do

if local_player.bombs[i].placed then
count=count+1
end
end
return count
end


function playerDropBomb(local_play er)

bombx=local_player.tilex
bomby=local_player.tiley
addednewbomb = false
if (local_player.hasbombs > getBombCount(local_player )) and (Level.data[bombx][bomby]==0 or Level.data[bombx][bomby]==3) then -- player has more

bombs than already on field
snd_laybomblay()

for i=1,local_player.hasbombs do
if (not local_player.bombs[i].placed) and (not addednewbomb) then --and (not local_player.bombs[i].active) and (not addednewbomb)

then

Level.data[bombx][bomby] = 11
local_player.bombs[i].x = bombx
local_player.bombs[i].y = bomby
local_player.bombs[i].placed=true
local_player.bombs[i].frame=0
addednewbomb=true

end
end
end
end


function drawBombs()
layer.explode:clear()
for i=1,10 do
if player.p1.bombs[i].placed then
player.p1.bombs[i].time=player.p1.bombs[i].time-1
end

if player.p1.bombs[i].placed and player.p1.bombs[i].time>0 then --and not player.p1.bombs[i].active then

layer.backpuffer:blit(Lev el.x+player.p1.bombs[i].x*16-16, Level.y+player.p1.bombs[i].y*16-16, images.gfx_bombs, tile.bomb.x+math.mod

(framecount,tile.bomb.cyc le)*16, tile.bomb.y, 16, 16, true)

elseif player.p1.bombs[i].time<=0 then -- or player.p1.bombs[i].active
if Level.data[player.p1.bombs[i].x][player.p1.bombs[i].y]~=-1 then
Level.data[player.p1.bombs[i].x][player.p1.bombs[i].y]=-1 --set it to KILL

end

explode(player.p1.bombs[i].x,player.p1.bombs[i].y,player.p1.bombs[i].frame)
player.p1.bombs[i].frame=player.p1.bombs[i].frame+1

if player.p1.bombs[i].time==0 then -- play sound only once!
snd_explodelay() --play the boom sound
end
flame(player.p1,i,0,-1) --up!
flame(player.p1,i,0,1) --down!
flame(player.p1,i,-1,0) --left!
flame(player.p1,i,1,0) --right!


if player.p1.bombs[i].time<-9 then --its over reset the bomb

Level.data[player.p1.bombs[i].x][player.p1.bombs[i].y]=0
resetBomb(i, player.p1)
end
end
end
if not singleplayer then
for i=1,10 do
if player.p2.bombs[i].placed then
player.p2.bombs[i].time=player.p2.bombs[i].time-1
end

if player.p2.bombs[i].placed and player.p2.bombs[i].time>0 then --and not player.p1.bombs[i].active then

layer.backpuffer:blit(Lev el.x+player.p2.bombs[i].x*16-16, Level.y+player.p2.bombs[i].y*16-16, images.gfx_bombs,

tile.bomb.x+math.mod(fram ecount,tile.bomb.cycle)*1 6, tile.bomb.y, 16, 16, true)


elseif player.p2.bombs[i].time<=0 then -- or player.p2.bombs[i].active
if Level.data[player.p2.bombs[i].x][player.p2.bombs[i].y]~=-2 then
Level.data[player.p2.bombs[i].x][player.p2.bombs[i].y]=-2 --set it to KILL

end

explode(player.p2.bombs[i].x,player.p2.bombs[i].y,player.p2.bombs[i].frame)
player.p2.bombs[i].frame=player.p2.bombs[i].frame+1

if player.p2.bombs[i].time==0 then -- play sound only once!
snd_explodelay() --play the boom sound
end
flame(player.p2,i,0,-1) --up!
flame(player.p2,i,0,1) --down!
flame(player.p2,i,-1,0) --left!
flame(player.p2,i,1,0) --right!


if player.p2.bombs[i].time<-9 then --its over reset the bomb

Level.data[player.p2.bombs[i].x][player.p2.bombs[i].y]=0
resetBomb(i, player.p2)
end
end
end
end
end


function resetBomb(i, local_player)

local_player.bombs[i].placed=false
local_player.bombs[i].time=60
local_player.bombs[i].frame=0
local_player.bombs[i].x = 0
local_player.bombs[i].y = 0
end

function flame(local_player,i,x,y)


for flame=1,local_player.flam elength-1 do

if local_player.bombs[i].x+flame*x >= table.getn(Level.data)+1 or
local_player.bombs[i].x+flame*x <= 0 or
local_player.bombs[i].y+flame*y >= table.getn(Level.data[1])+1 or
local_player.bombs[i].y+flame*y <= 0 then
break

end

if Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] <= 0 or Level.data[local_player.bombs[i].x+flame*x]

[local_player.bombs[i].y+flame*y] == 3 then

if local_player.bombs[i].time>-8 then
if local_player==player.p1 then
Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y]=-1
elseif local_player==player.p2 then
Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y]=-2
end
explode(local_player.bomb s[i].x+flame*x,local_player.b ombs[i].y+flame*y,local_player.b ombs[i].frame )


else
if Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] == 3 then
Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y]=3
else
Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y]=3
end
end


elseif Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] == 11 or
Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] == 12 then

donateBombAt(local_player .bombs[i].x+flame*x,local_player.b ombs[i].y+flame*y)




elseif Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] == 1 or
Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] >= 100 then --breaking wall = 100..108

break


elseif (Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] == 2) and (local_player.bombs[i].time > -8) then

Level.data[local_player.bombs[i].x+flame*x][local_player.bombs[i].y+flame*y] = 100
break
end
end
end


function donateBombAt(x,y)

for i=1,10 do

if player.p1.bombs[i].x == x and player.p1.bombs[i].y == y then
player.p1.bombs[i].placed=true
player.p1.bombs[i].time=0
break --> exit loop&function
end
end
end


function explode(x,y,framenumber)
posx = x*16-16+Level.x --104-16
posy = y*16-16+Level.y ---16+8 (center of the tile)
layer.explode:blit(posx, posy, images.gfx_bombs, framenumber*16-16,tile.bombexplode.y,16, 16, true)
end


function newGame()
layer.map:clear()
updatePlayers()
drawMap()
score = 0
end

function keyboardControl()
screen.waitVblankStart()
pad = Controls.read()
updatePlayerTiles() --update the player position
p1_moves = false
p2_moves = false

if pad:up() then
if canMove(player.p1, up) then
movement.p1.dx = 0
movement.p1.dy = -.5
p1_moves=true

if player.p1.lastdirection ~= up then --yes was different
player.p1.lastdirection = up
player.p1.direction = up
movement.p1.speedy = player.p1.speed
movement.p1.speedx = 0
end
end
elseif pad:down() then
if canMove(player.p1, down) then
movement.p1.dx = 0
movement.p1.dy = .5
p1_moves=true
if player.p1.lastdirection ~= down then --yes was different
player.p1.lastdirection = down
player.p1.direction = down
movement.p1.speedy = player.p1.speed
movement.p1.speedx = 0
end
end
elseif pad:left() then
if canMove(player.p1, left) then
movement.p1.dx = -.5
movement.p1.dy = 0
p1_moves=true
if player.p1.lastdirection ~= left then --yes was different
player.p1.lastdirection = left
player.p1.direction = left
movement.p1.speedy = 0
movement.p1.speedx = player.p1.speed
end
end
elseif pad:right() then
if canMove(player.p1, right) then
movement.p1.dx = .5
movement.p1.dy = 0
p1_moves=true
if player.p1.lastdirection ~= right then --yes was different
player.p1.lastdirection = right
player.p1.direction = right
movement.p1.speedy = 0
movement.p1.speedx = player.p1.speed
end
end
end

if singleplayer then
if pad:cross() then -- p1 lay bomb
--lay bomb code here
playerDropBomb(player.p1)
end
if pad:triangle() then
screen:save("screenshot.t ga")
end

else
if pad:cross() then -- p1 lay bomb
--lay bomb code here
playerDropBomb(player.p1)
end
if pad:triangle() then
screen:save("screenshot.t ga")
end
end

if p1_moves then -- only if a key is pressed move the little *******
player.p1.move=true
else
player.p1.move=false
end
if p2_moves then -- only if a key is pressed move the little *******
player.p2.move=true
else
player.p2.move=false
end
move()
end

function artificial_i()
player2_posix=player.p2.x
player2_posiy=player.p2.y
player1_posix=player.p1.x
player1_posiy=player.p1.y

if freemovement==false then
if player.p2.tiley > player.p1.tiley then
ai_movement(up)
currentdirection=up

elseif player.p2.tiley < player.p1.tiley then
ai_movement(down)

elseif player.p2.tilex < player.p1.tilex then
ai_movement(right)

elseif player.p2.tilex > player.p1.tilex then
ai_movement(left)
currentdirection=left
end
d1x=player2_posix-player1_posix
d1y=player2_posiy-player2_posiy
distance_between=math.sqr t( d1x*d1x + d1y*d1y )
if distance_between < 40 and dropage==true then
ai_movement(drop)
dropage=false
elseif distance_between > 150 then
dropage=true
end
if dropage == false then
freemovement=true
end






end
if freemovement==true then
if player.p2.tiley < player.p1.tiley then
ai_movement(up)
currentdirection=up

elseif player.p2.tiley > player.p1.tiley then
ai_movement(down)

elseif player.p2.tilex > player.p1.tilex then
ai_movement(right)

elseif player.p2.tilex < player.p1.tilex then
ai_movement(left)
currentdirection=left
end
d1x=player2_posix-player1_posix


d1y=player2_posiy-player1_posiy
distance_between=math.sqr t( d1x*d1x + d1y*d1y )
if distance_between > 120 then
dropage=true
freemovement=false

end
end
if oldy==player.p2.y and player.p2.tilex > player.p1.tilex and currentdirection ~= left then
ai_movement(left)
end
if oldx==player.p2.x and player.p2.tiley > player.p1.tiley and currentdirection ~= up then
ai_movement(up)
end
oldy=player.p2.y
oldx=player.p2.x

end

function ai_movement(directional)

if directional==up then
if canMove(player.p2, up) then
movement.p2.dx = 0
movement.p2.dy = -1
p2_moves=true
--was the last direction something else?
if player.p2.lastdirection ~= up then --yes was different
player.p2.lastdirection = up
player.p2.direction = up
movement.p2.speedy = player.p2.speed
movement.p2.speedx = 0
end
end
elseif directional==down then
if canMove(player.p2, down) then
movement.p2.dx = 0
movement.p2.dy = 1
p2_moves=true
if player.p2.lastdirection ~= down then --yes was different
player.p2.lastdirection = down
player.p2.direction = down
movement.p2.speedy = player.p2.speed
movement.p2.speedx = 0
end
end
elseif directional==left then
if canMove(player.p2, left) then
movement.p2.dx = -1
movement.p2.dy = 0
p2_moves=true
if player.p2.lastdirection ~= left then --yes was different
player.p2.lastdirection = left
player.p2.direction = left
movement.p2.speedy = 0
movement.p2.speedx = player.p2.speed
end
end
elseif directional==right then
if canMove(player.p2, right) then
movement.p2.dx = 1
movement.p2.dy = 0
p2_moves=true
if player.p2.lastdirection ~= right then --yes was different
player.p2.lastdirection = right
player.p2.direction = right
movement.p2.speedy = 0
movement.p2.speedx = player.p2.speed
end
end
end

if directional==drop then -- p1 lay bomb

playerDropBomb(player.p2)
end

if p1_moves then
player.p1.move=true
else
player.p1.move=false
end
if p2_moves then
player.p2.move=true
else
player.p2.move=false
end
move()

end


function move()
if player.p1.move then

player.p1.x = player.p1.x+movement.p1.d x*movement.p1.speedx
player.p1.y = player.p1.y+movement.p1.d y*movement.p1.speedy
updatePlayers()
end
if not singleplayer then
if player.p2.move then

player.p2.x = player.p2.x+movement.p2.d x*movement.p2.speedx
player.p2.y = player.p2.y+movement.p2.d y*movement.p2.speedy
updatePlayers()
end
end
end


function death(local_player, killer)
if not local_player.undestroyabl e then
if local_player == player.p1 then
local_player.tilex = Startpos.p1.x
local_player.tiley = Startpos.p1.x
local_player.posx = Level.x+Startpos.p1.x*16-16
local_player.posy = -14+Startpos.p1.x*16-16
local_player.x = Level.x+Startpos.p1.x*16-16
local_player.y = -14+Startpos.p1.y*16-16
else
local_player.tilex = Startpos.p2.x
local_player.tiley = Startpos.p2.x
local_player.posx = Level.x+Startpos.p2.x*16-16
local_player.posy = -14+Startpos.p2.x*16-16
local_player.x = Level.x+Startpos.p2.x*16-16
local_player.y = -14+Startpos.p2.y*16-16
end
local_player.visible=fals e
local_player.undestroyabl e=true
local_player.freeze = 30 --freeze a sec
local_player.deaths=local _player.deaths+1
if local_player==killer then

local_player.suicide=loca l_player.suicide+1
else
killer.kills=killer.kills +1
end
updatePlayers()
end
end

function updatePlayers()

player.p1.posx = player.p1.x+8-Level.x
player.p1.posy = player.p1.y+21

if not singleplayer then
player.p2.posx = player.p2.x+8-Level.x
player.p2.posy = player.p2.y+21
end
end

function canMove(local_player, direction)
if local_player.freeze>0 then
return false
end


if local_player.tiley-1<=0 and direction==up then
if local_player.y>=8-Level.y then
return true
else
return false
end
end

if local_player.tilex-1<=0 and direction==left then
if local_player.x>=Level.x then
return true
else
return false
end
end

if local_player.tilex+1>=tab le.getn(Level.data) and direction==right then
if local_player.x<=(Level.x+ 448) then --16*28 then
return true
else
return false
end
end

if local_player.tiley+1>=tab le.getn(Level.data[1]) and direction==down then

if local_player.y<=Level.y+1 90 then --level.y=24
return true
else
return false
end
end


x1=local_player.posx
y1=local_player.posy
x2=local_player.tilex
y2=local_player.tiley


if collide(x1,y1,x2,y2,1,dir ection) or collide(x1,y1,x2,y2,2,dir ection) then
return false
else
return true
end
end

function collide(x1,y1,x2,y2,point ,dir)

if Level.data[x2+check_tiles[dir][1]][y2+check_tiles[dir][2]]==nil then
return false
elseif Level.data[x2+check_tiles[dir][1]][y2+check_tiles[dir][2]] > 0 and Level.data[x2+check_tiles[dir][1]][y2+check_tiles[dir][2]] ~= 3then
-- there is a solid floor! --return true
x2=x2*16-16+check_coordinates[dir][point][1]
y2=y2*16-16+check_coordinates[dir][point][2]
dx=(x2 - x1)
dy=(y2 - y1)
dist = math.sqrt( dx*dx + dy*dy )
if dist<10 then --worked fine with 10 --with 9 you can walk though ONE ****ING BLOCK
--print('collide')
return true
else
--print('free to walk')
return false
end
end
return false
end


function saveHighscore()
file = io.open(highscoreFile, "w")
if file then
file:write(high)
file:close()
end
end

function loadHighscore()
file = io.open(highscoreFile, "r")
if file then
high = file:read("*n")
file:close()
end
end


function updatePlayerTiles()

player.p1.tilex = math.floor((player.p1.pos x) / 16) +1
player.p1.tiley = math.floor((player.p1.pos y) / 16) +1

player.p2.tilex = math.floor((player.p2.pos x) / 16) +1
player.p2.tiley = math.floor((player.p2.pos y) / 16) +1


end

function checkPlayers()

if Level.data[player.p1.tilex][player.p1.tiley] == -1 then
death(player.p1, player.p1)

elseif Level.data[player.p1.tilex][player.p1.tiley] == -2 then
death(player.p1,player.p2 )

end

if Level.data[player.p2.tilex][player.p2.tiley] == -2 then
death(player.p2,player.p2 )

elseif Level.data[player.p2.tilex][player.p2.tiley] == -1 then
death(player.p2,player.p1 )

end
end

function defreeze()
if player.p1.freeze>0 then
player.p1.freeze=player.p 1.freeze-1
elseif player.p1.freeze==0 and player.p1.visible==false then
player.p1.visible=true
player.p1.undestroyable=f alse
end
if not singleplayer then
if player.p2.freeze>0 then
player.p2.freeze=player.p 2.freeze-1
elseif player.p2.freeze==0 and player.p2.visible==false then
player.p2.visible=true
player.p2.undestroyable=f alse
end
end
end

function initMovement()
for all in player do
movement[all].speedx = player[all].speed
movement[all].speedy = player[all].speed
end
end


function checkGameType()

local p1_points, p2_points
p1_points = player.p1.kills-player.p1.suicide
p2_points = player.p2.kills-player.p2.suicide

if LEVEL_TYPE == GameType.TimePoints.title then
if (playtime/1000)> GameType.Time.time then
if p1_points > p2_points then
gameOver = 'Player 1 Wins!'
elseif p2_points > p1_points then
gameOver = 'Player 2 Wins!'
else
gameOver = 'Draw'
end
end
elseif LEVEL_TYPE == GameType.TimeKills.title then
if (playtime/1000)> GameType.Time.time then
if player.p1.kills > player.p2.kills then
gameOver = 'Player 1 Wins!'
elseif player.p2.kills > player.p1.kills then
gameOver = 'Player 2 Wins!'
else
gameOver = 'Draw'
end
end
elseif LEVEL_TYPE == GameType.Points.title then
if p1_points >= GameType.Points.value or
p2_points >= GameType.Points.value then
if p1_points > p2_points then
gameOver = 'Player 1 Wins!'
elseif p2_points > p1_points then
gameOver = 'Player 2 Wins!'
else
gameOver = 'Draw'
end
end
elseif LEVEL_TYPE == GameType.Kills.title then
if player.p1.kills >= GameType.Kills.value or
player.p2.kills >= GameType.Kills.value then
if player.p1.kills > player.p2.kills then
gameOver = 'Player 1 Wins!'
elseif player.p2.kills > player.p1.kills then
gameOver = 'Player 2 Wins!'
else
gameOver = 'Draw'
end
end
end
end






math.randomseed(os.diffti me())

Level.data = transposeMatrix(Level.dat a)


initMovement()




while gameOver=='false' do

framecount = math.mod(framecount, 8)+1
keyboardControl()
drawMap()
artificial_i()
if Level.usebackground then
layer.backpuffer:blit(0, 0, layer.background, 0, 0, layer.background:width(), layer.background:height() , false)
layer.backpuffer:blit(0, 0, layer.map, 0, 0, layer.map:width(), layer.map:height(), true) --set to true if there is a good bG
else
layer.backpuffer:blit(0, 0, layer.map, 0, 0, layer.map:width(), layer.map:height(), false) --set to true if there is a good bG
end
drawSprites();
layer.backpuffer:blit(0, 0, layer.explode, 0, 0, layer.explode:width(), layer.explode:height(), true)
drawPlayers()
checkPlayers()
screen:blit(0, 0, layer.backpuffer, 0, 0, layer.backpuffer:width(), layer.backpuffer:height() , false)
drawStats()
if score > high then
high = score
end
defreeze()
screen.waitVblankStart(1)
screen.flip()
checkGameType()
if pad:start() then
break
end
end

dofile("./winner.lua")

[the undead]

Ok I have this code but it wont work what is wrong?

file = io.open("Score.txt", "r")

score1 = file:read()

file:close()
file = io.open("Score.txt","w")

score1 = score1 + 100
file:write(score1)
file:close()

[TacticalPenguin]

file = io.open("Score.txt", "r")

score1 = file:read("*n")

file:close()
score1 = score1 + 100
file = io.open("Score.txt","w+")
file:write(score1)
file:close()

Try that

[the undead]

k hold on.....
-= Double Post =-
That didnt work either....it did nothing

[eldiablov]

what videos will lua player play ?

[myschoo]

videos? i dont think it supports videos

[eldiablov]

I didnt think so either but that dragons lair demo on frontpage has video so im confused

[yaustar]

It isn't video, just lots of images.

[eldiablov]

Oh kk now it makes sense. That games gonna take up loooooooooadz of space ...

[myschoo]

high = io.open("high.txt","r")
highscore = high:read()
high:close()

if score > highscore then
high = io.open("high.txt","w")
high:write(score)
high:close()
end

i have a problem, it always tells me something like
error: cant compare string with number...
what should i do? :/

[c5cha7]

How do you unload images from the psp's memory?
I have tried:
image = nil
image = false
but neither unload the image?
Would screen:clear do the job?
(i couldn't imagine it though...)

[GuitarGod1134]

Screen:clear simply clears the screen. The pictures are actually stored in the variables and are blited when the variable is called so i would think you just assign the variable to something else like nil or something.
EDIT: anyways as you know im making my game and i just want to see what everyone thinks about it and if you see any errors can you point them out.

Spoiler for My Game:

-- Im Changing up Maze of Doom and I've been coming up with more ideas weekly so Im starting on this

-- time to declare some variables
--colors
green = Color.new(0, 255, 0)
red = Color.new(255, 0, 0)
black = Color.new(0, 0, 0)

--sprites
demon = Image.load("demon.png")
creature = Image.load("creature.png" )

-- the player looks in different directions right?
splayer = {}
--now hes looking straight
splayer[1] = Image.load("lL.png")
--now hes looking left
splayer[2] = Image.load("lR.png")
--now hes looking right
splayer[3] = Image.load("lU.png")
--now hes looking back
splayer[4] = Image.load("lD.png")

--now for the variable that makes his head turn .. literally
direction = 1

--more sprites
bullet = Image.createEmpty(1,1)
bullet:clear(black)

--and the level we are on
background = Image.load("background.pn g")


-- player's health and armor and the aliens'
health = 100
armor = 50
demonhp = 10

--how long it takes to reload
reload = Timer.new()

--the player's bullets
ammo = 1

-- some tables
Player = {}
Player[1] = {x=0, y=0}

-- your ammo
Bullet = {}
Bullet[1] = {Player[1].x, Player[1].y}

--the creatures table
creature = {}
creature[1] = { x = 10, y = 10 }

--whether the demon is alive or not
demonal = {}
demonal[1] = "true"
demonal[2] = "true"
demonal[3] = "true"
demonal[4] = "true"
demonal[5] = "true"
demonal[6] = "true"

-- the demon tables
demon = {}
demon[1] = {x = 400, y = 110}
demon[2] = {x = 390, y = 80}
demon[3] = {x = 410, y = 30}
demon[4] = {x = 420, y = 20}
demon[5] = {x = 400, y = 200}
demon[6] = {x = 270, y = 260}

--this is for our creature movement
--prevents the same random numbers on each program run
math.randomseed(os.time() )

--x=width y=height
-- REMINDER ^^^^

-- the main loop
while true do
pad = Controls.read()
screen:blit (0, 0, background)

--lets print some things to the screen shall we
screenrint(0, 0, "Alanan",red)
screenrint(0, 5, health, red)
screenrint(0, 10, armor, green)
screenrint(0, 15, ammo, green)

--lets make him move around
screen:blit(Player[1].x,Player[1].y,splayer[direction])
if pad:left() and Player[1].x > 0 then
Player[1].x = Player[1].x - 3
direction = 1
end

if pad:right() and Player[1].x < screenwidth then
Player[1].x = Player[1].x + 3
direction = 2
end

if pad:up() and Player[1].y > 0 then
Player[1].y = Player[1].y - 3
direction = 3
end

if pad:down() and Player[1].y < screenheight then
Player[1].y = Player[1].y + 3
direction = 4
end

--we need our creature to move too
screen:blit(creature[1].x,creature[1].y,creature)
creaturemove = math.random(0,50)

--now we make him move side note// i set creature move to math.random because i dont want him
-- moving all the time or else he would reach the end of the screen way to fast.
if creaturemove == 5 then
creature[1].x = creature[1].x + 1
end

-- we have to blit are demons to the screen also

if demonal[1] == "true" then
screen:blit(demon[1].x,demon[1].y,demon)
end

if demonal[1] == "true" then
screen:blit(demon[2].x,demon[2].y,demon)
end

if demonal[1] == "true" then
screen:blit(demon[3].x,demon[3].y,demon)
end

if demonal[1] == "true" then
screen:blit(demon[4].x,demon[4].y,demon)
end

if demonal[1] == "true" then
screen:blit(demon[5].x,demon[5].y,demon)
end

if demonal[1] == "true" then
screen:blit(demon[6].x,demon[6].y,demon)
end

-- now we make them chase the creature
--we are only gonna make two demons attack the creature
-- the other four will guard the exit

--heres demon 1
if demon[1].x > creature[1].x then
demon[1].x = demon[1].x - 1
end

if demon[1].x < creature[1].x then
demon[1].x = demon[1].x + 1
end

if demon[1].y > creature[1].y then
demon[1].y = demon[1].y - 1
end

if demon[1].y < creature[1].y then
demon[1].y = demon[1].y + 1
end

--now demon 2
if demon[2].x > creature[1].x then
demon[2].x = demon[2].x - 1
end

if demon[2].x < creature[1].x then
demon[2].x = demon[2].x + 1
end

if demon[2].y > creature[1].y then
demon[2].y = demon[2].y - 1
end

if demon[2].y < creature[1].y then
demon[2].y = demon[2].y + 1
end


--lets get his gun firing and ammo is there for reload
if pad:r() and ammo == 1 then
screen:blit(Bullet[1].x,Bullet[1].y,bullet)
fire = "true"
ammo = ammo - 1
reload:start()
--what if hes out of ammo?
elseif ammo == 0 then
fire = "false"
end

--this makes his bullet he shoots go different ways depending on which way he faces
if fire = "true" and direction == 1 then
Bullet[1].x = Bullet[1].x + 2
end

if fire = "true" and direction == 2 then
Bullet[1].x = Bullet[1].x - 2
end

if fire = "true" and direction == 3 then
Bullet[1].y = Bullet[1].y - 2
end

if fire = "true" and direction == 4 then
Bullet[1].y = Bullet[1].y + 2
end

-- now hes gotta reload
if ammo == 0 and reload:time() == 10 then
ammo = ammo + 1
end

--now lets make our bullet touch the demons
if Bullet[1].x == demon[1].x and Bullet[1].y == demon[1].y then
demonal[1] = "false"
end

if Bullet[1].x == demon[2].x and Bullet[1].y == demon[2].y then
demonal[2] = "false"
end

if Bullet[1].x == demon[3].x and Bullet[1].y == demon[3].y then
demonal[3] = "false"
end

if Bullet[1].x == demon[4].x and Bullet[1].y == demon[4].y then
demonal[4] = "false"
end

if Bullet[1].x == demon[5].x and Bullet[1].y == demon[5].y then
demonal[5] = "false"
end

if Bullet[1].x == demon[6].x and Bullet[1].y == demon[6].y then
demonal[6] = "false"
end

[Grimfate126]

How do you unload images from the psp's memory?
I have tried:
image = nil
image = false
but neither unload the image?
Would screen:clear do the job?
(i couldn't imagine it though...)

image = nil will remove the image from memory, and replace it with nothing, so you literally have a variable with no value assigned to it. thats the same thing as unloading.