ffffffff:-- title: Powder Sandbox V1.0 -- author: RamiLego4Game -- desc: A Powder Doodle in TIC-80 -- script: lua -- input: mouse --The number of ticks each frame local speed = 5 --Pal FUNCTION local function pal(c0,c1) if(c0==nil and c1==nil)then for i=0,15 do poke4(0x3FF0*2+i,i)end else poke4(0x3FF0*2+c0,c1)end end --Screen Size local sw, sh = 240, 136 --Selected color local selcol = 9 --Moving Particles List local parts = {} function INIT() cls() rectb(0,0,sw,sh-8,15) end function UPDATE() --Update the particles local nparts, tid = {}, 1 for i=1,#parts do local part = parts[i] local x, y = part[1], part[2] if pix(x,y+1) == 0 then pix(x,y+1,pix(x,y)) pix(x,y,0) nparts[tid] = {x,y+1} tid = tid + 1 else if pix(x-1,y+1) == 0 then pix(x-1,y+1,pix(x,y)) pix(x,y,0) nparts[tid] = {x-1,y+1} tid = tid + 1 elseif pix(x+1,y+1) == 0 then pix(x+1,y+1,pix(x,y)) pix(x,y,0) nparts[tid] = {x+1,y+1} tid = tid + 1 end end end parts = nparts --Create new particles local mx, my, mp = mouse() if mp then if mx > 1 and my > 1 then if mx < sw-1 and my < sh-9 then pix(mx,my,selcol) parts[#parts+1] = {mx,my} end end end --Color Selection if mp then if my > sh-9 and mx > sw-8*15 then selcol = (mx-(sw-8*15)) // 8 + 1 end end end function DRAW() --Draw toolbar rect(0,sh-8,sw,8,15) --Rectangle pal(6,selcol) spr(0,0,sh-8) --Selected Color pal() --The colors palette for i=1,15 do rect(sw-8*i,sh-8,8,8,16-i) end end function TIC() for i=1, speed do UPDATE() end DRAW() end INIT() > 02TvͫgE#2Tv2Tv 0 D$404mNJNL04e$FHuqaY}},m,Ҫm^ GIF89aw! NETSCAPE2.0!, 04m^D$4Ҫ},L0mY}NJN4e$FHuqam,H*\ȰÇ#JH3jȱǏ CIɓ(S\Q`0cʜI2_h'N:ٓ&OD\%Ѥ1:ys'ТHb+Ԯ`Ê{ԝ!ɪ];V+۷pʝKݘn˷߾y L0+^̸+Ɛ#K8ɘ3kY͠C3ugѨSװ.m6mir㰇]8硕Ǻ9뙥cN~k{{ {7W/m?y_dm7Z7 cb7{Egq6Yg$ L%!L"է~[A$A0_z3~Yie@=WjG& Ӓ U6v G] Vi\oPVLvOV&Eg^afs~Yugr9DRZPVFVf&ihitjʴj kZjkʫjiJJl.Yw5,fTkFVua-c`~_-ryknak;+ix/kڼ˖%{ 0 m@puqK [<)#S[&2X Н9U6ifw]+[ 34T̴c,;}3=I<ܵjv/2l mMRw<\E4]76>rڐäx2>hc%P_9wۨ$褛~ݫ+k^6i굃e1Ie03s._.ӇAN'/;:m~Q|410s_$ أ2<H ^`M@BP0*\Lh0I w(?&8 bE3D!P;2'!!R(&ZqhЀ 2~χ[L#AЍo(Ǚh=beAH hBN̛HE:dd8I:Џc K FL*WyE r}'E9JV1r.wyN 0JY2LЌ1q0l.}NbL4pf Noe;IOb嬧>_9v^u@Ev LyO|339PB&lCjQs `0G;JRbE)FgYE3LG{ԢVҍƯ3*X@Zޔ; KO}:/%]Sɗ2ѩQcb`FƪW  3Y#0r[Y,Ε²]yh+_?)֘2, )L~BEx:eEU+kdSU΂/[!kJkp;=drsK]NUu]nUKMzt}R|+-/601HmY1g {'La&}7|/zp"TpM2< sx/,b&V0 w.+cиջ~s̀ X`Y?G]L-5y&OV9L*[_