--track0:速度,0,1000,75,0.1
--track1:個数,1,3000,50,1
--track2:周期,0,1024,100,1
--track3:幅,0,1000,25,1
--check0:浮力⇔重力,1
--dialog:ﾗﾝﾀﾞﾑZM/chk,chk1=1;輝度保持,local kido=1;平面化※[0-1],chk5=1;ﾗﾝﾀﾞﾑCOL/chk,chk2=1;ﾗﾝﾀﾞﾑ色最小値,local cmin=128;ﾗﾝﾀﾞﾑ色最大値,local cmax=255;ﾗﾝﾀﾞﾑRNG/chk,chk3=1;ﾗﾝﾀﾞﾑSpd/chk,chk4=1;Z方向,local dz0=200;X回転速度,local rxspd=100;Y回転速度,local ryspd=100;Z回転速度,local rzspd=-100;X描画範囲係数,local ww=1.00;Y描画範囲係数,local hh=1.00;SEED,sd=100;
-------------------------------------set
local t0=math.floor(obj.track0*10)/10
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local ogvzm=obj.getvalue("zoom")/100
local sw=obj.screen_w*ww/ogvzm
local sh=obj.screen_h*hh/ogvzm
------------------------------------script
local ow,oh=obj.getpixel()
if(chk5==1)then
 obj.setoption("drawtarget","tempbuffer",sw,sh)
end

local fgs0=oh*ogvzm
local len=t1
for i=1,len do
 if(chk1==1)then
  zm=obj.rand(500,10000,sd,i)/10000
 end
 
 if(chk3==0)then
  rng=t3/ogvzm
 else
  rng=obj.rand(5,t3,sd+40,i)/ogvzm
 end
 if(chk4==0)then
  acs=t0/ogvzm
 else
  acs=obj.rand(t0*10/3,t0*10,sd+50,i)/10/ogvzm
 end
 if(chk4==0)then
  spd=t2/ogvzm
 else
  spd=obj.rand(t2/3,t2,sd+60,i)/ogvzm
 end
 dx=obj.rand(-sw*50,sw*50,sd+1,i)/100	+math.sin(math.rad(obj.time*spd+i*15))*rng
 yrnd=obj.rand(fgs0,sh,sd+2,i)
 dst=sh+yrnd+fgs0
 if(obj.check0)then
  dy=sh/2+fgs0+yrnd	-(acs*obj.time)%dst
 else
  dy=-sh/2-fgs0-yrnd	+(acs*obj.time)%dst
 end
 dz=obj.rand(-dz0,dz0,sd+3,i)
 
 rx=obj.time*obj.rand(rxspd,rxspd*10,sd+100,i)/10
 ry=obj.time*obj.rand(ryspd,ryspd*10,sd+200,i)/10
 rz=obj.time*obj.rand(rzspd,rzspd*10,sd+300,i)/10

 if(chk2==1)then
  if(cmin<=0)then
   cmin=0
  elseif(cmax>=255)then
   cmax=255
  end
  r=obj.rand(cmin,cmax,sd+10,i)
  g=obj.rand(cmin,cmax,sd+20,i)
  b=obj.rand(cmin,cmax,sd+30,i)
  col=RGB(r,g,b)
  obj.effect("単色化","color",col,"輝度を保持する",kido)
 end

 obj.draw(dx,dy,dz,zm,1,rx,ry,rz)
end
if(chk5==1)then
 obj.load("tempbuffer")
end


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