@SSTH01 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,200,1
--track1:Buf•β³,1,1024,25,0.01
--track2:ŠΤŠu%,1,1000,200,1
--track3:»²½ή,1,300,3,1
--check0:Type Change,0
--dialog:Žζ“ΎΜΪ°Ρ,local fnum=6;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";Color/col,col=0xffffff;X•`‰ζ”ΝˆΝŒW”,local ww=1.00;Y•`‰ζ”ΝˆΝŒW”,local hh=1.00;
-------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=obj.track2/100
local t3=math.floor(obj.track3)
local sw=obj.screen_w*ww
local sh=obj.screen_h*hh
local ogvz=obj.getvalue("zoom")/100
------------------------------------
buf={}
local div=t0
local bcor=t1
local n=obj.getaudio(buf,"audiobuffer","spectrum",div)
-------------------------------------script
obj.setoption("drawtarget","tempbuffer",sw,sh)

local fgs1,fgs2=200,200
obj.load("figure",fig,col,fgs1,fgs2)

if(bvl==null)then --***set
 bvl={}
end

local fr=obj.frame
if(fr==0)then --***set
 for i=1,fnum do
  bvl[i]={}
 end

 if(fnum<#bvl)then --***set
  for i=fnum+1,#bvl do
   bvl[i]=null
  end
 end
end

fr0=fr%fnum+1 --***set
for i=1,div do
 bvl[fr0][i]=buf[i]
 bv=0
 if(fnum<=1)then fnum=1 end --***set
 if(fnum>=fr+1)then fnum=fr+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor

 dst=t3
 if(obj.check0)then
  x0,y0,z0=(i-1)*dst-div*dst/2+dst/2,-bv,0
  x1,y1,z1=x0+dst/t2,y0,z0
  x2,y2,z2=x1,bv,z0
  x3,y3,z3=x0,y2,z0
 else
  x0,y0,z0=(i-1)*dst-div*dst/2+dst/2,-bv+sh/4,0
  x1,y1,z1=x0+dst/t2,y0,z0
  x2,y2,z2=x1,sh/4,z0
  x3,y3,z3=x0,y2,z0
 end

 obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)
end
obj.load("tempbuffer")

@SSTH02 kerokero9696
--track0:‰Ή•ͺŠ„”,1,1024,200,1
--track1:Buf•β³,1,1024,25,0.01
--track2:ŠΤŠu%,1,1000,100,1
--track3:»²½ή,1,300,3,1
--check0:”ς–—,1
--dialog:Žζ“ΎΜΪ°Ρ,local fnum=6;}Œ`‘I‘π/fig,fig="ŽlŠpŒ`";Color/col,col=0xffffff;SEED,sd=100;Color/col,col2=0x808080;‰‘¬,local v0=10.00;X•`‰ζ”ΝˆΝŒW”,local ww=1.00;Y•`‰ζ”ΝˆΝŒW”,local hh=1.00;
-------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1
local t2=obj.track2/100
local t3=math.floor(obj.track3)
local sw=obj.screen_w*ww
local sh=obj.screen_h*hh
local ogvz=obj.getvalue("zoom")/100
------------------------------------
buf={}
local div=t0
local bcor=t1
local n=obj.getaudio(buf,"audiobuffer","spectrum",div)
-------------------------------------script
obj.setoption("drawtarget","tempbuffer",sw,sh)

if(bvl==null)then --***set
 bvl={}
end

local fr=obj.frame
if(fr==0)then --***set
 for i=1,fnum do
  bvl[i]={}
 end

 if(fnum<#bvl)then --***set
  for i=fnum+1,#bvl do
   bvl[i]=null
  end
 end
end

fr0=fr%fnum+1 --***set
for i=1,div do
 bvl[fr0][i]=buf[i]
 bv=0
 if(fnum<=1)then fnum=1 end --***set
 if(fnum>=fr+1)then fnum=fr+1 end --***set
 for k=1,fnum do --***set
  bv=bv+bvl[k][i]
 end
 bv=bv/fnum/bcor
 
 fgs1,fgs2=200,200
 obj.load("figure",fig,col,fgs1,fgs2)
 dst=t3
 x0,y0,z0=(i-1)*dst-div*dst/2+dst/2,-bv+sh/4,0
 x1,y1,z1=x0+dst/t2,y0,z0
 x2,y2,z2=x1,sh/4,z0
 x3,y3,z3=x0,y2,z0
 obj.drawpoly(x0,y0,z0,x1,y1,z1,x2,y2,z2,x3,y3,z3)

 if(obj.check0 and bv>0)then
 f=math.floor(obj.time/10)
 len=obj.rand(1,v0,sd,i+f)
 for j=1,len do
  t=(obj.time-j)%(len/10)
  t=t*10
  g=9.8/2*t^2
  v=-v0*t
  dy=-bv+sh/4	+v+g
  if(dy<=sh/4)then
   dx=(i-1)*dst-div*dst/2+dst/2	+obj.rand(-v0,v0,sd,j)*t
   rz=t*15
   fgs1,fgs2=t3/2,t3/2
   obj.load("figure",fig,col2,fgs1,fgs2)
   obj.draw(dx,dy,0,1,1,0,0,rz)
  end
 end
 end

end
obj.load("tempbuffer")

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