Web
Analytics
Log In  
  Page
1
2
3
4
5
6
7
8

::

@otrain13 Thanks!
It's inspired from @TRASEVOL_DOG amazing contributions with a bit more of a "dirty" look to it.

P#25480 2016-07-18 03:43

::

Another one:

Cart [#25532#] | Copy | Code | 2016-07-19 | Link
0

140 chars

t=0
::s::
t+=rnd(.1)-.02
for i=24576,32767 do
vl=abs(sin(t+i*.0001+rnd(.1))*14)
vr=vl-rnd(99)/50
poke(i,band(vr,15)*16+vl)
end
flip()
goto s
P#25533 2016-07-19 05:29

:: Swirl

Cart [#25662#] | Copy | Code | 2016-07-21 | Link
3

146

Not tweetsized, I tried to shrink it down without compromising the look but couldn't get it to 140. I guess that if the screen was interesting enough before running it, you could get rid of the print statement and make it fit.

Anyway, I think the effect is nice enough to post, I love spirals! :)

s=60t=s::a::y=rnd(128)x=rnd(128)u=x-s v=y-s
q=.01*t+atan2(u,v)n=.1*sqrt(u*u+v*v)line(x,y,x-n*cos(q),y-n*sin(q),pget(x,y))t-=.1^4
?"�",s,s,t
goto a
P#25664 2016-07-21 11:30

::

Cart [#25820#] | Copy | Code | 2016-07-24 | Link
1

z=128::s::t=time()for i=0,999 do
x=rnd(z)y=rnd(z)circ(x,y,1,pget(x,y))
if(i<8)circfill((t*33+i*7)%z,z-abs(cos(t/4)*z),4,8+i)end
flip()goto s

@RadicalTeapot: I love it, it looks super good! :D

P#25821 2016-07-24 13:15

::

Cart [#25906#] | Copy | Code | 2016-07-26 | Link
0

133 chars:

a=128
r=rnd
t=0
::s::
t+=r(.01)-.003
for i=0,250 do
x=r(a)
y=r(a)
rect(x,y,x+r(5)-3,y+r(a)-64,sin(t+x*.004)^a*4+t*3)end
flip()
goto s

@TRASEVOL_DOG: Thanks a lot! I really like how colourful your contributions are, the last one is mesmerizing ;)

P#25907 2016-07-26 07:36

:: Dancing Spirals

Cart [#25921#] | Copy | Code | 2016-07-26 | Link
3

138

More spirals! Sorry! :)

p=64t=0::_::cls()t-=.0001
x=p y=p
for j=200*t,t,-t do
s=j*sin(j)c=j*cos(j)circ(x,y,1,j/4)circ(p+p-x,p+p-y,1,j/4)x+=s
y+=c
end
flip()goto _
P#25923 2016-07-26 13:02 ( Edited 2016-07-26 17:53)

:: "24" Clock

Cart [#26128#] | Copy | Code | 2016-07-30 | Link
3

Ok, here's my tweetjam contribution... the countdown clock from the TV show "24" :o)

140 characters exactly:

s=59x=0t=2m=12868::s::cls()p=poke
?"23:59:"..s,50,60,9
x+=1
if(x>30)x=0 s-=1 t=2-t p(m,100+t)p(m+1,94)p(m+2,128)p(m+3,79)sfx(1)
flip()goto s
P#26129 2016-07-30 10:19

::

Cart [#26417#] | Copy | Code | 2016-08-03 | Link
1

Here's the first decently cool thing I've managed to fit into less than 140 characters. A variation on the basic Langton's Ant algorithm.

o={{0,-1},{1,0},{0,1},{-1,0}} f=0 x=64 y=64 cls() while 1 do c=pget(x,y) f=(f+c+1)%4 pset(x,y,6+c%4) x+=o[f+1][1] y+=o[f+1][2] end

Originally the pset() didn't have the +6 offset or the mod 4, but those seemed to be the magic numbers that led to a little bit of cool structure forming before the whole thing descends into chaos.

EDIT: Wait! Changed a few numbers around and got something way cooler.

Cart [#26430#] | Copy | Code | 2016-08-03 | Link
1

A screenshot of some of the structures that emerge before it just turns into noise:

P#26422 2016-08-03 21:45 ( Edited 2016-08-04 00:04)

::

Cart [#26525#] | Copy | Code | 2016-08-05 | Link
5

My first post :)

Really impressed with the stuff in here!

s=0
::j::
cls()
for i=0,200 do
    j=i*s
    r=i/4
    x=63+cos(j+s)*r
    y=63+sin(j+s)*r*s*20
    circfill(x,y,i/15,i%16)
end
s+=0.0002
flip()
goto j
P#26526 2016-08-05 13:38

::

2 characters to spare, not sure what to spend them on...

r=rnd
f=flr
memcpy(0,24591,336)
::z::
x=r(128)y=r(128)c=sget(f(x/25.6)+1,f(y/25.6)+1)
if (c==0) c=f(r(2))
rect(x,y,x+r(6),y+r(6),c)
goto z

later Realized this was biased to the lower right, fixed:

Cart [#26588#] | Copy | Code | 2016-08-06 | Link
3

memcpy(0,24591,336)r=rnd
f=flr
::z::
x=r(128)y=r(128)c=sget(f(x/25.6)+1,f(y/25.6)+1)
if (c==0)c=f(r(2))
d=r(3)rect(x-d,y-d,x+d,y+d,c)goto z
P#26585 2016-08-06 13:35 ( Edited 2016-08-06 14:22)

::

Cart [#26665#] | Copy | Code | 2016-08-08 | Link
2

cls(7)
c={12,10,0,11,8}
for r=1,5 do
  for i=0,1,0.05 do
    circfill(10+r*18+cos(i)*15,74-18*(r%2)+sin(i)*15,2,c[r])
  end
end
P#26667 2016-08-08 09:52

::

@jtruk: damn, you beat me to it ! I was about to post this yesterday:

cls(7)p={12,9,0,11,8}w=1o=circ
for a=0,0.5,0.01 do
c=16*cos(a)s=16*sin(a)d=1w=-w
for k=1,5 do d=-d
a=4+d*c+k*20o(a,68+d*8+w*s,2,p[k])end end

but I wanted to reclaim my circfill, which I just did:
(edit:optimized further, 138 chars)

cls(7)p={12,9,0,11,8}w=16
for a=0,0.5,0.01 do d=8w=-w
for k=1,5 do d=-d
circfill(4+d*2*cos(a)+k*20,68+d+w*sin(a),2,p[k])end
end::z::goto z

Cart [#26676#] | Copy | Code | 2016-08-08 | Link
7

edit: revealing the trick :)

P#26673 2016-08-08 15:39 ( Edited 2016-08-10 02:18)

::

Neat. Props for getting the proper ring intersections. I shirked that :)

P#26687 2016-08-09 06:51

::

"Oh that's nice..."

sees the interlinking rings

"WHAAAAA?!?!? This is some real dark magic stuff now ultrabrite!" ;o)

P#26690 2016-08-09 08:32

::

Very nice way to get the interlinking rings!

P#26700 2016-08-09 16:54

::

Cart [#26966#] | Copy | Code | 2016-08-15 | Link
3

cls()print("\130",0,5,1)t=0r=rnd::s::
t+=0.2
for i=0,3^7 do
x=r(16)y=4+r(10)circ(x*8,y*8,1,pget((x-t)%16,y)*(8+(t+x)%8))end
flip()goto s
P#26967 2016-08-15 21:36

::

Cart [#28060#] | Copy | Code | 2016-09-05 | Link
4

It's one of them one-liners!

::s::t=time()x=rnd(128)y=rnd(128)circ(x,y,1,(t-((2+cos(t/4))*abs(x+4*cos(t+y/99)-64)+(2+cos(t/4+0.25))*abs(y-64))/16+4*cos(t/4))%8+8)goto s
P#28061 2016-09-05 19:58

:: Red Ghost

Cart [#28755#] | Copy | Code | 2016-09-18 | Link
11

t=0::s::z=128
t+=.01
circ(sin(t/z)*64+64,cos(t/152)*64+64,cos(t/91)*2+4,8)for i=1,z/8 do
x,y=rnd(z),rnd(z)pset(x,y,pget(x,y)/6+.7)end
goto s

140 characters exactly.
This was fun to make and compact.

P#28756 2016-09-18 17:39

::

Cart [#28931#] | Copy | Code | 2016-09-21 | Link
6

k=1
while(1) do
  for i=0,127 do
   for j=0,127 do
    pset(i,j,i*i+j*j+k*atan2(i,j))
   end
  end
  k+=0.1
end

I swear I've seen some of those on walls for real. :)

P#28932 2016-09-21 06:52 ( Edited 2016-09-21 06:55)

::

140 chars is it ? Kaleidoscope warp ! 127-chars.

Cart [#28942#] | Copy | Code | 2016-09-21 | Link
2

cls()a=0 b=77 c=2 d=1.77 e=0::f::line(a,b,127-a,127-b,e)e+=.1 a+=c b+=d if(a<0 or a>127)c=-c
if(b<0 or b>127)d=-d
flip()goto f

Loving the Fireball, Gamax !

Zep, I think you should totally make a TWEET category for SPLORE. The rules are, 140 chars or less.

Also, would it be possible for you to make a button so in addition to being able to run the cart in the browser, you have the option of running it in the installed PICO the user has purchased ? I know you can find or do it in SPLORE, but this would be different.

This would perhaps require a Firefox plugin you write. A button would appear next to the screen shot, "Execute."

You click it and your own PICO from your HD is run with the contents of the cart you are seeing Online. The advantage is clear. As when you run a cart online currently, even by pausing it with ENTER, if you press ENTER outside the focus, like writing a message, it is still registered in the window.

Running the cart in the true EXE would not have this problem, you would have the added advantage of no 'jerkiness' from the browser, and you could immediately view the source code for it without having to download it first.

Also maybe ALT-F4 will only shut down if you are in the FILER mode (not code, image, map, audio, or music). Optional, "Are you sure ? [Y/N]"

P#28943 2016-09-21 12:05 ( Edited 2016-09-21 13:28)

::

Cart [#29353#] | Copy | Code | 2016-09-25 | Link
1

140

s="i must obey the rules"i=1y=4
cls(3)rect(0,0,127,127,4)function _update()m=i%(#s+1)print(sub(s,m,m),m*4,y,7)i+=1
if(m>=#s)y+=6
y=y%120
end

@ultrabrite that 70s wallpaper one is amazing

P#29354 2016-09-25 06:43

::

Cart [#29617#] | Copy | Code | 2016-09-28 | Link
4

Edit: realized that I was setting t=0 twice so I used the spare characters to centre the text. 139. Note: memcpy is the start of line 3, flip is the start of line 4 - it's just the page formatting that makes it look like there's 5 lines.

n=1palt(0,z)::a::cls(n-1)
?n,0,0,n
memcpy(0,24576,512)t=0::b::cls(n-1)sspr(0,0,8,8,64-t/2,64-t/3,t,t)t+=4 if(t>128)n+=1 goto a
flip()goto b

Original version:


Cart [#29388#] | Copy | Code | 2016-09-25 | Link
4

  1. Note: memcpy is the start of line 3, flip is the start of line 4 - it's just the page formatting that makes it look like there's 5 lines.
n=1palt(0,z)::a::cls(n-1)
?n,0,0,n
memcpy(0,24576,512)t=0::b::cls(n-1)s=64-t/2sspr(0,0,8,8,s,s,t,t)t+=4 if(t>128)n+=1 t=0goto a
flip()goto b

P#29389 2016-09-25 14:26 ( Edited 2016-09-28 17:22)

::

Cart [#29586#] | Copy | Code | 2016-09-28 | Link
3

r=rnd::s::t=time()*.1x=r(128)y=r(128)c=(pget(x,y)+r(99)/98)%8%6
if (x*cos(t)+y*sin(t)+t*200)%64<32 then
c+=8
end
circ(x,y,1,c)goto s
P#29587 2016-09-28 12:23

::

Cart [#29605#] | Copy | Code | 2016-09-28 | Link
3

cls()y=0::o::for x=0,120,8 do
for n=0,14 do
i=n%3j=y+flr(n/3)line(x+i,j,x+4-i,j,flr(rnd(2))*7)
end flip()end
?""
y=min(y+6,120)goto o

A set of glyphs that's kinda big.

P#29606 2016-09-28 15:07

::

Cart [#29752#] | Copy | Code | 2016-09-30 | Link
1

  1. Z to generate. Started as general scanline triangle rasterizer and slowly morphed into pyramid generator.
n=128::s::h,w=rnd(n),rnd(n)flip()cls()for y=0,h do
x=w*y/(2*h)line(64-x,n-h+y,64+x,n-h+y,4+11*(y%2))end::t::
if(btn(4))goto s
goto t
P#29753 2016-09-30 17:23 ( Edited 2016-09-30 17:42)

::

! - CHRISTMAS BUMP - !

Cart [#33791#] | Copy | Code | 2016-12-20 | Link
1

c=circ r=rnd::s::x=r(127)y=r(127)p=pget(x,y)
if(p==7)c(x,y,1,6)
if p!=1then c(x,y,r(7),1)c(x-1+r(3),(y+1)%127,1,7)end goto s
P#33792 2016-12-20 17:34

::

@Btopp: that's nice and all, but tweetjam = 140 chars max (size of a tweet)

P#34026 2016-12-23 09:26 ( Edited 2016-12-23 09:27)

::

from RhythmLynx' Pyramids ;)

Cart [#34028#] | Copy | Code | 2016-12-23 | Link
0

P#34029 2016-12-23 09:48

::

@ultrabrite Ok! Sorry. I don´t found the rules.

P#34064 2016-12-23 20:44

:: Second try!

Cart [#34065#] | Copy | Code | 2016-12-23 | Link
0

r=2 t=0 s=0.01 c=1
function _update()
if t<1 then
t+=s
else
c+=1 s*=0.99 r+=2 t=0
end
x=64+r*cos(t) y=64+r*sin(t) pset(x,y,c)
end
P#34066 2016-12-23 22:09

::

With some compression tricks from @sean, I was able to write Conway's Game of Life on one pico8 page. We got it down to 283 characters, and I just decided to make it a single page of the code editor.

I know it won't "fit in a tweet", but I thought I'd share it here anyway.

Cart [#34288#] | Copy | Code | 2016-12-27 | Link
2

P#34289 2016-12-27 05:13 ( Edited 2016-12-27 05:14)

::

Hey there! I don't use the BBS much and so haven't been cross-posting my tweetcarts here, but I recently put all 50 of the ones I've made to date in a collection on itch if anyone's interested.

P#34759 2017-01-02 16:35

::

It's been a while! Felt like doing another one of these, this one was inspired by adventures on trainjam.

Cart [#38076#] | Copy | Code | 2017-03-07 | Link
1

140 chars. Interestingly you can copy+paste escape chars in the PICO-8 code editor and it will replace them with the actual wide chars, but when you copy+paste to external text (e.g. a tweet) it puts the \NNN back in. So this code can actually be 134 chars in-editor but not in-tweet. With the extra space I could add a -3 to P and hide the popping top edge.

a={}::s::cls(3)for y=0,25 do
a[y]=a[y]and a[y]+1or y*5srand(y)p=a[y]%130
?"\149",rnd(127),p,11
?"\144",60,p,15
?"||",60,p,4
end
flip()goto s
P#38077 2017-03-07 02:42

::

hey RhythmLynx, nice to see this thread back!
you can replace "\144" by "--" :)

P#38078 2017-03-07 06:12

::

This topic is one of the best things I've ever found online. Here's my first try, a drunkard's walk --

r=64w=127x=r y=r
while 1 do
q=rnd(4)circ(x,y,r%5,q*q)
if(q>2)x+=rnd(q) y+=q
if(q<2)x-=q y-=rnd(q)
x%=w y%=w r+=1
flip()end

I had to keep it short to fit those hashtags in.

https://twitter.com/WIZRND/status/844659406688137217

Cart [#38577#] | Copy | Code | 2017-03-22 | Link
0

P#38578 2017-03-22 17:22

::

couldn't sleep last night so i tried my hand at a tweetjam thing with audio. might try more later but here is a dumb little beachside noise gen

p,a,x=poke,0x3200,0x5f41sfx(0)p(x+2,1)p(x-1,1)p(x,1)p(a+1,91)p(a+67,1)p(a+65,1)::s::w=sin(x/999) x+=.0003 p(a,160+w*30)goto s

Cart [#38786#] | Copy | Code | 2017-03-27 | Link
0

P#38787 2017-03-27 19:46

:: Checkerboard 3D

Cart [#38798#] | Copy | Code | 2017-03-27 | Link
0

3D Checkerboard (ala space harrier)...now with proper perspective and 30Hz animation timing!

k,i,q=64,0,sqrt
cls(1)memset(i,223,k)::a::for y=3,k do
s=y/4
sspr(q(q(s))*16-i%8/4,0,k+k,1,k-y*32,k+y,k*4*s,1)
end i+=1 flip()goto a
P#38799 2017-03-27 23:50

::

Cart [#39039#] | Copy | Code | 2017-04-03 | Link
1

y=0t=0::s::x=0 t+=.0005
::l::b=8+flr((t+(x/4+t+y/(8+sin(t/4+x/300)*3))%2)%8)memset(24512+x+y*64,b+b*16,4)x+=4 if(x<64)goto l
y=y%128+1goto s
P#39040 2017-04-03 10:37

:: Mirror Rot

Cart [#39127#] | Copy | Code | 2017-04-05 | Link
2

First post, first tweetjam \o/

after seeing the IFS Visualiser by 1bardesign, I knew I had to mess around with it :)

140 characters (those hashtags take a lot of space!)

::a::cls()y=rnd(9)x=y
w=y
while 1 do
c=1+pget(x,y)pset(x,y,c)x,y=y,(x*cos(w)-y/w*sin(w))%127
if(c>15)goto a
end--#tweetjam #april3030 #pico8
P#39129 2017-04-06 00:03

:: Retro

Cart [#39437#] | Copy | Code | 2017-04-09 | Link
2

This is my first submission, tricky cramming it into 140 chars!

s={}w=128 
r=rnd 
for i=1,w do
s[i]={}p=s[i]p[1]=r(w)
end
::a::cls()
for i=1,w do 
p=s[i]
pset(p[1],i,i%3+5)p[1]=(p[1]-i%3)%w 
end
flip()
goto a
P#39439 2017-04-09 05:26 ( Edited 2017-04-10 05:04)

::

Cart [#39448#] | Copy | Code | 2017-04-09 | Link
2

t=0::_::cls()for i=3,10,0.01 do
c=cos x=64+i*5*c(i)y=64+i*9*sin(i)line(x,y,x+c(i*2+t)*30,y+c(i*3+t/2)*19,4+i)end
flip()t+=0.01
goto _
P#39449 2017-04-09 11:16 ( Edited 2017-04-09 11:16)

:: a wet tweetjam

Cart [#39466#] | Copy | Code | 2017-04-09 | Link
1

second tweetjam \o/
140 characters.
If you're patient enough, the screen fills with other colored liquids as well. Unintentional result of integer overflow? 🤔

I hope @TRASEVOL_DOG doesn't mind me using his wonderful game as my backdrop :3

x=0p={}f=133t=0::a::z=x%f
y=x/f
if(t<f)p[x]=pget(z,y)
c=p[x]
if(y+sin(t)*7+t/f>f)z+=sin(y/60+t)-3 c+=1
pset(z,y,c)x=(x+1)%(f*f)t+=1/f
goto a
P#39467 2017-04-09 20:01

::

First tweetjam - Conway's game of life in 139 characters. This was a lot of fun to do and I'm so happy I got it finished. Thanks to LRP for help with it!

Cart [#39505#] | Copy | Code | 2017-04-10 | Link
4

k=2^13::s::for a=0,k do
n=0 for x=0,8 do
n+=peek(k*3+a+x/3+x%3*64-65)
end
poke(a,n==12 and 4 or n==16 and peek(a))end
memcpy(k*3,0,k)goto s
P#39485 2017-04-10 06:21 ( Edited 2017-04-10 13:55)

:: Rainbow Whale Shark

I've also been doing a bunch of tweetcarts recently on twitter: @guerragames

Here's my latest one:

Cart [#39519#] | Copy | Code | 2017-04-10 | Link
2

P#39520 2017-04-10 19:49

::

Cart [#39578#] | Copy | Code | 2017-04-12 | Link
1

I just wanted to do something with mouse control

poke(24365,1)k,m=24576,memcpy::s::pset(stat(32),stat(33),rnd(8)+8)for i=0,127 do
l=k+64*i
m(l,l+rnd(2),63)end
m(k+64,k,8064)
flip()goto s
P#39579 2017-04-12 16:17

::

I might get addicted to making these...

Cart [#39667#] | Copy | Code | 2017-04-14 | Link
0

cls()t=0::_::
t+=1
for x=0,90,.02 do
c=(x*13-t)%8+8
pset(cos(x/5)*x+64,sin(x/5)*x+64,c)pset(cos(x/5)*(x+1)+64,sin(x/5)*(x+1)+64,c)end
goto _
P#39668 2017-04-14 18:49

::

Cart [#39720#] | Copy | Code | 2017-04-16 | Link
0

Wanted to see how closely I could replicate the tune from another game I made in a tweetjam

a=12800
t={[27]=84,[60]=141,[65]=12,[66]=0,[67]=32}for i=0,67 do
poke(a+i,({129,84,148})[i%4+1])
if(t[i])poke(a+i,t[i])end
sfx(0)::_::goto _
P#39721 2017-04-16 17:36

:: Glitch gradient

My first tweetjam, and 1st use of poke ever. 126 chars. After a (long) while it gets less interesting, but that's a matter of taste.

Cart [#40110#] | Copy | Code | 2017-05-01 | Link
1

t=1
p="012489ab3cdef76d5100"
::a::
for m=24576,32767 do
 c=flr((m%t)%2+t)%#p
 poke(m,("0x"..sub(p,c-1,c)))
end
t+=1/256
goto a
P#40111 2017-05-01 18:55

::

Cart [#40140#] | Copy | Code | 2017-05-02 | Link
0

t=0
::s::
cls()
a=470
b=100
c=0.2
for i=0,a,0.2 do
circfill(cos(i/b+t)*i*c+64,sin(i/b+t)*i*c+64,i/100,6)
end
t+=0.01
flip()
goto s  

Would you guess that I've just finished reading Uzumaki?

P#40141 2017-05-02 17:09

::

Cart [#40150#] | Copy | Code | 2017-05-03 | Link
1

memcpy(0,24576,8192)q=0::_::for j=0,128 do
for i=0,128 do
w=cos(q)pset(i,j,i-64>abs(w*64)and 0 or sget(i/w-64/w+64,j))end
end
q+=.02
goto _

You spin me right round baby right round like a record baby right round round round

P#40151 2017-05-03 06:28
  Page
1
2
3
4
5
6
7
8

Log in to post a comment

user:
password:

New User | Account Help
:: New User
X
About | Contact | Updates | Terms of Use
Follow Lexaloffle:        
Generated 2018-08-19 23:40 | 0.274s | 3145k | Q:411