Lucky 7

The world has been fragmented! Reunite it to become the mythical number 7th!

• D-Pad/Arrow Keys to move
• Push blocks to send them flying across the screen
• Blocks of the same number combine into a higher number
• Win by combining into a 7 (white block)

A wizard whispers of a forbidden skill preformed by pressing two directions at once, but cautions that it could doom the land (crash the game).

Made for TweetTweetJam #10, code fits within 500 characters:

function c(k,l,u)for e in all(f)do
if(e!=k and e.x==(k.x+l)%12and e.y==(k.y+u)%18)return e
end
end
f={}for k=1,4do
for i=1,2^k do
repeat
j={x=rnd(12)\1,y=rnd(18)\1,t=5-k}until not c(j,0,0)add(f,j)end
end
b=f[#f]::_::p=btnp()l=p\2%2-p%2u=p\8%2-p\4%2n=c(b,l,u)m=n or b::g::cls()e=c(m,l,u)if(n and e and e.t==n.t)e.t+=1del(f,n)?"\aa"
if(e)n=r
if(not e and l+u!=0)m.x=(m.x+l)%12m.y=(m.y+u)%18?"\ag"
for k in all(f)do
?(k==b and"\^i"or"").."\^w\#"..k.t..k.t,k.x*10+6,k.y*7+2,7
end
flip()if(n)goto g
goto _

Inspired by Darwin's Dilemma.