Lua Programming Help Thread

ok i added ur suggestions and codes and its still SAME... i press button USB activated i realease button USB deactivated... but i want it to stay activated after i stop holding that button :(

Code:

---

-- Moj prvy LUA program
-- Author: myschoo

-- ******* Variables ********

green = Color.new(0,255,0)
zelena = Color.new(34,70,77)
oranzova = Color.new(214,128,11)
modra = Color.new(0,24,240)
bordova = Color.new(138,0,11)
myschoo = Color.new(236,225,28)
biela = Color.new(255,255,255)

upPressed = 'Drzis sipku nahor'
downPressed = 'Drzis sipku nadol'
leftPressed = 'Drzis sipku dolava'
rightPressed = 'Drzis sipku doprava'
LPressed = 'Drzis "L" tlacitko'

-- *****Main Loop******

while true do

dofile("key.lua")

back = Image.load("blue.jpg")
boltsnd = Sound.load("sound.wav")

screen:blit(0, 0, back)

screen:print(145, 5, 'Podrz START pre vypnutie', biela)
screen:print(155, 15, "Podrz SELECT pre USB", biela)
screen:print(155, 25, "Podrz krizik pre zvuk", biela)
screen:print(145, 35, 'Podrz R+stvorec pre info', biela)
screen:print(145, 45, 'Podrz R+L pre klavesnicu', biela)

pad = Controls.read()

if pad:up() then
screen:print(185,125,upPressed,green)
end
if pad:down() then
screen:print(185,125,downPressed,zelena)
end
if pad:left() then
screen:print(185,125,leftPressed,oranzova)
end
if pad:right() then
screen:print(185,125,rightPressed,modra)
end
if pad:l() then
screen:print(185,125,LPressed,bordova)
end
if pad:r() then
screen:print(185,125,'Drzis "R" tlacitko',green)
end
if pad:triangle() then
screen:print(185,125,'Drzis trojuholnik',zelena)
end
if pad:circle() then
screen:print(185,125,'Drzis kruzok',oranzova)
end
if pad:cross() then
boltsnd:play()
screen.flip()
Music.volume(128)
end
if pad:square() then
screen:print(185,125,'Drzis stvorec',bordova)
end

oldpad=Controls.read()
usbmode=false
select_does_this = 1

if pad:select() and select_does_this == 1 then
select_does_this = 2
elseif select_does_this == 2 then
select_does_this = 1
end

if pad:select() and oldpad:select()~=pad:select() then
if usbmode then
System.usbDiskModeDeactivate()
else
System.usbDiskModeActivate()
end
end

if select_does_this == 1 then
System.usbDiskModeDeactivate()
elseif select_does_this == 2 then
System.usbDiskModeActivate()

oldpad=pad
end
if pad:start() then
break
end
if pad:square() and pad:r() then
screen:print(175, 255, 'Autor: myschoo', myschoo)
end
if pad:r() and pad:l() then
-- Examples
print(keyboard())
thetext = keyboard()
end

screen.waitVblankStart()
screen.flip()
end

---

i keep getting expected then near = at line 50 with this code

Code:

---

if menustatus => 4 then
menustatus = 1
end

---

but this code works

Code:

---

if menustatus <= 0 then
menustatus = 3
end

---

i think it is meant to be like this :
if menustatus >= 4 then
menustatus = 1
end

Zitat:

---

Zitat von PSP-Maniac

i think it is meant to be like this :
if menustatus >= 4 then
menustatus = 1
end

---

Yeah, it is

ya it works great i took that part from the lua sniplets thread at the top and didnt think that idbe wrong so i didnt check.

can anyone help me? ??????????????? pls!! :(

Zitat:

---

Zitat von myschoo

ok i added ur suggestions and codes and its still SAME... i press button USB activated i realease button USB deactivated... but i want it to stay activated after i stop holding that button

---

You almost did.

The "oldpad = Controls.read()" and "usbmode=false" lines are supposed to be before the while loop, in your ***Variables*** section.

EDIT: Also, you need to get rid of these parts:

Code:

---

if pad:select() and select_does_this == 1 then
select_does_this = 2
elseif select_does_this == 2 then
select_does_this = 1
end

---

and

Code:

---

if select_does_this == 1 then
System.usbDiskModeDeactivate()
elseif select_does_this == 2 then
System.usbDiskModeActivate()

oldpad=pad
end

---

And put the "oldpad = pad" line at the end of the while loop.

thx i will try it asap!!

Code:

---

-- Moj prvy LUA program
-- Author: myschoo

-- ******* Variables ********

green = Color.new(0,255,0)
zelena = Color.new(34,70,77)
oranzova = Color.new(214,128,11)
modra = Color.new(0,24,240)
bordova = Color.new(138,0,11)
myschoo = Color.new(236,225,28)
biela = Color.new(255,255,255)

upPressed = 'Drzis sipku nahor'
downPressed = 'Drzis sipku nadol'
leftPressed = 'Drzis sipku dolava'
rightPressed = 'Drzis sipku doprava'
LPressed = 'Drzis "L" tlacitko'

oldpad=Controls.read()
usbmode=false

-- *****Main Loop******

while true do

dofile("key.lua")

back = Image.load("blue.jpg")
boltsnd = Sound.load("sound.wav")

screen:blit(0, 0, back)

screen:print(145, 5, 'Podrz START pre vypnutie', biela)
screen:print(155, 15, "Podrz SELECT pre USB", biela)
screen:print(155, 25, "Podrz krizik pre zvuk", biela)
screen:print(145, 35, 'Podrz R+stvorec pre info', biela)
screen:print(145, 45, 'Podrz R+L pre klavesnicu', biela)

pad = Controls.read()

if pad:up() then
screen:print(185,125,upPressed,green)
end
if pad:down() then
screen:print(185,125,downPressed,zelena)
end
if pad:left() then
screen:print(185,125,leftPressed,oranzova)
end
if pad:right() then
screen:print(185,125,rightPressed,modra)
end
if pad:l() then
screen:print(185,125,LPressed,bordova)
end
if pad:r() then
screen:print(185,125,'Drzis "R" tlacitko',green)
end
if pad:triangle() then
screen:print(185,125,'Drzis trojuholnik',zelena)
end
if pad:circle() then
screen:print(185,125,'Drzis kruzok',oranzova)
end
if pad:cross() then
boltsnd:play()
screen.flip()
Music.volume(128)
end
if pad:square() then
screen:print(185,125,'Drzis stvorec',bordova)
end

if pad:select() and oldpad:select()~=pad:select() then
if usbmode then
System.usbDiskModeDeactivate()
else
System.usbDiskModeActivate()
end
end

if pad:start() then
break
end
if pad:square() and pad:r() then
screen:print(175, 255, 'Autor: myschoo', myschoo)
end
if pad:r() and pad:l() then
-- Examples
print(keyboard())
thetext = keyboard()
end

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

---

now when i press SELECT it activates USB but wneh i press SELECT again nothing happens :((:Cry:

Zitat:

---

Zitat von myschoo

thx i will try it asap!!

Code:

---

-- Moj prvy LUA program
-- Author: myschoo

-- ******* Variables ********

green = Color.new(0,255,0)
zelena = Color.new(34,70,77)
oranzova = Color.new(214,128,11)
modra = Color.new(0,24,240)
bordova = Color.new(138,0,11)
myschoo = Color.new(236,225,28)
biela = Color.new(255,255,255)

upPressed = 'Drzis sipku nahor'
downPressed = 'Drzis sipku nadol'
leftPressed = 'Drzis sipku dolava'
rightPressed = 'Drzis sipku doprava'
LPressed = 'Drzis "L" tlacitko'

oldpad=Controls.read()
usbmode=false

-- *****Main Loop******

while true do

dofile("key.lua")

back = Image.load("blue.jpg")
boltsnd = Sound.load("sound.wav")

screen:blit(0, 0, back)

screen:print(145, 5, 'Podrz START pre vypnutie', biela)
screen:print(155, 15, "Podrz SELECT pre USB", biela)
screen:print(155, 25, "Podrz krizik pre zvuk", biela)
screen:print(145, 35, 'Podrz R+stvorec pre info', biela)
screen:print(145, 45, 'Podrz R+L pre klavesnicu', biela)

pad = Controls.read()

if pad:up() then
screen:print(185,125,upPressed,green)
end
if pad:down() then
screen:print(185,125,downPressed,zelena)
end
if pad:left() then
screen:print(185,125,leftPressed,oranzova)
end
if pad:right() then
screen:print(185,125,rightPressed,modra)
end
if pad:l() then
screen:print(185,125,LPressed,bordova)
end
if pad:r() then
screen:print(185,125,'Drzis "R" tlacitko',green)
end
if pad:triangle() then
screen:print(185,125,'Drzis trojuholnik',zelena)
end
if pad:circle() then
screen:print(185,125,'Drzis kruzok',oranzova)
end
if pad:cross() then
boltsnd:play()
screen.flip()
Music.volume(128)
end
if pad:square() then
screen:print(185,125,'Drzis stvorec',bordova)
end

if pad:select() and oldpad:select()~=pad:select() then
if usbmode then
System.usbDiskModeDeactivate()
else
System.usbDiskModeActivate()
end
end

if pad:start() then
break
end
if pad:square() and pad:r() then
screen:print(175, 255, 'Autor: myschoo', myschoo)
end
if pad:r() and pad:l() then
-- Examples
print(keyboard())
thetext = keyboard()
end

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

---

now when i press SELECT it activates USB but wneh i press SELECT again nothing happens :((:Cry:

---

try this:

Code:

---

--put thsi outside your main loop--

selectPressed = false
usbInit = false

--put this in youre main loop--

if pad:select() then
    if not selectPressed then
        if usbInit == false then
            usbInit = true
        end
    selectPressed = true
else
selectPressed = false
end

if usbInit == true
--usb acivate code, im too lazy to find it--
else
--usb UNactivate--
end

---

with the above code, you dont need oldpad, it works 100% of them time.

Try this:

Code:

---

usbmode = "false"
if pad:select() and oldpad:select() ~= pad:select() and usbmode == "false" then
System.usbDiskModeActivate()
end
if pad:select() and oldpad:select() ~= pad:select() and usbmode == "true" then
System.usbDiskModeDeactivate()
end

---

You guys are hilarious...he won't learn if you just give him code to "try" without telling him what's wrong.

On my suggestion, I forgot to make it switch the state of "usbmode," so it always tries to activate it. All you have to do is change it back and forth when select is pressed:

Code:

---

if pad:select() and oldpad:select()~=pad:select() then
if usbmode then
System.usbDiskModeDeactivate()
usbmode=false
else
System.usbDiskModeActivate()
usbmode=true
end
end

---

Just go with what makes sense to you. I tried to explain "oldpad" in my last post, but as mentioned it is not the only way.

Ok so here we go:

LMelior: if i try ur method,t activates USB and thena after 1 sec deactivates without moving my finger from button :/

ARza: ur method activates usb without toching anything :D

Grimfate: Error: A.LUA:90: "then" expected near "System"

:(

This works perfectly fine for me:

Code:

---

-- ******* Variables ********

green = Color.new(0,255,0)

oldpad=Controls.read()
usbmode=false

-- *****Main Loop******

while true do
screen:clear()
pad=Controls.read()

if pad:cross() and oldpad:cross()~=pad:cross() then
if usbmode then
System.usbDiskModeDeactivate()
usbmode=false
else
System.usbDiskModeActivate()
usbmode=true
end
end

if usbmode then
screen:print(200,100,'USB Activated',green)
else
screen:print(200,100,'USB Deactivated',green)
end


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

---

I just printed out a message so I could test on Luaplayer for Windows. I also changed the button because I'm too lazy to look up what key "select" is, but I know which key "cross" is.

As for the others:
ARza forgot the same thing I did, to switch the state of usbmode after the button is pressed.
Read the error that you posted for Grimfate's. Isn't the fix obvious?

THX LMelior!!! it works!!! thx!!!!
-= Double Post =-
OK i have new question
i used this code:

Code:

---

print(tostring(System.powerGetBatteryLifePercent()) .. "%")
screen:flip()

---

to view battery...but when i try it in my PC LUA player i can see it in CMD

http://img114.imageshack.us/img114/3760/aaajz5.png

what was the question?

which question do u mean??? its in my post

You are using the print function which prints to the console rather then the screen. Use screen:print instead.

it says some error when i use screen:print

Considering you used it twice already in your own code, you should really be able to fix the error yourself.

that was usefull :/

I started playing with Lua today, and decided to dive head first and attempt to make a game. The game will be a clone of an old arcade game called Tapper (has anyone heard of it?)

Basiclly, the game works like this: You are a bartender, and you have to keep the guests happy. You send drinks down the bar to the people who come in, and catch the empties they send back. If you miss an empty, or throw a full one to no body, you loose points.

I need to know how to randomly generate the guests that come in, how to get them out after they drink, and how to make them send back the drinks. That i feel is of the least importance right now.

More importantly, I was hoping someone had a collison and score keeping tutorial, because thats what I will really need help on. Thanks alot!

(...if anyone will want to hop on board and help make the game, your invited. [email protected])

To do something random you should first set the seed. Then just use the random number generator that comes with LUA.

collision is just checking if some x and y coords are the same.

With score keeping I assume you mean saving the score? if you search a bit you'll find its really not that hard. There are a lot of tuts that describe how to save something to a file. I know there's one at evilmana.com.

Zitat:

---

Zitat von rybarnes

I started playing with Lua today, and decided to dive head first and attempt to make a game. The game will be a clone of an old arcade game called Tapper (has anyone heard of it?)

Basiclly, the game works like this: You are a bartender, and you have to keep the guests happy. You send drinks down the bar to the people who come in, and catch the empties they send back. If you miss an empty, or throw a full one to no body, you loose points.

I need to know how to randomly generate the guests that come in, how to get them out after they drink, and how to make them send back the drinks. That i feel is of the least importance right now.

More importantly, I was hoping someone had a collison and score keeping tutorial, because thats what I will really need help on. Thanks alot!

(...if anyone will want to hop on board and help make the game, your invited. [email protected])

---

You can learn all of this from ProgramLua. There's a link in my signiture. Except for collisions. Got to evilmana.com for that.

Yeah, or see my stickied list for lua snippets (it has animation and collision, which you most likely need ;))

Also, check out the code in Snake, which came with Lua. It has random generation and saving (single and multiple line). I couldn't understand saving at all until I looked at a real game's code.

For animation help, you could try Grimfate126's animation library:
http://forums.qj.net/f-psp-developme...y-2-68855.html

And take things slow. Make sure you understand and can demonstrate what you've learned before you continue to something else. If you rush yourself, you'll get discouraged and quit.

can anyone help me with that battery part??? :cry:

I need help
whenever i do this code i have to hold x to keep the file open and i want it to stay there right when i press x.

Code:

---

if pad:cross() and current == 1 then
dofile("nameentry.lua")
end

---

Code:

---

dofile_state = 0

if pad:cross() then
dofile_state = 1
end

if dofile_state = 1 then
dofile("nameentry.lua")
end

---

That should work ;)

Thanks it finally works.

Cwirsing, you might understand it now, but if you don't:
You don't have to use dofile_state
You could use anything as the variable. The reason why your code didn't work right is because it was only active if 'pad:cross'. Since 'pad' isn't always 'cross', it would be inactive most of the time.

With Bronx's code, it (by 'it', I mean: dofile("nameentry.lua")) is only active if dofile_state equals 1. Every time you press cross, dofile_state becomes 1 (no matter what it used to be), and since there is no code to turn dofile_state into anything else, it'll stay like that, and dofile("nameentry.lua") will stay active.
If you add this:

Code:

---

if pad:circle() then
dofile_state = 0
end

---

Then every time 'pad' is 'circle', dofile_state will turn into 0, and dofile("nameentry.lua") will stop happening.

Zitat:

---

Zitat von myschoo

can anyone help me with that battery part???

---

I can't think of any, but if you can find a lua program that has that battery display code, look at the source, and do a search for the code you're confused about.

ok thx ;)

another question... is it possible to make eboot.pbp from LUA code???????

Zitat:

---

Zitat von myschoo

another question... is it possible to make eboot.pbp from LUA code???????

---

yes, theres a guide somewhere. serach for it. BUT, the problem is, you can see the code half-way down the eboot.

I've never messed with making an eboot, but I think you can take an existing lua eboot, strip the game code from the middle, and replace it with your own.

Zitat:

---

Zitat von Grimfate126

yes, theres a guide somewhere. serach for it. BUT, the problem is, you can see the code half-way down the eboot.

---

yeh i was searching, i will do again...:)

Hi im having probleme to proply blit my image by using table here is the table code but i get the following error attempt to compare number whit nil on line 55 whic is mark in the CODE][/CODE]

Code:

---

-- call player sprites as Tables

PlayerDir="right"
PlayerAnim = {}
PlayerAnim[1] = {} --standing right
PlayerAnim[1][1] = Image.load("Player/Stand/StandR-1.png")
PlayerAnim[1][2] = Image.load("Player/Stand/StandR-2.png")
PlayerAnim[1][3] = Image.load("Player/Stand/StandR-3.png")
PlayerAnim[1][4] = Image.load("Player/Stand/StandL-2.png")
PlayerAnim[1][5] = Image.load("Player/Stand/StandL-1.png")
PlayerAnim[2] = {} --standing left
PlayerAnim[2][1] = Image.load("Player/Stand/StandL-1.png")
PlayerAnim[2][2] = Image.load("Player/Stand/StandL-2.png")
PlayerAnim[2][3] = Image.load("Player/Stand/StandL-3.png")
PlayerAnim[2][4] = Image.load("Player/Stand/StandL-2.png")
PlayerAnim[2][5] = Image.load("Player/Stand/StandL-1.png")
PlayerAnim[3] = {} --running right
PlayerAnim[3][1] = Image.load("Player/Run/RunR-1.png")
PlayerAnim[3][2] = Image.load("Player/Run/RunR-2.png")
PlayerAnim[3][3] = Image.load("Player/Run/RunR-3.png")
PlayerAnim[3][4] = Image.load("Player/Run/RunR-4.png")
PlayerAnim[3][5] = Image.load("Player/Run/RunR-5.png")
PlayerAnim[4] = {} --running left
PlayerAnim[4][1] = Image.load("Player/Run/RunL-1.png")
PlayerAnim[4][2] = Image.load("Player/Run/RunL-2.png")
PlayerAnim[4][3] = Image.load("Player/Run/RunL-3.png")
PlayerAnim[4][4] = Image.load("Player/Run/RunL-4.png")
PlayerAnim[4][5] = Image.load("Player/Run/RunL-5.png")
while not Controls.read():start() do
pad= Controls.read()
if currimgstate > 5 then  <--------This is line 55 where i get the error
 currimgstate=1
else
 currimgstate=currimgstate+1
end
if pad:right() then
 state=3 --running right
 PlayerDir="right"
elseif pad:left() then
 state=4 --running left
 PlayerDir="left"
else
 if PlayerDir=="right" then
 state=1 --standing still facing right
 elseif PlayerDir=="left" then
 state=2 --standing still facing left
 end
end
screen:blit(PlayerX, PlayerY, PlayerAnim[state][currimgstate])
end

---

Zitat:

---

Zitat von ZereoX

Hi im having probleme to proply blit my image by using table here is the table code but i get the following error attempt to compare number whit nil on line 55 whic is mark in the CODE][/CODE]

Code:

---

-- call player sprites as Tables

PlayerDir="right"
PlayerAnim = {}
PlayerAnim[1] = {} --standing right
PlayerAnim[1][1] = Image.load("Player/Stand/StandR-1.png")
PlayerAnim[1][2] = Image.load("Player/Stand/StandR-2.png")
PlayerAnim[1][3] = Image.load("Player/Stand/StandR-3.png")
PlayerAnim[1][4] = Image.load("Player/Stand/StandL-2.png")
PlayerAnim[1][5] = Image.load("Player/Stand/StandL-1.png")
PlayerAnim[2] = {} --standing left
PlayerAnim[2][1] = Image.load("Player/Stand/StandL-1.png")
PlayerAnim[2][2] = Image.load("Player/Stand/StandL-2.png")
PlayerAnim[2][3] = Image.load("Player/Stand/StandL-3.png")
PlayerAnim[2][4] = Image.load("Player/Stand/StandL-2.png")
PlayerAnim[2][5] = Image.load("Player/Stand/StandL-1.png")
PlayerAnim[3] = {} --running right
PlayerAnim[3][1] = Image.load("Player/Run/RunR-1.png")
PlayerAnim[3][2] = Image.load("Player/Run/RunR-2.png")
PlayerAnim[3][3] = Image.load("Player/Run/RunR-3.png")
PlayerAnim[3][4] = Image.load("Player/Run/RunR-4.png")
PlayerAnim[3][5] = Image.load("Player/Run/RunR-5.png")
PlayerAnim[4] = {} --running left
PlayerAnim[4][1] = Image.load("Player/Run/RunL-1.png")
PlayerAnim[4][2] = Image.load("Player/Run/RunL-2.png")
PlayerAnim[4][3] = Image.load("Player/Run/RunL-3.png")
PlayerAnim[4][4] = Image.load("Player/Run/RunL-4.png")
PlayerAnim[4][5] = Image.load("Player/Run/RunL-5.png")
while not Controls.read():start() do
pad= Controls.read()
if currimgstate > 5 then  <--------This is line 55 where i get the error
 currimgstate=1
else
 currimgstate=currimgstate+1
end
if pad:right() then
 state=3 --running right
 PlayerDir="right"
elseif pad:left() then
 state=4 --running left
 PlayerDir="left"
else
 if PlayerDir=="right" then
 state=1 --standing still facing right
 elseif PlayerDir=="left" then
 state=2 --standing still facing left
 end
end
screen:blit(PlayerX, PlayerY, PlayerAnim[state][currimgstate])
end

---

---

have you declared currimgstate?

or, just use animation lib 1, since you dont have sprite sheets.

..nvm ill come back later with a better question then pretty much asking you how to make an entire game lol >.<
-lost n00b porgrammer ;)

Zitat:

---

Zitat von iamcanadian

..nvm ill come back later with a better question then pretty much asking you how to make an entire game lol >.<
-lost n00b porgrammer ;)

---

pool is probably not the best thing to start with. you need to calculate angles, hit powers, sin, cosin, tan, all that,

Exactly, pool would requre more time doing calculations than it would to code it. I'm in geometry this year and it's freakin me out how long of a time people spend to demonstrate a simple geometric property.