Homescreen Game Pack

[Xeda112358]

Hmm, that is tough. How many games are over your limit and how many are under?

[ztrumpet]

I'm not sure any more, but I know Minesweeper was around 500 bytes, so I think I'll let Lights Out slide in.

[Xeda112358]

Hmm, well regardless, I love this idea and I love how well the games are made! I am trying to make balltrix in ReCode right now, but I am having some trouble getting it to recognise when a ball goes through the wrong spot

[ztrumpet]

Alright, it's been far too long between updates.  So, how about another?!

Today's update leaves the program at 75% complete, 11592 bytes, which is 322 average bytes per program.  There are 36 total games, 8 of which are new (the former Jump! and Invaders were replaced).  If the average size continues, the gamepack will be 15456 bytes total, but it is likely that this number will be off by as much as 500 bytes.

Here are the new games:

Jump!

This was originally a game in Meishe's entry against me in one of the Cage Matches.  The version included in the gamepack was completely rewritten by myself, but Meishe gets credit for the graphics, idea, and execution.   It replaced my old "Jump!" game.

Dodge'Em

This was written to replace Star Dodger, but I decided they were unique enough that I could keep both.  Invaders was replaced by this.

Blinded

I wrote this for a crazy basic tunnel game, and it turned out well enough that I added it to the gamepack.

Get Them!

Please note that it flickers much, much less on calc than in the emulator.
Collect the '+'s before time expires.

Freefall

Another game written by Meishe.  I modified this one, but most of the code was Meishe's.  It was also written for his Cage Match entry.

Lights Out

Try and turn all of the lights out in the 5*5 grid.  If a light is flipped, it also flips the lights directly above, below, left, and right of it.

Pong

Keep the ball on the screen.

Lazer Dodge

This is based on one of Program4's ideas.  Avoid the "lazer."
@Program4: Should I keep it as "Lazer" or should I change it to "Laser?"  "Laser" is the correct spelling, but I went with what you had.


A word about the controls:
They are self-explanitory, for the most part.  I have yet to replace the controls from my poll in the "Control Scheme" topic, and I was experimenting with different styles, so the Pause buttons are all over.   It shouldn't hinder gameplay, though.

@Program4: I haven't had time to add all of your games yet, but I know I still want to add at least Invasion.  Thanks again for contributing.
@Meishe: Thanks for contributing.

I hope everyone enjoys these games!

[Xeda112358]

Hehe, already downloaded. That tunnel game looks really good! This is so cool that it is in BASIC!

[program4]

