{"name":"memory probe 7","description":"-- memory probe 7\n-- alexthescott\n-- 10/10/21 4:38pm\n\n-- ⬅️➡️ change palette flavor\n\n-- new seed every day of the year \nsrand(31*stat(81)+stat(82))\n\np1={7,6,10,138,11,139,3,12,140,1,129,131,133,130,141,0}\np2={7,135,10,15,143,9,137,142,14,8,136,2,141,130,133,0}\np3={7,135,15,143,6,134,5,13,1,129,141,130,132,133,128,0}\np4={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16}\np5={17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,31}\n\np={p1,p2,p3}\npc=1+rnd(#p)\\1\nc=p[pc]\npal(c,1)\n\nalt=rnd()\nskip=false\ndr_circ=false\nburn_vari=rnd()<0.6\nr=60-rnd(8)\\1\ncx=64\ncy=64\n\nfunction burn()\n\tfor i=1,256 do\n\t\tp=0x6000+rnd(8128)\\1\n\t\tpoke(p+1,peek(p)+1)\n\t\tif burn_vari then\n\t\t\tpoke(p-1,peek(p)+1)\n\t\tend\n\t\tpoke(p-64,peek(p)+1)\n\t\tpoke(p+64,peek(p)+1)\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\nmonth=stat(81)\nday=stat(82)\n\ncls()\n_set_fps(60)\n::♥::\nif t()<2 then\n\tprint(\"memory probe 7\",36,59,1)\n\tprint(month..\"/\"..day,55,65)\nelseif t()==2 then\n\tif alt<0.2 then\n\t\t--mirror top left qrt\n\t\tpoke(0x5f2c,7)\n\t\tdr_circ=rnd()<0.5\n\telseif alt<0.4 then\n\t\t--mirror top half\n\t\tpoke(0x5f2c,6)\n\t\tdr_circ=rnd()<0.5\n\telseif alt<0.6 then\n\t\t--mirror left half\n\t\tpoke(0x5f2c, 5)\n\t\tdr_circ=rnd()<0.5\n\telseif alt<0.7 then\n\t\t--zoom\n\t\tcamera(32,32)\n\t\tr=30-rnd(4)\n\t\tpoke(0x5f2c, 3)\n\telseif alt<0.725 then\n\t\t--chaos?\n\t\tskip=true\n\tend\nelse\n\tburn()\n\t\n\tif dr_circ then\n\t\tcirc(cx,cy,r,1)\n\t\tcirc(cx,cy,r-1,2)\n\tend\n\t\n\tif not skip then\n\t\tfor x=0,128 do\n\t\t\ty=sqrt(r^2-(x-cx)^2)+cy\n\t\t\tline(x,128,x,y,0)\n\t\t\tline(x,0,x,128-y,0)\n\t\tend\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\nflip()\ngoto ♥","tags":["pico-8","pico8","interactive"],"symbol":"OBJKT","artifactUri":"ipfs://QmXdqf1mNDR7eJLUVNyvwiCxFg2qHgCh5ML1hJJQj2qxpg","displayUri":"ipfs://QmUzgBHTrBZf1N4amC75g4L14dw6NXyw9DeqSArQCoLBnL","thumbnailUri":"ipfs://QmNrhZHUaEqxhyLfqoq1mtHSipkWHeT31LNHb1QEbDHgnc","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"uri":"ipfs://QmXdqf1mNDR7eJLUVNyvwiCxFg2qHgCh5ML1hJJQj2qxpg","mimeType":"application/x-directory"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false}