@΅ΜήΌήͺ¨Δή―Δ‰» kerokero9696
--track0:ƒTƒCƒY,1,1000,24,1
--track1:ŠΤŠu,1,1000,10,1
--track2:‘•ό,0,4,0,1
--track3:•\Ž¦–§“x,1,1000,3,1
--dialog:•ΆŽšor}Œ`/chk,chk1=1;}Œ`/fig,fig="˜ZŠpŒ`";•ΟŠ·1,change1=",";•ΟŠ·2,change2="";Font,font="‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ";Color/col,col1=0xffffff;Color/col,col2=0x000000;“ΗŽζ–§“x,ik=10;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1/10
t2=math.floor(obj.track2)
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
ow,oh=obj.getpixel()
ow=math.floor(ow/ik)
oh=math.floor(oh/ik)
pos={}
for i=1,ow do
 pos[i]={}
 for j=1,oh do
  aa,bb=obj.getpixel(i*ik,j*ik,"col")
  if(bb~=0)then
   pos[i][j]=aa
  else
   pos[i][j]=0
  end
 end
end


 for i=1,#pos,t3 do
  for j=1,#pos[i],t3 do
   output=pos[i][j]
   if(output~=0)then
    col=pos[i][j]
    if(chk1==0)then
     output=change1
     obj.setfont(font,t0,t2,col,col1)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,t0)
    end
   else
    col=col1
    if(chk1==0)then
     output=change2
     obj.setfont(font,t0,t2,col,col2)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,0)
    end
   end
   
   dx=(i-#pos/2)*t1*ik
   dy=(j-#pos[i]/2)*t1*ik
   obj.draw(dx*ogvz,dy*ogvz)
  end
 end
------------------------------------

@ΔޯĊG‰ζ’² kerokero9696
--track0:ƒTƒCƒY,1,1000,13,1
--track1:ŠΤŠu,1,1000,10,1
--track2:‘•ό,0,4,0,1
--track3:•\Ž¦–§“x,1,1000,1,1
--dialog:•ΆŽšor}Œ`/chk,chk1=1;}Œ`/fig,fig="‰~";•ΟŠ·1,change1=",";•ΟŠ·2,change2="";Font,font="‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ";Color/col,col1=0xffffff;Color/col,col2=0x000000;“ΗŽζ–§“x,ik=10;Seed,sd=1000;MinŒW”,mn=10;MaxŒW”,mx=2;Tempbuffer/chk,chk2=0;Blend,btype="alpha_add";
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1/10
t2=math.floor(obj.track2)
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
ow,oh=obj.getpixel()
ow=math.floor(ow/ik)
oh=math.floor(oh/ik)
pos={}
for i=1,ow do
 pos[i]={}
 for j=1,oh do
  aa,bb=obj.getpixel(i*ik,j*ik,"col")
  if(bb~=0)then
   pos[i][j]=aa
  else
   pos[i][j]=0
  end
 end
end


if(chk2==1)then
 obj.setoption("drawtarget","tempbuffer",sw,sh)
end

 for i=1,#pos,t3 do
  for j=1,#pos[i],t3 do

   if(chk2==1)then
    obj.setoption("drawtarget","tempbuffer")
    obj.setoption("blend",btype)
   end

   output=pos[i][j]
   if(output~=0)then
    col=pos[i][j]
    if(chk1==0)then
     output=change1
     fs=obj.rand(t0/mn,t0*mx,sd,i*j)
     obj.setfont(font,fs,t2,col,col1)
     obj.load("text",output)
    else
     fgs=obj.rand(t0/mn,t0*mx,sd*(t2+10),i*j)
     obj.load("figure",fig,col,fgs)
    end
   else
    col=col1
    if(chk1==0)then
     output=change2
     fs=obj.rand(t0/mn,t0*mx,sd,i*j)
     obj.setfont(font,fs,t2,col,col2)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,0)
    end
   end
   
   dx=(i-#pos/2)*t1*ik
   dy=(j-#pos[i]/2)*t1*ik
   obj.draw(dx*ogvz,dy*ogvz)
  end
 end

if(chk2==1)then
 obj.load("tempbuffer")
end



@Δή―Δ‹zˆψ kerokero9696
--track0:ƒTƒCƒY,1,1000,12,1
--track1:ŠΤŠu,1,1000,10,1
--track2:ŽžŠΤ,0.01,1000,2,0.01
--track3:•\Ž¦–§“x,1,1000,3,1
--dialog:•ΆŽšor}Œ`/chk,chk1=1;}Œ`/fig,fig="ŽlŠpŒ`";•ΟŠ·1,change1=",";•ΟŠ·2,change2="";Font,font="‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ";Font‘•ό[0-4],t2=0;Color/col,col1=0xffffff;Color/col,col2=0x000000;ΑŽΈΣ°Δή/chk,chk2=1;Α“_,pos2={150,0,-150,0};Α“_Šξ–{”ΝˆΝ,rng1=300;ΑŽΈ‘¬“xŒW”,bc=1.30;“ΗŽζ–§“x,ik=5;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1/10
tc=obj.track2
if(tc>=obj.totaltime)then
 tc=obj.totaltime
end
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
ow,oh=obj.getpixel()
ow=math.floor(ow/ik)
oh=math.floor(oh/ik)
pos={}
for i=1,ow do
 pos[i]={}
 for j=1,oh do
  aa,bb=obj.getpixel(i*ik,j*ik,"col")
  if(bb~=0)then
   pos[i][j]=aa
  else
   pos[i][j]=0
  end
 end
end


 for i=1,#pos,t3 do
  for j=1,#pos[i],t3 do
   output=pos[i][j]
   if(output~=0)then
    col=pos[i][j]
    if(chk1==0)then
     output=change1
     obj.setfont(font,t0,t2,col,col1)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,t0)
    end
   else
    col=col1
    if(chk1==0)then
     output=change2
     obj.setfont(font,t0,t2,col,col2)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,0)
    end
   end

   dx=(i-#pos/2)*t1*ik
   dy=(j-#pos[i]/2)*t1*ik

   obj.setanchor("pos2",2)
   ot=obj.time
   ott=obj.totaltime
   lt=math.floor((ot+tc-ott)/tc*100)/100
   if(lt<0)then lt=1 else lt=1-lt end
   mx=pos2[1]
   my=pos2[2]

   rng=rng1*math.pow(bc,4)
   c1=pos2[3]+(1-lt)*rng
   c2=pos2[4]+(1-lt)*rng
   c3=pos2[3]-(1-lt)*rng
   c4=pos2[4]-(1-lt)*rng
   alp=obj.alpha
   if((c1>=dx) and (c3<=dx))then
    if((c2>=dy) and (c4<=dy))then
     dx=(dx*lt+mx*(1-lt))
     dy=(dy*lt+my*(1-lt))
 
     if(chk2==0)then
      alp=0
     else
      alp=obj.alpha
     end
   end
   end

   obj.draw(dx*ogvz,dy*ogvz,0,1,alp)
  end
 end
------------------------------------

@Δή―Δ‹zˆψi‰~j kerokero9696
--track0:ƒTƒCƒY,1,1000,12,1
--track1:ŠΤŠu,1,1000,10,1
--track2:ŽžŠΤ,0.01,1000,2,0.01
--track3:•\Ž¦–§“x,1,1000,3,1
--dialog:•ΆŽšor}Œ`/chk,chk1=1;}Œ`/fig,fig="ŽlŠpŒ`";•ΟŠ·1,change1=",";•ΟŠ·2,change2="";Font,font="‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ";Font‘•ό[0-4],t2=0;Color/col,col1=0xffffff;Color/col,col2=0x000000;ΑŽΈΣ°Δή/chk,chk2=1;Α“_,pos2={150,0,-150,0};Α“_Šξ–{”ΝˆΝ,rng1=300;ΑŽΈ‘¬“xŒW”,bc=1.30;ΑŽΈ‰~–§“x,fik=10;“ΗŽζ–§“x,ik=5;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1/10
tc=obj.track2
if(tc>=obj.totaltime)then
 tc=obj.totaltime
end
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
ow,oh=obj.getpixel()
ow=math.floor(ow/ik)
oh=math.floor(oh/ik)
pos={}
for i=1,ow do
 pos[i]={}
 for j=1,oh do
  aa,bb=obj.getpixel(i*ik,j*ik,"col")
  if(bb~=0)then
   pos[i][j]=aa
  else
   pos[i][j]=0
  end
 end
end


 for i=1,#pos,t3 do
  for j=1,#pos[i],t3 do
   output=pos[i][j]
   if(output~=0)then
    col=pos[i][j]
    if(chk1==0)then
     output=change1
     obj.setfont(font,t0,t2,col,col1)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,t0)
    end
   else
    col=col1
    if(chk1==0)then
     output=change2
     obj.setfont(font,t0,t2,col,col2)
     obj.load("text",output)
    else
     obj.load("figure",fig,col,0)
    end
   end

   dx=(i-#pos/2)*t1*ik
   dy=(j-#pos[i]/2)*t1*ik

   obj.setanchor("pos2",2)
   ot=obj.time
   ott=obj.totaltime
   lt=math.floor((ot+tc-ott)/tc*100)/100
   if(lt<0)then lt=1 else lt=1-lt end
   mx=pos2[1]
   my=pos2[2]

   for i=0,359,fik do
    r=math.rad(i)
    cs=math.cos(r)
    sn=math.sin(r)
    rng=rng1*math.pow(bc,4)
    c1=pos2[3]+(1-lt)*rng*cs
    c2=pos2[4]+(1-lt)*rng*sn
    c3=pos2[3]-(1-lt)*rng*cs
    c4=pos2[4]-(1-lt)*rng*sn
    alp=obj.alpha
    if((c1>=dx) and (c3<=dx))then
     if((c2>=dy) and (c4<=dy))then
      dx=(dx*lt+mx*(1-lt))
      dy=(dy*lt+my*(1-lt))
 
      if(chk2==0)then
       alp=0
      else
       alp=obj.alpha
      end
     end
 
   end
  end
  
   obj.draw(dx*ogvz,dy*ogvz,0,1,alp)
  end
 end
------------------------------------
--[[http://madeinpc.blog50.fc2.com/]]--