@ztrumpet: You can change it to Laser if you want (I don't really care ) I named it Lazer just for fun, and I forgot it was misspelled. So, either name is fine. If you can't decide, just change it to Laser.

And, I love Dodge'Em a lot! Nice job, ztrumpet! 
Also, remember, we renamed Invasion to Defense. 

EDIT: Also, I found a bug. In Blinded, Get them!, and Freefall (maybe some others), pushing in-game quickly displays the score and returns to the menu. I think it would be better if the game paused when it displayed the score.

[Xeda112358]

Hehe, I finally ported my own interpretation of Balltrix to ReCode ^_^ These are really cool, ztrumpet! 

[meishe91]

Very cool. Could you send me copies of the new code for my games you added? I just wanna see how you optimized them Also, why did you take the code out that prevents Jump! to put spikes on the first or second tile? Congrat's on the new update

[ztrumpet]

EDIT: Also, I found a bug. In Blinded, Get them!, and Freefall (maybe some others), pushing in-game quickly displays the score and returns to the menu. I think it would be better if the game paused when it displayed the score.

You forgot to tell me what key to press.   If it's Clear, then it's not a bug, it's a feature.

Very cool. Could you send me copies of the new code for my games you added? I just wanna see how you optimized them Also, why did you take the code out that prevents Jump! to put spikes on the first or second tile? Congrat's on the new update

The code's included; it is Basic after all.  If you want me to send the exact files, send me an email so I remember it when I'm on the other computer.
Ah, so that's what it did.  Should I have left that code while optimizing?

Hehe, I finally ported my own interpretation of Balltrix to ReCode ^_^ These are really cool, ztrumpet! 

Thanks!  I can't wait to see it.

[Xeda112358]

hehe, here ya go: http://www.omnimaga.org/index.php?topic=7613.msg142162#msg142162 Thanks for the idea!

[meishe91]

Well I meant more like just the snippets of code for my games since I don't know where or how to find it in the 11KB of code

And ya, there was code that prevented spikes from appearing on the first couple of places to avoid areas where you WILL lose. Of course there will still be spots like that but it helps prevent a lot of them. I would re-implement it if you could.

[ztrumpet]

Alright, here are your games, including the change to allow the spikes to appear:

Spoiler for actually not much code:

My code "starts" like this:
:"42=abs(Ans-63→u
:"42=abs(K-63→v
:"42=abs(getKey-63→w
...
:For(A,0,14
:Disp "
:End

Jump!
:For(A,1,8
:Output(A,1,"=   // The '=' should be the inverse =
:End
:randInt(1,1,9→L1
:DelVar SDelVar B2→A
:Repeat K=45 or A=1 or (A-.5=L1(1
:getKey→K
:If Ans=22
:Then
:Repeat getKey=Ans
:End
:End
:If (Ans=21 or Ans=26)(A-1=int(L1(1
:3→B
:A+1-2not(B
:Ans+(Ans=int(L1(2
:Output(2,A,"
:Ans→A
:Disp "
:Output(2,Ans,"Ʃ
:If L1(8
:Output(8,int(L1(8)),sub("=►",1,1+2fPart(L1(8   // The '=' should be the inverse =
:B-1+not(B→B
:DeltaList(cumSum(L1
:If 8=dim(Ans
:Then
:augment(Ans,augment({0,0},binomcdf(2+int(6rand),0)min(12,max(1,Ans(8)-2+int(5rand→L1
:Else
:Ans→L1
:If Ans(6)Ans(8)not(int(6rand   // My changes from the uploaded version are in bold
:.5+Ans(8→L1(8
:End
:S+1→S
:End
:Output(8,1,"SCORE:
:Output(8,7,Ans

Freefall
:DelVar SrandInt(1,1,8→L1
:16→A
:Repeat K=45 or Ans>16 or Ans≤L1(3
:Output(8,1,sub("*************",1,L1(8
:Output(3,Ans,"V
:augment(DeltaList(cumSum(L1)),{min(13,max(1,L1(8)-1+int(3rand→L1
:S+1→S
:getKey→K
:If Ans=22
:Pause
:A-1+2(Ans=21 or Ans=26→A
:Disp "
:End
:Output(8,1,"SCORE:
:Output(8,7,S

I hope you don't mind that Jump's quite different than your original code; I basically rewrote it.   Thanks for the games!

On a side note, I'm working on a pretty cool game for it now entitled "City Saver."




Alright, I think I found all of the typos now...

[Xeda112358]

Sweet, I cannot wait to see what this "City Saver" is Also, i hope you don't mind, but these are all nice, small mini games that are perfect for ReCode. Is it alright if I attempt to remake some more of them in ReCode?

[ztrumpet]

Also, i hope you don't mind, but these are all nice, small mini games that are perfect for ReCode. Is it alright if I attempt to remake some more of them in ReCode?

Please go ahead.   Just make sure that all of the respective contributers get credit if it is due.

Sweet, I cannot wait to see what this "City Saver" is

Hmm, City Saver you say...
Well, I'm eager to release it as it's really cool.  The goal of this game is to save the city from the bombs that are falling from the sky.  To do this, shield the buildings.  It's pretty self-explanatory, but also quite fun.  The score is time based.   Good luck!

[program4]

City Saver is really fun! I just have a suggestion:

-Make the game harder as it progresses, like making the bombs shoot more often or including diagonal shots (if it doesn't slow gameplay or increase the size of the program too much).