Author Topic: [Lua] Space Invaders (Read 28724 times)

Chockosta · « **on:** June 03, 2011, 02:56:02 pm »

Hello everybody !

That's my first post here, so I'll try to introduce myself.
First, I'm French. I am a very bad English speaker (well, I'm fifteen and our English teacher sucks) so I apologize for all the nonsenses and mistakes that I'll do.
I was a member of TI-Bank, and I left this website because of all the troubles (fights between admins, etc)
So the most interesting website about calculators was Omnimaga, and I registered.
I have a TI-83+ and a TI-Nspire (Non-CAS & clickpad), and I code in Axe, in C for Nspire and in Lua. I also program in C with OpenGL on my PC, but that's not really interesting.
Well, I think I've enough talked about myself.

I made this post because I wanted feedbacks (not sure about this word) for my newest project, a Space Invaders game in Lua.
It looks like the original game, excepted that there's only one kind of enemies, and there's no "houses". Also, the enemies doesn't go faster as they go down, but the speed increases with the level.

The player can shoot with the up arrow, but that's not really convenient. If you had any better idea...
Also, I've never tried it on a calc. I don't have any CX and I use the OS 2.0.1 on my clickpad. If you could try it on your calc (and post your hi-score !)
EDIT : final version, updated.

Thank you,
Chockosta (Loic Pujet)

Lua code (Edited, final version):

Code: [Select]

function on.charIn(ch)
	if ch=="r" then
		blocks={5,5,5,5,5,5,5,5,5,5,5,5}
		blockAttacked=0
		game="notfinished"
		score=0
		player=100
		shotX=0
		shotY=0
		level=1
		wait=0.04
		aliensDir="right"
		down="no"
		aliensX={}
		aliensY={}
		shotsX={}
		shotsY={}
		lives=3
		for i=1,21,1 do
			aliensX[i]=(i-1)%7*31+1
			aliensY[i]=math.floor((i-1)/7)*25+10
			shotsX[i]=aliensX[i]
			shotsY[i]=200
		end
	end
	if ch=="c" then
		originalColors=not originalColors
	end
end

function blocktest(x,y)
	blockAttacked=0
	if y>170 and y<177 then
		if x>30 and x<40 and blocks[1]>0 then
			blockAttacked=1
		elseif x>40 and x<=50 and blocks[2]>0 then
			blockAttacked=2
		elseif x>50 and x<=60 and blocks[3]>0 then
			blockAttacked=3
		elseif x>60 and x<=70 and blocks[4]>0 then
			blockAttacked=4
		elseif x>140 and x<=150 and blocks[5]>0 then
			blockAttacked=5
		elseif x>150 and x<=160 and blocks[6]>0 then
			blockAttacked=6
		elseif x>160 and x<=170 and blocks[7]>0 then
			blockAttacked=7
		elseif x>170 and x<=180 and blocks[8]>0 then
			blockAttacked=8
		elseif x>250 and x<=260 and blocks[9]>0 then
			blockAttacked=9
		elseif x>260 and x<=270 and blocks[10]>0 then
			blockAttacked=10
		elseif x>270 and x<=280 and blocks[11]>0 then
			blockAttacked=11
		elseif x>280 and x<=290 and blocks[12]>0 then
			blockAttacked=12
		end
	end
end


on.charIn("r")


function on.arrowLeft()
	if player>0 then
		player=player-10
	end
end
function on.arrowRight()
	if player<290 then
		player=player+10
	end
end
function on.tabKey()
	if shotY<=0 then
		shotY=195
		shotX=player+13
	end
end


