--track0:ŒÂ�”,1,2048,12,1
--track1:‹——£�“,0,800,100,1
--track2:‰ñ“]‘¬“x,0,1024,0,1
--track3:ÌÚ°Ñ,0,9999,0,1
--check0:Shuffle,1
--dialog:File,local file="R:\\test.mp4";R‹——£/chk,chk4=1;RŠg‘å—¦/chk,chk1=1;R“§–¾“x/chk,chk2=0;RZŽ²/chk,chk3=0;ŽžŠÔ•\Ž¦[0-1],chk5=0;Šg‘å—¦ŒW�”,local zmc=1.00;SEED,sd=1;
------------------------------------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 sw=obj.screen_w
local sh=obj.screen_h
sd=(sd+t3)%9999
obj.setfont("",sh/24)
------------------------------------
local shuf={}
for i=1,t0 do
	shuf[i]=i
end

for i=1,t0 do
	local swp=0
	rnd=obj.rand(1,t0,sd*(-1),i)
	swp=shuf[i]
	shuf[i]=shuf[rnd]
	shuf[rnd]=swp
end
------------------------------------
local ang = 360 / t0
local spd = t2 * obj.time

local maxts = obj.load("movie",file)
local readts = maxts - obj.totaltime
if(readts < 0)then readts = 0 end

obj.setoption("drawtarget","tempbuffer",sw,sh)
for i=0,t0-1 do
	if(obj.check0)then
		n=shuf[i+1]
	else
		n=i
	end

	ts = obj.rand(0,readts,sd,n) + obj.time
	if(ts >= maxts)then ts = maxts end
	obj.load("movie",file, ts)

	local dst
	if(chk4==1)then
		dst = obj.rand(sh*0.1,sh,sd,n) * t1 * 0.01
	else
		dst = sh * t1 * 0.01
	end
	r=math.rad(ang*n-90)
	dx=math.cos(r)*dst
	dy=math.sin(r)*dst


	if(chk1==1)then
		zm = obj.rand(5,100,sd,n) * zmc
	else
		zm = 100 * zmc
	end
	obj.effect("ƒŠƒTƒCƒY","Šg‘å—¦",zm)


	if(chk2==1)then
		alp=obj.rand(5000,10000,sd,n) * 0.0001
	else
		alp=1
	end

	if(chk3==1)then
		rz=obj.rand(-36000,36000,sd,n)*0.01 + spd * (-1) ^ n
	else
		rz=spd
	end

	obj.draw(dx,dy,i*5,1,alp,0,0,rz)

	if(chk5==1)then
		obj.load("text",math.floor(ts*100)*0.01)
		obj.draw(dx,dy,i*5)
	end
end
obj.load("tempbuffer")


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