#効果アニメ再生関数ver1.2(RPGエディタ用)
#スプライト縮小に対応するためのスプライト設定関数
def setSpriteRect2(img,imgw,imgh,x0,y0,w0,h0,x1,y1,w1,h1)
  w2=imgw/512
  h2=imgh/384
  if w2<=1&&h2<=1
    setSpriteRect(img,x0,y0,w0,h0,x1,y1,w1,h1)
  elsif w2>h2
    setSpriteRect(img,x0/w2,y0/w2,w0/w2,h0/w2,x1,y1,w1*w2,h1*w2)
  else
    setSpriteRect(img,x0/h2,y0/h2,w0/h2,h0/h2,x1,y1,w1*h2,h1*h2)
  end
end

#効果アニメ再生関数ver1.2本編(RPGエディタ用)
def anime(id,imgw,imgh,w,h,koma,pt,play_no,speed,x,y, se)
#画像id,画像全体の横幅、画像全体の縦幅、一コマの横幅、一コマの縦幅、一行のコマ数、パターン数、パターン再生回数、再生スピード、効果アニメ表示位置x座標、効果アニメ表示位置y座標、効果音
speed=speed*1000
#使いやすそうな速さが千の単位なので調整

if play_no==0
#指定再生回数がゼロのとき再生しない
else

#キャンパスがビジブル状態になっているか否かの判定
#ビジブルでない場合、ビジブル状態にする
#RPGエディタで必要な確認
  if getCanvasVisible()
  else
     setCanvasVisible(true)
  end

#ここからスプライト設定
#スプライト生成
img_name="img"
    #画像ハンドル名はimgにしてみました   #お好みで変えてください
    setVariable(img_name, createSprite(id))   
    setSpriteRect2(getVariable(img_name),imgw,imgh,       0, 0, w, h, 0, 0, w, h)
    setSpriteZOrder(getVariable(img_name), 10) #zオーダーはとりあえず10
    setSpritePosition(getVariable(img_name), x, y) #効果アニメ再生位置 

#スプライトの描画
#スプライト変更
 def setAnimeSprite(img_name,no,w,h,x,y,imgw,imgh,koma)
#スプライト画像のハンドル名、スプライト番号、一コマあたりの横幅、一コマあたりの縦幅、表示位置のx座標、表示位置のy座標、スプライト画像全体の横幅、スプライト画像全体の縦幅、スプライト画像の一行あたりのコマ数
#no(スプライト番号)というのは、スプライト画像の何番目のコマを表示するか、というもの
#スプライト画像の左上から右下へ向かって、1から始まる番号を振っている、0以下にすると何も表示しない

    get_x = 0;    get_y = 0;    get_w = w;   get_h = h
    set_x = 0;    set_y = 0;    set_w = w;   set_h = h

a=floor(no/koma) #行数
b=no-(a*koma) #余

if no<=0
        get_w = 0;    get_h = 0
        set_w = 0;    set_h = 0
elsif no<=koma
        get_x = w*(no-1)
else

  case b
    when 0
        get_x=w*(koma-1)
        get_y=h*(a-1)
    else
        get_x=w*(b-1)
        get_y=h*a
  end
end #if no<=0

setSpriteRect2(getVariable(img_name),imgw,imgh,get_x, get_y, get_w, get_h, set_x, set_y, set_w, set_h)

#スプライトの描画
    drawCanvas()
end #def setAnimeSprite

#ここから再生開始
if se #効果音が設定されていれば再生
playSound(se)
else
end

play=0
count=0
frame=1
setAnimeSprite(img_name,frame,w,h,x,y,imgw,imgh,koma)
loop=true
   while loop

      count=count+1
       if count >= speed #スピードを考慮しつつ再生
          count=0
          frame=frame+1
          setAnimeSprite(img_name,frame,w,h,x,y,imgw,imgh,koma) #描画
       end
      
       if frame-1>=pt #一セット再生するごとにカウント
       frame=0
       play=play+1
         if play>=play_no #設定した再生数を満たしたらループ終了
           setAnimeSprite(img_name,frame,w,h,x,y,imgw,imgh,koma) #効果アニメを消す
           loop=false
         end #if
       end #if

   end #while loop
end #if play_no==0
end #def anime

#anime(id,imgw, imgh,w,h,koma,pt,play_no,speed,x,y, se)
#画像id,画像全体の横幅、画像全体の縦幅、一コマの横幅、一コマの縦幅、一行あたりのコマ数、パターン数、パターン再生回数、再生スピード、効果アニメ表示位置x座標、効果アニメ表示位置y座標、効果音id

anime(312387,256,64,32,32,8,16,1,10,150,150) #効果音は設定していないので書くのを省略しています