#tweet length code

[andymakesgames]

Fishin' 500: A Pico-8 Game in 495 characters

Play it here

This is my entry for #TweetTweetJam 10, a game jam where games have a limit of 500 characters of source code and no external assets!

It's a simple fishing game with a final size of 495 characters.

Here's the full Pico-8 source code for the game:

q={}c=circfill r=rnd::z::x=20y=20h=0v=0g=0m=0::_::cls(12)l=line c(65,800,760,1)for i=30,45do l(0,i,75-i,i,4+i%2)end x+=h*g y+=v*g v+=g/9f=.88+sgn(40-y)/9h*=f v*=f if btnp()>0then if(g<1)h=1+r() g=1v-=1.5end if(r()<.03)add(q,{x=-4,y=60+r(60),c=r(5)}) d=4for o in all(q)do a=o.x b=o.y c(a,b,2,8+o.c)l(a-3,b-2,a-3,b+2)pset(a,b-1,1)o.x+=r() if d>abs(a-x)+abs(b-y)then o.x=x+1o.y=y d=0end if(b<40)del(q,o)end m=max(m,y)c(x,y,1,7)l(11,29,20,20)l(x,min(40,y),5)l(x,y) if(m>40and y<40)goto z flip()goto _

You can find a much more thoroughly commented version of this code that explains what's going on here.

Don't forget to check out my entry from last year: Tastebud Tapdancer

[andymakesgames]

280 bytes

v=sin::_::h=cos?'⁶1⁶c' for c=32,96,32do for r=32,96,32do e=min(1,(t()/5)%1.2)for b=0,.9,.25do a=.125-b+.25+e+(b-.5)*2l=a+.125 for j=0,20,3do x=c+h(b)*30+j*h(l)y=r+v(b)*30+j*v(l) for i=0,20-j/2do pset(x+h(a)*i,y+v(a)*i,7)pset(x+h(a+.25)*i,y+v(a+.25)*i,7) end end end end end goto _

[andymakesgames]

stary sky / diamond eyes 280 bytes

(there's room to further minimize but I'm happy to keep it halfway readable)

::❖:: cls() p=t()%1 for c=0,9do for r=0,9do x=c*16-32*p y=r*16-32*p+(c%2)*8 pset(x+8,y-p*16,5) m=min(7+sin(y/(70+sin(t()/3)*30))*3,(64-abs(x-64))/4)\1 for d=1,m do line() for i=0,1,.25do line(x+cos(i)*d,y+sin(i)*d,d<m and 7+(d/2)%2or 2+(m/8)\1*10) end end end end flip()goto ❖

[andymakesgames]

Very quick pico8 tweetcart

Pride Embers 222 bytes (fairly uncompressed)

s=sin a=0 cls() ::_:: e=t()/200 for y=0,128do for x=0,128do c=pget(x,y) if c>0 then pset(x,y,0) pset(x-1+rnd(2),y-1,c-1) end end end for i=0,50do y=x x=60+60*s(s(i/16+e/2)+s(i/20)/2+s(cos(i/72-e))) pset(x,y,14) end goto _

[andymakesgames]

Seneca 279 bytes

h=128::_::?'⁶1⁶c' k=0for i=1,50,7do for s=0,6,i/220do k+=1z=h-i p=-(t()/(2+i/15)+s)%6x=p<2and i or z a=p<1and i or z y=p<1and h or i b=p<2and i or h c=p>1 and p<2 and i==8and 12or 6 if(p<3)p=p%1r=1-p?("cruelty springs from weakness ")[31-k%31],r*x+p*a-1,r*y+p*b,c end end goto _

[andymakesgames]

Playing With Plasma 210 bytes

Quick #tweetcart that started with me trying out a way to render water.

pal({[0]=140,12,7,10,9,14},1) t=0 ::_:: t+=1 for x=0,128do srand(x+t) for y=0,20do p=t+y+sin(x/50+t/25)*9 c=(rnd(3)+sin(x/50+y/(20+sin(t)*20))*2)%3+p/128 pset(x,p%128,c%6) pset(p%128,x,c%6) end end flip()goto _

[andymakesgames]

Finally started playing that poker rougelike! If you got mad about the source code of that game, wait until you see how I'm rendering a playing card.

279 bytes

a=abs::_::cls()e=t()for r=0,46do for p=0,1,.025do j=sin(e)*20k=cos(e)*5f=1-p h=a(17-p*34)v=a(23-r)c=1+min(23-v,17-h)%5/3\1*6u=(r-1)/80z=a(p-.2)if(e%1<.5)c=a(r-5)<5and z<u+.03and(r==5or z>u)and 8or 8-sgn(h+v-9)/2 g=r+39pset((64+j)*p+(64-j)*f,(g+k)*p+(g-k)*f,c)end end flip()goto _

[andymakesgames]

Watching pannenkoek2012's newest Mario 64 video has me thinking about low-res shapes.

Here's a really nasty spinning cube in exactly 280 chars. Using tables here is so gross. Somebody smarter than me please do this better.

x={0,0,0}y={}::_::cls()for i=0,4do j=i-1e=i/4+t()/5x[i]=64+sin(e)*40y[i]=40+cos(e)*9a=x[i]b=x[j%4]c=y[i]d=y[j%4] if a<b then for k=0,50do line(a,c+k,b,d+k,i)end end end h=x[0]-x[1]v=y[0]-y[1]for p=0,1,.01do a=x[1]*p+x[2]*(1-p)b=y[1]*p+y[2]*(1-p)line(a,b,a+h,b+v,9)end flip()goto _