@SC01 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf”ԍ†,1,1024,20,1
--track2:Buf•β³,0.01,1024,100,0.01
--track3:Šξ€’l,0,4096,100,1
--check0:Info,0
--dialog:Œp‘±ŽžŠΤ,etime=1.00;•`‰ζƒ^ƒCƒv/chk,chk1=0;‰~ŽόŒΒ”ŒW”,asp=20;NdŒW”,dn=0.50;Color/col,col=0xffffff;seed,sd=100;}Œ`‘I‘π/fig,fig="‰~";}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=1000;}Œ`»²½ήŒW”,fgsc=2.00;
------------------------------------set
t0=obj.track0
t1=obj.track1
if(t0<=t1)then t1=t0 end
t2=obj.track2/10
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
div=t0
bcor=t2
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
bv=buf[t1]/bcor
------------------------------------script
if(etime<=0)then etime=0.01 end

obj.setoption("drawtarget","tempbuffer",sw,sh)
obj.setoption("blend","alpha_add")
if(obj.frame==0)then
 time1=obj.time
 time2=obj.time
 dt=0
 idx=1
 flag=false
end

if(bv>=t3 and flag==false)then
 time1=obj.time
 bvh=0
 flag=true
end

if(flag==true)then
 time2=obj.time
 dt=math.floor((time2-time1)*1000)/1000

---*** Start main
 rndx=obj.rand(-sw/2,sw/2,sd,idx)
 rndy=obj.rand(-sh/2,sh/2,sd*2,idx)
 col="0x"..string.format("%06x",obj.rand(0,16777215,sd,idx))
 rndr=obj.rand(-360,360,sd,idx)

 bvh=math.floor(bv/fgs1*dn)+1
 if(asp<=3)then asp=3 end
 len=359/asp
 for j=1,bvh do
  for i=0,len do
   dst=fgs1*(1+j/bvh*fgsc)
   fgs=dst
   obj.load("figure",fig,col,fgs,fgs2)

   if(idx%2==0)then
    r=math.rad(i*asp+rndr)
   else
    r=-math.rad(i*asp+rndr)
   end

   if(chk1==1)then
    if(j%2==1)then
     r=r
    else
     r=-r
    end
   end
   
   cs=math.cos(r)
   sn=math.sin(r)
   dx=dst*cs*j	+rndx
   dy=dst*sn*j	+rndy

   if(i<=math.floor(len*dt/etime)+1)then
    obj.draw(dx,dy)
   end
  end
 end
---*** End main

 if(dt>=etime)then
  time1=obj.time
  flag=false
  idx=idx+1
 end
end
-------------------------------------
if(obj.check0)then
 for i=0,div-1 do
  bv0=buf[i+1]/bcor
  dx=sw*i/div-sw/2+sh/60
  dy=-bv0+sh/2-sh/30
  obj.setfont("",sh/30)
  obj.load("text",i+1)
  obj.draw(dx,dy)
 end

obj.load("figure","‰~",col,sh/72)
for i=0,sw,sh/72 do
 dx=i-sw/2
 obj.draw(dx,sh/2-t3)
end
obj.load("figure","‰~",col,sh/18,2)
dx=sw*(t1-1)/div-sw/2+sh/144
dy=-buf[t1]/bcor+sh/2-sh/36
obj.draw(dx,dy)


 obj.setfont("",sh/20)
 output="¦ƒIƒuƒWƒFƒNƒgζ“ͺ‚ŏ‰Šϊ‰»".."\nBuf’l:"..(math.floor(bv*100)/100).."/Œo‰ίŽžŠΤ:"..(math.floor(dt*1000)/1000)
 obj.load("text",output)
 obj.draw(0,-sh/2+sh/20)
end
-------------------------------------
obj.load("tempbuffer")

@SC02 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf”ԍ†,1,1024,20,1
--track2:Buf•β³,0.01,1024,100,0.01
--track3:Šξ€’l,0,4096,100,1
--check0:Info,0
--dialog:Œp‘±ŽžŠΤ,etime=1.00;‰~ŽόŒΒ”ŒW”,asp=20;NdŒW”,dn=0.50;F•Ο‰»/chk,chk1=0;Color/col,col=0xffffff;seed,sd=100;}Œ`‘I‘π/fig,fig="‰~";}Œ`»²½ή,fgs1=10;}Œ`•,fgs2=1000;}Œ`»²½ήŒW”,fgsc=2.00;
------------------------------------set
t0=obj.track0
t1=obj.track1
if(t0<=t1)then t1=t0 end
t2=obj.track2/10
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
div=t0
bcor=t2
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
bv=buf[t1]/bcor
------------------------------------script
if(asp<=3)then asp=3 end
if(etime<=0)then etime=0.01 end

obj.setoption("drawtarget","tempbuffer",sw,sh)
obj.setoption("blend","alpha_add")
if(obj.frame==0)then
 time1=obj.time
 time2=obj.time
 dt=0
 idx=1
 flag=false
end

if(bv>=t3 and flag==false)then
 time1=obj.time
 flag=true
 bvh=0
 bv0=bv
end

if(flag==true)then
 time2=obj.time
 dt=math.floor((time2-time1)*1000)/1000

---*** Start main
 rndx=obj.rand(-sw/2,sw/2,sd,idx)
 rndy=obj.rand(-sh/2,sh/2,sd*2,idx)

 bvh=math.floor(bv0/fgs1*dn)+1
 len=359/asp
 for j=1,bvh do
  for i=0,len do
   dst=fgs1*(1+j/bvh*fgsc)
   fgs=dst
   if(chk1==0)then
    sd0=sd
   else
    sd0=sd+j+idx
   end
   col="0x"..string.format("%06x",obj.rand(0,16777215,sd0,idx))
   obj.load("figure",fig,col,fgs,fgs2)

   r=math.rad(i*asp)
   cs=math.cos(r)
   sn=math.sin(r)
   dx=dst*cs*j	+rndx
   dy=dst*sn*j	+rndy

   if(j<=math.floor(bvh*dt/etime)+1)then
    obj.draw(dx,dy)
   end
  end
 end
---*** End main

 if(dt>=etime)then
  time1=obj.time
  flag=false
  idx=idx+1
 end
end
-------------------------------------
if(obj.check0)then
 for i=0,div-1 do
  bv0=buf[i+1]/bcor
  dx=sw*i/div-sw/2+sh/60
  dy=-bv0+sh/2-sh/30
  obj.setfont("",sh/30)
  obj.load("text",i+1)
  obj.draw(dx,dy)
 end

obj.load("figure","‰~",col,sh/72)
for i=0,sw,sh/72 do
 dx=i-sw/2
 obj.draw(dx,sh/2-t3)
end
obj.load("figure","‰~",col,sh/18,2)
dx=sw*(t1-1)/div-sw/2+sh/144
dy=-buf[t1]/bcor+sh/2-sh/36
obj.draw(dx,dy)


 obj.setfont("",sh/20)
 output="¦ƒIƒuƒWƒFƒNƒgζ“ͺ‚ŏ‰Šϊ‰»".."\nBuf’l:"..(math.floor(bv*100)/100).."/Œo‰ίŽžŠΤ:"..(math.floor(dt*1000)/1000)
 obj.load("text",output)
 obj.draw(0,-sh/2+sh/20)
end
-------------------------------------
obj.load("tempbuffer")

@SC03 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,40,1
--track1:Buf”ԍ†,1,1024,20,1
--track2:Buf•β³,0.01,1024,100,0.01
--track3:Šξ€’l,0,4096,100,1
--check0:Info,0
--dialog:Œp‘±ŽžŠΤ,etime=0.50;NdŒW”,dn=1.00;NdŠΤŠuŒW”,dnc=0.95;‘w–ˆŠp“x,ang=120;F•Ο‰»/chk,chk1=0;Color/col,col=0xffffff;seed,sd=100;}Œ`‘I‘π/fig,fig="―Œ^";}Œ`»²½ή,fgs1=360;
------------------------------------set
t0=obj.track0
t1=obj.track1
if(t0<=t1)then t1=t0 end
t2=obj.track2/10
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
div=t0
bcor=t2
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
bv=buf[t1]/bcor
------------------------------------script
if(etime<=0)then etime=0.01 end

obj.setoption("drawtarget","tempbuffer",sw,sh)
if(obj.frame==0)then
 time1=obj.time
 time2=obj.time
 dt=0
 idx=1
 flag=false
end

if(bv>=t3 and flag==false)then
 time1=obj.time
 bvh=0
 flag=true
end

if(flag==true)then
 time2=obj.time
 dt=math.floor((time2-time1)*1000)/1000

---*** Start main
rndx=obj.rand(-sw/2,sw/2,sd,idx)
rndy=obj.rand(-sh/2,sh/2,sd*2,idx)
bvh=math.floor(bv*dn)+1
for i=0,bvh do
 if(chk1==0)then
  sd0=sd
 else
  sd0=sd+i+idx
 end
 col="0x"..string.format("%06x",obj.rand(0,16777215,sd0,idx))
 fgs=obj.rand(fgs1/2,fgs1,sd,idx)*dnc^(i+1)

 if(i%2==0)then
   obj.load("figure",fig,col,fgs)
   obj.setoption("blend","alpha_add")
 else
   obj.load("figure",fig,col,fgs)
   obj.setoption("blend","alpha_sub")
 end

 dx=rndx
 dy=rndy
 rz=i*ang
 if(i+1>=math.floor(bvh*dt/etime))then
  obj.draw(dx,dy,0,1,1,0,0,rz)
 end
end
---*** End main

 if(dt>=etime)then
  time1=obj.time
  flag=false
  idx=idx+1
 end
end
-------------------------------------
if(obj.check0)then
obj.setoption("blend","alpha_add")
 for i=0,div-1 do
  bv0=buf[i+1]/bcor
  dx=sw*i/div-sw/2+sh/60
  dy=-bv0+sh/2-sh/30
  obj.setfont("",sh/30)
  obj.load("text",i+1)
  obj.draw(dx,dy)
 end

obj.load("figure","‰~",col,sh/72)
for i=0,sw,sh/72 do
 dx=i-sw/2
 obj.draw(dx,sh/2-t3)
end

obj.load("figure","‰~",col,sh/18,2)
dx=sw*(t1-1)/div-sw/2+sh/144
dy=-buf[t1]/bcor+sh/2-sh/36
obj.draw(dx,dy)


 obj.setfont("",sh/20)
 output="¦ƒIƒuƒWƒFƒNƒgζ“ͺ‚ŏ‰Šϊ‰»".."\nBuf’l:"..(math.floor(bv*100)/100).."/Œo‰ίŽžŠΤ:"..(math.floor(dt*1000)/1000)
 obj.load("text",output)
 obj.draw(0,-sh/2+sh/20)
end
-------------------------------------
obj.load("tempbuffer")


@SC04 kerokero9696
--track0:‰ρ“]‘¬“x,-4096,4096,640,1
--track1:Buf”ԍ†,1,1024,20,1
--track2:Buf•β³,0.01,1024,100,0.01
--track3:Šξ€’l,0,4096,100,1
--check0:Info,0
--dialog:‰Ή•ͺŠ„”,div=40;Œp‘±ŽžŠΤ,etime=2.00;c‰‘/chk,chk1=1;}Œ`ΧέΐήΡ/chk,chk2=1;}Œ`‘I‘π/fig,fig="˜ZŠpŒ`";FΧέΐήΡ/chk,chk3=1;Color/col,col=0xffffff;}Œ`»²½ή,fgs1=25;}Œ`•,fgs2=1000;X•`‰ζ”ΝˆΝ,ww=1.00;Y•`‰ζ”ΝˆΝ,hh=1.00;seed,sd=100;
------------------------------------set
t0=obj.track0
t1=obj.track1
if(div<=t1)then t1=div end
t2=obj.track2/10
t3=obj.track3
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
bcor=t2
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
bv=buf[t1]/bcor
------------------------------------script
if(etime<=0)then etime=0.01 end
sw=sw*ww
sh=sh*hh
obj.setoption("drawtarget","tempbuffer",sw,sh)
obj.setoption("blend","alpha_add")
if(obj.frame==0)then
 time1=obj.time
 time2=obj.time
 dt=0
 idx=1
 flag=false
