@RndFigInOut01 kerokero9696
--track0:’·‚³,1,1024,30,1
--track1:ŒĀ”¦,1,1024,15,1
--track2:‘¬“x,0,2048,150,1
--track3:臒l,0,100,50,1
--check0:¶Ņא§Œä++,0
--dialog:}Œ`‘I‘š/fig,fig="ŽlŠpŒ`";}Œ`»²½Ž,fgs1=5;ü•,fgs2=20;ŠŌŠu,fgsc=1.00;ׯĄŽŃF/chk,chk1=1;FÅ¬’l[0-255],colmn=128;Color/col,col=0xffffff;SEED,sd0=100;X•`‰ę”ĶˆĶ,ww=1.25;Y•`‰ę”ĶˆĶ,hh=1.25;[“xŒW”,dzc=0.00;ׯĄŽŃ‘¬“x/chk,chk3=1;ׯĄŽŃ’·‚³/chk,chk2=0;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w*ww
local sh=obj.screen_h*hh
------------------------------------
num=t1

if(tt1==null)then tt1={} end
if(tt2==null)then tt2={} end
if(dt==null)then dt={} end
if(lenl==null)then lenl={} end
if(spdl==null)then spdl={} end
if(flag==null)then flag={} end
if(idnum==null)then idnum={} end

if(obj.frame==0)then
 math.randomseed(os.time())
 sd=sd0+math.random(1,1000)

 for i=1,num do
  flag[i]=false
  idnum[i]=0
  tt1[i]=0
  tt2[i]=0
  dt[i]=0
  lenl[i]=1
  spdl[i]=0
 end
 
 if(#flag>num)then
  for i=num+1,#flag do
   flag[i]=null
   idnum[i]=null
   tt1[i]=null
   tt2[i]=null
   dt[i]=null
   lenl[i]=null
   spdl[i]=null
  end
 end
end

if(obj.check0)then
else
 obj.setoption("drawtarget","tempbuffer",sw,sh)
end

for j=1,num do
 fr=j^2+idnum[j]
 if(flag[j]==false and obj.rand(1,100,sd,fr)>t3)then
  flag[j]=true
 end

 if(flag[j]==true)then
  iki=obj.rand(1,1000,sd,fr)
  iki2=obj.rand(1,1000,sd+1,fr)
  if(chk1==1)then
   r=obj.rand(colmn,255,sd,fr+1)
   g=obj.rand(colmn,255,sd,fr+2)
   b=obj.rand(colmn,255,sd,fr+3)
   col=RGB(r,b,g)

   rndx=obj.rand(-sw*100/2,sw*100/2,sd,fr)/100
   rndy=obj.rand(-sh*100/2,sh*100/2,sd,fr)/100
  end

  obj.load("figure",fig,col,fgs1,fgs2)
 end

 tt1[j]=obj.time
 dt[j]=tt1[j]-tt2[j]
 if(chk3==1)then
  spdl[j]=dt[j]*obj.rand(t2/5,t2,sd,fr)
 else
  spdl[j]=dt[j]*t2
 end

 if(chk2==1)then
  lenl[j]=obj.rand(t0/2,t0,sd,fr)
 else
  lenl[j]=t0
 end

 
 for i=1,lenl[j] do
  if(flag[j]==true)then
   dst=fgs1*fgsc

   if(iki2%4==0)then
    dx=rndx
    dy=sh/2	+dst*(i-1)-spdl[j]
    if(dy<=-sh/2)then 
     flag[j]=false
    end
   elseif(iki2%4==1)then
    dx=sw/2	+dst*(i-1)-spdl[j]
    dy=rndy
    if(dx<=-sw/2)then
     flag[j]=false
    end
   elseif(iki2%4==2)then
    dx=rndx
    dy=-sh/2	-dst*(i-1)+spdl[j]
    if(dy>=sh/2)then
     flag[j]=false
    end
   elseif(iki2%4==3)then
    dx=-sw/2	-dst*(i-1)+spdl[j]
    dy=rndy
    if(dx>=sw/2)then
     flag[j]=false
    end
   end

   if(dzc~=0)then
    dz=obj.rand(-100*dzc,100*dzc,sd,fr)
   else
    dz=0
   end
   zm=1
   al=1-(i-1)/lenl[j]

   obj.draw(dx,dy,dz,zm,al)
  else
   tt2[j]=obj.time
  end
 end

 if(flag[j]==false)then
  idnum[j]=idnum[j]+1
 end
end

if(obj.check0)then
else
 obj.load("tempbuffer")
end

@RndFigInOut02 kerokero9696
--track0:’·‚³,1,1024,15,1
--track1:ŒĀ”¦,1,1024,15,1
--track2:‘¬“x¦,0,2048,150,1
--track3:臒l,0,100,50,1
--check0:¶Ņא§Œä++,0
--dialog:}Œ`‘I‘š/fig,fig="‰~";}Œ`»²½Ž,fgs1=10;ü•,fgs2=20;ŠŌŠu,fgsc=0.15;ׯĄŽŃF/chk,chk1=1;FÅ¬’l[0-255],colmn=128;Color/col,col=0xffffff;SEED,sd0=100;X•`‰ę”ĶˆĶ,ww=1.25;Y•`‰ę”ĶˆĶ,hh=1.25;[“xŒW”,dzc=0.00;ׯĄŽŃ‘¬“x/chk,chk3=0;ׯĄŽŃ’·‚³/chk,chk2=0;‰ń“]‘¬“x,rzc=25;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw=obj.screen_w*ww
local sh=obj.screen_h*hh
------------------------------------
num=t1

