Super Match-io (#TweetTweetJam)

My 9th #TweetTweetJam entry is: Super Match-io 🎰
An attempt to demake a familiar "spin-to-win-a-life" mini-game in just 500 chars (NO art assets) using the PICO-8 fantasy console.

OBJECTIVE

Stop each of the spinning reels to make all three segments match, to get a "1-Up" ❤️

CONTROLS

• Press X button to stop each reel

FEATURES

• ️🎞️ 60 FPS Gameplay
  
• 🎰 Authentic gameplay*
  
• 🎵 Familiar "1-Up" SFX
  
• 🟩🌈 Blocky recreation of orig shapes (🌼🍄⭐🍄)
  
• ️♻️ Auto-Restart on Death/Win

*CONTENT WARNING: Anyone with slot/fruit machine addition may want to avoid?

References

• SMB3 Roulette & Card Matching Games Explained
• Super Mario Bros 3 World 1-Spade Card
• Spade Panels
• Super Mario Bros Piano - 1UP piano tutorial

SOURCE CODE (500 chars)

p=1r={0,0,0}s={9,-9,9}w=320function _update60()cls(7)▒=true
for i=1,3do
clip(0,i*22+9,128,22)for x=0,w do
o=(r[i]+x)%w-128if(x==0)rectfill(o,32,64+o,196,3)
if(x==112 or x==272)circfill(o,64,32,8)
if(x==160)line()for d=0,39do for i=.25,2,.4do line(cos(i)*d+o+32,sin(i)*d+66,9)end end
end
if(btnp(5)and p<4)s[p]*=.9p+=1break
a=abs(s[i])if(a<9)s[i]*=.99
r[i]-=s[i]if a<1do
s[i]=0r[i]=(r[i]/80+.5)\1*80c=pget(64,i*16+32)▒=(▒ and c==l)l=c
end
end
if p>4do
if(▒)?"\ashege4cdg ⁶7"
run()end
if(s[3]==0)p=5end