@µÌÞ¼Þª�¨Äޯĉ» 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
------------------------------------
@Äޯĉ»Œ´Žq•ö‰ó kerokero9696
--track0:ƒTƒCƒY,1,1024,2,1
--track1:‘¬“x,1,1000,50,1
--track2:‰¡–§“x,1,100,3,1
--track3:�c–§“x,1,100,3,1
--check0:�ˆ—�Œy—ʉ»,1
--dialog:”­“®ŽžŠÔ,et=0.00;ŠgŽUŒW�”,sp=3.00;”½�d—Í,grav=1.00;“§‰ßŒW�”,alpc=5;�}Œ`‘I‘ð/fig,fig="ŽlŠpŒ`";SEED,sd=100;X”͈͌W�”,ww=1.00;Y”͈͌W�”,hh=1.00;
------------------------------------set
local t0=math.floor(obj.track0)
local t1=obj.track1/10
local wk=math.floor(obj.track2)
local hk=math.floor(obj.track3)
local sw=obj.screen_w
local sh=obj.screen_h
local ogvz=obj.getvalue("zoom")/100
------------------------------------script
ow,oh=obj.w/ogvz,obj.h/ogvz

if(calal==null)then
 calal={}
end

if(obj.check0)then
 if(obj.frame==0)then  --***�ˆ—�Œy—ʉ»�H
 for i=0,ow,wk do
  calal[i+1]={}
  for j=0,oh,hk do
   aa,bb=obj.getpixel(i,j,"col")
   calal[i+1][j+1]={aa,bb}
  end
 end
 end
else
 for i=0,ow,wk do
  calal[i+1]={}
  for j=0,oh,hk do
   aa,bb=obj.getpixel(i,j,"col")
   calal[i+1][j+1]={aa,bb}
  end
 end
end


obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
fgs1=t0
for i=0,ow,wk do
 for j=0,oh,hk do
  col=calal[i+1][j+1][1]
  al=calal[i+1][j+1][2]

  if(al~=0)then
   obj.load("figure",fig,col,fgs1)
    tt=math.floor((obj.time-et)*t1*100)/100
    if(tt<=0)then tt=0 end
    ang=obj.rand(0,360,sd+i,j)
    rnd1=obj.rand(1,100,sd+i,j)/100
    rnd2=obj.rand(1,100,sd*2+i,j)/100
    r=math.rad(ang)
    cs=math.cos(r)
    sn=math.sin(r)
    dx=-ow/2+i+cs*fgs1*tt*rnd1*sp
    dy=-oh/2+j+sn*fgs1*tt*rnd2*sp+fgs1*tt*sp*0.5	-0.5*grav*tt^2

    if(alpc==0)then alpc=0.01 end
    al=1-tt/(t1*alpc)
    if(al<=0)then al=0 end

   obj.setoption("blend","alpha_add")
   obj.draw(dx,dy,0,1,al)
  end

 end
end

obj.load("tempbuffer")


@Äޯĉ»Šø—h‚ê kerokero9696
--track0:ƒTƒCƒY,1,1024,10,1
--track1:‘¬“x,1,1000,100,1
--track2:‰¡–§“x,1,100,5,1
--track3:�c–§“x,1,100,5,1
--check0:Move,1
--dialog:�}Œ`‘I‘ð/fig,fig="‰~";“®‚«”½“]/chk,chk1=0;‰¡ŒW�”,wc=1.00;�cŒW�”,hc=1.00;X”͈͌W�”,ww=1.00;Y”͈͌W�”,hh=1.00;SEED,sd=100;
------------------------------------set
t0=math.floor(obj.track0)
t1=math.floor(obj.track1)
wk=math.floor(obj.track2)
hk=math.floor(obj.track3)
ogvz=obj.getvalue("zoom")/100
------------------------------------script
ow,oh=obj.w/ogvz,obj.h/ogvz

if(ca==null)then
 ca={}
end
--if(obj.frame==0)then
 for i=0,ow,wk do
  ca[i+1]={}
  for j=0,oh,hk do
   aa,bb=obj.getpixel(i,j,"col")
   ca[i+1][j+1]={aa,bb}
  end
 end
--end

obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh)
fgs1=t0
for i=0,ow,wk do
 for j=0,oh,hk do
  col=ca[i+1][j+1][1]
  al=ca[i+1][j+1][2]

  if(al~=0)then
   obj.load("figure",fig,col,fgs1)
   if(obj.check0)then
   else
    t1=0
   end
    if(chk1==0)then
     r=math.rad(i+j+obj.time*t1+sd)
    else
     r=-math.rad(i+j+obj.time*t1+sd)
    end
    cs=math.cos(r)
    sn=math.sin(r)
    dx=-ow/2+i+cs*fgs1*wc
    dy=-oh/2+j+sn*fgs1*hc
   obj.setoption("blend","alpha_add")
   obj.draw(dx,dy,0,1,al)
  end

 end
end

obj.load("tempbuffer")

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