--track0:STL※,1,100,1,1
--track1:EDL,1,100,5,1
--track2:変化Frm,1,1000,150,1
--track3:ﾗﾝﾀﾞﾑFr,0,1,1,1
--check0:Random Layer,1
--dialog:SEED,sd=100;最小変化ﾌﾚｰﾑ,local frmin=5;Layer Effect/chk,chk2=0;Guid/chk,chk1=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 ogvzm=obj.getvalue("zoom")/100
local sw=obj.screen_w
local sh=obj.screen_h
------------------------------------script
if(chk1==1)then
 output="http://madeinpc.blog50.fc2.com/blog-entry-1079.htmlを参照して下さい。"

 if(ogvzm==0)then
  fs=sh/24
 else
  fs=sh/24/ogvzm
 end

 obj.setfont("",fs,3,0x000000,0xffffff)
 obj.load("text",output)
 obj.draw()
else

 if(obj.frame==0)then
  lyrnum=1
  frget=0
 end

 if(obj.check0)then
  if(t3==1)then
   if(frmin>=t2)then
    frmin=t2-1
   end
   t2=obj.rand(frmin,t2,sd,frget+1)
  end
  if(obj.frame%t2==0)then
   frget=obj.frame
  end
  lyrnum=obj.rand(t0,t1,sd,frget)
 else
  lyrnum=t0
 end

 if(chk2==1)then
  efb=true
 else
  efb=false
 end

 obj.load("layer",lyrnum,efb)
 lzm="layer"..lyrnum..".zoom"
 obj.zoom=obj.getvalue(lzm)/100
end

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