if(tt1==null)then tt1={} end
if(tt2==null)then tt2={} end
if(dt==null)then dt={} end
if(lenl==null)then lenl={} end
if(spdl==null)then spdl={} end
if(flag==null)then flag={} end
if(idnum==null)then idnum={} end

if(obj.frame==0)then
 math.randomseed(os.time())
 sd=sd0+math.random(1,1000)

 for i=1,num do
  flag[i]=false
  idnum[i]=0
  tt1[i]=0
  tt2[i]=0
  dt[i]=0
  lenl[i]=1
  spdl[i]=0
 end
 
 if(#flag>num)then
  for i=num+1,#flag do
   flag[i]=null
   idnum[i]=null
   tt1[i]=null
   tt2[i]=null
   dt[i]=null
   lenl[i]=null
   spdl[i]=null
  end
 end
end

if(obj.check0)then
else
 obj.setoption("drawtarget","tempbuffer",sw,sh)
end

for j=1,num do
 fr=j^2+idnum[j]
 if(flag[j]==false and obj.rand(1,100,sd,fr)>t3)then
  flag[j]=true
 end

 if(flag[j]==true)then
  iki=obj.rand(1,1000,sd,fr)
  iki2=obj.rand(1,1000,sd+1,fr)
  if(chk1==1)then
   r=obj.rand(colmn,255,sd,fr+1)
   g=obj.rand(colmn,255,sd,fr+2)
   b=obj.rand(colmn,255,sd,fr+3)
   col=RGB(r,b,g)

   rndx=obj.rand(-sw*100/2,sw*100/2,sd,fr)/100
   rndy=obj.rand(-sh*100/2,sh*100/2,sd,fr)/100
  end

  obj.load("figure",fig,col,fgs1,fgs2)
 end

 tt1[j]=obj.time
 dt[j]=tt1[j]-tt2[j]
 if(chk3==1)then
  spdl[j]=dt[j]*obj.rand(t2/5,t2,sd,fr)
 else
  spdl[j]=dt[j]*t2
 end

 if(chk2==1)then
  lenl[j]=obj.rand(t0/2,t0,sd,fr)
 else
  lenl[j]=t0
 end

 
 for i=1,lenl[j] do
  if(flag[j]==true)then
   dst=fgs1*lenl[j]*fgsc
   ang=360*i/lenl[j]
   r=math.rad(ang+obj.time*rzc)
   cs=math.cos(r)*dst
   sn=math.sin(r)*dst

   if(iki2%4==0)then
    dx=rndx
    dy=sh/2-spdl[j]
    if(dy<=-sh/2)then 
     flag[j]=false
    end
   elseif(iki2%4==1)then
    dx=sw/2-spdl[j]
    dy=rndy
    if(dx<=-sw/2)then
     flag[j]=false
    end
   elseif(iki2%4==2)then
    dx=rndx
    dy=-sh/2+spdl[j]
    if(dy>=sh/2)then
     flag[j]=false
    end
   elseif(iki2%4==3)then
    dx=-sw/2+spdl[j]
    dy=rndy
    if(dx>=sw/2)then
     flag[j]=false
    end
   end

   if(dzc~=0)then
    dz=obj.rand(-100*dzc,100*dzc,sd,fr)
   else
    dz=0
   end
   zm=1
--   al=1-(i-1)/lenl[j]
   al=1

   obj.draw(dx+cs,dy+sn,dz,zm,al)
  else
   tt2[j]=obj.time
  end
 end

 if(flag[j]==false)then
  idnum[j]=idnum[j]+1
 end
end

if(obj.check0)then
else
 obj.load("tempbuffer")
end

--[[http://madeinpc.blog50.fc2.com/]]--