A game about a simple Raven? Or the ultimate showdown between our resident forum lovebirds Raven and Simple in the guise of Space Invaders?
Note that no favoritism is intended for the default player/alien graphic, if you dont like them - swap them.
Two bitmap files for you which I think you will recognise,
http://www.users.globalnet.co.uk/~thane/rvs.zip
here's the 13 line game:
newgame: sync rate 450 : backdrop on : color backdrop 0 : lives=3 : level=1 : score=0
dead: sync on : dim badDir(20) : dim bulX(20) : dim bulY(20) : good=1 : evil=2 : load image "1.bmp",1,1 : load image "2.bmp",2,1 : dim bx(20) : dim by(20) : for baddie=1 to 10 : bx(baddie)=baddie*63 : by(baddie)=10 : bx(baddie+10)=baddie*63 : by(baddie+10)=70 : sprite baddie,0,0,1 : offset sprite baddie,25,25 : sprite baddie+10,0,0,1 : offset sprite baddie,25,25 : next baddie : hor=320 : sprite 21,0,0,2 : offset sprite 21,25,25
redo: text 20,20,"Lives: "+str$(lives) : text 20,40,"Level: "+str$(level) : text 20,60,"Score: "+str$(score) : inGame=0 : if leftkey() then hor=hor-1 else if rightkey() then hor=hor+1
if hor>615 then hor=615 else if hor<25 then hor=25
if shiftkey() and fireTime<0
bulCnt=bulCnt+1 : if bulCnt=6 then bulCnt=1
bulX(bulCnt)=hor : bulY(bulCnt)=380 : fireTime=50
endIf : fireTime=fireTime-1 : sprite 21,hor,400,good : for baddie=1 to 20 : bulY(baddie)=bulY(baddie)-10 : line bulX(baddie),bulY(baddie),bulX(baddie),bulY(baddie)+10 : sprite baddie,bx(baddie),by(baddie),evil : if badDir(baddie)=1 then bx(baddie)=bx(baddie)+1 else bx(baddie)=bx(baddie)-1
if bx(baddie)<25 then badDir(baddie)=1 : by(baddie)=by(baddie)+25 else if bx(baddie)>635 then badDir(baddie)=0 : by(baddie)=by(baddie)+25
if badDir(baddie)=2 then by(baddie)=by(baddie)+1
for bul=1 to 20 : if bulX(bul)>bx(baddie)-25 and bulX(bul)<bx(baddie)+25 and bulY(bul)>by(baddie)-25 and bulY(bul)<by(baddie)+25 then score=score+level*5 : by(baddie)=600 : badDir(1+rnd(19))=2
next bul : if by(baddie)>350 and by(baddie)<450 and bx(baddie)>hor-50 and bx(baddie)<hor+50 then lives=lives-1 : if lives>0 then goto dead else center text 320,230,"GAME OVER" : center text 320,250,"SCORE: "+str$(score) : sync : wait key : wait key : goto newgame
if by(baddie)>500 then inGame=inGame+1 : if inGame=20 then level=level+1 : goto dead
next baddie : sync : goto redo
EDIT: Forgot to mention. Actually neglected to read the rules. Not a valid entry for the 20 line challenge and not really meant to be - just poking a bit of fun is all
Pneumatic Dryll, Outrageous epic cleric of EQ/Xev
God made the world in 7 days, but we're still waiting for the patch.
