Weird automata - a pixel area is traced by a snaking 8-directional self-avoiding walk. Every time the snake hits a dead-end, that snake dies, and a new snake is born in a different color. No flip() done, so you can see the results quicker. The way it plays out looks somewhat painterly after a bit, before quickly devolving into random noise.

n=128k=1 r=rnd::a::x=r(n)y=r(n)z=9::b:: u=x-1+r(2)v=y-1+r(2)z-=1 if(pget(u,v)==0)x=u%n y=v%n z=9 pset(x,y,k) if(z<0)k+=1 goto a goto b |

electricgryphon: Yep! Well there's a bit going on there.

since * isn't defined, * will be nil, and nil values evaluate to false when used in conditionals. Anything that isn't nil or false is treated as true, so by using * and 1 you can get false and true with less characters (provided you don't use * elsewhere).

Also comparing two things that aren't defined (nil) will return true, so you can use that to initialize stuff potentially (like I did in my waterfall tweetjam). Watch out though, comparison ==/!= will actually treat false vs. nil as distinct values, same with true vs 1, and you can't do order comparison or arithmetic against nil.

I made an edit to Overkill's water tiles.

cls()memset(8192,1,4096)::a::srand(2)for f=1,60 do for n=1,8 do sset(rnd(8)+8,rnd(8),12) end sset(rnd(8)+8,rnd(8),7)map()flip()end goto a |

Concept being, I've been hoping someone would make a cart which uses a fixed seed to generate an intentional and deliberate "random" animation in a way which looks handcrafted despite that not being possible in so few characters.

Actually, here's an even smaller alternative. (No cls, and why use two ssets when you can use one?)

memset(8192,1,4096)::a::srand(3)for f=1,50 do for n=1,12 do sset(rnd(8)+8,rnd(8),rnd(16)>1 and 12 or 7) end map()flip()end goto a |

I made it a separate cart since the animation is different, but I think I like it better this way.

::s::memcpy(0x0,0x6000,0x2000)for i=0,999 do x=rnd(128)y=rnd(128)k=sget(x,y)if k>0 then circ(x,y,1,8+(k+1)%8)pset(x,y,k)end end flip()goto s |

@Felice: Thanks for the tip!!! I wondered if there's anything like that in Lua, awesome.

Everyone else, half of this stuff is magic to me. How you do mandelbrot and blinking analog TVs in under 140 … Magic.

I definitely feel 10 years old again, as I ws back in the early 90s, reading computer magazine listings with all the binary code programs while I only knew BASIC (ZX Spectrum) and it was also all magic. A master's degree in CS and 20 years of experience later … and something deceptively simple like Pico-8 brings me down to my knees. To everyone in this thread, kudos.

130

I was following my wife around as she was dress shopping when I saw an interesting pattern on one of them that I wanted to program for the tweetjam. I ended up accidentally finding this one which wasn't my original intention but still looks kinda cool.

t=0 d=18::s:: t+=0.1 for i=0,d*d do x=flr(i/d)*16-16+(i%2==0 and 8 or 0) y=(i%d)*8-8 circ(x,y,8*(1+sin((x+y+t)/128)),t)end goto s |

132

t=0 d=16::s::cls()t+=.005 for i=0,d*d do x=flr(i/d)*d-8*8+(i%2==0 and 8 or 0)y=(i%d)*8-d circ(x,y,6+(7+7*sin(t)),7)end flip()goto s |

Neat, @guerragames. That colorful one looks like Batik!

My last one was sorta aggressive. This one is much calmer: a nice midnight drive under the stars ^__^

w=128i=78t=0l=circfill ::s:: t-=1 l(i,i,w,1)srand()for y=1,i do x=(rnd(w)+t)%w l(x,y,sin((y+t)/17)*2,6)line(x*9,w,x,i+y%7,3)end flip()goto s |

A small game : use left/right to stay in the tunnel

But the tunnel will eventually close ...

x=64m=64::s:: memcpy(24640,24576,8128)x+=rnd(8)-4 line(0,0,128,0,8)line(x,0,x+40,0,0) if(btn(0))m-=1 if(btn(1))m+=1 pset(m,64,7)flip()goto s |

I just discovered that you can in fact vote for carts from this thread if you go on the user's cartridge page, like here. So the vote could probably be integrated with each cart player instead of only for the thread ... that would be so cool

inspired by 'tweetjam' by NuSan (great dissolution ^^)

one-liner @140 including eol

n=128w={}r=rnd::s::for i=1,4096 do pset(r(n),r(n),0)v=w[i]x=i*4-4print(8,x,v,3)v=v and(v+6)%n or r(n)print(8,x,v,6)w[i]=v end flip()goto s |

Nice @ultrabrite that is exactly the effect I wanted to make and couldnt manage in 140 characters. So it seems I need to work on how to use array effectively !

@ultrabrite holy crap, that is spot-on

...those who drink from the rainbow cup

will love like a summer's eve

both flame and the flood

without shyness' leave

cls()t=0::s:: t+=1 for y=9,33 do for x=0,9 do g=x/y h=y^2/9+cos(g*.7-t/7)*y/9+sin(g+t/9)pset(x+7,h,y-t)end end print("love",0,0)flip()goto s |

This thread is so amazing. It's inspired me to finally play with Pico-8, so thanks to Adam and everyone else for that. (I have literally played every single cartridge posted in this thread so far.)

Anyway, here's my first cartridge for submission, just some simple purple dots on a grid:

EDIT: (Oops, forgot the code, not that it's terribly exciting, maybe it'll help some beginners.)

cls() while 1 do for x=0,8 do for y=0,8 do circfill(x*16,y*16,rnd(5,10),rnd(16)%3) end end end |

[Please log in to post a comment]