taipe1k

# taipei (1023 bytes)

protect taipei. destroy aliens by my mouse, avoid bullets. 

beat the highscore!

• galaga-like gamemechanic
• gamemechanic
• procedural sprites
• procedural music

the source code:

poke(0x5f2d,1)
s="∧ taipe1k ∧"
p=0
a={}
b={}
z=80

t=0

g=130

for i=0,1048 do

poke(0x3100+i,i%12+i%7+sin(i)*10+i)

end

for i=0,4092 do 

d=12

o=256

if(i>2*o)d=i%2

if(i>3*o)d=i%7

if(i>4*o)d=i%73+1001

if(i>5*o)d=i*i

poke(i,d)

end

c=0

function _update()

cls(c) 

circ(64,128,40,7)

circ(30,148,39)

c-=1

if(c<0)c=0

local x,y=stat(32)-1,stat(33)-1

print("+",x,y)

if(stat(34)==1)then

t=0

s=""

end

if(t==0)then

t=1

p=0

l=13

music(0)

for i=0,z do 

a[i]=10+rnd(110) 

b[i]=-rnd(500)

end

end

if(t==2)s="game over"

for i=0,z do

e=a[i]

f=b[i]

f+=0.5+(i%2)*0.4+p/200

v=0

if(i<6)v=1

if(i>z/2)v=2

if(v==0)then

spr(16+(i%8)*8,e,f)

e+=sin(f%100/100)*1

end

if(v==1)circ(e+4,f+4,f%3)

if(v==2)pset(f,e,9)

if(l<0)t=2

if(s=="")then

if(abs(x-e)<8 and abs(y-f)<8)then

if(v==0)then

circ(e+4,f+4,7,9)

e=20+rnd(100)

f=-512

p+=1

end

if(v==1)then

l-=1

f-=256

c=2

end

end

if(f>120)then

f-=256

if(v==0)then

c=5

l-=1

end

end

end

a[i]=e

b[i]=f

d=17

if(i<l)d=40

spr(d,i*8,120)

end

print(s,40,40,10)

print(g.."∧"..p,0,0)

if(p>g)g=p

if(s!="")print("click",55,50)

end