solitaire-win-animation

you won! a companion piece for my recent solitaire game

controls: none, it's just an animation

thank you to  @JadeLombax for some excellent and easy-to-use sprite compression snippets; they made drawing the pips on the cards super easy and compact (only ~120 characters of code!)

this animation was made entirely in code: (1013 characters)

q="⁷i6v1d1"p=poke::▥::W=12w=13Z=16B={}T=0M=9for i=0,311do v=ord("ょEまょEひょEせょ%47('ょ%#3dg''43$'3$###8##-##'",i\8+1)-35sset(i%W,2+i\W,v>>i%8&1)end
function F(i)I=i\8O=1-I U=I*(i-8+i\W)*14+O*i*Z+2V=O*(T\8*6+28)+5end
function R(r)x=r.x
y=r.y
a=1+r.T\4b=r.T%4c=b\2+1D(x-1,y-1,x+w,y+17,2)D(x,y,x+W,y+Z,0)?(a==4and"³f|³f0 ³b"or sub("kqj|98765432a",a,a).." ³d")..split("♥,◆,◆⁵8f..³aᶜ0.,◆⁵8fニ")[b+1].."⁶j00",x+1,y+1,c
pal(1,c)sspr(0,a*2,W,2,x,y+7)pal(1,1)for i=0,103do
pset(x+W-i%w,y+Z-i\w,pget(x+i%w,y+i\w))end
end
p(-15-😐,7,8,1,-5,3)D=rectfill::_::C=fillp?"⁶1⁶c4"
if T<52then
L=T%8p(L,@L+1)F(L)K=add(B,{x=T,y=400,u=U,v=V,T=T})?q
elseif T%3<1then
p(T%8,0)K=add(B,deli(B,70-T\3))F(12+T\3%4^^2)
if(K)K.u,K.v=U,V?q
end
for _ENV in all(B)do x=u+3*x+.5>>2y=v+3*y+.5>>2end
for i=0,15do F(i)C(▒)a=5+O*28D(U,a,U+W,a+Z,3)C()end
foreach(B,R)T+=1
if(T%Z>2or K)goto _
::▤::?"⁶5"
if(#B<1)goto ▥
K=deli(B)X=rnd(8)X-=X<2and 3or 1Y=-rnd(3)repeat
K.x-=X/2Y+=.5K.y+=Y
if(K.y>110)K.y=110Y=-max(Y*.8,1)?q
R(K)flip()a=K.x+W
until a~=a%141goto ▤