Sorry your browser is not supported!

dim z(50,3):ox=168:oy=30:d=-4:px=305:py=420:si=1:L=3
for y=0 to 7:for x=0 to 9:read z:if z=1:box x*2,y*2,(x+1)*2,(y+1)*2:endif:next x:next y:get image 1,0,0,20,16,1:for y=0 to 7:for x=10 to 19:read z:if z=1:box x*2,y*2,(x+1)*2,(y+1)*2:endif:next x:next y:get image 2,20,0,40,16,1:cls 0
for y=0 to 7:for x=0 to 9:read z:if z=1:box x*2,y*2,(x+1)*2,(y+1)*2:endif:next x:next y:get image 3,0,0,20,16,1:for y=0 to 7:for x=10 to 19:read z:if z=1:box x*2,y*2,(x+1)*2,(y+1)*2:endif:next x:next y:get image 4,20,0,40,16,1:cls
for y=0 to 7:for x=0 to 9:read z:if z=1:box x*2,y*2,(x+1)*2,(y+1)*2:endif:next x:next y:get image 5,0,0,20,16,1:for y=0 to 7:for x=10 to 19:read z:if z=1:box x*2,y*2,(x+1)*2,(y+1)*2:endif:next x:next y:get image 6,20,0,40,16,1:cls 0
ink 0x00BB00,0:for y=0 to 3:for x=0 to 6:read z:if z=1:box x*5,y*5,(x+1)*5,(y+1)*5:endif:next x:next y:get image 7,0,0,35,35,1:set text font "Arial":set text size 24:for i=1 to 50:sprite i,0,0,1:hide sprite i:next i:dim k(3,6,10):for i=1 to 3:restore b1:for y=1 to 6:for x=1 to 10:read k(i,y,x):next x:next y:next i
sync on:sync rate 60:cs(1,150):cs(2,120):do:cls 0:u=0:if t+400<=timer():if o=1:d=d*-1:inc oy,20:endif:inc ox,d:t=timer():u=1:si=2+(1-si):play sound si:endif:paste image 7, px,py,1:ink 0xFF8800,0:o=0
for i=0 to 49:a=ox+(i-(i/10)*10)*32:b=oy+(i/10)*30:if z(i,0)=0:if i<10:r=0:endif:if i>9:r=2:endif:if i>29:r=4:endif:set sprite image i+1,si+r:paste sprite i+1,a,b:if a<=100 or a+16>=540:o=1:endif:if u=1 && z(i,2)=0 && rnd(50)=1:z(i,1)=a+6:z(i,2)=b-2:endif:endif
if z(i,2)>0:inc z(i,2):c=point(z(i,1),z(i,2)):if c=0x00BB00:z(i,2)=0:g=1:endif:box z(i,1),z(i,2),z(i,1)+4,z(i,2)+4:if z(i,2)>480:z(i,2)=0:endif:for q=1 to 3:x=(z(i,1)-((q-1)*146+145))/5:y=(z(i,2)-375)/5:if x>0 && x<11 && y>0 && y<7 : if k(q,y,x) = 1 : k(q,y,x)=0 : z(i,2)=0 : endif : endif:next q:endif
if f=1 && bx>=a && bx<=a+16 && by>=b && by<=b+20 && z(i,0)=0:z(i,0)=1:f=0:if i<10:e=e+30:endif:if i>9 && i<30:e=e+20:endif:if i>29:e=e+10:endif:endif:next i:px=px+(rightkey()-leftkey())*2:if px<100:px=100:endif:if px>505:px=505:endif:if spacekey() && f=0:f=1:bx=px+18:by=py:endif:if f=1:dec by,4:if by<0:f=0:endif:box bx-1,by,bx+1,by+8:endif:ink 0x00BB00,0
for i=0 to 2:for y=1 to 6:for x=1 to 10:if k(i+1,y,x)=1:s=(i*146+145)+x*5:if bx>=s && bx<=s+5 && by>=375+y*5 && by<=375+(y+1)*5:k(i+1,y,x)=0:f=0:endif:box s,375+y*5,s+5,375+(y+1)*5:endif:next x:next y:next i:ink rgb(255,255,255),0:center text 320,4,"SCORE: "+str$(e):text 110,458,str$(L)::text 420,458,"CREDIT 00":ink 0,0:for y=1 to 480:box 1,y*2,640,y*2+1:next y
ink 0x00BA00,0:line 100,456,540,456:if g=1:ink rgb(255,0,0),0:if L=0:center text 320,230,"GAME OVER":sync:wait 3000:end:else:center text 320,230,"Ouch! Try again....":sync:wait 2000:g=0:px=305:dec L:for i=0 to 49:z(i,2)=0:next i:endif:endif:sync:loop
function cs(sn,f#):w as word:make memblock 1,8848:write memblock dword 1,p,1:write memblock dword 1,p+4,2:write memblock dword 1,p+8,22050:write memblock dword 1,p+12,88200:write memblock dword 1,p+16,4:write memblock dword 1,p+20,16:write memblock dword 1,p+24,0:p=28:for x=1 to 4410:i=int(sin((x/122.5)*f#)*8000)*3.0:if i <-32767:i=-32767:endif:if i>32767:i=32767:endif:w=i:write memblock word 1,p,w:inc p,2:next x:make sound from memblock sn,1:delete memblock 1:endfunction
a1:data 0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,1,0
a2:data 0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,0,1,0,0,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,1
a3:data 0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,0,1,0,0,0,0,1,0,1,0,0,0,1,0,0,1,0,0,0
a4:data 0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0,1,1,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,0
a5:data 0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,1,1,0,1,1,0,0,0,1,1,0,0,1,1,0,0
a6:data 0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1,0,0,1,1,0,0,1,1,0,0,0,0,1,1,1,1,1,1,0,0,0,1,1,0,0,0,0,1,1,0
s1:data 0,0,0,1,0,0,0,0,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0
b1:data 0,0,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1

dim memblocktest(1000)
for n=0 to 1000
memblocktest(n)=soundwav$(n)=str$(sin(n/frequency#)*amplitude#+y_offset#)
next n
make memblock from array 1,memblocktest(0)
make sound from memblock 1,1
play sound 1

#constant D Data
#constant O3 1,1,1 : #constant O4 1,1,1,1 : #constant O5 1,1,1,1,1
#constant Z3 0,0,0 : #constant Z4 0,0,0,0 : #constant Z5 0,0,0,0,0
D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,1,0,0,1,1,0,0
D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,O3,Z4
D 8,6,0,0,1,Z5,0,1,Z4,O4,0,1,1,0,O5,O4,0,O5,0,1,Z5,0,1,1,0
D 8,6,0,0,1,Z3,1,0,0,1,0,0,1,0,O5,1,1,0,O5,O3,0,0,O4,Z3,1,Z4,1,Z3
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z4,1,Z4,1,0,1,0,0,1,0,1,0
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z3,1,0,1,0,0,1,Z5,0,1,0,0
D 7,8,Z5,O3,Z3,O5,0,0,O5,1,0,1,1,0,1,1,0,O5,O4,0,0,O3,0,0,1,Z3,1,Z4 `Mystery
D 8,7,Z5,0,1,Z5,1,1,Z5,1,1,0,O5,O5,O5,O5,O5,O5,O4 `Player
D 8,6,Z5,1,0,1,Z5,0,1,Z3,1,1,Z5,Z5,0,1,0,0,1,0,1,0,0,1,Z5,1,0,1 `Boom!

#constant e endif  //just imagine how many endif's i've cut down
//etc...

sync on:sync rate 60:randomize timer()
set display mode 226,256,16:set window size 452,512:color backdrop 0
set text font "arial"

#constant D data:#constant sp sprite:#constant ei endif
#constant O3 1,1,1:#constant O4 1,1,1,1:#constant O5 1,1,1,1,1
#constant Z3 0,0,0:#constant Z4 0,0,0,0:#constant Z5 0,0,0,0,0
#constant isn x+y*11:#constant inx x*16+ipox:#constant iny y*16+ipoy+t2
global iof:liv=3

`Timerbase everything
`Invaders destroy bunkers

remstart
Media - Images
1,2
3,4
5,6
7  =Mystery Ship
8  =Player
9  =Explosion
10 =Bullet Impact
11,12,13,14,15 =Bunkers
remend
`Note: Player shots are invader shot element 1 and 2!

`Create media from data
repeat
    inc c:read wy:read wx:ink rgb(255*(c<>8)*(c<>11),255*(c<>7),255*(c<>7)*(c<>8)*(c<>11)),0
    for y=1 to wy:for x=1 to wx
        read t
        if t:dot x,y:dot wx*2+1-x,y:ei
    next x:next y
    get image c,1,1,wx*2+1,wy+1,1:cls
until c=11
make memblock from image 1,11:for c=12 to 15:make image from memblock c,1:next c:delete memblock 1
`Bullet impact for bunker hits
make memblock from image 2,10

print "":text 53,0,"SPACE INVADERS":print "Remake by BMacZero for TGC 20-Line Competition":print ""
print "Press any key to play.":sync:sync:wait key

`Create invaders
wav=-1:DIM inv(11,5)
res:
for c=0 to 3:sprite 150+c,30+c*48,177,12+c:next c `Bunkers
inc wav:idr=1:ipoy=40+wav*6:ipox=11:msdr=0:pdt=timer():pr=1:pl=1
ilf=55 `Invaders left
DIM isx(2):DIM isy(2)
for y=1 to 5:for x=1 to 11:inv(x,y)=0:next x:next y
isy(1)=-5:isy(2)=-5 `Bullet ypos
sprite 101,1,0,7 `Mystery Ship

`Player
sp 100,30,0,8

do
text 13,10,"SCORE<1>":text 87,10,"HI-SCORE":text 155,10,"SCORE<2>":text 10,230,str$(screen fps())
center text 35,20,str$(sc1):center text 115,20,str$(hsc):center text 180,20,str$(sc2)
for c=1 to liv-1:paste image 8,20+c*20,230:next c

if liv=0 or gov:pl=0:center text 113,100,"GAME OVER":center text 113,110,"Press the space bar":if spacekey() and pr=0:goto gmov:ei:ei

if pl

if ilf<=0:wait 500:inc sc1,1000:inc liv,(liv<4):goto res:ei

t=9:if mst=0:t=7:ei
if timer()-tm>=50:sp 101,sp x(101)+msdr,36,t:ei
if mst=0 and (msdr=0 or (msdr=1 and sp x(101)>270) or (msdr=-1 and sp x(101)<-20)):msdr=(rnd(1)*2)-1:sprite 101,-msdr*(500+rnd(256)),36,7:ei
for c=1 to 2:if isy(c)>=sp y(101) and isy(c)<sp y(101)+13 and isx(c)>=sp x(101) and isx(c)<sp x(101)+17:msdr=0:inc sc1,(rnd(5)+1)*50:mst=timer():isy(c)=-5:ei:next c
mst=(timer()-mst<120)*mst

ps=0
for x=1 to 11:for y=1 to 5
    t2=0:if timer()-inv(x,y)>=100 and inv(x,y)>0:t2=-500:ei
    t=9:if inv(x,y)=0:t=iin(y):ei
    sprite isn,inx,iny,t
    for c=1 to 2:if inv(x,y)=0 and isy(c)>=iny and isy(c)<iny+13 and isx(c)>=inx and isx(c)<inx+13:inv(x,y)=timer():isy(c)=-5:dec ilf:if c=1:inc sc1,inp(y):ei:if c=2:inc sc2,inp(y):ei:ei:next c
    if (inx<10 or inx>204) and inv(x,y)=0:ps=1:ei
    if (iny>=192):gov=1:ei
    bad=0
    for c=y+1 to 5
        if inv(x,c)=0:bad=1:ei
    next c
    if bad=0 and inv(x,y)=0 and rnd(800)=0:array insert at bottom isx(0):array insert at bottom isy(0):t=array count(isy(0)):isx(t)=inx+6:isy(t)=iny+8:ei
next y:next x
if ps:idr=1-idr:inc ipoy,8:inc ipox,((idr*2)-1)*2:ei

for c=array count(isx(0)) to 1 step -1
    inc isy(c),1*(c>2):line isx(c),isy(c),isx(c),isy(c)-4
    if c>2 and isy(c)>199 and isy(c)<209 and isx(c)>=sp x(100) and isx(c)<=sp x(100)+14:dec liv:pdt=timer():sp 100,sp x(100),200,9:ei
    for e=1 to 2:if isy(c)>isy(e)-4 and isy(c)+4<isy(e) and isx(c)>isx(e)-3 and isx(c)<isx(e)+3:paste image 10,isx(e)-4,isy(e)-4:isy(e)=-5:isy(c)=226:ei:next e
    
    t2=3^(c<3):for f=1 to t2:if c=1 and isy(c)>-5:dec isy(c):ei
    if isy(c)>177 and isy(c)<193
        for e=0 to 3
            if isx(c)>29+e*48 and isx(c)<51+e*48
                make memblock from image 1,12+e
                t=(3+(isx(c)-sp x(150+e))+(isy(c)-sp y(150+e))*20)*4+1
                if t<get memblock size(1):if memblock byte(1,t)>0
                    for x=0 to 7:for y=0 to 7
                        if memblock byte(2,(3+x+y*8)*4)>0 and x+isx(c)-sp x(150+e)<24 and x+isx(c)-sp x(150+e)>3
                            t=(3+(isx(c)-sp x(150+e)+x-4)+(isy(c)-sp y(150+e)+y-4)*20)*4
                            if t>11 and t<get memblock size(1):write memblock dword 1,t,0:ei
                        ei
                    next y:next x
                    isy(c)=226:if c<3:isy(c)=-5:ei
                ei:ei
                delete image 12+e:make image from memblock 12+e,1:delete memblock 1
            ei
        next e
    ei:next f
    
    if isy(c)>225 and c>2:array delete element isx(0),c:array delete element isy(0),c:ei
next c

if timer()-tm>=650-(55-ilf)*10
    tm=timer()
    iof=1-iof
    inc ipox,((idr*2)-1)*2
ei

mm=(rightkey()-leftkey()):t=sp x(100)+mm:if t<10:t=10:ei:if t>208:t=208:ei
sp 100,t,200,sp image(100)

if spacekey() and pr=0 and isy(1)<0:pr=1:isx(1)=sp x(100)+7:isy(1)=199:ei

ei

if spacekey()=0:pr=0:ei
ink 0x00FF00,0:line 10,225,216,225:ink rgb(255,255,255),0
opl=pl:pl=(timer()-pdt>2000):if opl<pl:sp 100,30,200,8:DIM isx(2):DIM isy(2):isy(1)=-5:isy(2)=-5:ei
sync:loop

gmov:
if sc1>hsc:hsc=sc1:ei:if sc2>hsc:hsc=sc2:ei:liv=3:wav=-1:sc1=0:sc2=0:gov=0:goto res

D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,1,0,0,1,1,0,0
D 8,6,Z4,1,1,0,O5,O5,O4,0,0,O5,1,1,0,0,O3,0,0,1,1,0,0,O3,Z4
D 8,6,0,0,1,Z5,0,1,Z4,O4,0,1,1,0,O5,O4,0,O5,0,1,Z5,0,1,1,0
D 8,6,0,0,1,Z3,1,0,0,1,0,0,1,0,O5,1,1,0,O5,O3,0,0,O4,Z3,1,Z4,1,Z3
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z4,1,Z4,1,0,1,0,0,1,0,1,0
D 8,6,Z5,1,Z4,1,1,Z3,O3,0,0,1,1,0,1,0,0,O4,Z3,1,0,1,0,0,1,Z5,0,1,0,0
D 7,8,Z5,O3,Z3,O5,0,0,O5,1,0,1,1,0,1,1,0,O5,O4,0,0,O3,0,0,1,Z3,1,Z4
D 8,7,Z5,0,1,Z5,1,1,Z5,1,1,0,O5,O5,O5,O5,O5,O5,O4
D 8,6,Z5,1,0,1,Z5,0,1,Z3,1,1,Z5,Z5,0,1,0,0,1,0,1,0,0,1,Z5,1,0,1
D 8,4,1,Z3,0,0,1,0,0,O3,O4,O4,0,O3,0,0,1,0,1,0,0,1
D 16,10,Z4,O3,O3,Z3,O4,O3,0,0,O4,O4,0,O5,O4,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O5,O4,O3,Z3,O3,O3,Z4,O5,Z5,O5,Z5

function iin(n)
r=1+iof:if n=1:r=5+iof:ei:if n=2 or n=3:r=3+iof:ei
endfunction r
function inp(n)
r=10:if n=1:r=40:ei:if n=2 or n=3:r=20:ei
endfunction r