{"name":"random walk","description":"-- random walk\n-- alexthescott\n-- 9/21/21\n-- https://w.wiki/46ny\n\np={8,136,130,11,139,131,12,140,129}\npal(p,1)\n\nfunction new_walk(col)\n\tw={}\n\tw.c=col\n\tw.x=64\n\tw.y=64\n\t\n\tw.draw=function(self)\t\t\n\t\tpset(self.x,self.y,self.c+1)\n\tend\n\t\n\tw.update=function(self)\n\t\tlocal d=rnd(4)\\1\n\t\tif d==0 then\n\t\t\tself.x+=2\n\t\telseif d==1 then\n\t\t\tself.y+=1\n\t\telseif d==2 then\n\t\t\tself.x-=2\n\t\telse\n\t\t\tself.y-=1\n\t\tend\n\t\t\n\t\tif self.x<=0 then\n\t\t\tself.x=126\n\t\telseif self.x>=128 then\n\t\t\tself.x=0\n\t\tend\n\t\t\n\t\tif self.y<=0 then\n\t\t\tself.y=126\n\t\telseif self.y>=128 then\n\t\t\tself.y=0\n\t\tend\n\tend\n\t\n\tadd(walks,w)\nend\n\nfunction burn()\n\tfor p=0,1200 do\n\t\tx=rnd(128)\\1\n\t\ty=rnd(128)\\1\n\t\tpc=pget(x,y)\n\t\tcoin=rnd(2)\\1\n\t\tif pc!=0 and pc%3!=0 then\n\t\t\tif rnd(2)\\1==0 then\n\t\t\t\tpset(x,y+1,pc+coin)\n\t\t\t\tpset(x,y+coin+1,pc+coin)\n\t\t\tend\n\t\tend\n\t\tif rnd(1)<0.25 then\n\t\t\tpset(x,y,0)\n\t\tend\n\tend\nend\n\nfc=0\nglobal_color=1+3*(rnd(3)\\1)\nwalks={}\nfor i=1,80 do\n\tnew_walk(global_color)\nend\n\ncls()\n::♥::\nif t()<2 then\n\tprint(\"random walk\",42,64,global_color)\nelse\n\tburn()\n\t\n\tfc+=1\n\t\n\tif fc%800==0 then\n\t\tglobal_color+=3\n\t\tglobal_color%=9\t\n\t\tfor w in all(walks) do\n\t\t\tw.c=global_color\n\t\tend\n\t\tfc=0\n\tend\n\t\n\tfor w in all(walks) do\n\t\tw:draw()\n\t\tw:update()\n\tend\nend\nflip()\ngoto ♥","tags":["pico-8","pico8"],"symbol":"OBJKT","artifactUri":"ipfs://QmStk2vUEDe4yxbj7uoF2zit5CU5i6LpBi6ZfnuXRcAGEc","displayUri":"ipfs://QmYXMRenoBXG3VSuNB9quDDrupWX5ZqiWSeFgiDfZDU4nG","thumbnailUri":"ipfs://QmNrhZHUaEqxhyLfqoq1mtHSipkWHeT31LNHb1QEbDHgnc","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"uri":"ipfs://QmStk2vUEDe4yxbj7uoF2zit5CU5i6LpBi6ZfnuXRcAGEc","mimeType":"application/x-directory"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false}