SkyBerron
198 posts
@SkyBerron Hey. Te dejo esto por aquí, que quizás te interesa: itch.io/jam/the-shorte…
Español
1K Ghost Hunter #Pico1k
Annoying ghosts are everywhere! A game in 1021 Compressed Bytes of code for PICO-1K Jam 2025
itch.io/jam/pico-1k-20…
skyberron.itch.io/1k-ghost-hunter
#pico8 #pico1k
GIF
English
1K Randoom #Pico1k
A demake of Randoom, a game for the C64 by Pícaro Games.
A game in 1024 Compressed Bytes of code for PICO-1K Jam 2025
itch.io/jam/pico-1k-20…
skyberron.itch.io/1k-randoom
Many thanks to @Dozznar. Visit Pícaro Games at dozznar.itch.io
#pico8 #pico1k
GIF
English
r=1/4s=sin::_::b=t()/8c=s(b+r)d=s(b)p={}for a=0,1,.005do
x=s(a)+2*s(2*a)z=s(3*a)x,z=x*c-z*d,z*c+x*d
j=16-z*5\1q=p[j]or{}add(q,{64+20*x,70-20*s(a+r)+40*s(2*a+r),8,j/2})p[j]=q
end
for j=1,32do
for o in all(p[j])do
circfill(unpack(o))end
end?"\^1\^c0\^!5f100125☉48=<>96?:♥7"
goto _
English
?"\^!5f100웃9:♥?◆🅾️84░53⬅️;⌂"
function l(a,b)line(c*a-d*b+64,c*b+d*a+64)end::_::for k=0,1do
w=t()/20e=2+cos(w)w+=(1-cos(w))*(.1+.015*k)c=e*cos(w)d=e*sin(w)for j=-8,8do
for i=-9,9do
a=i*8b=j*10-i%2*5line(1+(k+w+i)%15)l(a+5,b)l(a,b)l(a-3,b+5)l(a,b+10)end
end
end?"\^1\^c"
goto _
English
?"\^!5f100▒1😐<7248🅾️◆53⬅️;⌂"
s=sin::_::fillp(23130)for k=0,1do
for i=0,399do
m=i/399u=cos(m)v=s(m)x=40*u+k+64y=40*v+64l=m-t()/3for j=-1,2do
n=l+j/3+s(m*2)/8b=8*s(n)if(j>=0and b>a)c=1+j*5+4.3*abs(b/8)line(x+a*u,y+a*v,x+b*u,y+b*v,c+(c+.5)\1*16)
a=b+2end
end
end?"\^1\^c"
goto _
English
?"\^!5f100289:;⬅️3⬇️ˇ▒1😐<=5"
p={}s=sin::_::cls()add(p,{r=0,a=t()/2,t=t()})for q in all(p)do
for i=-12,0do
r=q.r+i
if(r>0)c=r*cos(q.a)d=r*s(q.a)a=c+64+s(q.t/4)*32b=d+64+s(q.t/9)*32c/=4d/=4line(a+d-c,b-c-d,a,b,q.t+i)line(a-d-c,b+c-d)
end
if(q.r>140)del(p,q)
q.r+=1end
flip()goto _
English
cls()y=97j=0k=0::_::for i=0,15do
l=abs((i+j)%16-4)pal(i,l<4and 8>>l,1)end
for x=97,-97,-.1do
u=x*.1v=y*.1d=u*u+v*v-1z=d>0and min(d^-.5,10)or 10pset(64-x+y,64-x/2-y/2+16*z,(u*u+v*v)^.5*k+(atan2(x,y)+1)%16*8*(64-3*k))end
y-=abs(y)<23and.1or 1
if(y<-512)y=97k=16-k
j+=1flip()goto _
English
?"\^!5f100▒1😐<=♪2489:;3⬇️🐱"
m=0k=0s=sspr::s::i=0a=rnd()-.5memcpy(0,24576,8192)palt(0,nil)::_::cls(k)for y=0,127do
b=y-63.5x=b*sin(a/4)+64if m<1do
s(0,y,x,1,-i,y)s(x,y,129-x,1,x+i,y)else
s(y,0,1,x,y,-i)s(y,x,1,129-x,y,x+i)end
end
flip()i+=.5if(i<1)goto _
k+=.1m=1-m
goto s
English