@口パク
--track0:音範囲下,0,10000,0.1
--track1:音範囲上,0,10000,500
--track2:拡張機能,0,2,0,1
--track3:瞬き間隔,0,100,0,0.1
--file

--拡張機能
--0:以前の仕様です、右端の数字1桁の仕様
--1:下のレイヤのオブジェクトのx座標の数で表示画像を切り替える
--aaa000.bmpのように、aaaの部分は任意の文字列に
--その後、数字3桁、拡張子とする
--数字3桁の左2桁を表示画像の番号に
--右1桁を口パク用の番号、以下に
--　1:口を閉じた状態
--　2:口を半開きか、2段階で表示する場合は開いた状態
--　3:口を開いた状態
--　4:目を閉じた状態
--2:2つ下のレイヤにオブジェクトがある場合のみ口パクの実行
--音声ファイルを使えればよかったのですが、出来ないのでテキストとか使ってください
--主に二人以上で話す場合に使えるはずです
--声が重なっている場合は、別撮り後合成とかで
--
--瞬き間隔
--0では瞬きしない、0より大きい数の場合その数の秒間隔で上記4番目の画像を0.2秒間表示

s=obj.track0
m=obj.track1

--音量判定
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",1)
if(buf[1]<s) then n=1
elseif((buf[1]<m) or (m==0)) then n=2
else n=3
end

lp    = string.len(file) - 5
--2こ下のレイヤの判定(拡張設定2)
if (obj.track2>=2) then
	b=obj.getvalue("layer" .. obj.layer+2 .. ".x")
	if (type(b)=="number") then
	else
		n=1
	end
end
--瞬き判定
if(obj.track3>0)then
	a=(obj.time%obj.track3)
	if((a >= 0) and (a < 0.2)) then
		n = 4
	end
end

--1こ下のレイヤのx座標取得(拡張設定1)、画像表示	
--口パク用2、3にあたるファイルが無い場合1を表示、1も無い場合は表示しない
x=obj.getvalue("layer" .. obj.layer+1 .. ".x")
if ((type(x)=="number") and (obj.track2>=1)) then
	load    = string.sub(file,  1, lp-2) .. string.format("%02d", x) .. string.format("%0d", n) .. string.sub(file, -4)
	fp=io.open (load ,"r")
	if (fp==nil) then	--open失敗
		load    = string.sub(file,  1, lp-2) .. string.format("%02d", x) .. "1" .. string.sub(file, -4)
	else
		io.close(fp)
	end
else
	load    = string.sub(file,  1, lp) .. string.format("%0d", n) .. string.sub(file, -4)
	fp=io.open (load ,"r")
	if (fp==nil) then	--open失敗
		load    = string.sub(file,  1, lp) .. "1" .. string.sub(file, -4)
	else
		io.close(fp)
	end
end
	
obj.load(load)