LUA Tutoriály

myschoo · Leden 24, 2007

UPDATE: 09.05.2012 - Po viac ako 5 rokoch mozem povedat, ze tieto tutorialy su napisane zlym sposobom a nie su vhodne na ucenie. Ak ale chcete ziskat taky jemny nahlad na PSP LUA a na LUA celkovo, pokracujte dalej v citani. ;)

LUA - Skriptovací jazyk

LUA je najjednoduchší štart pre začiatocníkov v oblasti tvorenia hier/aplikácii pre PSP. Štruktúra je jednoduchá a dá sa rýchlo naučiť, avšak neposkytuje toľko možností ako C, alebo iné jazyky. Na začiatok to bohate stačí.

Wikipédia - LUA

LUA Hello World

1. Čo budeme potrebovať ?

PC

Notepad (tzv. Poznámkový blok)

2. Tutoriál krok po kroku:

1. Takže, otvoríme si notepad a začneme.

2. Najprv vložíme do kódu svoje údaje, asi takto:

--Hello World
--by myschoo

2 pomlčky za sebou nám zaručia, že táto časť kódu nebude prečítaná.

3. Teraz si definujeme farby:

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

Pod pojmom "white" sme si definovali novú farbu s údajmi 255,255,255. Odkial tieto údaje zobereme? Použijeme na to Paint (tzv. Malovanie)

Otvorte si paint, hore máte "Colors" alebo "Farby" --> Kliknite na to a uvidíte niečo ako "Zmena farieb" alebo "Edit Colors" --> kliknite na to a ďalej na "Definovanie vlastných farieb". Mali by ste vidieť malú tabulku farieb:

Úplne vpravo dole sú tri kolonky: Red, Green, Blue. To sú tie tri čisla ktoré potrebujete.

4. Ok, farbý máme definované. Teraz začneme samotným dianím na obrazovke, takže teraz napíšte:

while true do

Spojenie "while true do" začína hlavný "loop" (otočku/obrátku). Za 1 sek. prebehne 60 takýchto otočiek.

5. Teraz si zmažeme obrazovku aby sme mali čierne pozadie, takže:

screen:clear()

Toto snaď každý chápe čo znamená. Pre tých, ktorý to nechápu, je to príkaz na to, aby som mal obrazovku čisto čiernu. Do "()" môžete dať aj biela, ak chcete pozadie biele, alebo modrá ak modré. Tú farbu si samozrejme musíte predtím definovať (krok č. 3).

6. Teraz si určíme čo nám vypíše na obrazovku, v tomto prípade:

"Hello World!"

Aby sme tam tento text dostali, napište:

screen:print(100,100,"Hello World! for tutorial",white)
screen:print(100,255,"Stlac X pre vypnutie",white)

Ešte si tam pridáme ďalší text, ktorý oznamuje ako vypnúť aplikáciu.

Popis kódu:

screen:print - funkcia "vytlačenia" textu na obrazovku

(100,100,"Hello World! for tutorial",white) - čísla 100 a 100 popisujú kde bude text začínať. Prvé číslo udáva pozíciu na X-ovej, druhé na Y-ovej osi. Po tomto nasleduje text, ktorý musí byť v "" a napokon definovaná farba.

7. Takže, je čas definovať si ovládanie. Na to použijeme príkaz:

pad = Controls.read()

Všimnite si, že kód je podobný ako keď sme si definovali farby. Namiesto slova "pad" môžete použiť trebárs aj "pecenakacica", to už nechám na Vás.

Teraz si určíme samotnú funkcia tlačítka (X):

if pad:cross() then
break
end

Kód sa začína podmienkou "if" potom našou skratkou, ktorú sme si určili, ciže "pad", teraz nasleduje tlačítko "cross()" a nakoniec "then".

V preklade tento riadok priblžne znamena:

Ak stlačíme krížik, potom ...

V 2. riadku si určíme funkciu, čiže "break" čo zjednodušene znamená "zlomiť". V tomto prípade nám funkcia berak vypne LOOP.

A nakoniec koniec funkcie X čiže "end".

8. Poslednú vec, ktorú pridáme je:

screen.waitVblankStart()
screen.flip()
end

Toto zaistí, že náš "loop" bude funkčný a ukončený.

Hotovo! Uložte a príponu .txt zmeňte na .lua. Hello World je kompletný. Tak šup šup otestujte ho!

____________________________________________________________

Váš kód by mal vyzerať asi takto: (klikni na dvojitú šípku smerom nadol)

--Hello World sample for tutorial
--by myschoo

--Farby
white = Color.new(255,255,255)

--hlavna cast

while true do

screen:clear()
screen:print(100,100,"Hello World! for tutorial",white)
screen:print(100,255,"Stlac X pre vypnutie",white)

--ovladanie

--urcime si skratku pre ovladanie
--najcastejsia je: pad takze

