@テンプレ的登場退場 kerokero9696
--track0:時間,0,1000,1.50,0.01
--track1:距離,-4000,4000,50,0.01
--track2:角度,-4000,4000,0,0.01
--track3:mode,1,10,1,1
--dialog:color/col,col=0xffffff;IN/chk,chk1=1;OUT/chk,chk2=1;seed,rsd=os.time();frame,rfr=100;coef,coef=1;random/chk,chk3=1;
--------------------------------
t0=obj.track0
t1=obj.track1
t2=obj.track2
t3=obj.track3
--------------------------------
sw,sh=obj.screen_w,obj.screen_h
ow,oh=obj.w,obj.h
r=math.pi/180*t2
of=obj.frame
ot=obj.time
ott=obj.totaltime
math.randomseed(rsd)
rnd=math.random(0,100)
if(t3==3)then
 rfr=of
end
rnd0=obj.rand(0,100,rnd,rfr)
oidx=obj.index
oim=obj.num
sn=math.sin(r)
cs=math.cos(r)
obj.setfont("gothic",t1/4,0,0xffffff,0x000000)
--------------------------------
if(oidx==0)then
 if(op==null)then
  op={}
 end
end
op[oidx+1]={obj.ox,obj.oy}
--------------------------------
orh={}
--------------------------------

if(t3==1)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1
  end
 end
--ここまで
elseif(t3==2)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.zoom=ot/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.zoom=(ott-ot)/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1
  end
 end

--ここまで
elseif(t3==3)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.zoom=ot/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.zoom=(ott-ot)/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1
  end
 end

--ここまで
elseif(t3==4)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  obj.zoom=ot/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  obj.zoom=(ott-ot)/t0
  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1
  end
 end
--ここまで
elseif(t3==5)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  obj.zoom=ot/t0
  obj.rx=(t0-ot)/t0*360*coef
  obj.ry=(t0-ot)/t0*360*coef
  obj.rz=(t0-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  obj.zoom=(ott-ot)/t0
  obj.rx=(ott-ot)/t0*360*coef
  obj.ry=(ott-ot)/t0*360*coef
  obj.rz=(ott-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1
  end
 end
--ここまで
elseif(t3==6)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  obj.rx=(t0-ot)/t0*360*coef
  obj.ry=(t0-ot)/t0*360*coef
  obj.rz=(t0-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1
   obj.oz=-orh[i]*(1-ot/t0)*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  obj.rx=(ott-ot)/t0*360*coef
  obj.ry=(ott-ot)/t0*360*coef
  obj.rz=(ott-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1
   obj.oz=orh[i]*(t0-(ott-ot))/t0*t1
  end
 end
--ここまで
elseif(t3==7)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  obj.rx=(t0-ot)/t0*360*coef
  obj.ry=(t0-ot)/t0*360*coef
  obj.rz=(t0-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]-orh[i]*(1-ot/t0)*cs*t1*coef
   obj.oy=op[i][2]-orh[i]*(1-ot/t0)*sn*t1*coef
   obj.oz=orh[i]*(1-ot/t0)*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  obj.rx=(ott-ot)/t0*360*coef
  obj.ry=(ott-ot)/t0*360*coef
  obj.rz=(ott-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]+orh[i]*(t0-(ott-ot))/t0*cs*t1*coef
   obj.oy=op[i][2]+orh[i]*(t0-(ott-ot))/t0*sn*t1*coef
   obj.oz=-orh[i]*(t0-(ott-ot))/t0*t1
  end
 end
--ここまで
elseif(t3==8)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  obj.rx=(t0-ot)/t0*360*coef
  obj.ry=(t0-ot)/t0*360*coef
  obj.rz=(t0-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]
   obj.oy=op[i][2]
   obj.oz=-orh[i]*(1-ot/t0)*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  obj.rx=(ott-ot)/t0*360*coef
  obj.ry=(ott-ot)/t0*360*coef
  obj.rz=(ott-ot)/t0*360*coef*rnd0/100

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]
   obj.oy=op[i][2]
   obj.oz=orh[i]*(t0-(ott-ot))/t0*t1
  end
 end
--ここまで
elseif(t3==9)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]
   obj.oy=op[i][2]
   obj.oz=-orh[i]*(1-ot/t0)*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]
   obj.oy=op[i][2]
   obj.oz=orh[i]*(t0-(ott-ot))/t0*t1
  end
 end
--ここまで
elseif(t3==10)then
--ここから
 if((t0-ot)/t0>0 and chk1==1)then
  obj.alpha=ot/t0
  obj.ry=(t0-ot)/t0*360*coef

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]
   obj.oy=op[i][2]
   obj.oz=-orh[i]*(1-ot/t0)*t1
  end

 elseif((t0-(ott-ot))/t0>0 and chk2==1)then
  obj.alpha=(ott-ot)/t0
  obj.ry=(ott-ot)/t0*360*coef

  for i=1,oidx+1 do
  if(chk3==1)then
   orh[i]=rnd0/100*coef
  else
   orh[i]=1
  end
   obj.ox=op[i][1]
   obj.oy=op[i][2]
   obj.oz=orh[i]*(t0-(ott-ot))/t0*t1
  end
 end
--ここまで
end
--[[http://madeinpc.blog50.fc2.com/]]--