9 lines ship shooting game for the Intellivision
I checked out this thread in the Intellivision programming forum and there was a topic about the 10 version of snake. Catsfolly told us to stop doing your epic game and participate. I don't know what happen if I disobey Catsfolly so I better do what he wants . I needed a break from that project I started about 16 days ago. So for some reason, meh why not try making one. The awesome snake game Catfolly made me think of the games I made for the TI-83. So the ship shooting game was made for that calculator, so I decided to go with that. I was going to make that number shooting game, but I didn't think I could do that in 10 lines. It does need to exist on other platform and Intellivision version will get made. It still exist on the calculator and I can get the source code off that one. I want to get that coded and working next. I think it'll be fun for others to play.
reset:cls:frame=0:ypos=62:Entick=12:EnTmax=12:tick=8:Lasa=0:Lasx=1:LasC=2:Ena=1:Ens=1:Enx=160:Eny=60:#count=0:sc=0:sprite 3,8+$300,$300+64,$047D:sprite 4,8+$300,$B00+32,$047Dloop:if #count=600 then Ens=Ens+1:#count=0if cont1.up AND ypos>10 then ypos=ypos-2 else if cont1.down AND ypos<100 then ypos=ypos+2 else if cont1.B0 AND Lasa=0 then Lasa=1:Lasx=30:LasC=2:Lasy=ypos:if COL1 AND $0004 then Enx=180:Eny=10+RAND/3:Lasa=0:Lasy=0:LasC=0:sc=sc+1if Enx<8 then goto GameOversprite 5,90+$300,$100+32,$0076:sprite 6,64+$300,$100+67,$0076:sprite 7,120+$300,$100+45,$0076:if frame%4=0 then Enx=Enx-Enssprite 0,24+$300,$100+ypos,$00F7:sprite 1,Lasx+$300,$100+Lasy,$E8+LasC:sprite 2,Enx+$300,$100+Eny,$0083:#count=#count+1:if Lasa=1 then Lasx=Lasx+3:if Lasx>200 then Lasa=0:LasC=0wait:goto loop:GameOver:print at 206 color 7,"GameOver":print at 221,(sc/100%10+16)*8+6:print at 222,(sc/10%10+16)*8+6:print at 223,(sc%10+16)*8+6:if cont1.B1 then goto reset else goto GameOver
2 Comments
Recommended Comments