
3 changed files with 41 additions and 13 deletions
@ -1,9 +1,7 @@ |
|||
pico-8 cartridge // http://www.pico-8.com |
|||
version 32 |
|||
version 41 |
|||
__lua__ |
|||
::i::r=1t=0f=200n={x=f/2,y=f/2,h=0,v=0,f=.9,t=9,c=12,p=3}i={n}d=0j=0g=1h=0for o=0,30do add(i,{x=rnd(f),y=rnd(f),t=4,c=5,p=4})if o<6then add(i,{x=90+rnd(4),y=90+rnd(4),h=0,v=0,f=.97,t=8,c=12,p=2})end end::o::o=rnd()if t%40<r then add(i,{x=99+cos(o)*f,y=99+sin(o)*f,t=1,c=8,p=4})end if t%8<r then add(i,{x=99+cos(o)*f,y=99+sin(o)*f,f=1,h=1-rnd(2),v=1-rnd(2),t=0,k=700,c=10,p=5})end t+=1if btn(0)then n.h-=.3end if btn(1)then n.h+=.3end if btn(2)then n.v-=.3end if btn(3)then n.v+=.3end if btn()==32then goto i end camera(n.x-64+rnd(d),n.y-64+rnd(d))d=max(d-.7,0)h-=.02if h<0then g=1end for o in all(i)do a=1e=0if o.h then o.x+=o.h o.y+=o.v o.h*=o.f o.v*=o.f e=atan2(o.h,o.v)end if o.t<1then a,e=7,t/99end if o.t>8then a=4end if o.t==8then l=n.x-o.x c=n.y-o.y o.h+=l/50o.v+=c/50if abs(o.x-n.x)>9or abs(o.y-n.y)>9and r>0then goto o end o.h-=l/6o.v-=c/6::o::for f in all(i)do if f.t~=8then goto o end if abs(o.x-f.x)>3or abs(o.y-f.y)>3then goto o end l=o.x-f.x c=o.y-f.y o.h+=l/35o.v+=c/35::o::end end if o.t==1then e=atan2(n.x-o.x,n.y-o.y)o.x+=cos(e)o.y+=sin(e)a=4end if o.t<3then for f in all(i)do if f.t>7and abs(f.x-o.x)+abs(f.y-o.y)<8and r>0then if f==n then goto f else b=g d=4if o.t>0then g,h,d,b=min(10,g+1),1,8,g*10end j+=b s=o add(i,{x=o.x,y=o.y,f=1,h=.2,v=-.5,t=6,k=60,c=6,p=0,va=b})del(i,o)goto n end end end end if o.k then o.k-=1if o.k<0then del(i,o)end end line()for f=0,o.p do k=e+f/o.p line(o.x+cos(k)*a,o.y+sin(k)*a,o.c)end if o.va then?"+"..o.va,o.x,o.y,o.c |
|||
end end rect(0,0,f,f,6)if r>0and(abs(n.x-f/2)>f/2or abs(n.y-f/2)>f/2)then goto f end camera(0,0)?"score:"..j.."\n𝘹 "..g,3,3,7 |
|||
if h>0then line(3,1,3+122*h,1)end flip()cls()goto o::f::s=n del(i,n)r=0d=9goto n::n::m=7+s.t*2for o=0,m do e=o*(1/m)p=1+rnd(2)add(i,{x=s.x,y=s.y,h=sin(e)*p,v=cos(e)*p,f=1,t=5,c=s.c,p=2,k=15})end goto o |
|||
__meta:title__ |
|||
|
|||
Planning to use https://thisismypassport.github.io/shrinko8/ |
|||
v=0::i::e=1t=0f=200n={o=f/2,f=f/2,e=0,d=0,r=.9,i=9,t=12,h=3}i={n}h=0j=0g=1r=0for o=0,30do add(i,{o=rnd(f),f=rnd(f),i=4,t=5,h=4})if o<6then add(i,{o=90+rnd(4),f=90+rnd(4),e=0,d=0,r=.97,i=8,t=12,h=2})end end::o::l=rnd()if t%40<e then add(i,{o=99+cos(l)*f,f=99+sin(l)*f,i=1,t=8,h=4})end if t%8<e then add(i,{o=99+cos(l)*f,f=99+sin(l)*f,r=1,e=1-rnd(2),d=1-rnd(2),i=0,g=700,t=10,h=5})end t+=1if btn(0)then n.e-=.3end if btn(1)then n.e+=.3end if btn(2)then n.d-=.3end if btn(3)then n.d+=.3end if btn()==32then goto i end camera(n.o-64+rnd(h),n.f-64+rnd(h))h=max(h-.7,0)r-=.02if r<0then g=1end for o in all(i)do a=1d=0if o.e then o.o+=o.e o.f+=o.d o.e*=o.r o.d*=o.r d=atan2(o.e,o.d)end if o.i<1then a,d=7,t/99end if o.i>8then a=4end if o.i==8then c=n.o-o.o p=n.f-o.f o.e+=c/50o.d+=p/50if abs(o.o-n.o)>9or abs(o.f-n.f)>9and e>0then goto o end o.e-=c/6o.d-=p/6::o::for f in all(i)do if f.i~=8then goto o end if abs(o.o-f.o)>3or abs(o.f-f.f)>3then goto o end c=o.o-f.o p=o.f-f.f o.e+=c/35o.d+=p/35::o::end end if o.i==1then d=atan2(n.o-o.o,n.f-o.f)o.o+=cos(d)o.f+=sin(d)a=4end if o.i<3then for f in all(i)do if f.i>7and abs(f.o-o.o)+abs(f.f-o.f)<8and e>0then if f==n then goto f else b=g h=4if o.i>0then g,r,h,b=min(10,g+1),1,8,g*10end j+=b s=o add(i,{o=o.o,f=o.f,r=1,e=.2,d=-.5,i=6,g=60,t=6,h=0,a=b})del(i,o)goto n end end end end if o.g then o.g-=1if o.g<0then del(i,o)end end line()for f=0,o.h do k=d+f/o.h line(o.o+cos(k)*a,o.f+sin(k)*a,o.t)end if o.a then?"+"..o.a,o.o,o.f,o.t |
|||
end end rect(0,0,f,f,6)if e>0and(abs(n.o-f/2)>f/2or abs(n.f-f/2)>f/2)then goto f end camera(0,0)o="score:"..j if r>0then o=o.."\n𝘹 "..g end if e<1then o=o.."\nhigh: "..v end?o,50-e*47,3,7 |
|||
if r>0then line(3,1,3+122*r,1)end if e<1then?"press ❎ to believe",27,99 |
|||
end flip()cls()goto o::f::s=n del(i,n)e=0h=9r=0v=max(v,j)goto n::n::m=7+s.i*2for o=0,m do d=o*(1/m)q=1+rnd(2)add(i,{o=s.o,f=s.f,e=sin(d)*q,d=cos(d)*q,r=1,i=5,t=s.t,h=2,g=15})end goto o |
Loading…
Reference in new issue