function on.paint(gc)
	if originalColors then
		gc:setColorRGB(0,0,0)
		gc:fillRect(0,0,platform.window:width(),platform.window:height())
	end

	if not originalColors then	gc:setColorRGB(0,0,0)
	else	gc:setColorRGB(255,255,255)	end
	gc:setPen("thin","smooth")
	gc:setFont("sansserif","r",8)
	gc:drawString("Lua Alien Invaders - Par Loic Pujet",10,200,"top")

	if game=="notfinished" then
		if not originalColors then	gc:setColorRGB(200,0,0)
		else	gc:setColorRGB(255,255,255)	end
		for i=1,21,1 do
			if aliensY[i]~=0 then
				gc:drawArc(aliensX[i]+4,aliensY[i]-9,10,10,0,360)
				gc:fillArc(aliensX[i]-5,aliensY[i]-4,28,8,0,360)
			end
		end

		if not originalColors then	gc:setColorRGB(0,0,200)
		else	gc:setColorRGB(255,255,0)	end
		for i=1,21,1 do
			if shotsY[i]<200 then
				gc:fillRect(shotsX[i],shotsY[i],2,5)
			end
		end
		if shotY>0 then
			gc:fillRect(shotX,shotY,4,6)
		end

		if not originalColors then	gc:setColorRGB(100,0,255)
		else	gc:setColorRGB(0,255,0)	end
		gc:fillRect(player,195,30,10)
		gc:fillRect(player+13,191,4,4)
		gc:setFont("sansserif","r",10)
		gc:drawString("Lives:"..tostring(lives).." Score:"..tostring(score).." Level:"..tostring(level),0,0,"top")

		if not originalColors then	add=3
		else	add=0	end
		for i=1,12,1 do
			if blocks[i]>0 then
				gc:fillRect(i*10+math.floor((i-1)/4)*70+20,180-blocks[i]*2,10,blocks[i]*2)
			end
		end
	else
		if var.recall("highscore")==nil then
			var.store("highscore",0)
		else
			if var.recall("highscore")<score then
				var.store("highscore",score)
				document.markChanged()
			end
		end
		if not originalColors then	gc:setColorRGB(0,0,0)
		else	gc:setColorRGB(255,255,255)	end
		gc:setFont("sansserif","b",15)
		gc:drawString("Score : "..tostring(score).."        High score : "..tostring(var.recall("highscore")),50,50, "top")
		if not originalColors then	gc:setColorRGB(0,0,255)	end
		if locale.name()=="fr" then
			gc:drawString("Appuyez sur R pour rejouer",50,150,"top")
		else
			gc:drawString("Press R to try again",80,150,"top")
		end
	end

	if wait>0.01 then
		timer.start(wait)
	else
		timer.start(0.01)
	end

end


function on.timer()
	timer.stop()
	
	if game=="notfinished" then
		if aliensDir=="right" then
			for i=1,21,1 do
				if aliensY[i]>0 then
					aliensX[i]=aliensX[i]+1
				end
			end
		else
			for i=1,21,1 do
				if aliensY[i]>0 then
					aliensX[i]=aliensX[i]-1
				end
			end
		end

		if aliensDir=="right" then
			for i=1,21,1 do
				if aliensX[i]>295 then
					down="yes"
				end
			end
		else
			for i=1,21,1 do
				if aliensX[i]<5 then
					down="yes"
				end
			end
		end

		if down=="yes" then
			down="no"
			for i=1,21,1 do
				if aliensY[i]>0 then
					aliensY[i]=aliensY[i]+25
				end
			end
			if aliensDir=="left" then
				aliensDir="right"
			else
				aliensDir="left"
			end
		end

		for i=1,21,1 do
			if aliensY[i]>180 then
				game="finished"
			end

			if shotsY[i]>=200 and aliensY[i]~=0 then
				if math.random(1,100)==5 then
					shotsY[i]=aliensY[i]+math.random(1,10)
					shotsX[i]=aliensX[i]
				end
			else
				shotsY[i]=shotsY[i]+3
			end

			blocktest(shotsX[i],shotsY[i])
			if blockAttacked>0 then
				shotsY[i]=201
				blocks[blockAttacked]=blocks[blockAttacked]-1
			end

			if shotsY[i]<200 then
				if shotsY[i]>195 and shotsX[i]>player and shotsX[i]<player+30 then
					lives=lives-1
					shotsY[i]=200
				end
			end

			if shotY>0 and shotY>aliensY[i]-5 and shotY<aliensY[i]+5 and shotX>aliensX[i]-10 and shotX<aliensX[i]+21 then
				aliensY[i]=0
				aliensX[i]=100
				shotY=0
				score=score+1
			end
		end

		blocktest(shotX,shotY)
		if blockAttacked>0 then
			shotY=-1
			blocks[blockAttacked]=blocks[blockAttacked]-1
		end

		if shotY>=0 then
			shotY=shotY-5
		end

		if lives<=0 then
			game="finished"
		end
		

		wintest=0
		for i=1,21,1 do
			wintest=wintest+aliensY[i]
		end

		if wintest==0 then
			if wait>0.01 then
				wait=wait-0.005
			end
			level=level+1
			aliensDir="right"
			down="no"
			for i=1,21,1 do
				aliensX[i]=(i-1)%7*31+1
				aliensY[i]=math.floor((i-1)/7)*25+10
				shotsX[i]=aliensX[i]
				shotsY[i]=200
			end
		end
	end

	platform.window:invalidate()
