Tezos

bad drip

Creator

tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7

Description

--bad drip --alexthescott --8/25/21 p={8,136,130,11,139,131,12,140,129} pal(p,1) global_color=1 global_tick=1 function burn() -- drip pixels, fade color -- respect even/odd y pos for p=0,2024do x=rnd(128)\1 y=rnd(128)\1 pc=pget(x,y) npc=pget(x,y+2) if y%2==0 then d=2 else d=-2 end if pc!=0 and pc==npc then if pc%3!=0 then if rnd(10)\1==0 then pset(x,y,pc+1) else pset(x,y,pc) end end pset(x,y+d,pc) elseif pc!=0 then pset(x,y+d,pc) end end end function add_brush() local b={} b.x=0 if global_tick==1 then b.y=0 else b.y=127 end b.c=global_color b.v=1 b.update=function(slf) slf.x+=slf.v end b.set_c=function(slf,c) slf.c=c end b.draw=function(slf) pset(slf.x,slf.y,slf.c) end b.destroy=function(slf) if slf.x>=128 then del(brushes,slf) end end global_tick+=1 global_tick%=2 add(brushes,b) end brushes={} add_brush() add_brush() cls() ::♥:: if t()<2 then print("bad drip",48,64,1) else burn() if t()%5==0 then add_brush() add_brush() end if t()%10==0 then for b in all(brushes) do b:set_c(global_color) end global_color+=3 global_color%=9 end for b in all(brushes) do b:draw() b:update() b:destroy() end end flip() goto ♥

Traits

Tag

pico8

Tag

pico-8

Token

Contract: KT1RJ6...xton
Token ID: 228195

View on marketplace