ˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆˆ >00à0à1ð2570:`<`>p?p?p?????????????????? Êrnd=math.random particles={} function TIC() cls() drawParticles() if ((time()/1000)//1)%2==1 then return end h=100 w=130 -- 5 x=rnd(120-w/2+10,120-10) y=68-h/2+10 part(x,y) x=120-w/2+10 y=rnd(68-h/2+10,68) part(x,y) a=(0.5-0.8*rnd())*math.pi*2 x=120-w/4-w/30+math.cos(a)*(w/4-10) y=68+h/4-h/20+math.sin(a)*(h/3-10) part(x,y) -- 0 for i=1,3 do a=rnd()*math.pi*2 x=120+w/4+math.cos(a)*(w/4-10) y=68+math.sin(a)*(h/2-10) part(x,y) end end function part(x,y) c=rnd(2,12) for i=1,3 do table.insert(particles, {x=x,y=y,d=rnd()*math.pi*2, c=c,ftl=30+rnd(40),s=0.005+0.005*rnd()}) end end function drawParticles() toDelete={} for i,p in ipairs(particles) do circ(p.x,p.y,p.ftl/20,p.c) p.x=p.x+math.cos(p.d)*p.s*p.ftl p.y=p.y+math.sin(p.d)*p.s*p.ftl p.ftl=p.ftl-1 p.s=p.s*0.95 if p.ftl<=0 then table.insert(toDelete,i) end end for i=#toDelete,1,-1 do table.remove(particles,toDelete[i]) end end