end

if(bv>=t3 and flag==false)then
 time1=obj.time
 bvh=0
 flag=true
end

if(flag==true)then
 time2=obj.time
 dt=math.floor((time2-time1)*1000)/1000

---*** Start main
 iki1=obj.rand(1,100,sd,idx)
 rndr=t0

 if(chk1==0)then
  if(iki1<=50)then
   rndx=-sw/2
   vv=1
   rr=rndr
  else
   rndx=sw/2
   vv=-1
   rr=-rndr
  end
  rndy=obj.rand(-sh/2,sh/2,sd*2,idx)
 else
  if(iki1<=50)then
   rndy=-sh/2
   vv=1
   rr=rndr
  else
   rndy=sh/2
   vv=-1
   rr=-rndr
  end
  rndx=obj.rand(-sw/2,sw/2,sd*2,idx)
 end
 
  if(chk2==1)then
   rndf=obj.rand(0,11999,sd,idx)
   if(rndf<2000)then
    fig="‰~"
   elseif(rndf<4000)then
    fig="ŽlŠpŒ`"
   elseif(rndf<6000)then
    fig="ŽOŠpŒ`"
   elseif(rndf<8000)then
    fig="ŒάŠpŒ`"
   elseif(rndf<10000)then
    fig="˜ZŠpŒ`"
   elseif(rndf<12000)then
    fig="―Œ^"
   end
  end

  if(chk3==1)then
   col=obj.rand(0,16777215,sd,idx)
  end

  fgs=obj.rand(fgs1,fgs1*5,sd,idx)
  obj.load("figure",fig,col,fgs,fgs2)
  if(chk1==0)then
   dx=sw*dt/etime*vv	+rndx
   dy=rndy
  else
   dx=rndx
   dy=sh*dt/etime*vv	+rndy
  end
  rz=dt/etime*rr
  obj.draw(dx,dy,0,1,1,0,0,rz)
