Elemental Roshambo

Master the 3 elements using rock paper scissors.

Z to change elements.

you lose if all your pixels are gone.

you win if the whole screen is your pixels.

water=blue

fire=red

plant=green

water beats fire

fire beats plant

plant beats water

pal({1,3,2,12,11,8},1)poke(0x5f2c,3)cls()c=3o=sset
::_::n=s
g=s
spr(0,0,0,16,16)for y=0,63 do
for x=0,63 do
p,l,w=pget(x,y),0,0if p==0then
p=flr(rnd(4))+3o(x,y,p)end
e=p%3+4
if (p!=c)n=1
if (p==c)g=1
for z=-1,1 do
for v=-1,1 do
local o=pget(x+z,y+v)if o==e then
l+=1elseif o==e-3then
w+=1end 
end
end
if w>=3then
o(x,y,c)elseif l>=3then
o(x,y,e)end
end
end
if (btn(4))c=c%3+1
if (btn(5))c=(c-2)%3+1
if (n and not g)goto j
if (g and not n)goto e
pal({c,c,c})flip()goto _
::e::
?"you won!"
goto e
::j::
?"you lost."
goto j