Lua Programming Help Thread

i was just joking

is there a way to change the font size in lua>???

yes

Font:setPixelSizes(w, h)

k thanks

Go read the documentation on luaplayer.org.

lolomg

Zitat:

---

Zitat von slicer4ever

how come ur sig says learning c if ur learning lua

---

i was trying to learn c, then i went back to lua, and never got around to changing my sig
i've chagned it now

i'm having problems with substituting variables in a function.
t
his is the function:

Code:

---

function guyspawn(guy1, guy1x, guy1y)

if guy1 == true then
screen:blit(guy1x, guy1y, guy)
end

if cx > guy1x - 15 and cx < guy1x + 5 and
cy > guy1y - 15 and cy < guy1y + 25 and pad:cross() then
guy1 = false
guy1x = -16
guy1y = 220
end

if guy1x < 370 then
guy1x = guy1x + 1
end

if guy1x == 370 then
castlehealth = castlehealth - 1
end

end

---

i'm trying to replace every instance of guy1, guy1x, and guy1y, with guy2, guy2x, and guy2y.

I think it might be working, but it doesn't work properly. The function is supposed to make a guy scroll across the screen and disappear when i shoot it. But when i add in the (guy1x, guy1y, guy1y) and try to replace it with (guy2x, guy1y, guy2) in my while true statement, all it does is sit there, and not react when i shoot it.

well, i need help!
i'm trying to make a tic-tac-toe game
i've gotten to the part where you place the X's down
here's the code:

Spoiler for Code:

Code:

---

--Tic-Tac-Toe game
--Revision 0
--First release
--LUA
--**>Colour Variables<**
red = Color.new(255, 0, 0)
green = Color.new(0, 255, 0)
blue = Color.new(0, 0, 255)
antiquewhite=Color.new(255,239,219)
navajowhite=Color.new(238,207,161)
white = Color.new(255, 255, 255)
purple = Color.new(255, 0, 255)
yellow = Color.new(255, 255, 0)
--Image loading
circle = Image.load("Images/picture.jpg")
pausescreen = Image.load("Images/pausescreen.jpg")
--Image creation
clear = Image.createEmpty(74, 74)
clear:clear(antiquewhite)
--**<Arrays>**
Player = { }
Player[1] = { wins = 0, ties = 0, loses = 0, kind = "X's", name = "Player 1" }
Player[2] = { wins = 0, ties = 0, loses = 0, kind = "O's", name = "Player 2" }
Square = { "1", "2", "3", "4", "5", "6", "7", "8", "9" }
--Variables
currentSquare = 1
gameCondition = "play"
playersTurn = 1
--<<*Functions*>>
function drawGame() --Board for playing
        screen:drawLine(200, 16, 200, 252, blue)
        screen:drawLine(280, 16, 280, 252, blue)
        screen:drawLine(120, 96, 360, 96, blue)
        screen:drawLine(120, 176, 360, 176, blue)
        screen:drawLine(105, 0, 105, 272, white)
        screen:drawLine(375, 0, 375, 272, white)
end
function drawX1() --Top row, left square
        screen:drawLine(124, 18, 192, 90, green)
        screen:drawLine(192, 18, 124, 90, green)
end
function drawX2() --Top row, middle square
        screen:drawLine(206, 18, 272, 90, green)
        screen:drawLine(272, 18, 204, 90, green)
end
function drawX3() --Top row, right square
        screen:drawLine(286, 18, 352, 90, green)
        screen:drawLine(352, 18, 284, 90, green)
end
function drawX4() --Middle row, left square
        screen:drawLine(124, 100, 192, 172, green)
        screen:drawLine(192, 100, 124, 172, green)
end
function drawX5() --Middle row, middle square
        screen:drawLine(206, 100, 272, 172, green)
        screen:drawLine(272, 100, 204, 172, green)
