@音に合わせて発光 kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,25,0.01
--track2:しきい値,0,200,40,0.1
--track3:拡散,0,4096,250,1
--check0:Info,1
--dialog:Buf値上限/chk,chk1=1;Buf値上限,bmax=160.00;Buf値下限/chk,chk2=1;Buf値下限,bmin=40.00;音分割数,div=40;Color/col,col=0xffffff;拡散速度,difs=0;サイズ固定,sfix=0;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=obj.track2
t3=math.floor(obj.track3)
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
n1="強さ"
n2="拡散"
n3="しきい値"
n4="拡散速度"
n5="サイズ固定"
n6="color"
n7="no_color"

v1=buf[t0]/t1
v2=t3
v3=t2
v4=difs
v5=sfix
v6=col
v7=0

if(chk1==1)then
 if(v1>=bmax)then
  v1=bmax
 end
end

if(chk2==1)then
 if(v1<=bmin)then
  v1=bmin
 end
end

obj.effect("発光",n1,v1,n2,v2,n3,v3,n4,v4,n5,v5,n6,v6,n7,v7)
------------------------------------
if(obj.check0)then
 obj.effect()
 obj.draw()
 info="強さ"..math.floor(v1) --ここに表示したい開発時の値を入力
 obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
 obj.load("text",info)
 obj.effect()
 obj.draw()
---------------------------------------
 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
---------------------------------------
else
end

@音に合わせて閃光 kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,25,0.01
--track2:X,-4096,4096,0,0.1
--track3:Y,-4096,4096,0,0.1
--check0:Info,1
--dialog:Buf値上限/chk,chk1=1;Buf値上限,bmax=100.00;Buf値下限/chk,chk2=0;Buf値下限,bmin=20.00;音分割数,div=40;Color/col,col=0xffffff;拡散速度,difs=0;サイズ固定,sfix=0;合成[0-2],bl=0;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=obj.track2
t3=obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
n1="強さ"
n2="X"
n3="Y"
n4="サイズ固定"
n5="color"
n6="no_color"
n7="mode"

v1=buf[t0]/t1
v2=t2
v3=t3
v4=sfix
v5=col
v6=0
v7=bl

if(chk1==1)then
 if(v1>=bmax)then
  v1=bmax
 end
end

if(chk2==1)then
 if(v1<=bmin)then
  v1=bmin
 end
end

obj.effect("閃光",n1,v1,n2,v2,n3,v3,n4,v4,n5,v5,n6,v6,n7,v7)
------------------------------------
if(obj.check0)then
 obj.effect()
 obj.draw()
 info="強さ"..math.floor(v1) --ここに表示したい開発時の値を入力
 obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
 obj.load("text",info)
 obj.effect()
 obj.draw()
---------------------------------------
 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
---------------------------------------
else
end


@音に合わせて拡散光 kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,25,0.01
--track2:拡散,0,4096,12,1
--track3:ｻｲｽﾞ固定,0,1,0,1
--check0:Info,1
--dialog:Buf値上限/chk,chk1=1;Buf値上限,bmax=100.00;Buf値下限/chk,chk2=1;Buf値下限,bmin=40.00;音分割数,div=40;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=math.floor(obj.track2)
t3=math.floor(obj.track3)
col=0xffffff
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
n1="強さ"
n2="拡散"
n3="サイズ固定"

v1=buf[t0]/t1
v2=t2
v3=t3

if(chk1==1)then
 if(v1>=bmax)then
  v1=bmax
 end
end

if(chk2==1)then
 if(v1<=bmin)then
  v1=bmin
 end
end

obj.effect("拡散光",n1,v1,n2,v2,n3,v3)
------------------------------------
if(obj.check0)then
 obj.effect()
 obj.draw()
 info="強さ"..math.floor(v1) --ここに表示したい開発時の値を入力
 obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
 obj.load("text",info)
 obj.effect()
 obj.draw()
---------------------------------------
 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
---------------------------------------
else
end

@音に合わせてグロー kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,25,0.01
--track2:しきい値,0,200,40,0.1
--track3:ぼかし,0,200,3,1
--check0:Info,1
--dialog:Buf値上限/chk,chk1=1;Buf値上限,bmax=80.00;Buf値下限/chk,chk2=0;Buf値下限,bmin=20.00;音分割数,div=40;Color/col,col=0xffffff;拡散,dif=30;形状[0-5],tp=0;光成分のみ[0-1],ls=0;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=obj.track2
t3=math.floor(obj.track3)
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
n1="強さ"
n2="拡散"
n3="しきい値"
n4="ぼかし"
n5="光成分のみ"
n6="color"
n7="no_color"
n8="type"

v1=buf[t0]/t1
v2=dif
v3=t2
v4=t3
v5=ls
v6=col
v7=0
v8=tp

if(chk1==1)then
 if(v1>=bmax)then
  v1=bmax
 end
end

if(chk2==1)then
 if(v1<=bmin)then
  v1=bmin
 end
end

obj.effect("グロー",n1,v1,n2,v2,n3,v3,n4,v4,n5,v5,n6,v6,n7,v7,n8,v8)
------------------------------------
if(obj.check0)then
 obj.effect()
 obj.draw()
 info="強さ"..math.floor(v1) --ここに表示したい開発時の値を入力
 obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
 obj.load("text",info)
 obj.draw()
---------------------------------------
 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
---------------------------------------
else
end

@音に合わせてライト kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,25,0.01
--track2:拡散,0,4096,25,1
--track3:比率,-100,100,0,0.1
--check0:Info,1
--dialog:Buf値上限/chk,chk1=1;Buf値上限,bmax=100.00;Buf値下限/chk,chk2=1;Buf値下限,bmin=40.00;音分割数,div=40;Color/col,col=0xffffff;逆光[0-1],rl=0;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
n1="強さ"
n2="拡散"
n3="比率"
n4="逆光"
n5="color"

v1=buf[t0]/t1
v2=t2
v3=t3
v4=rl
v5=col

if(chk1==1)then
 if(v1>=bmax)then
  v1=bmax
 end
end

if(chk2==1)then
 if(v1<=bmin)then
  v1=bmin
 end
end

obj.effect("ライト",n1,v1,n2,v2,n3,v3,n4,v4,n5,v5)
------------------------------------
if(obj.check0)then
 obj.effect()
 obj.draw()
 info="強さ"..math.floor(v1) --ここに表示したい開発時の値を入力
 obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
 obj.load("text",info)
 obj.effect()
 obj.draw()
---------------------------------------
 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
---------------------------------------
else
end

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