Defense Game

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

Summary:

I am working on a game where there is a player (currently an arrow that points which way you face) in the center of the screen that has to defend itself against an onslaught of enemies that come from the top side, the left side, the right side and the bottom side of the screen in a total of 4 paths. I have encountered a problem though...I don't know how to make the arrow "shoot", the shot remove the first enemy on the row/column, the enemy's come without slowing the game down way to much, or how to get the enemy's to speed up every 10 kills you get.

Defense Game

BossOpossum9 04 May 2017 17:08

As of right now I don't have my t1-84 plus but I will still try and put the code as much as i can remember it for you guys. I have only been working on coding for a few days now but I am doing pretty well in my opinion. Here's the code (NOTE: if you know how i can speed up the program and simplify commands please let me know)

: Zstandard
: Clrdraw
: Axesoff
: 47→X
: 32→Y
: 0→D
: 
: Lbl 1
: Getkey→G
: 
: 0→D
: max({1,2,3,4}{G=24,G=25,G=26,G=34}not(D)→D
: max({1,2,3,4}{D=1,D=2,D=3,D=4}→A
: X+max({⁻1,1}{A=1,A=2}→X
: Y+max({1,⁻1}{A=3,A=4}→Y
:  
: If A
: Then
: For(E,⁻2,2
: For(F,⁻2,2
: Pxl-Off(Y+E,X+F
: End
: End
: End
:  
: If A=1
: Pxl-On(Y,X-2
: For(E,⁻1,1
: For(F,⁻1,2
: Pxl-On(Y+E,X+F
: End
: End
: If A=2
: Pxl-On(Y,X+2
: For(E,⁻1,1
: For(F,⁻2,1
: Pxl-On(Y+E,X+F
: End
: End
: If A=3
: Pxl-On(Y-2,X
: For(E,⁻1,2
: For(F,⁻1,1
: Pxl-On(Y+E,X+F
: End
: End
: If A=4
: Pxl-On(Y+2,X
: For(E,⁻2,1
: For(F,⁻1,1
: Pxl-On(Y+E,X+F
: End
: End
: Goto 1

Last edited on 04 May 2017 19:18 by BossOpossum9 Show more

Re: Defense Game

Myles_Zadok 04 May 2017 17:19

1) Since I see you're new here, welcome to TI-Basic Developer! I recommend that you look at the How To page, and the Starter Kit, which is your "boot camp" to TI-Basic programming. By the way, I love your nickname, "BossOpossum9"

2) I think I know why your program is running slow. Instead of having 20 If A≠0, If A=1, etc., you could just have one of each, followed by a Then command, and whatever the program is supposed to do if the conditional is true. That should speed up your program quite a bit.

Re: Defense Game

BossOpossum9 04 May 2017 18:59

OK thank you for the help I really appreciate it. To be honest I didn't expect anyone to reply so soon.

Re: Defense Game

Trenly 04 May 2017 18:23

Here are some of the simplifications I would make. It is up to you if you want to use them. Of course without the full code I cant help a lot, but I hope this helps a little. If you want me to explain any of the code, just ask and I would be happy to explain it.

max({1,2,3,4}{G=24,G=25,G=26,G=34}not(D)->D

--Instead of--

If G=24 and D=0
1→D
If G=26 and D=0
2→D
If G=25 and D=0
3→D
If G=34 and D=0
4→D

Erase your arrows

If A
Then
For(E,⁻2,2
For(F,⁻2,2
Pxl-Off(Y+E,X+F
End
End
End

--Instead of --

 If A≠0
: Pxl-off(Y-2,X-2)
: If A≠0
: Pxl-off(Y-2,X-1)
: If A≠0
: Pxl-off(Y-2,X)
: If A≠0
: Pxl-off(Y-2,X+1)
: If A≠0
: Pxl-off(Y-2,X+2)
: If A≠0
: Pxl-off(Y-1,X-2)
: If A≠0
: Pxl-off(Y-1,X-1)
: If A≠0
: Pxl-off(Y-1,X)
: If A≠0
: Pxl-off(Y-1,X+1)
: If A≠0
: Pxl-off(Y-1,X+2)
: If A≠0
: Pxl-off(Y,X-2)
: If A≠0
: Pxl-off(Y,X-1)
: If A≠0
: Pxl-off(Y,X)
: If A≠0
: Pxl-off(Y,X+1)
: If A≠0
: Pxl-off(Y,X+2)
: If A≠0
: Pxl-off(Y+1,X-2)
: If A≠0
: Pxl-off(Y+1,X-1)
: If A≠0
: Pxl-off(Y+1,X)
: If A≠0
: Pxl-off(Y+1,X+1)
: If A≠0
: Pxl-off(Y+1,X+2)
: If A≠0
: Pxl-off(Y+2,X-2)
: If A≠0
: Pxl-off(Y+2,X-1)
: If A≠0
: Pxl-off(Y+2,X)
: If A≠0
: Pxl-off(Y+2,X+1)
: If A≠0
: Pxl-off(Y+2,X+2)

Faster generation of arrows:

Pointing up:
Pxl-On(Y-2,X
For(E,⁻1,2
For(F,⁻1,1
Pxl-On(Y+E,X+F
End
End

Pointing down:
Pxl-On(Y+2,X
For(E,⁻2,1
For(F,⁻1,1
Pxl-On(Y+E,X+F
End
End

Pointing Left:
Pxl-On(Y,X-2
For(E,⁻1,1
For(F,⁻1,2
Pxl-On(Y+E,X+F
End
End

Pointing Right:
Pxl-On(Y,X+2
For(E,⁻1,1
For(F,⁻2,1
Pxl-On(Y+E,X+F
End
End

Using the code above for storing D, similar expressions for A, X,and Y

max({1,2,3,4}{G=24,G=25,G=26,G=34}not(D)→D
max({1,2,3,4}{D=1,D=2,D=3,D=4}→A
X+max({⁻1,1}{A=1,A=2}→X
Y+max({1,⁻1}{A=3,A=4}→Y

--Instead of--
: If G=24 and D=0
: 1→D
: If G=26 and D=0
: 2→D
: If G=25 and D=0
: 3→D
: If G=34 and D=0
: 4→D
: 
: If D=1
: 1→A
: If D=2
: 2→A
: If D=3
: 3→A
: If D=4
: 4→A
: 
: If A=1
: X-1→X
: If A=2
: X+1→X
: If A=3
: Y+1→Y
: If A=4
: Y-1→Y

Last edited on 04 May 2017 18:24 by Trenly Show more

Re: Defense Game

BossOpossum9 04 May 2017 19:02

Ok thanks it really seems like you know what your doing. Could you help me out with the "shooting" mechanic. My goal is for a 5 pixel long "bullet" that will stop at the first enemy in the row by being the same X and Y values.

Re: Defense Game

BossOpossum9 04 May 2017 19:21

Ok I just added in your changes but if their is something wrong with how i put them in just let me know and I WILL fix it. I'm going to be adding the shooting mechanic as much as i can but i would LOVE if you were to set it up yourself as well and give it a go. Thanks.