The CONCEPT of SPACE

The Concept of Space

This years entry into the #Pico1k jam.  

Uses 1023 compressed bytes of code, no external assets (no images or sound files).

Previous years entry was pico-xkcd.

Rules

• Launch balls into the empty space.  Balls will expand to fill up all available space.
• Hit previous balls 3 times to burst them and earn a point.  Balls indicate remaining hits (red=3, orange=2, green=1).
• You lose by having a launched ball roll over the dashed "Danger Line" at the bottom.

Features

• physics based collisions
• simple particle effects
• P8SCII usage for title, score and sound-effects.
• algorithmic filling of available space (accounting for other objects and bounds)
• high-score saving

Acklowledgements

Liquidream's speed-pool-1k demo from last years 1k jam for its simplification of PC101's Elastic 2D ball physics.

This game is a remake of a homebrew game from a GamePark handheld I remember playing 20 years ago.

Commented Source Code

Available here: gist

Source Code

Compressed Code == 1023 bytes (of 1024 limit for Pico1k Jam)

cartdata("tcos")
l={}
tp=2
tb=92
sa=15
u=1
g=-1
s=0
h=dget(0)
p={}
_set_fps(60)
::_::
cls()
line(2,tb,2,2,7)
line(126,2)
line(126,tb)
fillp(░)line(2,tb)fillp()
ss="\^pscore "..s.." high "..h
xo=min(2,128-?ss,0,-128)
?ss,xo,116
mv=0
if(#l > 0)do
b=l[#l]
x=b.x
y=b.y
b.v*=.97
b.b*=.97
x+=b.v
y+=b.b
mv=abs(b.v)+abs(b.b)
if(mv < 0.02)do
mv=0
b.v=0
b.b=0
end
e=min(min(min(min(96,x-tp-2),126-x-1),y-tp-2),tb-y-1)
for k,t in pairs(l)do
circ(t.x,t.y,t.r,({11,9,8})[t.c])
if(k!=#l)then
a=x-t.x z=y-t.y
d=sqrt(a*a+z*z)
e=min(e,d-t.r-1)
if(d<=b.r+t.r)then
t.c-=1
o=(d-b.r-t.r)
x-=o*(a/d)
y-=o*(z/d)
n=(t.x-b.x)/d
r=(t.y-b.y)/d
v=b.v*-r+b.b*n
k=t.v*n+t.b*r
b.v=(-r*v+n*k)*1.15
b.b=(n*v+r*k)*1.15
for i=0,20 do
add(p,{x=t.x-n*(d-b.r),y=t.y-r*(d-b.r),a=rnd(100)/100.0,s=rnd(3)/3,c=max(t.c,1),n=80})
end
?"\as0c",0,0
end
end
end
if(mv==0 and e>b.r)b.r+=1
foreach(l,function(t)
if(t.c==0)del(l,t)s+=1
end)
if(x+b.r>126 or x-b.r<2+1)b.v*=-1.1
if(y-b.r<tp)b.b*=-1.1
if(b.b > 0 and y+b.r>tb)dset(0,h)g=1
b.x=x b.y=y
end
foreach(p,function(o)
o.x+=rnd(1)*sin(o.a)*o.s
o.y+=rnd(1)*cos(o.a)*o.s
pset(o.x,o.y,({11,9,8})[o.c])
o.n-=1
if(o.n<=0)del(p,o)
end)
h=max(h,s)
rt=flr(t()%3)*4-4
if(g==1)?"\^t\^wgame over",30+rt,24+rt,12
if(g!=0)?"\^t\#7the concept of space",25,44,0
if(g!=0)?"press x to start",34,64,12
co=cos(sa/360)
si=sin(sa/360)
line(64,112,64-16*co,112+16*si,7)
if mv <=0 and g==0 then
if(sa<=15)u=1
if(sa>=165)u=-1
sa+=u
end
if btnp(5)then
if g==0 and mv <=0 then
b=add(l,{x=64,y=112,r=4,c=3,a=0,v=-5.9*co,b=5.9*si})
elseif g!=0 then
l={}g=0 s=0
end
end
flip()goto _