{"name":"1993 loading screen","description":"-- 1993 loading screen\n-- alexthescott\n-- 9/6/21\n\np={8,136,130,11,139,131,12,140,129}\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.001\n\tobj.c=c\n\tobj.rv=0.001\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<10 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>=14 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 burn()\n\tfor i=1,800 do\n\t\tx=rnd(128)\n\t\ty=rnd(128)\\1\n\t\tpc=pget(x,y)\n\t\tif rnd(1)<.8 then\n\t\t\tif rnd(1)<.5 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(\"1993\",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 ♥","tags":["pico-8","pico8"],"symbol":"OBJKT","artifactUri":"ipfs://QmRpnBeSoGMXAvD9irgWXT2vykYKposjzGzaEAMsLLX2qY","displayUri":"ipfs://QmUKsRgEZbJjeuuneLzT2uv3DKHavJCNCsZ3evBTBW6AG2","thumbnailUri":"ipfs://QmUKsRgEZbJjeuuneLzT2uv3DKHavJCNCsZ3evBTBW6AG2","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"uri":"ipfs://QmRpnBeSoGMXAvD9irgWXT2vykYKposjzGzaEAMsLLX2qY","mimeType":"application/x-directory"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false}