Author Topic: [Lua] CubeField (Read 37071 times)

Adriweb · « **Reply #30 on:** October 23, 2011, 07:44:11 am »

a nice surprise

I'll send you an email soon.

btw, I just looked at the code, it's pretty good programming

congratz

(btw : I won't tell how I extracted the code...

buzz buzz buzz)

Chockosta · « **Reply #31 on:** October 23, 2011, 07:55:02 am »

Thanks

(And I'm very curious!)

EDIT : Oh, and by the way, the latest release is available here

Chockosta · « **Reply #32 on:** October 23, 2011, 02:21:47 pm »

Sorry for double-posting, but...

Update ! (again)

-There is a nice sprite for the player
-The corridor is more regular

I just modified the source which Adriweb gave to me, so no need to extract the code this time.

I think this is the final release...
Jonius7, could you please do another animated screenshot ?

Final source code :

Spoiler For Spoiler:

Quote from: Lua

playerImg=image.new("\020\000\000\000\020\000\000\000\000\000\000\000(\000\000\000\016\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128")
cubesX={1,5,7,6,4,6,4,1,3,2,3,7,8,9,1,2,3,4,2,6,7,1,9,1,2,3,4}
cubesY={1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9}
lastCube=1
player=0
speed=0.1
moving=false
dir=1
moveStart=0
menu=true
score=0
level=1
color={225,170,0}
rotation=0

function render(gc)
drawHorizon(gc)
local size,x,y,i,polygon
for j=1,27 do
i=(j+lastCube-2)%27+1
size=cubesY[i]*cubesY[i]/1.5+8
x=(cubesX[i]-7-player)*20*(cubesY[i]*cubesY[i]/20+0.5)-size/2
y=cubesY[i]*cubesY[i]*2-152
polygon=rotate({x,y,x+size,y,x+size,y+size,x,y+size,x,y})
if cubesY[i]>1 then
gc:setColorRGB(color[1],color[2],color[3])
gc:fillPolygon(polygon)
gc:setColorRGB(0,0,0)
gc:drawPolyLine(polygon)
end
if cubesY[i]>7.5 and cubesY[i]<8.5 then
if x<7 and x+size>-7 then
on.escapeKey()
end
end
end
end

function rotate(p)
local s,c=math.sin(rotation),math.cos(rotation)
return {p[1]*c-p[2]*s+159,p[1]*s+p[2]*c+202,p[3]*c-p[4]*s+159,p[3]*s+p[4]*c+202,p[5]*c-p[6]*s+159,p[5]*s+p[6]*c+202,p[7]*c-p[8]*s+159,p[7]*s+p[8]*c+202,p[9]*c-p[10]*s+159,p[9]*s+p[10]*c+202}
end

function updateCubes()
local step=menu and 0.06 or speed
for i=1,27 do
cubesY[i]=cubesY[i]+step
if cubesY[i]>10 then
if score%1000<800 then
cubesX[i]=math.random(10,140)/10+player
else
cubesX[i]=math.random(10,140)/200+player+(i-1)%2*5+4.1
end
cubesY[i]=1
lastCube=lastCube==1 and 27 or lastCube-1
end
end
end

function updateMove()
if moving then
player=player+0.07*dir
if math.abs(rotation)<0.1 then
rotation=rotation-0.005*dir
end
if timer.getMilliSecCounter()-moveStart>=150 then
moving=false
end
else
if math.abs(rotation)>0.005 then
rotation=rotation-0.005*rotation/math.abs(rotation)
end
end
end

function drawPlayer(gc)
if not menu then
gc:drawImage(playerImg,149,192)
end
end

function drawHorizon(gc)
local s,c=math.sin(rotation),math.cos(rotation)
gc:setColorRGB(0,0,0)
gc:drawLine(s*142-c*200+159,202-c*142-s*200,c*200+s*142+159,s*200-c*142+202)
end

function drawMenu(gc)
if menu then
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",30)
gc:drawString("CubeField",80,10,"top")
gc:setFont("sansserif","b",12)
gc:drawString("Press Enter",115,150,"top")
local highscore=var.recall("highscore")
if not highscore then
var.store("highscore",0)
highscore=0
end
if score>highscore then
var.store("highscore",score)
document.markChanged()
end
local str="Score : "..tostring(score).." Highscore : "..tostring(highscore)
gc:drawString(str,159-gc:getStringWidth(str)/2,100,"top")
end
end

function drawScore(gc)
if not menu then
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",12)
gc:drawString(tostring(score),2,0,"top")
if score%1000>950 then
gc:setFont("sansserif","r",30)
gc:drawString("Speed Up !",80,10,"top")
end
end
end

function levelUp()
speed=speed+0.02
level=level+1
if (level-1)%5==0 then
color={225,170,0}
elseif (level-1)%5==1 then
color={0,0,255}
elseif (level-1)%5==2 then
color={100,100,100}
elseif (level-1)%5==3 then
color={90,255,0}
elseif (level-1)%5==4 then
color={255,255,255}
end
end

function on.paint(gc)
render(gc)
drawPlayer(gc)
drawMenu(gc)
drawScore(gc)
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",8)
gc:drawString("Lua CubeField - Par Loic Pujet",10,200,"top")
timer.start(0.01)
end

function on.timer()
timer.stop()
updateCubes()
updateMove()
if not menu then
score=score+1
if score%1000==0 then
levelUp()
end
end
platform.window:invalidate()
end

function on.escapeKey()
menu=true
end

function on.enterKey()
if menu then
menu=false
speed=0.08
moving=false
score=0
level=1
color={225,170,0}
for i=1,27 do
cubesY[i]=cubesY[i]-5
end
end
end

function on.arrowLeft()
if not menu then
dir=-1
moving=true
moveStart=timer.getMilliSecCounter()
end
end

function on.arrowRight()
if not menu then
dir=1
moving=true
moveStart=timer.getMilliSecCounter()
end
end

function on.charIn(ch)
if ch=="6" then
on.arrowRight()
elseif ch=="4" then
on.arrowLeft()
end
end

Generated by the BBify'r (http://clrhome.tk/resources/bbify/)

DOWNLOAD

DJ Omnimaga · « **Reply #33 on:** October 23, 2011, 02:31:37 pm »

Wow pretty nice and I like the new sprite. It reminds me the 84+ one now. I'll try it soon.

EDIT: I like the update, also my highscore is 3260

Levak · « **Reply #34 on:** October 23, 2011, 02:43:00 pm »

I've just tested and it is quite nice =)

the only thing I would say is that the paralax is a bit strange. Closer objects are going slower than Far ones. It is a bit difficult to go between to cubes along Z axis (forward).

You really well managed game-events (speed up), but I think you better make it faster to come, don't you think ?

I haven't looked at the code yet.

Chockosta · « **Reply #35 on:** October 23, 2011, 05:20:35 pm »

My highscore with the latest version is 5064...

And yes, my 3D projection may look strange... I made it very quickly.
And you think that the speed up should come faster ? I usually reach at least the third level...

DJ Omnimaga · « **Reply #36 on:** October 23, 2011, 08:24:41 pm »

Quote from: Levak on October 23, 2011, 02:43:00 pm

I've just tested and it is quite nice =)

the only thing I would say is that the paralax is a bit strange. Closer objects are going slower than Far ones. It is a bit difficult to go between to cubes along Z axis (forward).

You really well managed game-events (speed up), but I think you better make it faster to come, don't you think ?

I haven't looked at the code yet.

Yeah I noticed that too. Sometimes I find myself going between two blocks, expecting to pass through, but the area becomes narrower and narrower, then I die.

As for speed I think maybe starting the speed of 1000 pts at 0 might be best, so the 1000 pts won't take too long to come.

Deep Toaster · « **Reply #37 on:** October 23, 2011, 08:29:55 pm »

Quote from: DJ_O on October 23, 2011, 08:24:41 pm

the only thing I would say is that the paralax is a bit strange. Closer objects are going slower than Far ones. It is a bit difficult to go between to cubes along Z axis (forward).

Yeah I noticed that too. Sometimes I find myself going between two blocks, expecting to pass through, but the area becomes narrower and narrower, then I die.[/quote]Same. Remember that close objects are supposed to approach faster, or they seem to slow down.

Jonius7 · « **Reply #38 on:** October 24, 2011, 06:35:32 am »

Quote from: Chockosta on October 23, 2011, 02:21:47 pm

Sorry for double-posting, but...

Update ! (again)

-There is a nice sprite for the player
-The corridor is more regular

I just modified the source which Adriweb gave to me, so no need to extract the code this time.

I think this is the final release...
Jonius7, could you please do another animated screenshot ?

Final source code :
Spoiler For Spoiler:
Quote from: Lua
playerImg=image.new("\020\000\000\000\020\000\000\000\000\000\000\000(\000\000\000\016\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128")
cubesX={1,5,7,6,4,6,4,1,3,2,3,7,8,9,1,2,3,4,2,6,7,1,9,1,2,3,4}
cubesY={1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9}
lastCube=1
player=0
speed=0.1
moving=false
dir=1
moveStart=0
menu=true
score=0
level=1
color={225,170,0}
rotation=0

function render(gc)
drawHorizon(gc)
local size,x,y,i,polygon
for j=1,27 do
i=(j+lastCube-2)%27+1
size=cubesY[i]*cubesY[i]/1.5+8
x=(cubesX[i]-7-player)*20*(cubesY[i]*cubesY[i]/20+0.5)-size/2
y=cubesY[i]*cubesY[i]*2-152
polygon=rotate({x,y,x+size,y,x+size,y+size,x,y+size,x,y})
if cubesY[i]>1 then
gc:setColorRGB(color[1],color[2],color[3])
gc:fillPolygon(polygon)
gc:setColorRGB(0,0,0)
gc:drawPolyLine(polygon)
end
if cubesY[i]>7.5 and cubesY[i]<8.5 then
if x<7 and x+size>-7 then
on.escapeKey()
end
end
end
end

function rotate(p)
local s,c=math.sin(rotation),math.cos(rotation)
return {p[1]*c-p[2]*s+159,p[1]*s+p[2]*c+202,p[3]*c-p[4]*s+159,p[3]*s+p[4]*c+202,p[5]*c-p[6]*s+159,p[5]*s+p[6]*c+202,p[7]*c-p[8]*s+159,p[7]*s+p[8]*c+202,p[9]*c-p[10]*s+159,p[9]*s+p[10]*c+202}
end

function updateCubes()
local step=menu and 0.06 or speed
for i=1,27 do
cubesY[i]=cubesY[i]+step
if cubesY[i]>10 then
if score%1000<800 then
cubesX[i]=math.random(10,140)/10+player
else
cubesX[i]=math.random(10,140)/200+player+(i-1)%2*5+4.1
end
cubesY[i]=1
lastCube=lastCube==1 and 27 or lastCube-1
end
end
end

function updateMove()
if moving then
player=player+0.07*dir
if math.abs(rotation)<0.1 then
rotation=rotation-0.005*dir
end
if timer.getMilliSecCounter()-moveStart>=150 then
moving=false
end
else
if math.abs(rotation)>0.005 then
rotation=rotation-0.005*rotation/math.abs(rotation)
end
end
end

function drawPlayer(gc)
if not menu then
gc:drawImage(playerImg,149,192)
end
end

function drawHorizon(gc)
local s,c=math.sin(rotation),math.cos(rotation)
gc:setColorRGB(0,0,0)
gc:drawLine(s*142-c*200+159,202-c*142-s*200,c*200+s*142+159,s*200-c*142+202)
end

function drawMenu(gc)
if menu then
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",30)
gc:drawString("CubeField",80,10,"top")
gc:setFont("sansserif","b",12)
gc:drawString("Press Enter",115,150,"top")
local highscore=var.recall("highscore")
if not highscore then
var.store("highscore",0)
highscore=0
end
if score>highscore then
var.store("highscore",score)
document.markChanged()
end
local str="Score : "..tostring(score).." Highscore : "..tostring(highscore)
gc:drawString(str,159-gc:getStringWidth(str)/2,100,"top")
end
end

function drawScore(gc)
if not menu then
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",12)
gc:drawString(tostring(score),2,0,"top")
if score%1000>950 then
gc:setFont("sansserif","r",30)
gc:drawString("Speed Up !",80,10,"top")
end
end
end

function levelUp()
speed=speed+0.02
level=level+1
if (level-1)%5==0 then
color={225,170,0}
elseif (level-1)%5==1 then
color={0,0,255}
elseif (level-1)%5==2 then
color={100,100,100}
elseif (level-1)%5==3 then
color={90,255,0}
elseif (level-1)%5==4 then
color={255,255,255}
end
end

function on.paint(gc)
render(gc)
drawPlayer(gc)
drawMenu(gc)
drawScore(gc)
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",8)
gc:drawString("Lua CubeField - Par Loic Pujet",10,200,"top")
timer.start(0.01)
end

function on.timer()
timer.stop()
updateCubes()
updateMove()
if not menu then
score=score+1
if score%1000==0 then
levelUp()
end
end
platform.window:invalidate()
end

function on.escapeKey()
menu=true
end

function on.enterKey()
if menu then
menu=false
speed=0.08
moving=false
score=0
level=1
color={225,170,0}
for i=1,27 do
cubesY[i]=cubesY[i]-5
end
end
end

function on.arrowLeft()
if not menu then
dir=-1
moving=true
moveStart=timer.getMilliSecCounter()
end
end

function on.arrowRight()
if not menu then
dir=1
moving=true
moveStart=timer.getMilliSecCounter()
end
end

function on.charIn(ch)
if ch=="6" then
on.arrowRight()
elseif ch=="4" then
on.arrowLeft()
end
end

Generated by the BBify'r (http://clrhome.tk/resources/bbify/)

DOWNLOAD

I shall do so, may need to w8 a while though.
and yes from DJ_O and DT, there is this gap oftentimes which should look passable, but instead the precision of moving left and right isn't great and BAM! game over.

Chockosta · « **Reply #39 on:** October 24, 2011, 07:10:02 am »

You guys are right, I have to correct that.
(So Jonius7, please wait a bit before recording your screenshot

)

EDIT :

This "bug" comes from an annoying problem (see attachment)
I really don't know how could I fix that.

Hayleia · « **Reply #40 on:** October 24, 2011, 08:20:27 am »

~~Yeah ! a DoorsCS sprite~~

Quote from: Chockosta on October 23, 2011, 05:20:35 pm

My highscore with the latest version is 5064...

1109

Quote from: Jonius7 on October 24, 2011, 06:35:32 am

and yes from DJ_O and DT, there is this gap oftentimes which should look passable, but instead the precision of moving left and right isn't great and BAM! game over.

~~Also, could you please add that the movement can be controlled by the keys 4 and 6 ? Because Athéna's touchpad won't let me play with my fingers always on it~~ Done
Another problem that may not be fixable is the delay with the keys. You know, when you press left, it goes left a bit, then comes back, then goes left a lot, instead of going left a lot from the beginning.

Anyway, great work !!!

Chockosta · « **Reply #41 on:** October 24, 2011, 08:26:27 am »

You can control with 4/6, can't you ?

Anyway, thanks!

Hayleia · « **Reply #42 on:** October 24, 2011, 08:32:11 am »

* Hayleia is stupid.

Yes I can. I was just so excited by your game that I quitted the emulator (without trying 4 and 6) to tell you that you are awesome and then thought it would be great to have 4 and 6 while posting, so I said it

. Sorry.

Chockosta · « **Reply #43 on:** October 24, 2011, 08:58:10 am »

No problem

And the key delay is a huge problem, but this is caused by TI's Lua framework. I tried to make the movement smooth, but this is the best I can do.

Chockosta · « **Reply #44 on:** October 31, 2011, 07:14:07 am »

Okay, it should look better now.
Could someone try it and tell me if the 3D projection is realistic ?

DOWNLOAD

Spoiler For code:

Quote from: Lua

playerImg=image.new("\020\000\000\000\020\000\000\000\000\000\000\000(\000\000\000\016\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\128\000\128\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\128\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\128\000\128\000\128")
cubesX={1,5,7,6,4,6,4,1,3,2,3,7,8,9,1,2,3,4,2,6,7,1,9,1,2,3,4}
cubesY={1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9}
lastCube=1
player=0
speed=0.1
moving=false
dir=1
moveStart=0
menu=true
score=0
level=1
color={225,170,0}
rotation=0

function render(gc)
drawHorizon(gc)
local size,x,y,i,polygon
for j=1,27 do
i=(j+lastCube-2)%27+1
size=100/(10-cubesY[i])
x=(cubesX[i]-7-player)/(10-cubesY[i])*150-size/2
y=5/(10-cubesY[i])*50-180
polygon=rotate({x,y,x+size,y,x+size,y+size,x,y+size,x,y})
if cubesY[i]>1 then
gc:setColorRGB(color[1],color[2],color[3])
gc:fillPolygon(polygon)
gc:setColorRGB(0,0,0)
gc:drawPolyLine(polygon)
end
if y+size>3 and y<17 then
if x<6 and x+size>-6 then
menu=true
end
end
end
end

function rotate(p)
local s,c=math.sin(rotation),math.cos(rotation)
return {p[1]*c-p[2]*s+159,p[1]*s+p[2]*c+202,p[3]*c-p[4]*s+159,p[3]*s+p[4]*c+202,p[5]*c-p[6]*s+159,p[5]*s+p[6]*c+202,p[7]*c-p[8]*s+159,p[7]*s+p[8]*c+202,p[9]*c-p[10]*s+159,p[9]*s+p[10]*c+202}
end

function updateCubes()
local step=menu and 0.06 or speed
for i=1,27 do
cubesY[i]=cubesY[i]+step
if cubesY[i]>10 then
if score%1000<800 then
cubesX[i]=math.random(10,140)/10+player
else
cubesX[i]=math.random(10,140)/200+player+(i-1)%2*5+4.1
end
cubesY[i]=1
lastCube=lastCube==1 and 27 or lastCube-1
end
end
end

function updateMove()
if moving then
player=player+0.07*dir
if math.abs(rotation)<0.15 or dir==rotation/math.abs(rotation) then
rotation=rotation-0.005*dir
end
if timer.getMilliSecCounter()-moveStart>=150 then
moving=false
end
else
if math.abs(rotation)>0.005 then
rotation=rotation-0.005*rotation/math.abs(rotation)
end
end
end

function drawPlayer(gc)
if not menu then
gc:drawImage(playerImg,149,192)
end
end

function drawHorizon(gc)
local s,c=math.sin(rotation),math.cos(rotation)
gc:setColorRGB(0,0,0)
gc:drawLine(s*142-c*200+159,202-c*142-s*200,c*200+s*142+159,s*200-c*142+202)
end

function drawMenu(gc)
if menu then
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",30)
gc:drawString("CubeField",80,10,"top")
gc:setFont("sansserif","b",12)
gc:drawString("Press Enter",115,150,"top")
local highscore=var.recall("highscore")
if not highscore then
var.store("highscore",0)
highscore=0
end
if score>highscore then
var.store("highscore",score)
document.markChanged()
end
local str="Score : "..tostring(score).." Highscore : "..tostring(highscore)
gc:drawString(str,159-gc:getStringWidth(str)/2,100,"top")
end
end

function drawScore(gc)
if not menu then
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",12)
gc:drawString(tostring(score),2,0,"top")
if score%1000>950 then
gc:setFont("sansserif","r",30)
gc:drawString("Speed Up !",80,10,"top")
end
end
end

function levelUp()
speed=speed+0.02
level=level+1
if (level-1)%5==0 then
color={225,170,0}
elseif (level-1)%5==1 then
color={0,0,255}
elseif (level-1)%5==2 then
color={100,100,100}
elseif (level-1)%5==3 then
color={90,255,0}
elseif (level-1)%5==4 then
color={255,255,255}
end
end

function on.paint(gc)
render(gc)
drawPlayer(gc)
drawMenu(gc)
drawScore(gc)
gc:setColorRGB(0,0,0)
gc:setFont("sansserif","r",8)
gc:drawString("Lua CubeField - Par Loic Pujet",10,200,"top")
timer.start(0.01)
end

function on.timer()
timer.stop()
updateCubes()
updateMove()
if not menu then
score=score+1
if score%1000==0 then
levelUp()
end
end
platform.window:invalidate()
end

function on.enterKey()
if menu then
menu=false
speed=0.1
moving=false
score=0
level=1
color={225,170,0}
for i=1,27 do
cubesY[i]=cubesY[i]-5
end
end
end

function on.arrowLeft()
if not menu then
dir=-1
moving=true
moveStart=timer.getMilliSecCounter()
end
end

function on.arrowRight()
if not menu then
dir=1
moving=true
moveStart=timer.getMilliSecCounter()
end
end

function on.charIn(ch)
if ch=="6" then
on.arrowRight()
elseif ch=="4" then
on.arrowLeft()
end
end

Generated by the BBify'r (http://clrhome.tk/resources/bbify/)

Author Topic: [Lua] CubeField (Read 37071 times)

Adriweb

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField

DJ Omnimaga

Re: [Lua] CubeField

Levak

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField

DJ Omnimaga

Re: [Lua] CubeField

Deep Toaster

Re: [Lua] CubeField

Jonius7

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField

Hayleia

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField

Hayleia

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField

Chockosta

Re: [Lua] CubeField