>î+@000@0@0@@@000@0000@00@000D@@@0000D000@00@0@@@000@@00@@0@@4@000@@C@@000000@00`PPe``P`PP``P`P`P`PPU`P```PPPP`P````P`PP`PeP`PPPPP`P`P`V`UPP`PPPPP``P``````PPPP``````P``P``PPPPPP`Pd-- title: happy diwali : 2023 v-2 -- author: potato imaginator -- script: lua -- desc: Enjoy Fireworks Animation function BOOT() rnd=math.random min=math.min max=math.max d=32 -- distance between Letters t1=0 t2=1 t3=0 iv=75 k1=0 v=iv dv=0 cls() s1={'H','A','P','P','Y'} s2={'D','I','W','A','L','I'} for i=1,5 do -- Drawing Text print(s1[i],12+32*i,36,4,false,4) end for i=1,6 do print(s2[i],32*i,80,11,false,4) end a1,a2={},{} -- Saving in Array p1,p2={},{} -- Particle/Pos Array for i=1,5 do a1[i]={} p1[i]={y=100+10*rnd(0,5)} for j=0,19 do a1[i][j]={} for k=0,19 do a1[i][j][k]=pix(32*i+12+j,36+k) end end end for i=1,6 do a2[i]={} p2[i]={y=100+10*rnd(0,5)} for j=0,19 do a2[i][j]={} for k=0,19 do a2[i][j][k]=pix(32*i+j,80+k) end end end end function TIC() if dv==0 or t3%2==0 then cls() for i=1,5 do for j=0,19 do for k=0,19 do if a1[i][j][k]~=0 then if rnd(1,100)>v then pix (d*i+12+10+t1*(j-10), 36-8+10+t1*(k-10) +p1[i].y*t2,rnd(3,4)-(v-75)//12) end end end end end for i=1,6 do for j=0,19 do for k=0,19 do if a2[i][j][k]~=0 then if rnd(1,100)>v then pix (d*i+10+t1*(j-10), 80-8+10+t1*(k-10) +p2[i].y*t2,rnd(5,6)+(v-75)//12) end end end end end end t2=max(0,t2-0.01) if t2==0 then dv=0.15 t1=min(1.25,t1+0.025) end v=v+dv if v>105 then v=iv t1=0 t2=1 t3=0 dv=0 for i=1,5 do p1[i]={y=100+10*rnd(0,5)} end for i=1,6 do p2[i]={y=100+10*rnd(0,5)} end end t3=t3+1 end