pad = Controls.read()

--Xko nam vypne aplikaciu

if pad:cross() then
break
end

--ukoncime aplikaciu

screen.waitVblankStart()
screen.flip()
end

____________________________________________________________

Zjednodušená verzia kódu bez definovania, porovnajte: (klikni na dvojitú šípku smerom nadol)

--Hello World sample for tutorial
--by myschoo

--Farby
--nie je potrebne

--hlavna cast

while true do

screen:clear()
screen:print(100,100,"Hello World! for tutorial",Color.new(255,255,255))
screen:print(100,255,"Stlac X pre vypnutie", Color.new(255,255,255))

--ovladanie

--urcime si skratku pre ovladanie
--najcastejsia je: pad takze
--nie je potrebne

--Xko nam vypne aplikaciu

if Controls.read():cross() then
break
end

--ukoncime aplikaciu

screen.waitVblankStart()
screen.flip()
end

________________________________________________________________________________________________________________________

LUA Button Tester

Je čas sa posunúť do druhej lekcie... ;)

1. Ako minule, aj tentoraz začneme poznámkami:

--Button Tester for tutorial
--sample by myschoo

2. Teraz si definujem farby, tentoraz bude čierna:

cierna = Color.new(0,0,0)

3. Teraz použijem nový príkaz a to "Image.load("nazov_obrazka.png")". Týmto príkazom nahrám obrázok do RAMky. Max. veľkosť je 512x512 pixelov a viem, že podporované formáty sú *.jpg a *.png. Možno aj iné, ale nespomínam si presne.

Takže pridajte:

pozadie = Image.load("sample.png")

4. Môžem začať LOOP:

while true do

5. Vyčistím obrazovku a vložím pozadie.

screen:clear()
screen:blit(0,0,pozadie)

"screen.blit(x,y,premenna)" je funkcia na "blitovanie" (vkladanie) obrázkov.

6. Definujem si ovládanie:

pad = Controls.read()

7. Teraz pridám kód na "button test":

if pad:right() then
screen:print(200, 100, "Drzis sipku DOPRAVA!", cierna)
end

Toto je funkcia keď držíte šípku doprava. Tak isto to urobte s ostatnými tlačítkami. Skúste to sami, bez toho aby ste sa pozreli dolu do zdrojového kódu ;). Tu sú ešte definície ostatných tlačítok:

left()
up()
down()
l()
r()
cross()
square()
triangle()
circle()
start()
select()

8. Ak ste všetko splnili, uzavrite loop:

screen.waitVblankStart()
screen.flip()
end

To je všetko! Otestujte to! :)

____________________________________________________________

Váš kód by mal vyzerať asi takto: (klikni na dvojitú šípku smerom nadol)

--Button Tester for tutorial
--sample by myschoo

--definujem bielu

cierna = Color.new(0,0,0)

--naloadujem obbrazok do RAMKY... pozadie

pozadie = Image.load("sample.png")

--main loop

while true do

--vycistim obrazovku a VLOZIM pozadie :)

screen:clear()
screen:blit(0,0,pozadie)

--definujem Controls.read()

pad = Controls.read()

--no a teraz samotny "button test" kod :)
--je to jeddnoduche

if pad:right() then
screen:print(200, 100, "Drzis sipku DOPRAVA!", cierna)
end

if pad:left() then
screen:print(200, 100, "Drzis sipku DOLAVA!", cierna)
end

if pad:up() then
screen:print(200, 100, "Drzis sipku NAHOR!", cierna)
end

if pad:down() then
screen:print(200, 100, "Drzis sipku NADOL!", cierna)
end

if pad:cross() then
screen:print(200, 100, "Drzis Xko!", cierna)
end

if pad:circle() then
screen:print(200, 100, "Drzis Ocko!", cierna)
end

if pad:square() then
screen:print(200, 100, "Drzis stvorcek!", cierna)
end

if pad:triangle() then
screen:print(200, 100, "Drzis trojuholnik!", cierna)
end

if pad:l() then
screen:print(200, 100, "Drzis Lko!", cierna)
end

if pad:r() then
screen:print(200, 100, "Drzis Rko!", cierna)
end

if pad:start() then
screen:print(200, 100, "Drzis START!", cierna)
end

if pad:select() then
screen:print(200, 100, "Drzis SELECT!", cierna)
end

--mozeme ukoncit loop

screen.waitVblankStart()
screen.flip()
end

myschoo · Leden 24, 2007

Príklady

FAKE OE-A Source

Tu dávam source code FAKE OE-A, ktorý som robil asi pred dvoma týždňami.

Neskôr prihodím popisky.

-- Fake 3.03 OE-A updater by myschoo
-- Its just joke dont take it too serious :D

--colors

red = Color.new(217,26,117)
error = Color.new(255,0,0)
white = Color.new(255,255,255)

