taipe1k

# taipei (1022 bytes) ver 1.1

protect taipei. destroy aliens by mouse-pointer (you dont have to click!), avoid bullets. 

beat the highscore!

• galaga-like gamemechanic
• complete gamemechanic
• procedural sprites and animation
• procedural music
• highscore

the source code:

k=circ

h=rnd

w=spr

r=poke

j=stat

ab=abs

si=sin

r(0x5f2d,1)s="∧ taipe1k ∧"

p=0z=80t=0g=130

a={}b={}

for i=0,1048 do

r(0x3100+i,i%12+i%7+si(i)*10+i)end

for i=0,4092 do 

d=10o=256

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

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

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

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

r(i,d)end

c=0

function _update()

cls(c)k(64,128,40,7)k(30,148,39)

c-=1

if(c<0)c=0

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

?"+",x,y

if(j(34)==1 and s!="")then

t=0s=""

end

if(t==0)then

t=1p=0l=13

music(0)for i=0,z do 

a[i]=10+h(110)b[i]=-h(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

w(16+i%8*8+f%4,e,f)e+=si(f%100/100)*1

end

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

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

if(l<0)t=2

if(s=="")then

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

if(v==0)then

line(64,120,e+4,f+4)k(e+4,f+4,7,9)e=20+h(100)f=-512

p+=1

end

if(v==1)then

l-=1f-=256c=2

end

end

if(f>120)then

f-=256

if(v==0)then

l-=1c=5

end

end

end

d=17

a[i]=e

b[i]=f

if(i<l)d=40

w(d,i*8,120)end

?s,40,40,10

?g.."∧"..p,0,0

if(p>g)g=p

if(s!="")print("[click here]",45,50)

end