end

I attached the .tns It works on OS 3.0.1 and OS 3.0.2 (edited : bug fixed)

JosJuice · « **Reply #1 on:** June 03, 2011, 03:00:02 pm »

Welcome to Omnimaga! Have you uploaded your game yet so that others can play it? I think you can't upload it as an attachment in an Omnimaga post before you've made a certain amount of posts, so maybe you could try a file sharing site like mediafire.com.

Also, your English seems to be fine.

Jim Bauwens · « **Reply #2 on:** June 03, 2011, 03:06:12 pm »

Hey, and welcome Chockosta!
Its nice to see another Lua programmer

I just tried your game on my touchpad, but for some reason I immediately die

Quote

The player can shoot with the up arrow, but that's not really convenient. If you had any better idea...

Maybe the TAB key is better?

Keoni29 · « **Reply #3 on:** June 03, 2011, 03:09:12 pm »

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

Hello everybody !

Hi there

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

That's my first post here, so I'll try to introduce myself.

Welcome!

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

First, I'm French. I am a very bad English speaker (well, I'm fifteen and our English teacher sucks) so I apologize for all the nonsenses and mistakes that I'll do.

That ain't a problem. There are people who can't speak English at all. We have a French board for those n00bs

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

I was a member of TI-Bank, and I left this website because of all the troubles (fights between admins, etc)

Oh God. They play The Game too?

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

So the most interesting website about calculators was Omnimaga, and I registered.

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

I have a TI-83+ and a TI-Nspire (Non-CAS & clickpad), and I code in Axe, in C for Nspire and in Lua. I also program in C with OpenGL on my PC, but that's not really interesting.

I have a TI 84 + myself.

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

Well, I think I've enough talked about myself.

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

I made this post because I wanted feedbacks (not sure about this word) for my newest project, a Space Invaders game in Lua.

