My project right now. almost complete prototype is the classic arcade game ASTEROIDS . Ill have multiple game modes, classic, upgrade, and others. any one interested in seeing the code need only ask and give credit where its due. :D
The first version is completed. ill release it later this month
Cool! I am assuming this is a homescreen game? (As opposed to being on the graph screen)
47%? Take a look and try to imagine how cool 100% will be. This has won zContest 2011 and made news on TICalc. This compromise between Assembly and BASIC parses like BASIC and is fast like assembly. Grammer 2
Whoa, people posting while I'm online.
How big is the program(s)?
the memory managment says 3284 for the group
Note: i had to write my own routene to selectively delete the destroied asteroids from 5 diff lists. that was a pain. plus, there is a long pause whil it deletes an asteroid. im likely gonna put an explosion in there as a distraction. right now, it looks like the program derps for a while
If you have omnicalc installed, you could use its commands to paste an explosion sprite over the asteroid for a bit.
Also, instead of deleting the asteroid from a list, you could set it to -1 or some other number that won't normally show up in the list, then tell any part that reads the list to ignore a -1.
but setting it to -1 would cause an error. also, having it ignore it slows the program down in the long run. i had omnicalc. however i would rather keep it pure BASIC. I could send it to you…
not really, having it read it and adding in a 'if x= -1: goto (next step or end)
Apology for my grammar here, I'm busy atm
i have enough memory leaks, thank you.
A Goto memory leak will only occur when the Goto is in something that requires an End. For If statements, that means that If Thens have that glitch, but plain old Ifs are fine. Even if you must use an If Then, you can still do this:
:If X=-1 :Then :Several :lines :of :code :End :If X=-1 :Goto EX
And if the If conditional is super long, use Ans!
:first, make sure Ans is a nonzero #. If you're not sure, run this first line. Otherwise, don't. :1 // to make Ans a nonzero #. :If X=-1 and pxl-test(3,92) and (R-2+E=4) and (E^6>3) :Then :Several :lines :of :code :0 :End :If not(Ans :Goto EX
If you set it up right, Goto memory leaks won't happen.
Its already done, im just fixing minor bugs. As such, I really dont want to fix code that isnt broken. release is gonna be later this month. I can upload groups right?
up date will be later this month.
to be included…
internal changes (duh)
-slightly faster game-play
-Missiles! you can control them directly, every thing keeps moving when missile is fired
-Hyperdrive/Teleportation! pressing down will teleport you to a random place on screen.
-smallest asteroid is a different sprite. (small '+' to the square mark with no center.)
note may or may not have the domain error fixed. as of now its not.