end
function drawX6() --Middle row, right square
        screen:drawLine(286, 100, 352, 172, green)
        screen:drawLine(352, 100, 284, 172, green)
end
function drawX7() --Bottom row, left square
        screen:drawLine(124, 182, 192, 254, green)
        screen:drawLine(192, 182, 124, 254, green)
end
function drawX8() --Bottom row, middle square
        screen:drawLine(206, 182, 272, 254, green)
        screen:drawLine(272, 182, 204, 254, green)
end
function drawX9() --Bottom row, right square
        screen:drawLine(286, 182, 352, 254, green)
        screen:drawLine(352, 182, 284, 254, green)
end
function drawO1() --Top row, left square
        screen:blit(120, 16, circle, false)
end
function drawO2() --Top row, middle square
        screen:blit(202, 16, circle, false)
end
function drawO3() --Top row, right square
        screen:blit(282, 16, circle, false)
end
function drawO4() --Middle row, left square
        screen:blit(120, 98, circle, false)
end
function drawO5() --Middle row, middle square
        screen:blit(202, 98, circle, false)
end
function drawO6() --Middle row, right square
        screen:blit(282, 98, circle, false)
end
function drawO7() --Bottom row, left square
        screen:blit(120, 178, circle, false)
end
function drawO8() --Bottom row, middle square
        screen:blit(202, 178, circle, false)
end
function drawO9() --Bottom row, right square
        screen:blit(282, 178, circle, false)
end
function clear1() --Clears square
        screen:blit(122, 18, clear)
end
function clear2()
        screen:blit(204, 18, clear)
end
function clear3()
        screen:blit(284, 18, clear)
end
function clear4()
        screen:blit(122, 100, clear)
end
function clear5()
        screen:blit(204, 100, clear)
end
function clear6()
        screen:blit(284, 100, clear)
end
function clear7()
        screen:blit(122, 180, clear)
end
function clear8()
        screen:blit(204, 180, clear)
end
function clear9()
        screen:blit(284, 180, clear)
end
function printInformation()
        screen:print(2, 2, Player[1].name, purple)
        screen:print(379, 2, Player[2].name, yellow)
        screen:print(2, 20, "Wins: " .. Player[1].wins, purple)
        screen:print(2, 40, "Ties: " .. Player[1].ties, purple)
        screen:print(2, 60, "Loses: " .. Player[1].loses, purple)
        screen:print(2, 80, "X's/O's: " .. Player[1].kind, purple)
        screen:print(379, 20, "Wins: " .. Player[2].wins, yellow)
        screen:print(379, 40, "Ties: " .. Player[2].ties, yellow)
        screen:print(379, 60, "Loses: " .. Player[2].loses, yellow)
        screen:print(379, 80, "X's/O's: " .. Player[2].kind, yellow)
        screen:print(140, 262, "Press select for controls", red)
        screen:print(163, 2, "Press start to quit", red)
end
function selectorMovement()
        if currentSquare == 1 then
                clear1()
        elseif currentSquare == 2 then
                clear2()
        elseif currentSquare == 3 then
                clear3()
        elseif currentSquare == 4 then
                clear4()
        elseif currentSquare == 5 then
                clear5()
        elseif currentSquare == 6 then
                clear6()
        elseif currentSquare == 7 then
                clear7()
        elseif currentSquare == 8 then
                clear8()
        elseif currentSquare == 9 then
                clear9()
        end
        if pad:right() and oldpad:right() ~= pad:right() then
                currentSquare = currentSquare + 1
        elseif pad:right() and oldpad:right() ~= pad:right() and currentSquare == 9 then
                currentSquare = currentSquare - 8
        end
        if pad:left() and oldpad:left() ~= pad:left() then
                currentSquare = currentSquare - 1
        elseif pad:left() and oldpad:left() ~= pad:left() and currentSquare == 1 then
                currentSquare = currentSquare + 8
        end