Feedback (It's already plural)

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

It looks like the original game, excepted that there's only one kind of enemies, and there's no "houses". Also, the enemies doesn't go faster as they go down, but the speed increases with the level.

You did that because it was easier to make or because you wanted to alter these things?

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

The player can shoot with the up arrow, but that's not really convenient. If you had any better idea...
Also, I've never tried it on a calc. I don't have any CX and I use the OS 2.0.1 on my clickpad. If you could try it on your calc (and post your hi-score !)

I don't have a Nspire

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

Thank you,
Chockosta (Loic Pujet)

ruler501 · « **Reply #4 on:** June 03, 2011, 03:18:00 pm »

Sounds good I use OS 2.0.1 so unfortunately I won't be able to play this. I refuse to upgrade to 3 till downgrading and Ndless become possible.
You should start an introduction topic in the intro board so you can get your peanuts to make your calc run faster.
Your English seems almost as good as mine and I live in America and thats my first language.

Jim Bauwens · « **Reply #5 on:** June 03, 2011, 03:18:46 pm »

I have looked for the bug, and this is what I found

Code: [Select]

         for i=1,21,1 do
            if aliensY>0 then
               aliensY=aliensY+25
            end
         end

For some reason you put for loops arround every check, while it is not necessary.
This piece of code will loop 21 times, which means that aliensY=aliensY+525 .
And that is why you die.

Chockosta · « **Reply #6 on:** June 03, 2011, 03:37:34 pm »

Strange... It works perfectly on my emulator. (Nspire_emu)
Oooooh i understood !
The "spoiler" option suppress all the '[i ]' of tables ! Let's try it with "code"

Code: [Select]

function on.charIn(ch)
	if ch=="r" then
		game="notfinished"
		score=0
		player=100
		shotX=0
		shotY=0
		wait=0.04
		aliensDir="right"
		down="no"
		aliensX={}
		aliensY={}
		shotsX={}
		shotsY={}
		lives=3
		for i=1,21,1 do
			aliensX[i]=(i-1)%7*31+1
			aliensY[i]=math.floor((i-1)/7)*25+10
			shotsX[i]=aliensX[i]
			shotsY[i]=200
		end
	end
end


on.charIn("r")


function on.arrowLeft()
	if player>0 then
		player=player-10
	end
end
function on.arrowRight()
	if player<290 then
		player=player+10
	end
end
function on.arrowUp()
	if shotY<=0 then
		shotY=195
		shotX=player+13
	end
end


function on.paint(gc)
	gc:setColorRGB(0,0,0)
	gc:setPen("thin","smooth")
	gc:setFont("sansserif","r",8)
	gc:drawString("Lua Alien Invaders - Par Loic Pujet",10,200,"top")

	if game=="notfinished" then
		gc:setColorRGB(200,0,0)
		for i=1,21,1 do
			if aliensY[i]~=0 then
				gc:drawArc(aliensX[i]+4,aliensY[i]-9,10,10,0,360)
				gc:fillArc(aliensX[i]-5,aliensY[i]-4,28,8,0,360)
			end
		end

		gc:setColorRGB(0,0,200)
		for i=1,21,1 do
			if shotsY[i]<200 then
				gc:fillRect(shotsX[i],shotsY[i],2,5)
			end
		end
		if shotY>0 then
			gc:fillRect(shotX,shotY,4,6)
		end

		gc:setColorRGB(100,0,255)
		gc:fillRect(player,195,30,10)
		gc:fillRect(player+13,191,4,4)
		gc:setFont("sansserif","r",10)
		gc:drawString("vies:"..tostring(lives).." score:"..tostring(score),0,0,"top")
	else
		gc:setColorRGB(0,0,0)
		gc:setFont("sansserif","b",15)
		gc:drawString("Score : "..tostring(score),100,50, "top")
		gc:setColorRGB(0,0,255)
		gc:drawString("Appuyez sur R pour rejouer",50,150,"top")
	end

	timer.start(wait)
end


function on.timer()
	timer.stop()
	
	if game=="notfinished" then
		if aliensDir=="right" then
			for i=1,21,1 do
				if aliensY[i]>0 then
					aliensX[i]=aliensX[i]+1
				end
			end
		else
			for i=1,21,1 do
				if aliensY[i]>0 then
					aliensX[i]=aliensX[i]-1
				end
			end
		end

		if aliensDir=="right" then
			for i=1,21,1 do
				if aliensX[i]>305 then
					down="yes"
				end
			end
		else
			for i=1,21,1 do
				if aliensX[i]<15 then
					down="yes"
				end
			end
		end

		if down=="yes" then
			down="no"
			for i=1,21,1 do
				if aliensY[i]>0 then
					aliensY[i]=aliensY[i]+25
				end
			end
			if aliensDir=="left" then
				aliensDir="right"
			else
				aliensDir="left"
			end
		end

		for i=1,21,1 do
			if aliensY[i]>200 then
				game="finished"
			end
		end

		for i=1,21,1 do
			if shotsY[i]>=200 and aliensY[i]~=0 then
				if math.random(1,100)==5 then
					shotsY[i]=aliensY[i]+math.random(1,10)
					shotsX[i]=aliensX[i]
				end
			else
				shotsY[i]=shotsY[i]+3
			end
		end
		if shotY>=0 then
			shotY=shotY-5
		end

		for i=1,21,1 do
			if shotsY[i]<200 then
				if shotsY[i]>195 and shotsX[i]>player and shotsX[i]<player+30 then
					lives=lives-1
					shotsY[i]=200
				end
			end
		end
		if lives==0 then
			game="finished"
		end
		
		if shotY>0 then
			for i=1,21,1 do
				if shotY>0 and shotY>aliensY[i]-5 and shotY<aliensY[i]+5 and shotX>aliensX[i]-15 and shotX<aliensX[i]+15 then
					aliensY[i]=0
					aliensX[i]=100
					shotY=0
					score=score+1
				end
			end
		end

		wintest=0
		for i=1,21,1 do
			wintest=wintest+aliensY[i]
		end
		if wintest==0 then
			if wait>0.02 then
				wait=wait-0.005
			end
			aliensDir="right"
			down="no"
			for i=1,21,1 do
				aliensX[i]=(i-1)%7*31+1
				aliensY[i]=math.floor((i-1)/7)*25+10
				shotsX[i]=aliensX[i]
				shotsY[i]=200
			end
		end
	end

	platform.window:invalidate()
end


function on.arrowKey(key)
	platform.window:invalidate()
end

Yay, it works !
I join a screenie :

Translate it to English if you want.

BTW, I saw that we could join pictures. How can I do that ?

Ashbad · « **Reply #7 on:** June 03, 2011, 03:38:54 pm »

I looked through some of your code, and I noticed a few things wrong with it:

- unoptimized math commands. While it's not huge, using player+=10 is a lot better than player=player+10.
- what's the deal with all of the for loops? I don't see the point in many of them.
- you should chain if statements together more, it'll remove the need for much of the redundancies and might even half your code size.
- why do you assign different functions to keys instead of just making a checkKeys() function or just putting all checks inline? Or are you overriding previously existing functions provided by an NLua module?

ruler501 · « **Reply #8 on:** June 03, 2011, 03:40:20 pm »

you use the drawimage function with the image screen. Thats the limit of my knowledge unfortunately

Chockosta · « **Reply #9 on:** June 03, 2011, 03:41:19 pm »

Quote from: Ashbad on June 03, 2011, 03:38:54 pm

I looked through some of your code, and I noticed a few things wrong with it:

- unoptimized math commands. While it's not huge, using player+=10 is a lot better than player=player+10.
- what's the deal with all of the for loops? I don't see the point in many of them.
- you should chain if statements together more, it'll remove the need for much of the redundancies and might even half your code size.
- why do you assign different functions to keys instead of just making a checkKeys() function or just putting all checks inline? Or are you overriding previously existing functions provided by an NLua module?

I just started in LUA...
The '+=' works ? Omg I was fed up with all the 'player=player+10'
I will check all the other things tomorrow...

Levak · « **Reply #10 on:** June 03, 2011, 03:44:05 pm »

Quote from: Chockosta on June 03, 2011, 02:56:02 pm

It looks like the original game, excepted that there's only one kind of enemies, and there's no "houses". Also, the enemies doesn't go faster as they go down, but the speed increases with the level.

Only one thing (don't have the time) : In the real game, the ennemy speed increases when they were less only because it was a performance lack. More ennemy there were, more the game was laggy !

Ashbad · « **Reply #11 on:** June 03, 2011, 03:44:18 pm »

Quote from: Chockosta on June 03, 2011, 03:41:19 pm

Quote from: Ashbad on June 03, 2011, 03:38:54 pm
I looked through some of your code, and I noticed a few things wrong with it:

- unoptimized math commands. While it's not huge, using player+=10 is a lot better than player=player+10.
- what's the deal with all of the for loops? I don't see the point in many of them.
- you should chain if statements together more, it'll remove the need for much of the redundancies and might even half your code size.
- why do you assign different functions to keys instead of just making a checkKeys() function or just putting all checks inline? Or are you overriding previously existing functions provided by an NLua module?

I just started in LUA...
The '+=' works ? Omg I was fed up with all the 'player=player+10'
I will check all the other things tomorrow...

I can help you rewrite if you want, I think I could probably cut out ~60 lines of code if I do it correctly. Also, for a beginning Lua programmer, it's actually not bad, and you should be proud

Most double math commands like +=, -=, and the like usually work in lua, with exceptions of a few good ones like ++, --, and depending on the platform and what version was ported, the bitwise shifting ops.

ruler501 · « **Reply #12 on:** June 03, 2011, 03:58:05 pm »

I believe this code should run a little faster. I haven't tested it yet though

Spoiler For Hopefully faster non buggy code:

Code: [Select]

function on.charIn(ch)
   if ch=="r" then
      game="notfinished"
      score=0
      player=100
      shotX=0
      shotY=0
      wait=0.04
      aliensDir="right"
      down="no"
      aliensX={}
      aliensY={}
      shotsX={}
      shotsY={}
      lives=3
      for i=1,21,1 do
         aliensX=(i-1)%7*31+1
         aliensY=math.floor((i-1)/7)*25+10
         shotsX=aliensX
         shotsY=200
      end
   end
end


on.charIn("r")


function on.arrowLeft()
   if player>0 then
      player=player-10
   end
end
function on.arrowRight()
   if player<290 then
      player=player+10
   end
end
function on.arrowUp()
   if shotY<=0 then
      shotY=195
      shotX=player+13
   end
end


function on.paint(gc)
   gc:setColorRGB(0,0,0)
   gc:setPen("thin","smooth")
   gc:setFont("sansserif","r",8)
   gc:drawString("Lua Alien Invaders - Par Loic Pujet",10,200,"top")

   if game=="notfinished" then
      gc:setColorRGB(200,0,0)
      if aliensY~=0 then
         gc:drawArc(aliensX+4,aliensY-9,10,10,0,360)
         gc:fillArc(aliensX-5,aliensY-4,28,8,0,360)
      end

      gc:setColorRGB(0,0,200)
      if shotsY<200 then
         gc:fillRect(shotsX,shotsY,2,5)
      end
      if shotY>0 then
         gc:fillRect(shotX,shotY,4,6)
      end

      gc:setColorRGB(100,0,255)
      gc:fillRect(player,195,30,10)
      gc:fillRect(player+13,191,4,4)
      gc:setFont("sansserif","r",10)
      gc:drawString("vies:"..tostring(lives).." score:"..tostring(score),0,0,"top")
   else
      gc:setColorRGB(0,0,0)
      gc:setFont("sansserif","b",15)
      gc:drawString("Score : "..tostring(score),100,50, "top")
      gc:setColorRGB(0,0,255)
      gc:drawString("Appuyez sur R pour rejouer",50,150,"top")
   end

   timer.start(wait)
end


function on.timer()
   timer.stop()
   
   if game=="notfinished" then
      if aliensDir=="right" then
         if aliensY>0 then
            aliensX+=1
         end
      else
         if aliensY>0 then
            aliensX-=1
         end
      end

      if aliensDir=="right" then
         if aliensX>305 then
            down="yes"
         end
      else
         if aliensX<15 then
            down="yes"
         end
      end

      if down=="yes" then
         down="no"
         if aliensY>0 then
            aliensY+=25
         end
         if aliensDir=="left" then
            aliensDir="right"
         else
            aliensDir="left"
         end
      end

      if aliensY>200 then
         game="finished"
      end

      if shotsY>=200 and aliensY~=0 then
         if math.random(1,100)==5 then
            shotsY=aliensY+math.random(1,10)
            shotsX=aliensX
         end
      else
          shotsY+=3
      end
      if shotY>=0 then
         shotY-=5
      end

      if shotsY<200 then
         if shotsY>195 and shotsX>player and shotsX<player+30 then
            lives-=1
            shotsY=200
         end
      end
      if lives==0 then
         game="finished"
      end
      
      if shotY>0 then
         if shotY>0 and shotY>aliensY-5 and shotY<aliensY+5 and shotX>aliensX-15 and shotX<aliensX+15 then
            aliensY=0
            aliensX=100
            shotY=0
            score+=1
         end
      end

      wintest=0
      wintest=wintest+aliensY
      if wintest==0 then
         if wait>0.02 then
            wait-=0.005
         end
         aliensDir="right"
         down="no"
         for i=1,21,1 do
            aliensX=(i-1)%7*31+1
            aliensY=math.floor((i-1)/7)*25+10
            shotsX=aliensX
            shotsY=200
         end
      end
   end

function on.arrowKey(key)
   platform.window:invalidate()
end

Ashbad · « **Reply #13 on:** June 03, 2011, 04:08:29 pm »

I went through really quickly and tried to cut off as much as I could in ~5 minutes. Here's what I did in a nutshell:

-I put together the X and Y lists for less loops in the for statements, should double their speed
-I optimized math
-I took out a few logic things that weren't nessicary

I think there's still huge potential to optimize with this further, but make the rest of your game before it becomes unreadable!

Code: [Select]

function on.charIn(ch)
	if ch=="r" then
		game="notfinished"
		score=0
		player=100
		shotX=0;shotY=0
		wait=0.04
		aliensDir="right"
		down="no"
		aliensXY={}
		shotsXY={}
		lives=3
		for i=1,21,2 do
			aliensXY[i]=(math.ceil(i/2)-1)%7*31+1
			aliensXY[i+1]=math.floor((math.ceil(i+1/2)-1)/7)*25+10
			shotsXY[i]=aliensX[i]
			shotsXY[i+1]=200
		end
	end
end


on.charIn("r")


function on.arrowLeft()
	if player~=0 then 
		player-=10
	end
end
function on.arrowRight()
	if player<290 then
		player+=10
	end
end
function on.arrowUp()
	if shotY <= 0 then
		shotY=195
		shotX+=13
	end
end


function on.paint(gc)
	gc:setColorRGB(0,0,0)
	gc:setPen("thin","smooth")
	gc:setFont("sansserif","r",8)
	gc:drawString("Lua Alien Invaders - Par Loic Pujet",10,200,"top")

	if game=="notfinished" then
		gc:setColorRGB(200,0,0)
		for i=1,21,2 do
			if aliensXY[i+1]~=0 then
				gc:drawArc(aliensXY[i]+4,aliensXY[i+1]-9,10,10,0,360)
				gc:fillArc(aliensXY[i]-5,aliensXY[i+1]-4,28,8,0,360)
			end
		end

		gc:setColorRGB(0,0,200)
		for i=1,21,2 do
			if shotsXY[i+1]<200 then
				gc:fillRect(shotsXY[i],shotsxY[i+1],2,5)
			end
		end
		if shotY>0 then
			gc:fillRect(shotX,shotY,4,6)
		end

		gc:setColorRGB(100,0,255)
		gc:fillRect(player,195,30,10)
		gc:fillRect(player+13,191,4,4)
		gc:setFont("sansserif","r",10)
		gc:drawString("vies:"..tostring(lives).." score:"..tostring(score),0,0,"top")
	else
		gc:setColorRGB(0,0,0)
		gc:setFont("sansserif","b",15)
		gc:drawString("Score : "..tostring(score),100,50, "top")
		gc:setColorRGB(0,0,255)
		gc:drawString("Appuyez sur R pour rejouer",50,150,"top")
	end

	timer.start(wait)
end


function on.timer()
	timer.stop()
	
	if game=="notfinished" then
		if aliensDir=="right" then
			for i=1,21,2 do
				if aliensXY[i+1]>0 then
					aliensXY[i]+=1
				end
			end
		else
			for i=1,21,2 do
				if aliensXY[i+1]>0 then
					aliensXY[i]-=1
				end
			end
		end

		if aliensDir=="right" then
			for i=1,21,2 do
				if aliensXY[i]>305 then
					down="yes"
				end
			end
		else
			for i=1,21,2 do
				if aliensXY[i]<15 then
					down="yes"
				end
			end
		end

		if down=="yes" then
			down="no"
			for i=1,21,2 do
				if aliensXY[i+1]>0 then
					aliensXY[i+1]+=25
				end
			end
			if aliensDir=="left" then
				aliensDir="right"
			else
				aliensDir="left"
			end
		end

		for i=1,21,2 do
			if aliensXY[i+1]>200 then
				game="finished"
			end
		end

		for i=1,21,2 do
			if shotsXY[i+1]>=200 and aliensXY[i+1]~=0 then
				if math.random(1,100)==5 then
					shotsXY[i+1]=aliensXY[i+1]+math.random(1,10)
					shotsXY[i]=aliensXY[i]
				end
			else
				shotsXY[i+1]+=3
			end
		end
		if shotY>=0 then
			shotY-=5
		end

		for i=1,21,2 do
			if shotsXY[i+]<200 then
				if shotsXY[i+1]>195 and shotsXY[i]>player and shotsXY[i]<player+30 then
					lives-=1
					shotsXY[i+1]=200
				end
			end
		end
		if lives==0 then
			game="finished"
		end
		
		if shotY ~= 0 then
			for i=1,21,2 do
				if shotY~=0 and shotY>aliensXY[i+1]-5 and shotY<aliensXY[i+1]+5 
						   and shotX>aliensXY[i]-15 and shotX<aliensXY[i]+15 then
					aliensXY[i+1]=0
					aliensXY[i]=100
					shotY=0
					score+=1
				end
			end
		end

		wintest=0
		for i=1,21,2 do
			wintest+=aliensXY[i+1]
		end
		if wintest==0 and
			if wait>0.02 then 
				wait-=0.005
			end
			aliensDir="right"
			down="no"
			for i=1,21,2 do
				aliensXY[i]=(math.ceil(i/2)-1)%7*31+1
			aliensXY[i+1]=math.floor((math.ceil(i+1/2)-1)/7)*25+10
			shotsXY[i]=aliensX[i]
			shotsXY[i+1]=200
			end
		end
	end

	platform.window:invalidate()
end


function on.arrowKey(key)
	platform.window:invalidate()
end

EDIT: suggested new optimizations:

- there are some areas where do in pairs loops would be beneficial.
- using numbers for directions rather than strings.
- instead of using built in shape methods to draw your objects, I'm sure using sprite data would be a faster choice.

Levak · « **Reply #14 on:** June 03, 2011, 04:31:48 pm »

Quote from: Ashbad on June 03, 2011, 03:44:18 pm

Most double math commands like +=, -=, and the like usually work in lua, with exceptions of a few good ones like ++, --, and depending on the platform and what version was ported, the bitwise shifting ops.

Good try, but ... you're wrong.
On the TI-Nspire Lua langage you can't do that.
Example of the given error :

Author Topic: [Lua] Space Invaders (Read 28724 times)

Chockosta

[Lua] Space Invaders

JosJuice

Re: [Lua] Space Invaders

Jim Bauwens

Re: [Lua] Space Invaders

Keoni29

Re: [Lua] Space Invaders

ruler501

Re: [Lua] Space Invaders

Jim Bauwens

Re: [Lua] Space Invaders

Chockosta

Re: [Lua] Space Invaders

Ashbad

Re: [Lua] Space Invaders

ruler501

Re: [Lua] Space Invaders

Chockosta

Re: [Lua] Space Invaders

Levak

Re: [Lua] Space Invaders

Ashbad

Re: [Lua] Space Invaders

ruler501

Re: [Lua] Space Invaders

Ashbad

Re: [Lua] Space Invaders

Levak

Re: [Lua] Space Invaders