{"name":"memory probe 5","description":"-- memory probe 5\n-- alexthescott\n-- 10/1/21\n\n-- ⬅️➡️ change 1/3 variations\n-- ❎🅾️ change 1/3 palettes\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}\n\np={p1,p2,p3}\npc=1+rnd(#p)\\1\nc=p[pc]\npal(c,1)\n\nversion=rnd(3)\\1\ndir=((rnd(2)\\1)*2)-1\n\nfunction burn()\n\tfor i=1,1024 do\n\t\tlocal p=0x6000+rnd(8128)\\1\n\t\tif version==0 then\n\t\t\tpoke(p+64,peek(p))\n\t\t\tpoke(p+dir,peek(p))\n\t\telseif version==1 then\n\t\t\tpoke(p+64,peek(p))\n\t\t\tpoke(p+dir,peek(p)-0.1)\n\t\telse\n\t\t\tpoke(p+64,peek(p)-0.1)\n\t\t\tpoke(p+dir,peek(p))\n\t\tend\n\tend\nend\n\n\na=1\nb=1\n\nmonth=stat(81)\nday=stat(82)\n\ncls()\n_set_fps(60)\n::♥::\nif t()<2 then\n\tprint(\"memory probe 5\",36,59,1)\n\tprint(month..\"/\"..day,55,65)\nelse\n\tburn()\n\t\n\tpset(a,0,a\\128+b)\n\ta+=1\n\t\n\tif a%128==0 then\n\t\tb+=1\n\t\ta=0\n\tend\n\t\n\tif b>=16 then\n\t\tb=0\n\t\tsrand(31*stat(81)+stat(82))\n\tend\n\t\n\tif btnp(❎) or btnp(🅾️) then\n\t\tpc+=1\n\t\tif(pc>#p) pc=1\n\t\tc=p[pc]\n\t\tpal(c,1)\n\tend\n\t\n\tif btnp(⬅️) or btnp(⬆️) then\n\t\tversion+=1\n\t\tif version>3 then\n\t\t\tversion=0\n\t\t\tdir*=-1\n\t\tend\n\tend\n\t\n\tif btnp(➡️) or btnp(⬇️) then\n\t\tversion-=1\n\t\tif version<0 then\n\t\t\tversion=3\n\t\t\tdir*=-1\n\t\tend\n\tend\nend\nflip()\ngoto ♥","tags":["pico-8","pico8","interactive"],"symbol":"OBJKT","artifactUri":"ipfs://QmeL343vVh25asAFEdHLe3PmqZR8wFxTT5TZC4YMc6AfYS","displayUri":"ipfs://QmXFSreFrFpzpEqZeTGdofXrJ1M6vm6RGspFpysUU3L7oq","thumbnailUri":"ipfs://QmNrhZHUaEqxhyLfqoq1mtHSipkWHeT31LNHb1QEbDHgnc","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"uri":"ipfs://QmeL343vVh25asAFEdHLe3PmqZR8wFxTT5TZC4YMc6AfYS","mimeType":"application/x-directory"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false}