end
function player1()
        if playersTurn == 1 then
                screen:print(0, 100, "Your turn", purple)
        end
        if pad:cross() and playersTurn == 1 and currentSquare == 1 then
                drawX1()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 2 then
                drawX2()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 3 then
                drawX3()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 4 then
                drawX4()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 5 then
                drawX5()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 6 then
                drawX6()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 7 then
                drawX7()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 1 then
                drawX8()
                playersTurn = 2
        elseif pad:cross() and playersTurn == 1 and currentSquare == 1 then
                drawX9()
                playersTurn = 2
        end
end
--***************
--***Main Loop***
--***************
while true do
        screen:clear()
        pad = Controls.read()
        printInformation()
        drawGame()
        if gameCondition == "play" then
                player1()
                selectorMovement()
                if pad:r() and oldpad:r() ~= pad:r() then
                        gameCondition = "pause"
                end
                if pad:select() then
                        dofile("Controls.lua")
                end
                if pad:start() then
                        dofile("exit.lua")
                end
        end
        if gameCondition  == "pause" then
                dofile("pause.lua")
        end
        oldpad = pad
        screen.waitVblankStart()
        screen.flip()
end

---

if you go to function player1(), it does say that if i press X, it should execute the function that makes X's, but nothing happens
another thing, when i'm on the 9th square, it says
if pad:right() and currentSquare == 9 then
currentSquare = currentSquare - 8
end
so that it goes to 1st square, it just disappears
download code here:
http://www.sendspace.com/file/noxhtl

once you've drawn the gameboard why are you doing nine more squares ?

eurg, i don't think you get it
let me give you screeny, that'll probably make it better

and when you hold the button? does cross appear?

nope, doesn't work
still working the screeny

edit: here, just take the code:
http://www.sendspace.com/file/noxhtl
doesn't need luaplayer

From looking at your code, you might be overcomplicating things. I've written my own tic tac toe game (Only tested in Windows Luaplayer) but maybe it will give you some ideas on how to streamline things a bit.

Spoiler for Code:

Code:

---

white = Color.new(255,255,255)
yellow = Color.new(255,255,0)
black = Color.new(0, 0, 0)

function drawX(r, c, color)
        screen:drawLine(75+(100*(c-1)), 90*(r-1), 175+(100*(c-1)), 90*(r-1) + 90, color)
        screen:drawLine(175+(100*(c-1)), 90*(r-1), 75+(100*(c-1)), 90*(r-1) + 90, color)
end

function drawCircle(r, c, color)
        degree = 0
        cx = 50+75+(100*(c-1))
        cy = 90*(r-1) + 45
        r = 45
        while degree < (6.4) do
                screen:pixel((math.floor(r * math.cos(degree)))+cx, (math.floor(r * math.sin(degree))) + cy, color)
                degree = degree + 0.005
        end
end

function readControls(r, c)
        oldpad = pad
        pad = Controls.read()
        if pad:left() then
                c = c - 1
                if c == 0 then
                        c = 3
                end
                screen.waitVblankStart(5)
        end
        if pad:right() then
                c = c + 1
                if c == 4 then
                        c = 1
                end
                screen.waitVblankStart(5)
        end
        if pad:up() then
                r = r - 1
                if r == 0 then
                        r = 3
                end
                screen.waitVblankStart(5)
        end
        if pad:down() then
                r = r + 1
                if r == 4 then
                        r = 1
                end
                screen.waitVblankStart(5)
        end
        if pad:cross() and oldpad ~= pad then
                if game.board[r][c] ~= -10 then
                        commentWindow("Illegal Move!!!")
                else
                        game.board[r][c] = game.player
                        r, c = findEmpty()
                        if game.player == 1 then
                                game.player = 2
                        else
                                game.player = 1
                        end
                end
        end
        return r, c
end