---*** End main

 if(dt>=etime)then
  time1=obj.time
  flag=false
  idx=idx+1
 end
end
-------------------------------------
if(obj.check0)then
 for i=0,div-1 do
  bv0=buf[i+1]/bcor
  dx=sw*i/div-sw/2+sh/60
  dy=-bv0+sh/2-sh/30
  obj.setfont("",sh/30)
  obj.load("text",i+1)
  obj.draw(dx,dy)
 end

obj.load("figure","‰~",col,sh/72)
for i=0,sw,sh/72 do
 dx=i-sw/2
 obj.draw(dx,sh/2-t3)
end
obj.load("figure","‰~",col,sh/18,2)
dx=sw*(t1-1)/div-sw/2+sh/144
dy=-buf[t1]/bcor+sh/2-sh/36
obj.draw(dx,dy)


 obj.setfont("",sh/20)
 output="¦ƒIƒuƒWƒFƒNƒgζ“ͺ‚ŏ‰Šϊ‰»".."\nBuf’l:"..(math.floor(bv*100)/100).."/Œo‰ίŽžŠΤ:"..(math.floor(dt*1000)/1000)
 obj.load("text",output)
 obj.draw(0,-sh/2+sh/20)
end
-------------------------------------
obj.load("tempbuffer")

@SC05 kerokero9696
--track0:Mode,0,4,0,1
--track1:Buf•β³,0.01,1024,25,0.01
--track2:‰ρ“],-3600,3600,360,0.01
--track3:Šξ€’l,0,4096,100,1
--check0:NumberDisp,0
--dialog:Œp‘±ŽžŠΤ,etime=3.00;‰Ή•ͺŠ„”,div=100;Χέΐήѐ}Œ`/chk,chk2=0;}Œ`‘I‘π/fig,fig="‰~";Color/col,col=0xffffff;}Œ`»²½ή,fgs1=20;}Œ`•,fgs2=1000;•Ο‘¬/chk,chk1=1;‘¬“x,spd=1.00;Tempbuffer/chk,chk3=0;X”ΝˆΝŒW”,ww=1.00;Y”ΝˆΝŒW”,hh=1.00;SEED,sd=100;
------------------------------------set
mode=math.floor(obj.track0)
t1=obj.track1
rr=obj.track2
ref=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
---------------------------------------
bcor=t1
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
if(etime<=0)then etime=0.01 end
sw=sw*ww
sh=sh*hh
if(chk3==1)then
 obj.setoption("drawtarget","tempbuffer",sw,sh)
 obj.setoption("blend","alpha_add")
