Compressed Bytes used
1023

Source Code (OPTIONAL)
function _init()pal(15,129,1)pal(2,136,1)i=1o=1f=128e={{"fire",8},{"earth",4},{"water",12},{"sand",9},{"mud",4},{"steam",6},{"glass",13},{"lava",2},{"swamp",3},{"rock",6},{"cell",10},{"bacteria",8},{"plankton",11},{"organic tissue",8},{"moss",11},{"fish",14},{"ash",5},{"lye",7},{"algae",11},{"tree",3}}l={}u={e[1],e[2],e[3]}s=1a=1c=false m=false h="x to select"e[1][3]=true e[2][3]=true e[3][3]=true r={{1,2,4},{1,3,6},{1,4,7},{1,5,4},{1,7,8},{1,9,11},{1,16,17},{2,3,5},{2,9,5},{2,11,12},{2,14,15},{2,15,20},{3,4,2},{3,5,9},{3,8,10},{3,11,13},{3,14,16},{3,15,19},{3,17,18},{4,9,5},{5,9,5},{5,11,12},{5,14,15},{5,15,20},{6,7,3},{8,9,10},{9,11,12},{9,14,16},{9,15,19}}end function _draw()cls(15)circfill(64-f*2,64,136,i)f=min(max(f-11,0),128)if o==1then n("⁶w⁶tfusion",-f,1,7)n("x to play\nz for info",-f,116,6)if btnp(4)then o=2f=128end if btnp(5)then o=3f=128end elseif o==2then n("more 1kb fun by adam!\nmade for pico1k jam\n\nz to return",-f,104,6)if btnp(4)then o=1f=128end else n(h,-1,120,6)if c then if m then n("new element!",-1,1,7)end p,w=d[1],d[2]n(p,-1,36,w)if btnp(5)then l={}s=1d=nil c=false m=false end return end h="x to select"local t=0if btnp(0)then t=-1end if btnp(1)then t=1end a=min(max(a+t,1),20)k=e[a]i=k[2]n(#u.."/20 unlocked",-1,108,6)n("< pick element "..s.." >",-1,1,7)n(a.."/20",-1,9,7)if not k[3]then i=5n("locked",-1,36,i)return end n(k[1],-1,36,i)if btnp(5)then add(l,a)s+=1if s>2then d=x(l[1],l[2])c=true h="x to reset"i=d[2]end end end end function n(t,e,f,n)n=n or 7if e==-1then e=64-#t*2+1end?"²0"..t,e,f,n
end function x(f,t)local n=nil for e=1,#r do if(r[e][1]==f or r[e][1]==t)and(r[e][2]==f or r[e][2]==t)then n=r[e][3]end if f==11or t==11then if f==t then n=14if f==11and(t==r[e][1]or t==r[e][2])then n=r[e][3]end end end end if n~=nil then if g(e[n])then add(u,e[n])e[n][3]=true m=true end return e[n]end return{"no reaction",5}end function g(e)for n=1,#u do if e==u[n]then return false end end return true end