1K Randoom

A demake of Randoom for PICO-8 in 1024 Compressed Bytes of code for PICO-1K Jam 2025. Original Randoom games for the C64 computer were created by Pícaro Games.

Absorb enemies of the same color and avoid touching other enemies. If you are quick enough, your combo counter increases with each capture, giving you higher score multipliers.

After completing one level, the maze changes and enemies' speed increases slightly.

Many thanks to Dozznar for allowing me to make and release this little game.

Visit Pícaro Games at https://dozznar.itch.io/ where you'll find all the wonderful games they have created.

Greetings to everyone at Commodore Manía (Web / Youtube), especially Dozznar, Josepzin and Bieno.

Features:

1. Smooth 60 fps gameplay.
2. Fast paced action through 5 different mazes.
3. Combos.
4. Sound effects.
5. Highscore.

Controls:

• Left/Right: player movement
• Z: jump

Code:

poke(24405,0)cls()?"\f4\^:c70101e101017901\^:e380808780809e80\^:9f0101610101f101\^:f980808680808f80\^:c70101f901017f01\^:e380809f8080fe80\^:c701010101417101\^:e380808080828e80\^:c701013901019981\^:e380809e80809c80\f5\^:dfdfdf00fefefe00\n\f4\^:01e10101790101c7\^:808780809e8080e3\^:01790101f101019f\^:809e80808f8080f9\^:01f901017f0101c7\^:809f8080fe8080e3\^:01f901017f0101c7\^:809f8080fe8080e3\^:81f901013f0101c7\^:809f8080fe8080e3\^:003c56567e7e3c00\^:003854567e7e3c00\b\b\f2\^:3c42a9a98181423c\^:3844aaa98181423c"
poke(24405,96)function z(q,x,y)return sget((q.x+x)\8+l%5*16,(q.y+y)\8)end
_set_fps(60)h=0::r::s=0l=1g=1v=8m="ready!"?"\asfcdeedee"
::s::n=0t=60c=0d=0r={i=0,s=26,c=8,x=64,y=64,u=1,v=0}p={r}for i=0,6do
add(p,{i=i+1,s=27,c=i+8,x=(i^^5)*14+8,y=4+i,u=1,v=1})end
::_::cls()f=l/100+.6pal(9,3,1)t=max(t-1)d=max(d-1)for i=0,255do
if(sget(i%16+l%5*16,i\16)>0)spr(10,i%16*8,i\16*8)
end
if(d<1)c=0
for q in all(p)do
if t<1do
if(#p<2)t=60m="level complete!"n=1
if(n>2)h=max(h,s)goto r
if(n>1)goto s
if(n>0)l+=1goto s
if q.i<1do
q.y+=q.v
q.v=min(4,q.v+.1)a=btn()\2%2-btn()%2
if(a!=0)q.x+=a q.u=a
if(z(q,0,1)+z(q,0,7-q.v)>0)q.x-=q.x%8-8
if(z(q,8,1)+z(q,8,7-q.v)>0)q.x-=q.x%8
if z(q,1,8)+z(q,7,8)>0do
if(q.v>0)q.v=0q.y-=q.y%8
if(btnp(4))q.v=-2.2
end
if(z(q,1,0)+z(q,7,0)>0)q.v=max(q.v)q.y-=q.y%8-8
else
for i=1,g do
if z(q,1,8)+z(q,7,8)>0do
if(q.v>0)q.v=0q.u=rnd(2)\1*2-1
q.x+=q.u
if(z(q,q.u>0and 8or 0,4)>0)q.u=-q.u
else
q.y+=1q.v=1end
if t<1and abs(q.x-r.x)<5and abs(q.y-r.y)<5do
if q.c!=r.c do
t=60v-=1if v<1do
m="game over"n=3
else
m="ouch!!!"n=2?"\as8edc"
end
else
del(p,q)s+=1<<c
r.c+=1c+=1d=256t=60m="combo x"..c?"\as8cde"
end
end
end
end
end
q.y%=128pal(4,q.c)spr(q.s,q.x,q.y,1,1,q.u<0)
end
g+=f-g\1
?"s:"..s,0,0,6
?"h:"..h
?"♥"..v
if(t>0)?"\^w\^h"..m,64-4*#m,60,6
flip()goto _