{"name":"memory probe 8","description":"-- memory probe 8\n-- alexthescott\n-- 10/15/21 6:55am\n\n-- new seed every day of the year \nsrand(31*stat(81)+stat(82)) \n\np1={7,6,15,143,4,141,13,134,5,133,2,1,130,128,129,0}\np2={7,135,143,14,9,142,137,8,136,2,134,4,132,133,130,0}\np3={7,6,134,13,12,2,141,5,140,131,1,129,133,130,128,0}\n\np={p1,p2,p3}\nc=p[1+rnd(#p)\\1]\n\npal(c,1)\n\nflip_drip=rnd(2)\\1\norb_dir=0==rnd(2)\\1\n\nfunction new_object(t,v)\n\to={}\n\to.v=v\n\to.t=t\n\tif orb_dir then\n\t\to.x=64+cos(o.t/o.v)*64\n\t\to.y=64+sin(o.t)*64\n\telse\n\t\to.x=64+cos(o.t)*64\n\t\to.y=64+sin(o.t/o.v)*64\n\tend\n\t\n\to.draw=function(self)\n\t\tlocal r=8\n\t\tlocal rx=r/2-rnd(r)\n\t\tlocal ry=r/2-rnd(r)\n\t\tlocal x=self.x+rx\n\t\tlocal y=self.y+ry\n\t\tcircfill(x,y,r/4,7)\n\tend\n\t\n\to.update=function(self)\n\t\tif orb_dir then\n\t\t\tself.x=64+cos(self.t/self.v)*64\n\t\t\tself.y=64+sin(self.t)*64\n\t\telse\n\t\t\tself.x=64+cos(self.t)*64\n\t\t\tself.y=64+sin(self.t/self.v)*64\n\t\tend\n\t\t\n\t\tself.t+=0.0025\n\tend\n\t\n\treturn o\nend\n\nfunction burn()\n\tcnt=800\n\tif flip_drip==0 then\n\t\tfor i=1,cnt do\n\t\t\tp=0x6000+rnd(4224)\\1\n\t\t\tpoke(p-64,peek(p)-1)\n\t\tend\n\t\t\n\t\tfor i=1,cnt do\n\t\t\tp=0x7000+rnd(4032)\\1\n\t\t\tpoke(p+64,peek(p)-1)\n\t\tend\n\telse\n\t\tfor i=1,cnt do\n\t\t\tp=0x6000+rnd(4224)\\1\n\t\t\tpoke(p+64,peek(p)-1)\n\t\tend\n\t\t\n\t\tfor i=1,cnt do\n\t\t\tp=0x7000+rnd(4032)\\1\n\t\t\tpoke(p-64,peek(p)-1)\n\t\tend\n\tend\nend\n\nfunction forward()\n\tv=c[1]\n\tdel(c,v)\n\tc[#c+1]=v\n\tpal(c,1)\nend\n\nfunction backward()\n\tv=c[#c]\n\tdel(c,v)\n\tfor i=#c+1,1,-1 do\n\t\tif i!=1 then\n\t\t\tc[i]=c[i-1]\n\t\telse\n\t\t\tc[i]=v\n\t\tend\n\tend\n\tpal(c,1)\nend\n\nfor i=1,rnd()*16 do\n\tforward()\nend\n\nobjs={}\nv=1+rnd()*5\nfor i=1,100 do\nadd(objs,new_object(i/75,v))\nend\n\nmonth=stat(81)\nday=stat(82)\n\ncls()\n_set_fps(60)\n::♥::\nif t()<2 then\n\tprint(\"memory probe 8\",36,59,1)\n\tprint(month..\"/\"..day,55,65)\nelse\n\tburn()\n\t\n\tfor o in all(objs) do\n\t\to:draw()\n\t\to:update()\n\tend\n\t\n\tif btnp(⬆️) or btnp(⬅️) then\n\t\tforward()\n\tend\n\t\t\t\n\tif btnp(⬇️) or btnp(➡️) then\n\t\tbackward()\n\tend\nend\t\nflip()\ngoto ♥","tags":["pico-8","pico8"],"symbol":"OBJKT","artifactUri":"ipfs://QmbJd5LoyDFC1e9pW2LYfssH71Ra7T14BGPXmjUQqe38vo","displayUri":"ipfs://QmV2kYGiMLnGjGq7VU7HgfznqQYHkBYUG6og68xFjoXddR","thumbnailUri":"ipfs://QmNrhZHUaEqxhyLfqoq1mtHSipkWHeT31LNHb1QEbDHgnc","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"uri":"ipfs://QmbJd5LoyDFC1e9pW2LYfssH71Ra7T14BGPXmjUQqe38vo","mimeType":"application/x-directory"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false}