SplatBattle 1K

Description

Cover as much of the screen's real estate in your color as possible, beat your opponents! An item floats around that can increase your speed or size (or decrease it, so be careful!). There are 7 levels (2nd number from the right at the top). Each level adds one opponent, you know you've beaten it when black opponents appear.

Controls

Left/Right direction buttons to turn, that's it.

More info

An entry for this year's Pico-1K Jam, basically a clone of Battle Painters. I actually didn't know it was called that, I was just making the game from memory in Pico-8 before really trying to find the game after I'd already made it.

Until I made it, I didn't realize how the mechanics of battle painters made for interesting gameplay. I came to understand that taking up parts of the white canvas just increase your percentage, but you can go over the leading painters' paint to take percentage away from them and add it to yours, pretty cool.

Source code of 1018 compressed bytes (I used Shrinko8 with aggressive minification):

b=1::n::cls(7)s={}d=rnd(128)e=rnd(128)i=flr(rnd(2))o="?"r=0j=0k=0q=100v=30t=v g=1h=0w=time()?"⁷sacdcecg"
x={}𝘨={9,11,12,14,15,10,13}for n=0,(b-1)do y=rnd(128)z=rnd(128)add(x,{d=y,f=z,h=y,s=z,o=rnd(360),i=1,e=4,t=30,c=.53,a=𝘨[n+1]})end function 𝘩()o="?"r=0if(i==0)o="⬆️"r=3
if(i==1)o="⬇️"r=2
if(i==2)o="▥"r=3
if(i==3)o="░"r=2
end function 𝘪()𝘩()?o,d,e+1,0
?o,d,e,r
end function m()?o,d,e+1,7
?o,d,e,7
end function 𝘫()s={}for n=5,127do for f=0,127do l=pget(f,n)if l>7then if(not s[l])s[l]=0
s[l]+=1end end end end f=64n=64𝘢=f 𝘣=n u=0a=1c=4𝘤=10𝘥=0p=0𝘦=0::f::circfill(f,n,c,8)pset(𝘢,𝘣,8)pset(f,n,7)line(f,n,f+sin(u/360)*c,n+cos(u/360)*c)if(btn(⬅️))u-=𝘤*a
if(btn(➡️))u+=𝘤*a
if(time()-w>=1)𝘫()
k+=1if k>q then k=0q=50+rnd(200)i=flr(rnd(4))?"⁷c2e2d2"
end if abs(f-d)<c*2and abs(n-e)<c*2then if(i==0)a+=.1?"⁷s9ce"
if(i==1)a-=.2a=max(.5,a)?"⁷s9c2c2"
if(i==2)c+=1?"⁷s9ce"
if(i==3)c-=2c=max(1,c)?"⁷s9c2c2"
m()d=rnd(128)e=rnd(128)i=flr(rnd(4))end 𝘬=f+sin(u/360)*a 𝘭=n+cos(u/360)*a 𝘢=f 𝘣=n if(g+h==0)f=𝘬 n=𝘭
f=f%128n=n%128n=max(5,n)m()if(g+h==0)d=(d+sin(j/360)*.2)%128e=(e+cos(j/360)*.2)%128
e=max(5,e)j+=flr(rnd(5))𝘥+=1if(g+h==0and 𝘥%3==0)?"⁷c0",0,0
𝘪()for f,n in pairs(x)do circfill(n.d,n.f,n.e,n.a)pset(n.h,n.s,n.a)if(rnd(n.c)>.5)n.o-=n.t*n.i
if(rnd(n.c)>.5)n.o+=n.t*n.i
if(g+h==0)n.d=n.d+sin(n.o/360)*n.i n.f=n.f+cos(n.o/360)*n.i
n.d=n.d%128n.f=n.f%128n.f=max(5,n.f)if abs(n.d-d)<n.e*2and abs(n.f-e)<n.e*2then if(i==0)n.i+=.1
if(i==1)n.i-=.2n.i=max(.5,n.i)
if(i==2)n.e+=1
if(i==3)n.e-=2n.e=max(1,n.e)
m()d=rnd(128)e=rnd(128)i=flr(rnd(4))end end rectfill(0,0,127,4,0)𝘧=0for n,f in pairs(s)do?flr(f/15744*100).."%",𝘧,0,n
𝘧+=16end?t,120,0,7
?b,96,0,14
if h==0and time()-w>=1then t-=1if(t==v-1)g=0
if t==0then h=1for f,n in pairs(s)do if(n>𝘦)𝘦=n p=f
end if(p==8)b+=1?"win",64,64,0
if(p~=8)?"lose",64,64,0
end w=time()end if h==1then if(time()-w>3)goto n
end flip()goto f