1K Journey

A demake of the minigame Journey of the Prairie King from Stardew Valley. A game in 1020 Compressed Bytes of code for PICO-1K Jam 2025

Features:

1. Smooth 60 fps gameplay.
2. Endless waves of enemies coming from the gates.
3. Unlimited ammo.
4. Colorful enemies.
5. Survive as many waves as you can.

Controls:

• Left/Right/Up/Down: arrow keys
• Fire: Z/C

Source Code:

_set_fps(60)poke(24405,0)cls()s="\^:0060e0f8a0501020\n\^:f0f8d04040600000\n\^:00c020d0305020d8\n\^:0414e820a0600000\n"
?"\^o15a"..s
?s,0,0
spr(0,7,0,1,4,1)poke(24405,96)::r::s=0l=1r={i=0,x=64,y=64,c=6,a=0,b=1,v=1,o=0,r=0,w=0,l=8,n=0}::s::p={r}o={}n=l+1z=0j=0k=120m="wave "..l?"\asac.ceeee"
::_::cls(1)r.n-=1f=""
srand(4)for i=0,64do
?"\^o15aˇ",rnd(108)+8,rnd(108)+8,5
end
srand(t())for i=0,15do
if(abs(i-7.5)>2)circfill(i*8+4,4,4,3)circfill(4,i*8+4,4)circfill(i*8+4,124,4)circfill(124,i*8+4,4)
end
z-=.1if z<0and #p<24and n>0do
n-=1z=30a=rnd(4)\1/4c=cos(a)d=sin(a)for i=0,l\2+4do
u=i*8+64v=i%2*16-8add(p,{i=32,x=d*v-c*u+64,y=-d*u-c*v+64,c=i%8+8,a=a,b=1,v=l/64+.5,o=1,r=0,t=u+16,w=60,l=8,n=0})
end
end
for q in all(p)do
q.w-=1if q.w<1do
if q.i<1do
b=btn()\8%2-btn()\4%2a=btn()\2%2-btn()%2
q.b=0if(a|b!=0)q.b=1q.a=atan2(a,b)
q.r-=1if(q.r<1and btn(4))q.r=20add(o,{x=q.x,y=q.y,a=q.a,l=32})
else
a=r.x
b=r.y
if(rnd()<.2)a=rnd(128)b=rnd(128)
q.t-=1if(q.t<1)q.a=(atan2(a-q.x,b-q.y)%1*16+.5)\1/16q.t=64q.o=0if(q.l<1)q.o=1del(p,q)
end
if(q.b>0)q.x+=q.v*cos(q.a)q.y+=q.v*sin(q.a)
if(q.o<1)q.x=mid(12,116,q.x)q.y=mid(12,116,q.y)
end
pal(6,(q.n>0and t()%.2<.1)and 13or q.c)spr(q.i,q.x-8,q.y-8,2,2)pal()
if(q.i>0and abs(q.x-r.x)<8and abs(q.y-r.y)<8and r.n<1)r.n=60r.l-=1
end
for w in all(o)do
w.x+=cos(w.a)*2w.y+=sin(w.a)*2circ(w.x,w.y,1,10)
for q in all(p)do
if(q.i>0and abs(q.x-w.x)<8and abs(q.y-w.y)<8)w.l=0if(q.l>0and q.w<1)q.l=0q.o=1q.a=w.a q.v=2q.t=64s+=1f="\acde"break
end
w.l-=1if(w.l<1)del(o,w)
end
?"s:"..s,2,2,7
?"♥"..r.l
?f
if(r.l<1and j<1)del(p,r)j=1k=120m="game over"
if(k<1and j<1and n<1and #p<2)l+=1goto s
if(k>0)k-=1?"\^o25a"..m,64-#m*2,48,10
if(k<1and j>0)h=max(s,h)goto r
flip()goto _