function drawBoard(r, c)
        screen:drawLine(75, 90, 375, 90, white)
        screen:drawLine(75, 180, 375, 180, white)
        screen:drawLine(175, 0, 175, 272, white)
        screen:drawLine(275, 0, 275, 272, white)
        for i = 1, 3 do
                for j = 1, 3 do
                        if game.board[i][j] == 1 then
                                drawX(i, j, white)
                        end
                        if game.board[i][j] == 2 then
                                drawCircle(i, j, white)
                        end
                end
        end
        if game.player == 1 then
                drawX(r, c, yellow)
        else
                drawCircle(r, c, yellow)
        end
end

function findEmpty()
        for i = 1, 3 do
                for j = 1, 3 do
                        if game.board[i][j] == -10 then
                                return i, j
                        end
                end
        end
        return 0 , 0
end

function checkWin()
        rowCheck = {}
        colCheck = {}
        for i = 1, 3 do
                rowCheck[i] = 0
                colCheck[i] = 0
                for j = 1, 3 do
                        rowCheck[i] = rowCheck[i] + game.board[i][j]
                        colCheck[i] = colCheck[i] + game.board[j][i]
                end
        end
        diagCheck = {}
        diagCheck[1] = game.board[1][1] + game.board[2][2] + game.board[3][3]
        diagCheck[2] = game.board[3][1] + game.board[2][2] + game.board[1][3]
        for i = 1, 3 do
                if rowCheck[i] == 3 or colCheck[i] == 3 then
                        game.winner = "Player 1"
                        return true
                end
                if rowCheck[i] == 6 or colCheck[i] == 6 then
                        game.winner = "Player 2"
                        return true
                end
                if i < 3 then
                        if diagCheck[1] == 3 then
                                game.winner = "Player 1"
                                return true
                        end
                        if diagCheck[1] == 6 then
                                game.winner = "Player 2"
                                return true
                        end
                end
        end

        return false
end

function optionWindow(s)
        while true do
                screen:fillRect(100, 50, 200, 200, white)
                screen:print(105, 55, s, black)
                screen:print(105, 150, "X - Yes    O - No", black)
                if Controls.read():cross() then
                        return false
                end
                if Controls.read():circle() then
                        return true
                end
                screen.flip()
        end
end

function commentWindow(s)
        screen:fillRect(100, 50, 200, 100, white)
        screen:print(105, 55, s, black)
        screen.flip()
        screen.waitVblankStart(120)
end

function initGame()
        row = 1
        col = 1
        game.player = 1
        game.board = {}
        for i = 1, 3 do
                game.board[i] = {}
                for j = 1, 3 do
                        game.board[i][j] = -10
                end
        end
end

--MAIN
game = {}
game.quit = false
while not game.quit do
        initGame()
        while checkWin() == false do
                screen:clear()
                drawBoard(row, col)
                row, col = readControls(row, col)
                if row == 0 then
                        game.winner = "Nobody - TIE!"
                        break
                end
                screen.flip()
                screen.waitVblankStart(1)
        end
        commentWindow("Winner is " .. game.winner)
        game.quit = optionWindow("Play Again?")
end

---

