Log In  
Page:
1
2
3
4
5
6
7
8

2

Cart [#40152#] | Code | 2017-05-03 | License: CC4-BY-NC-SA | Embed
2

t=0::_::cls()for i=1,7 do
j=i-1
r={4,1,2,1.7,2,3,1.9}k=t*r[i]/i
circfill(64+j*12*cos(k),64+j*12*sin(k+.1),r[i],9+i%7)end
t+=.02
flip()goto _

help I have a crippling tweetjam addiction

P#40153 2017-05-03 09:01 ( Edited 2017-05-03 13:01)
2

Cart [#40155#] | Code | 2017-05-03 | License: CC4-BY-NC-SA | Embed
2

Spring time, folks!

P#40156 2017-05-03 10:48 ( Edited 2017-05-03 14:54)

Cart [#40187#] | Code | 2017-05-04 | License: CC4-BY-NC-SA | Embed

x,y,u,v=0,0,0,0::_::cls()v=y>64 and(btn(4)and-2 or 0)or v+.1
u=(btn(0)and-1 or btn(1)and 1 or u*0.9)y+=v
x=(x+u)%128
pset(x,y,8)flip()goto _

The most basic possible platformer. I wanted to see could I fit something that "felt" like an ok platformer into one of these.

P#40188 2017-05-04 13:20 ( Edited 2017-05-04 17:20)
3

Cart [#40212#] | Code | 2017-05-05 | License: CC4-BY-NC-SA | Embed
3

r=rnd
f=100
::a::
f=mid(40,f+r(8)-4,200)
e=flr(r()+.01)
cls(e*7)
for n=1,f do
a=r(240)
b=a+r(10)-f/2
line(a,0,b,127,e*5+1)
end
flip()
goto a
P#40213 2017-05-05 08:45 ( Edited 2017-05-05 12:45)
1

Cart [#40217#] | Code | 2017-05-05 | License: CC4-BY-NC-SA | Embed
1

f=64 a=0 y=0 x=0::v::for n=0,4637 do m=a+a*flr(rnd(3))x=.5*(x+sin(m)*f)y=.5*(y-cos(m)*f)pset(f+x,f+y,a*9%15+1)end flip()cls()a+=.003 goto v
P#40216 2017-05-05 11:32 ( Edited 2017-05-05 15:51)
:: irdumb
1

Get ready to use your arrow keys, cause there's no restarting ;)

Cart [#40516#] | Code | 2017-05-13 | License: CC4-BY-NC-SA | Embed
1

m=127z=0s=1p={-1,1,-m,m}function _draw()for i=0,3 do
if(btn(i))s=i+1
end
z+=p[s]*2
z%=m*m
x=z%m
if(x<2or pget(x,z/m)>0)cls(8)
pset(x,z/m)end
P#40517 2017-05-12 20:35 ( Edited 2017-05-13 00:35)
y=9 p=0q=0 n=1
while n>0 do cls()circfill(9,y,9,7)y+=q;q+=p;p+=0.001
if(y>(99))q=q*(-0.9*n); n-=0.03
flip()end
print("#pico8 #tweetjam",9,9)

Putting these here: https://github.com/mattleblanc/picotweets

P#40689 2017-05-17 03:42 ( Edited 2017-05-17 07:42)
1

Cart [#40861#] | Code | 2017-05-22 | License: CC4-BY-NC-SA | Embed
1

q=128t=0::r::x=0 t+=.5
cls()::c::c=x%q r=64+x/q
h=1+(cos(c/60)/2+.5)*.6+sin(r/50-t*.1)*.1
?n,c,q-(q-r)*h,h*9
x+=5 if(r<q)goto c
flip()goto r 
P#40862 2017-05-22 13:44 ( Edited 2017-05-22 17:44)

Cart [#40865#] | Code | 2017-05-22 | License: CC4-BY-NC-SA | Embed

t=0w=128::_::x=0::n::
?t,rnd(w),rnd(w),(t+1)*5%4
x+=1 if(x<w)goto n
t+=.005
s=sin(t*5)*59
?"\x88",64+sin(t)*s,64+cos(t)*s,t*5%4
flip()goto _
P#40866 2017-05-22 13:54 ( Edited 2017-05-22 17:54)
:: irdumb
3

embedded tag :P

 
Cart [#40912#] | Code | 2017-05-24 | License: CC4-BY-NC-SA | Embed
3

cls()m='#pico8'x=0::a::n=0y=x
x=rnd(128)for i=-4,4 do
if(pget(x-1+i%3,y+i/3)>0)n+=1
end
?m,52,63,1
?m,52,62,n*2
if(n>5)n=0
pset(x,y,n)goto a
P#40913 2017-05-24 00:55 ( Edited 2017-05-24 05:32)
3

Cart [#41012#] | Code | 2017-05-26 | No License | Embed
3

t=127l=t while l do
cls()for x=0,l do for y=0,l do
if((x%9+y%9==0))line(x,y,x+cos(sin(t*y))*9,y+cos(sin(x*t))*9)
end end t+=1/9999 flip()endw
P#41013 2017-05-26 17:12 ( Edited 2017-05-26 21:12)
3

Cart [#41085#] | Code | 2017-05-28 | License: CC4-BY-NC-SA | Embed
3

q,t=128,0::z::for x=t%2,q,2 do for y=t/2%2,q,2 do
pset(x,y,max(0,pget(x,y)-1))end end
circfill(cos(t%q)*q+64,sin(t/q)*q,42,15)t+=1.01
goto z
P#41087 2017-05-28 13:36 ( Edited 2017-05-28 17:36)

Cart [#41104#] | Code | 2017-05-29 | License: CC4-BY-NC-SA | Embed

::_::t=time()/9
r=0::y::c=0::x::
circ(c*3+rnd(3),r*3+rnd(3),1,sin(c*r*.024+t*5)+sin(t)*2+13)c+=1
if(c<44)goto x
r+=1
if(r<44)goto y
goto _
P#41105 2017-05-29 06:22 ( Edited 2017-05-29 10:22)
2

Cart [#41186#] | Code | 2017-05-31 | License: CC4-BY-NC-SA | Embed
2

::_::t=time()cls()x=0::d::q=x%16*8+4w=flr(x/16)*8+4s=sin(t+(q-64)/((w-64)*10))*7
circfill(q,w,s,5+s*.8)x+=1
if(x<256)goto d
flip()goto _
P#41187 2017-05-31 19:10 ( Edited 2017-05-31 23:10)
3

Cart [#41229#] | Code | 2017-06-02 | License: CC4-BY-NC-SA | Embed
3

t=0::_::cls()t+=.05
y=0::l::o=64+sin(t/7+y/256)*10+cos(y/99+t)*12
line(o-1,y-11,o-1,y,2)line(o,y-11,o,y,8)y+=1
if(y<140)goto l
flip()goto _
P#41230 2017-06-02 03:40 ( Edited 2017-06-02 07:40)
3

This tweetjam turns Pico-8 screen into a 64 bits number, incrementing 55,000 times / second. Which is rather quick, right? Not if you're the leftmost bit: you won't be set to 1 before 5,317,658 years. That is, 2^63/55000/3600/24/365. Quite a bit. And all bars will be light blue in no more that twice that duration.

Cart [#41239#] | Code | 2017-06-02 | License: CC4-BY-NC-SA | Embed
3

P#41243 2017-06-02 12:15 ( Edited 2017-06-02 16:15)
1

Side effect: stare at the center then pause the animation, it now comes to get you.

Cart [#41883#] | Code | 2017-06-23 | License: CC4-BY-NC-SA | Embed
1

P#41884 2017-06-23 09:29 ( Edited 2017-06-23 13:29)
:: irdumb

Cart [#42001#] | Code | 2017-06-29 | License: CC4-BY-NC-SA | Embed

messing with band + reflecting

z=65t=0poke(0x5f2c,7)cls()s=sin::a::f=s(t)*z
t+=.0003
for x=0,z,5 do for y=0,z,5 do
circ(x,y,s(f/z)*6,band(s(f/y)*x,s(f/x)*y))end end
goto a
P#42002 2017-06-29 06:54 ( Edited 2017-06-29 10:54)
:: irdumb

Cart [#42115#] | Code | 2017-07-01 | License: CC4-BY-NC-SA | Embed

some more patterns settling

t=64poke(24364,7)s=sin::a::f=t*s(t)
t+=.002
for i=0,t*t,5 do
y=i/t--#pico8
x=i%t--#guam
circ(x,y,s(f/t)*6,band(s(f/y)*x,s(f/x)*y))end
goto a
P#42116 2017-07-01 08:44 ( Edited 2017-07-01 12:44)

 
Cart [#42139#] | Code | 2017-07-02 | License: CC4-BY-NC-SA | Embed

cls()r=rnd::a::s="\x89"
for b=0,999 do
?s,0,1,8+r(3)
x=r(24)y=r(6)c=pget(x%6,y)
?s,0,1,0
circ(x*7-2,y*20-sin(c/5)*15,r(2),c)end;flip()goto a
P#42140 2017-07-02 08:33 ( Edited 2017-07-02 12:33)
7

Cart [#42177#] | Code | 2017-07-04 | License: CC4-BY-NC-SA | Embed
7

memcpy(0,24576,8192)t=0.7::_::cls()t+=.01;s=sin(t)for i=0,abs(cos(t)*5) do
sspr(0,0,36,10,60-s*60+5+i,41+cos(t)*8,120*s,30)end
flip()goto _
P#42178 2017-07-04 09:03 ( Edited 2017-07-04 13:03)
:: irdumb

 
by irdumb
Cart [#43202#] | Code | 2017-08-13 | License: CC4-BY-NC-SA | Embed

can anyone guess what's on the screen?

z=64y=sin::_::cls()t=time()/3k=4+y(t)for s=0,k do
a=(t+s+k*2)%4o=z*y(a/4)
if(a>2)sspr(s*8,0,8,8,z+(y((a-1)/4)*z+o)/2,z,-o,z)end
flip()goto _
P#43203 2017-08-13 00:59 ( Edited 2017-08-13 04:59)
:: Jusiv

@irdumb I'm almost positive that's "The Slow and the Curious"

Also hey I finally started making some tweetcarts, too:
Vortex Clock

Cart [#43207#] | Code | 2017-08-13 | License: CC4-BY-NC-SA | Embed

cls()
a=0
r=0
function _draw()
for i=0,150 do
r+=1
if r>150 then
r*=-1
end
a=(a+5)%360
pset(63+r*cos(a/360),
63+r*sin(a/360),r%16)
end
end

(I also found an easy way to get 180 patterns out of this by changing one value, so I made a little visual toy for doing that: Patterns)

Scrolling Ordered Chaos

Cart [#43208#] | Code | 2017-08-13 | License: CC4-BY-NC-SA | Embed

p=0
o=1
function _draw()
for p=0,127 do
for i=0,128 do
pset(p,i-o%2,(p+i*o)/16)
o+=1
pset(p,i-o%2,(p+i*o)/16)
end
end
o+=1
end
--wtf is this

I made this effect almost completely by accident.

P#43210 2017-08-13 10:50 ( Edited 2017-08-13 14:50)

Falling brick

y=0
x=rnd(120)
function _update()
y=y+rnd(10)
if y>128 then y=0 x=rnd(120) end
end
function _draw()
cls()
rectfill(x,y,x+7,y+7,7)
end

how do I make you able to play the code?

P#43215 2017-08-13 14:53 ( Edited 2017-08-13 18:53)
1

Cart [#43231#] | Code | 2017-08-13 | No License | Embed
1

Mouse controlled!

poke(24365,1)h,v,a,b=0,0,2,2::g::x=stat(32)cls(1)h=(h+a)%128
v=(v+b)%128rect(x,59,x+8,60)
if(pget(h,v)!=1)b=-b a=h-x-4
pset(h,v)flip()goto g
P#43232 2017-08-13 18:18 ( Edited 2017-08-13 22:18)
:: irdumb

Yup! That is most definitely The Slow and the Curious @Jusiv !

P#44144 2017-09-13 01:55 ( Edited 2017-09-13 05:55)
1

Cart [#44373#] | Code | 2017-09-19 | License: CC4-BY-NC-SA | Embed
1

t=0::l::for i=0,99 do x,y=rnd(128),rnd(128) circ(x,y,1,7+(x/30+y/30+cos(t/4))%8)end t+=0.01 flip()goto l

49 chars

P#44374 2017-09-19 15:09 ( Edited 2017-09-19 19:09)
:: Felice

I love how incredibly useful that one-pixel-radius circle is on Pico-8. :)

P#44376 2017-09-19 18:31 ( Edited 2017-09-19 22:31)

New 140 character tweetcart

Cart [#46785#] | Code | 2017-11-28 | License: CC4-BY-NC-SA | Embed

Implementation of the [url=http://fabiensanglard.net/fizzlefade/index.php] linear-feedback shift register
fade[/url] used for the Wolfenstein 3D death animation. Colours each pixel on the screen red in a chaotic fashion (other than 0,0 which has to be set outside the main loop) without repetition until the cycle starts from the beginning again. And unlike the Wolfenstein 3D version there's no wasted iterations where you have to skip drawing.

A less terse version of the code:

pset(0,0,8)
 repeat
  b=band(v,1)
  v=flr(shr(v,1))
  if b!=0 then
    v=bxor(v, 0x3802)
  end
  i+=1
  if i%128==0 then flip() end
  pset(shr(band(v,0x3f80),7),band(v,0x7f),8)
 until(v==1)

Could be useful for anyone who wants to implement this kind of fade effect or anything else where you want to chaotically loop over a range of values without repetition or wasting CPU cycles by calling rnd() repeatedly and checking if you've previously gotten the same result.

P#46787 2017-11-28 12:05 ( Edited 2017-11-28 17:06)
1

Cart [#47745#] | Code | 2017-12-29 | License: CC4-BY-NC-SA | Embed
1

c=cos;s=sin;t=5::_::t+=.01for i=0,990 do;x=rnd(127)y=rnd(127)p=x;o=y;w=80+10*s(t);x+=s(o/w+t)*9y+=c(p/w-t)*9q=60+30*c(t/2)v=mid(8,11.3+(s(x/q+t-x/q/2)*.7+s(t/4)*.3+c(y/q-t-y/q/2)*.7+c(t/4)*.3)*1.7,14)fillp()circ(p,o,2,v)fillp(23130.5)circ(p,o,2,v+.5)end;flip()goto _
P#47746 2017-12-29 08:38 ( Edited 2017-12-29 13:38)
:: seleb

new year, new collection of all my tweetjam carts: https://seansleblanc.itch.io/tweetcarts-2017

P#47791 2018-01-01 07:54 ( Edited 2018-01-01 12:54)
:: elneil

Cart [#47792#] | Code | 2018-01-01 | No License | Embed

e={}x=8u=0::_::
if(u>0)u-=2
if(btnp(5)and u<1)u=8
cls()for i=#e,1,-1 do
e[i]-=1pset(e[i],8)
if(e[i]<1)del(e,0)x+=1end
if(rnd(25)<1)add(e,128)
?x-8
if(pget(x,8-u)<1)pset(x,8-u)flip()goto _

187 chars, but need to reset cart when you die.

P#47793 2018-01-01 08:23 ( Edited 2018-01-01 13:23)
2

Cart [#48828#] | Code | 2018-02-01 | License: CC4-BY-NC-SA | Embed
2

n=128;r=rnd;c=circ::_::a=0::y::c(64,64,55+a/7,7)a+=1;c(74+a*.9,38+a*2,9-a/5)c(35+a*1.5,35,3.5)c(69-a,41+a*1.5,5.5-a/13)c(33+a/2,39,7)c(59,63,a/5)c(61,58,2)
if(a<26)goto y
memcpy(0,n*192,n*64)p=0::m::x=r(n)y=r(n)j=sget(x,y)
if(r(j)<3)c(x,y,1,j)
p+=1if(p<n*7)goto m
goto _
P#48829 2018-02-01 08:50 ( Edited 2018-02-01 13:50)
3

Cart [#50810#] | Code | 2018-03-25 | No License | Embed
3

t,f,s,j=0,0,1/10,1/10
::_::
cls()
t+=.007
f+=1
for a=0,s,j do x,y=0,0
for r=0,10+50*min(t,1),.5 do b=a+r/900 p,g,h=sin(r/(360*j*1.5)+t),64+r*cos(b-t)+r/3*sin(p),64+r*sin(b-t/2)+r/3*cos(p)
if(r!=0)rect(g,h,x,y,a*15)
x,y=g,h end end
if (f%10==0)s=min(s+j,1)
flip() goto _
P#50811 2018-03-25 16:40 ( Edited 2018-03-25 20:40)
3

Cart [#53545#] | Code | 2018-06-14 | License: CC4-BY-NC-SA | Embed
3

t,q,c=0,sin,circfill::_::t+=.01cls(1)for i=0,128 do
s=cos(t+i/25)y=i*2-(t%1*100)
a=64+47*q(t+i/25)b=10+i/8.3%3
if(s<=0)fillp(23130.5)
c(a,y,3.75+s,b)fillp()end
for j=-10,2800 do
k=59+j%10+q(-t*1+j/3)*39l=j/10+flr(t*50)%2
c(k,l,0,pget(k,l)+12)end
flip()goto _
P#53546 2018-06-14 05:53 ( Edited 2018-06-14 09:53)
2

Cart [#53559#] | Code | 2018-06-14 | License: CC4-BY-NC-SA | Embed
2

::_::r,s,p,t=rnd,sin,srand,time()/60p(t)for i=0,1999 do
x=r(128)y=r(128+r())s(x)c=pget(x,y)circ(x-1+r(2),y-3,1,(c+r())%4+8)
if(c==0)pset(x,y,r(3))end
for i=0,20 do
p(i)x=49+r(30)y=49+r(30)x=x+20*s(x*t)y=y+20*s(y*t)circfill(x,y,r(12)+s(t*60)*3,0)end
flip()goto _
P#53560 2018-06-14 13:47 ( Edited 2018-06-14 17:47)
2

Cart [#53666#] | Code | 2018-06-20 | License: CC4-BY-NC-SA | Embed
2

l,f,t,w,p=line,fillp,0,23130.5,sin::_::t+=.0151cls(1)y=0::m::c=62+p(y/50-t)*((y/3+9))+p(-y/30-t)*9
x=0
for x=0,5,.5 do
s=9+((y-t*49.5)/3)%4.5+2+2*p(x/(5+y))
if(flr(s)%3==0)f(w)
l(c+x,y,c+x,127,s)f()end
f(w)l(c,y,c+5,y,13)f()y+=1-y/300
if(y<128)goto m
flip()goto _
P#53667 2018-06-20 15:34 ( Edited 2018-06-20 19:34)

 
Cart [#53954#] | Code | 2018-07-05 | License: CC4-BY-NC-SA | Embed

pal(7,1)n,q,r=127,64,rnd::_::for i=0,1390 do
x,y=r(n),r(n)a,s=q-x,q-y
l=(max(abs(a),abs(s))/5000)*sin(time()/10)z,u=cos(l),sin(l)w,d=z*a-u*s,u*a+z*s
circ(q+w*1.07,q+d*1.07,1,max(7,pget(q+a,q+s)-flr(r(2))))end
for i=0,3 do circfill(r(n),r(n),r(3),15)end
goto _
P#53955 2018-07-05 10:59 ( Edited 2018-07-05 14:59)

Cart [#53960#] | Code | 2018-07-06 | License: CC4-BY-NC-SA | Embed

o,s,j=19,sin,{2,4,9,10,7}cls()::_::t=time()for i=0,512 do
x,y=i%o,flr(i/o)v,b=9+s(t/10)*6-x,13-cos(t/10)*6-y
a,l=atan2(v,b),sqrt(v*v+b*b)c=j[flr((s(a*s(t/20)*10+l/15+t)/5+s((v*b)/150+t)/5)*5.5+3.5)]
?"◆",x*7-4+(1-y%2)*3+rnd(2),y*5-4+rnd(2),c
end goto _
P#53961 2018-07-06 04:35 ( Edited 2018-07-06 08:35)
Page:
1
2
3
4
5
6
7
8

[Please log in to post a comment]

About | Contact | Updates | Terms of Use
Follow Lexaloffle:        
Generated 2019-11-18 17:17 | 0.145s | 6291k | Q:367