end

if(timel1==null)then timel1={} end
if(timel2==null)then timel2={} end
if(dtl==null)then dtl={} end
if(idxl==null)then idxl={} end
if(flagl==null)then flagl={} end
if(bvl==null)then bvl={} end
if(spdl==null)then spdl={} end
local fr=obj.time
for i=1,div do
 if(obj.frame==0)then
  timel1[i]=fr
  timel2[i]=fr
  dtl[i]=0
  idxl[i]=1
  flagl[i]=false
  bvl[i]=0
  spdl[i]=0
 end

bvl[i]=buf[i]/bcor
if(bvl[i]>=ref and flagl[i]==false)then
 timel1[i]=fr
 flagl[i]=true
 if(chk1==0)then
  spdl[i]=spd
 else
  spdl[i]=obj.rand(spd*10,spd*20,sd+i,idxl[i])/10
 end
end

if(flagl[i]==true)then
 timel2[i]=fr
 dtl[i]=math.floor((timel2[i]-timel1[i])*1000)/1000
---*** Start main
 tt=spdl[i]*dtl[i]/etime

 if(obj.check0)then
  output=i
  fs=sh/40
  fs=obj.rand(fs,fs*4,sd+i,idxl[i])
  obj.setfont("",fs)
  obj.load("text",output)
 else
  fgs=obj.rand(fgs1,fgs1*4,sd+i,idxl[i])
  if(chk2==1)then
   fiki=obj.rand(1,5,sd+i,idxl[i])
   if(fiki==1)then
    fig="‰~"
   elseif(fiki==2)then
    fig="ŽOŠpŒ`"
   elseif(fiki==3)then
    fig="ŽlŠpŒ`"
   elseif(fiki==4)then
    fig="ŒάŠpŒ`"
   elseif(fiki==5)then
    fig="˜ZŠpŒ`"
   elseif(fiki==6)then
    fig="―Œ^"
   end
  end
  obj.load("figure",fig,col,fgs,fgs2)
 end