rsod = Image.load("load.dat")

fakenum = 20

counter = Timer.new(0)
counter:stop()
timer = Timer.new(0)
timer:stop()

function update()
currentTime = counter:time()
if pad:cross() then
counter:start()
end
if currentTime > 0 then
screen:print(5, 55, "Opening and validating dxar file...", red)
end
end

function timerfun()

curTimeinsecs = math.floor(timer:time()/1000)
currentTime = counter:time()

if currentTime > 2000 then
screen:print(290, 55, "done.", red)
end
if currentTime > 3000 then
screen:print(5, 65, "Logical formating flash0...", red)
end
if currentTime > 5000 then
screen:print(230, 65, "done.", red)
end
if currentTime > 6000 then
screen:print(5, 75, "Creating directories...", red)
end
if currentTime > 8000 then
screen:print(200, 75, "done.", red)
end
if currentTime > 9000 then
screen:print(5, 85, "Writing 1.50 subset...", red)
end
if currentTime > 11000 then
timer:start()
screen:print(190, 85, curTimeinsecs .. "%", red)
end
if timer:time() > 0 then
cfg = io.open("cfg.dat","r")
mem = cfg:read("*n")
cfg:close()
if fakenum >= mem then
cfg = io.open("cfg.dat","w+")
cfg:write(fakenum)
cfg:close()
end
if timer:time() >= 94000 then
timer:stop()
fakenum = fakenum - 1
end
end
if currentTime > 110000 then
screen:print(5, 105, "FATAL ERROR OCCURED", error)
end
if currentTime > 111000 then
screen:print(5, 115, "FATAL ERROR OCCURED", error)
end
if currentTime > 112000 then
screen:print(5, 125, "FATAL ERROR OCCURED", error)
end
if currentTime > 113000 then
screen:print(5, 135, "FATAL ERROR OCCURED", error)
end
if currentTime > 114000 then
screen:print(5, 145, "FATAL ERROR OCCURED", error)
end
if currentTime > 115000 then
screen:print(5, 155, "FATAL ERROR OCCURED", error)
end
if currentTime > 116000 then
screen:print(5, 165, "FATAL ERROR OCCURED", error)
end
if currentTime > 117000 then
screen:print(5, 175, "FATAL ERROR OCCURED", error)
end
end

------------main loop

while true do

screen:clear()

pad = Controls.read()

screen:print(5, 5, "You are about to flash your PSP to custom firm 3.03 OE-A.", red)
screen:print(5, 15, "Press X to start. By doing it, you accept the risk and ALL", red)
screen:print(5, 25, "the responsability of what happens.", red)
screen:print(5, 35, "If you don't agree press R button.", red)

update()
timerfun()

if currentTime > 122000 then
screen:clear()
end
if currentTime > 124000 then
screen:blit(0, 0, rsod)
end
if currentTime > 134000 then
screen:clear()
screen:print(5, 5, "Lol to bol len VTIP !! :D", white)
end
if currentTime > 136000 then
screen:print(5, 15, "Aplikacia sa vypne za 5 sek. Cakajte.", white)
end
if currentTime > 138000 then
screen:print(5, 25, "Bye Bye", white)
end
if currentTime > 141000 then
System.Quit()
end

if pad:r() then
System.Quit()
end

screen.waitVblankStart()
screen.flip()
end

Source code obsahuje nejaké chybky atď., a niektoré veci by sa dali vyriešíť jednoduchšie.

Full Download

________________________________________________________________________________________________________________________

Prečitaj PSP prezívku a vypíš na obrazovku

Urobil som jednoduchý kód, ktorý prečíta s PSP flash1:/registry/system.dreg nickname užívatela a vypíše ho na obrazovku.

-- Print PSP's name on screen
-- by myschoo

-- definujem farby

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

-- nájdi meno
-- toto nesmiem dat do LOOPu, pretoze ten je citany 60x za sek. musim 
-- to teda dat do prvej casti

-- funkcia pre otvorenie suboru, "r" znamena "read", este existuje
-- funkcia"w+" cize write
meno = io.open("flash1:/registry/system.dreg","r") 
-- musim precita IBA urcity riadok, ten najdem podla offsetu riadku
-- proste pozrite si system.dreg v hex editore :) (0x2380 - offset)
meno:seek("set", 0x2380) 
-- precitam data, 27 znamena pocet znakov, max. dlzka nicku je 27
-- znakov
precitajmeno = meno:read(27)
-- zavriem subor
meno:close()

while true do

screen:clear()

pad = Controls.read()

--pisem na obrazovku
screen:print(5, 5, "Find Name by myschoo", white)
screen:print(100,100, "Tvoje PSP meno je:" , white)
screen:print(100,115, precitajmeno , white)

if pad:cross() then
System.Quit()
end

screen.waitVblankStart()
screen.flip()
end