{"name":"1992 loading screen","description":"-- 1992 loading screen\n-- alexthescott\n-- 9/6/21\n\np={131,1,129,7,5,133,142,141,13}\npal(p,1)\n\nfunction new_object(c)\n\tobj={}\n\t-- origin point, new origin point\n\tobj.op={x=64,y=64}\n\tobj.nop={x=64,y=64}\n\tobj.t=0\n\tobj.tv=0.0015\n\tobj.c=c\n\tobj.rv=0.0015\n\tobj.rc=rnd(1)\n\tobj.r=3+((1+sin(obj.rc))/2)*60\n\t\n\tobj.draw=function(self)\n\t\tcirc(self.op.x,self.op.y,self.r,self.c)\n\tend\n\t\n\tobj.update=function(self)\n\t\t-- new pos every 4 secs\n\t\tif t()%4==0 then\n\t\t\tif self.t<5 then\n\t\t\t\tself:new_origin()\n\t\t\telse\n\t\t\t\t-- set pos @ origin\n\t\t\t\tself.nop={x=64,y=64}\n\t\t\t\t-- stay @ origin for 4 cycles\n\t\t\t\tif self.t>=10 then\n\t\t\t\t\tself.t=0\n\t\t\t\tend\n\t\t\tend\n\t\t\tself.t+=1\n\t\tend\n\t\tself:move()\n\t\tself:resize()\n\tend\n\t\n\tobj.resize=function(self)\n\t\tself.r=3+((1+cos(self.rc))/2)*60\n\t\tself.rc+=self.rv\n\tend\n\t\n\tobj.move=function(self)\n\t\tx_dif=(self.nop.x-self.op.x)/20\n\t\ty_dif=(self.nop.y-self.op.y)/20\n\t\t\n\t\tself.op.x+=x_dif\n\t\tself.op.y+=y_dif\n\tend\n\t\n\tobj.new_origin=function(self)\n\t\tnew_x=30+rnd(68)\\1\n\t\tnew_y=30+rnd(68)\\1\n\t\tself.nop={x=new_x,y=new_y}\n\tend\n\t\n\treturn obj\nend\n\nfunction got_n(x,y)\n\t-- got neighbors()\n\t--\n\t-- get cur pixl color from\n\t-- \tr,l,u,d\n\t-- return (all are 0)\n\tr=pget(x+1,y)\n\tl=pget(x-1,y)\n\tu=pget(x,y+1)\n\td=pget(x,y-1)\n\treturn r==0 and l==0\n\t\t\t\tand l==0 and d==0\nend\n\nfunction burn()\n\tfor i=1,1000 do\n\t\tx=rnd(128)\n\t\ty=rnd(128)\\1\n\t\tpc=pget(x,y)\n\t\tres=got_n(x,y)\n\t\tif rnd(1)<.8 or res then\n\t\t\tif rnd(1)<.45 and\n\t\t\t\t\t\t(pc!=0 and pc%3!=0) then\n\t\t\t\tpset(x,y,pc+1)\n\t\t\t\tpset(x,y-2,pc+1)\n\t\t\t\tpset(x,y+2,pc+1)\n\t\t\t\tpset(x+2,y,pc+1)\n\t\t\t\tpset(x+2,y,pc+1)\n\t\t\telse\n\t\t\t\tpset(x,y,0)\n\t\t\tend\n\t\tend\n\tend\nend\n\nfunction quick_burn()\n\tfor i=1,5 do\n\t\tburn()\n\tend\nend\n\nobjs={}\nfor i=1,9 do\n\tif i<4 then\n\t\ti=1\n\telseif i<7 then\n\t\ti=4\n\telse\n\t\ti=7\n\tend\n\tadd(objs,new_object(i))\nend\n\ncls()\n_set_fps(60)\nquick_burn()\n::♥::\nif t()<2 then\n\tprint(\"1992\",56,64,2)\n\tprint(\"loading screen\",36,70,2)\nelse\n\tfor o in all(objs) do\n\t\to:draw()\n\t\to:update()\n\tend\n\tburn()\n\tflip()\nend\ngoto ♥\n","tags":["pico-8","pico8"],"symbol":"OBJKT","artifactUri":"ipfs://QmeoS148Ngdq87Hr95aestMKDB7fG8j1Y1jRQAHh8RqUGg","displayUri":"ipfs://QmYybnm6KYjbvNhM75Jqko6svj1i9f9AGYwe5AG3ueDWXG","thumbnailUri":"ipfs://QmYybnm6KYjbvNhM75Jqko6svj1i9f9AGYwe5AG3ueDWXG","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"uri":"ipfs://QmeoS148Ngdq87Hr95aestMKDB7fG8j1Y1jRQAHh8RqUGg","mimeType":"application/x-directory"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false}