:P :o :(
o well, so maybe code ain't so great
/me stops working on tic tac toe and decides to go to wiki
anyways, thanks for help

Nonono, don't stop working on it. I have tons of code that I just made to get a handle on different aspects of programming theory. I just put this up to show how if you structure a function correctly, you shouldn't have to make 10 different versions of it. Plus my tic tac toe is the ugliest version of the game that you can get.

I made a tic tac toe game in my first course of VB.net. Coming with a background of a year of PSP C/++ programming knowledge, I made multiple AIs (random, offensive, defensive). My teacher then allowed me to go off and do my own thing, and then Irrlicht engine came to my attention... :twisted:

I agree with Klepto, just keep at it. If you're %50 done, come to a point where you realize your design has a flaw, or your design won't work to be %100, back to the drawing board (literally, write out designs on pen and paper)

fine :D
but i will stop for a bit just to look back at some more tutorials, etc

How can i launch an eboot from lua?

do you mean:
"How can I run my LUA program without using LUAPlayer?"
or literally, how do you run an eboot with a LUA script?
if it's the second one, i'm not sure if you can

Zitat:

---

Zitat von michaelp

do you mean:
"How can I run my LUA program without using LUAPlayer?"
or literally, how do you run an eboot with a LUA script?
if it's the second one, i'm not sure if you can

---

The second one, well ok, but i assume i can add a function to do it in the LUA Player source?

If yes, how? I know C++ but don't know how LUA Player works, also i'm not experienced in coding with C in the psp.

Zitat:

---

Zitat von luizlizard

but i assume i can add a function to do it in the LUA Player source?

---

i don't know, i never actually looked at the luaplayer source

You cant.

Zitat:

---

Zitat von Anti-QJ

You cant.

---

Humm, why? I already looked at the source code and it actually seems easy

Of course you can add functions to luaplayer. You just need an SDK setup, the right libs, and a non-lua mindset as LuaPlayer is in C++.

Ok, i added the function to the source, but i only have the precompiled toolchain (pspdev) so i can't compile it, can someone compile it for me?

Here it is: http://luizlizard.pspsc.com/downloads/luasystem.cpp

And just add it to the regular Lua Player .20 source.

Thanks in Advance!!!

you don't need to know how Lua Player is designed to add functions to it. look at my mods (flashing capabilities, IR keyboard (didn't release as pi key released soon after and havent had a time to implement it into it) and some directory functions (dump umd, etc.)). It just takes some observational skills ;)

hey luizlizard when i compile lua player with the luasystem.cpp you made it just makes a black screen appear when i load it from my psp and i put the system and apps folder in and added lowser and all the oter stuff in the apps folder. but it compiles without errors do u know why coz i was trying to make one with all of the functions you included also can you add the nickName function the code is

-------------------------------
static int lua_nickName(lua_State *L)
{
if (lua_gettop(L) != 0) return luaL_error(L, "no arguments expected.");
char *namebuffer = "";
sceUtilityGetSystemParamS tring(1, namebuffer, 25);
lua_pushstring(L, namebuffer);
return 1;
}
-------------------------------

and the line is

-------------------------------
{"nickName", lua_nickName},
-------------------------------

sorry im new to this but can lua work on psp version 2.81?

You got to have a homebrew capable PSP firmware

xpack was trying to say no
-= Double Post =-
but i'm pretty sure with all these updates at qj you can downgrade your firmware now

Simple, how do I make an image display for a period of time, then go away when the player presses... say... X?

I already have the image loaded. :)

@ TheSilenceOfNoOne :

Here is a example for you if you want to only remove the image from the screen:

My_Image = Image.load("My_Image.png" )

while true do

pad = Controls.read()

if pad:cross() then
My_Image:clear()
end

screen:blit(0, 0, My_Image)
screen.waitVblankStart()
screen.flip()
end

----------

Or like this if you want to completely remove the image from memory and not just the screen


My_Image = Image.load("My_Image.png" )

Display_Image = true

while true do

pad = Controls.read()

if pad:cross() then
Display_Image = false
My_Image = nil
collectgarbage()
end

if Display_Image == true then
screen:blit(0, 0, My_Image)
end
screen.waitVblankStart()
screen.flip()
end

Zitat:

---

Zitat von Xx_FightStar_xX

@ TheSilenceOfNoOne :

Here is a example for you :

My_Image = Image.load("My_Image.png" )

while true do

pad = Controls.read()

if pad:cross() then
My_Image:clear()
end

screen:blit(0, 0, My_Image)
screen.waitVblankStart()
screen.flip()
end

----------

Or like this if you want to completely remove the image from memory and not just the screen


My_Image = Image.load("My_Image.png" )

Display_Image = true

while true do

pad = Controls.read()

if pad:cross() then
Display_Image = false
end

