--waitEx , waitTachi		version20090203	iύX_͖ɋLځj

--@\Fwt[yieldJԂ
--		function waitEx(waitCount, exception, elapsedFrame)
--
--@\FԂɂȂ܂yieldJԂ
--		function waitTachi()

--萔
MOTION_TACHI = 0	--

--@\Fwt[yieldJԂ
--߂lFŗ^ꂽ֐exception̖߂l
--exception()̖߂l > 0̏ꍇA̎_wait𒆒f
--fɍŌ܂waitꍇA0߂lƂreturn
function waitEx(waitCount, exception, elapsedFrame)
	local excCode = 0	--ŗ^ꂽ֐exception̖߂li[
	local counter		--yieldJԂpJE^
	
	for counter = 1, waitCount do
		if exception ~= nil then
			excCode = exception(elapsedFrame + counter - 1)	--ŗ^ꂽ֐ĂяoAԒ
																--counter1n܂Ȃ̂-1ėp
		end
		if excCode > 0 then
			return excCode
		end		-->0̏ꍇ͊֐I
		yield()
	end
	return 0
end

--@\FԂɂȂ܂yieldJԂ
function waitTachi()
	while my_act ~= MOTION_TACHI do
		yield()
	end
end

--version20090203
--		version20090113̕ύX_
--			E֐waitEx()@ɑ3 elapsedFrame ǉ
--			  prF֐exceptionSetInputiSetInputĂяoォ̌o߃t[j^
--			ESetInput𗘗p₷邽߁ATvptest.aiłȂCut@CɋLq悤ɂ
--			  ܂łSetInputp̂߂ɃTvptest.aiwaitExywaitTachi؂\肷ƂKv