rz=rr*tt

if(mode==0)then
 dx=obj.rand(-sw/2*100,sw/2*100,sd+i,idxl[i])/100
 dy=sh*tt-sh/2
elseif(mode==1)then
 dx=sw*tt-sw/2
 dy=obj.rand(-sh/2*100,sh/2*100,sd+i,idxl[i])/100
elseif(mode==2)then
 iki=obj.rand(1,9999,sd,i)
 if(iki%2==0)then
  dx=obj.rand(-sw/2*100,sw/2*100,sd,i)/100
  dy=sh*tt
 else
  dx=obj.rand(-sw/2*100,sw/2*100,sd,i)/100
  dy=-sh*tt
 end
elseif(mode==3)then
 iki=obj.rand(1,9999,sd,i)
 if(iki%2==0)then
  dx=obj.rand(-sw/2*100,sw/2*100,sd,i)/100
  dy=sh*tt-sh/2
 else
  dx=obj.rand(-sw/2*100,sw/2*100,sd,i)/100
  dy=-sh*tt+sh/2
 end
elseif(mode==4)then
 iki=obj.rand(1,9999,sd,i)
 if(iki%2==0)then
  dx=sw*tt-sw/2
  dy=obj.rand(-sh/2*100,sh/2*100,sd+i,idxl[i])/100
 else
  dx=-sw*tt+sw/2
  dy=obj.rand(-sh/2*100,sh/2*100,sd+i,idxl[i])/100
 end

end

obj.draw(dx,dy,0,1,1,0,0,rz)

---*** End main
  if(dtl[i]>=etime)then
   timel1[i]=fr
   flagl[i]=false
   idxl[i]=idxl[i]+1
  end
 end
end
-------------------------------------
if(chk3==1)then
 obj.load("tempbuffer")
end

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