if Display_Image == true then
screen:blit(0, 0, My_Image)
end
screen.waitVblankStart()
screen.flip()
end

---

both of those are flawed...

you want a bool for when X is pressed, set to T/F depending on what its already at.

Then the image blitted based on that.

OK, so I am trying to do that with 3 images in a row.

Like this:?

Code:

---

gbaxlogo = Image.load(other/slogo.png)
gamelogo = Image.load(other/loading.png)
teamlogo = other/Team.PNG)

screen:blit(480, 272, gbaxlogo)
while true do
pad = Controls.read()

if pad:cross() then
screen:clear()
while true do
screen:blit(480, 272, teamlogo)
if pad:cross() then
screen:clear()
while true do
screen:blit(480, 272, gamelogo)
if pad:cross() then
screen:clear()
end

---

or

while not Constrols.read():cross() do
screen:blit(x,y,image)
end

what you are trying to do is a bit complicated give me about 10 mins


8 mins later lol

heres what i suggest

CODE:

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

gbaxlogo = Image.load(other/slogo.png)
gamelogo = Image.load(other/loading.png)
teamlogo = other/Team.PNG)

white = Colour.new(255, 255, 255)

while true do

pad = Controls.read()

CI = 0

if
pad:cross() and CI == 0
then
screen:blit(0, 0, gbaxlogo)
CI = 1
end

if
pad:cross() and CI == 1
then
screen:blit(0, 0, teamlogo)
CI = 2
end

if
pad:cross() and CI == 2
then
screen:blit(0, 0, gamelogo)
CI = 3
end

if
CI == 3
then
screen:print(10, 10, now wasnt that cool, white)
CI = 0
end

screen.flip()
screen.waitVblankStart()

end
--------------------------------------------------

Zitat:

---

Zitat von FaT3oYCG

what you are trying to do is a bit complicated give me about 10 mins


8 mins later lol

heres what i suggest

CODE:

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

gbaxlogo = Image.load(other/slogo.png)
gamelogo = Image.load(other/loading.png)
teamlogo = other/Team.PNG)

white = Colour.new(255, 255, 255)

while true do

pad = Controls.read()

CI = 0

if
pad:cross() and CI == 0
then
screen:blit(0, 0, gbaxlogo)
CI = 1
end

if
pad:cross() and CI == 1
then
screen:blit(0, 0, teamlogo)
CI = 2
end

if
pad:cross() and CI == 2
then
screen:blit(0, 0, gamelogo)
CI = 3
end

if
CI == 3
then
screen:print(10, 10, now wasnt that cool, white)
CI = 0
end

screen.flip()
screen.waitVblankStart()

end
--------------------------------------------------

---

... no

what you have there will only blit the image the second 'x' is pressed. So you will basically never see it.

i'd just do:

Code:

---

img1 = Image.load("1.png")
img2 = Image.load("2.png")
img3 = Image.load("3.png")
variable = 0

while true do

  screen:clear()

  if variable == 0 then
      screen:blit(0,0,img1)
  elseif variable == 1 then
      screen:blit(0,0,img2)
  elseif variable == 2 then
      screen:blit(0,0,img3)
  end

  pad = Controls.read()
  if pad:cross() then
      variable = variable + 1
  end

  screen.flip()
  screen.waitVblankStart()
end

---

it will cycle images everytime 'x' is pressed, and show nothing pst the third image ;)

I would do something similar, except make it faster, more understandable and have it recyclable.

Code:

---

image = { Image.load("1.png"), Image.load("2.png"), Image.load("3.png") }
image_num = 1
exit = false

while ~exit do
    if Controls.read():cross() then
      image_num = image_num + 1
     
      if image_num > table.getn(image) then
          image_num = 0
      end

      screen:clear()
      screen:blit(0,0,image[image_num])
      screen.waitVblankStart()
      screen.flip()
    elseif Controls.read():start() then
      exit = true
    end
end

---

I believe you can do that in Lua.