print( 'coroutine test' )
 
JobType = { Update=1, Draw=2, GetScore=3 }
 
-- GameObjectへのresumeを適切に処理するためのYieldのラップ関数です。
-- resumeの引数に応じた処理を行います。
-- resumeの引数がJobType.Updateでない場合は、必要な処理を行ったあとすぐに再びyieldを行います。( つまりGameObjectコルーチンの実行位置は変わらない )
function GameObjectYield( drawFunc, getScoreFunc )
    local result = {}
    repeat
        local jobType = coroutine.yield( result )
        result = {}
        if jobType == JobType.Draw then
            drawFunc()
        elseif jobType == JobType.GetScore then
            result.Score = getScoreFunc and getScoreFunc()
        end
    until jobType == JobType.Update
end
 
-- ゲームのメインロジックを表すコルーチンです。
function GameObject()
 
    GameObjectYield( function() print"State : FadeIn" end )
 
    local gameTime = 0
    local score = 0
    while true do
        if gameTime == 3 then
            break
        end
        score = score + math.random( 1000 )
        GameObjectYield( function() print("State : Game / "..gameTime) end, function() return score end )
 
        gameTime = gameTime + 1
    end
 
    GameObjectYield( function() print"State : FadeOut" end )
end
 
GameObjectCoroutine = coroutine.create( GameObject )
 
-- スコアを表示するためのコルーチンです。resumeが呼ばれるたびに表示するスコアが実際のスコアに近づいていきます。
function ScoreDrawer()
    local drawScore = 0
    while true do
        local result, retT = coroutine.resume( GameObjectCoroutine, JobType.GetScore )
        local currentScore = retT.Score
        if currentScore ~= nil then
            if     currentScore > drawScore then drawScore = drawScore + 1
            elseif currentScore < drawScore then drawScore = drawScore - 1
            end
            print( 'ScoreDrawer : '..drawScore..'('..currentScore..')' )
        end
        coroutine.yield()
    end
end
ScoreDrawerCoroutine = coroutine.create( ScoreDrawer )
 
function Update()
    if coroutine.status( GameObjectCoroutine ) == "suspended" then
        coroutine.resume( GameObjectCoroutine, JobType.Update )
    end
end
 
function Draw()
    if coroutine.status( GameObjectCoroutine ) == "suspended" then
        coroutine.resume( GameObjectCoroutine, JobType.Draw )
    end
    -- print( 'ScoreDrawerCoroutine : '..coroutine.status( ScoreDrawerCoroutine ) )
    result, mes = coroutine.resume( ScoreDrawerCoroutine )
    if result == false then
        print( mes )
    end
end
 
function Framework()
    for i=1, 5 do
        Update()
        Draw()
    end
end
 
Framework()

cHJpbnQoICdjb3JvdXRpbmUgdGVzdCcgKQoKSm9iVHlwZSA9IHsgVXBkYXRlPTEsIERyYXc9MiwgR2V0U2NvcmU9MyB9CgotLSBHYW1lT2JqZWN044G444GucmVzdW1l44KS6YGp5YiH44Gr5Yem55CG44GZ44KL44Gf44KB44GuWWllbGTjga7jg6njg4Pjg5fplqLmlbDjgafjgZnjgIIKLS0gcmVzdW1l44Gu5byV5pWw44Gr5b+c44GY44Gf5Yem55CG44KS6KGM44GE44G+44GZ44CCCi0tIHJlc3VtZeOBruW8leaVsOOBjEpvYlR5cGUuVXBkYXRl44Gn44Gq44GE5aC05ZCI44Gv44CB5b+F6KaB44Gq5Yem55CG44KS6KGM44Gj44Gf44GC44Go44GZ44GQ44Gr5YaN44GzeWllbGTjgpLooYzjgYTjgb7jgZnjgIIoIOOBpOOBvuOCikdhbWVPYmplY3TjgrPjg6vjg7zjg4Hjg7Pjga7lrp/ooYzkvY3nva7jga/lpInjgo/jgonjgarjgYQgKQpmdW5jdGlvbiBHYW1lT2JqZWN0WWllbGQoIGRyYXdGdW5jLCBnZXRTY29yZUZ1bmMgKQogICAgbG9jYWwgcmVzdWx0ID0ge30KICAgIHJlcGVhdAogICAgICAgIGxvY2FsIGpvYlR5cGUgPSBjb3JvdXRpbmUueWllbGQoIHJlc3VsdCApCiAgICAgICAgcmVzdWx0ID0ge30KICAgICAgICBpZiBqb2JUeXBlID09IEpvYlR5cGUuRHJhdyB0aGVuCiAgICAgICAgICAgIGRyYXdGdW5jKCkKICAgICAgICBlbHNlaWYgam9iVHlwZSA9PSBKb2JUeXBlLkdldFNjb3JlIHRoZW4KICAgICAgICAgICAgcmVzdWx0LlNjb3JlID0gZ2V0U2NvcmVGdW5jIGFuZCBnZXRTY29yZUZ1bmMoKQogICAgICAgIGVuZAogICAgdW50aWwgam9iVHlwZSA9PSBKb2JUeXBlLlVwZGF0ZQplbmQKCi0tIOOCsuODvOODoOOBruODoeOCpOODs+ODreOCuOODg+OCr+OCkuihqOOBmeOCs+ODq+ODvOODgeODs+OBp+OBmeOAggpmdW5jdGlvbiBHYW1lT2JqZWN0KCkKICAgIAogICAgR2FtZU9iamVjdFlpZWxkKCBmdW5jdGlvbigpIHByaW50IlN0YXRlIDogRmFkZUluIiBlbmQgKQogICAgCiAgICBsb2NhbCBnYW1lVGltZSA9IDAKICAgIGxvY2FsIHNjb3JlID0gMAogICAgd2hpbGUgdHJ1ZSBkbwogICAgICAgIGlmIGdhbWVUaW1lID09IDMgdGhlbgogICAgICAgICAgICBicmVhawogICAgICAgIGVuZAogICAgICAgIHNjb3JlID0gc2NvcmUgKyBtYXRoLnJhbmRvbSggMTAwMCApCiAgICAgICAgR2FtZU9iamVjdFlpZWxkKCBmdW5jdGlvbigpIHByaW50KCJTdGF0ZSA6IEdhbWUgLyAiLi5nYW1lVGltZSkgZW5kLCBmdW5jdGlvbigpIHJldHVybiBzY29yZSBlbmQgKQogICAgICAgIAogICAgICAgIGdhbWVUaW1lID0gZ2FtZVRpbWUgKyAxCiAgICBlbmQKICAgIAogICAgR2FtZU9iamVjdFlpZWxkKCBmdW5jdGlvbigpIHByaW50IlN0YXRlIDogRmFkZU91dCIgZW5kICkKZW5kCgpHYW1lT2JqZWN0Q29yb3V0aW5lID0gY29yb3V0aW5lLmNyZWF0ZSggR2FtZU9iamVjdCApCgotLSDjgrnjgrPjgqLjgpLooajnpLrjgZnjgovjgZ/jgoHjga7jgrPjg6vjg7zjg4Hjg7PjgafjgZnjgIJyZXN1bWXjgYzlkbzjgbDjgozjgovjgZ/jgbPjgavooajnpLrjgZnjgovjgrnjgrPjgqLjgYzlrp/pmpvjga7jgrnjgrPjgqLjgavov5HjgaXjgYTjgabjgYTjgY3jgb7jgZnjgIIKZnVuY3Rpb24gU2NvcmVEcmF3ZXIoKQogICAgbG9jYWwgZHJhd1Njb3JlID0gMAogICAgd2hpbGUgdHJ1ZSBkbwogICAgICAgIGxvY2FsIHJlc3VsdCwgcmV0VCA9IGNvcm91dGluZS5yZXN1bWUoIEdhbWVPYmplY3RDb3JvdXRpbmUsIEpvYlR5cGUuR2V0U2NvcmUgKQogICAgICAgIGxvY2FsIGN1cnJlbnRTY29yZSA9IHJldFQuU2NvcmUKICAgICAgICBpZiBjdXJyZW50U2NvcmUgfj0gbmlsIHRoZW4KICAgICAgICAgICAgaWYgICAgIGN1cnJlbnRTY29yZSA+IGRyYXdTY29yZSB0aGVuIGRyYXdTY29yZSA9IGRyYXdTY29yZSArIDEKICAgICAgICAgICAgZWxzZWlmIGN1cnJlbnRTY29yZSA8IGRyYXdTY29yZSB0aGVuIGRyYXdTY29yZSA9IGRyYXdTY29yZSAtIDEKICAgICAgICAgICAgZW5kCiAgICAgICAgICAgIHByaW50KCAnU2NvcmVEcmF3ZXIgOiAnLi5kcmF3U2NvcmUuLicoJy4uY3VycmVudFNjb3JlLi4nKScgKQogICAgICAgIGVuZAogICAgICAgIGNvcm91dGluZS55aWVsZCgpCiAgICBlbmQKZW5kClNjb3JlRHJhd2VyQ29yb3V0aW5lID0gY29yb3V0aW5lLmNyZWF0ZSggU2NvcmVEcmF3ZXIgKQoKZnVuY3Rpb24gVXBkYXRlKCkKICAgIGlmIGNvcm91dGluZS5zdGF0dXMoIEdhbWVPYmplY3RDb3JvdXRpbmUgKSA9PSAic3VzcGVuZGVkIiB0aGVuCiAgICAgICAgY29yb3V0aW5lLnJlc3VtZSggR2FtZU9iamVjdENvcm91dGluZSwgSm9iVHlwZS5VcGRhdGUgKQogICAgZW5kCmVuZAoKZnVuY3Rpb24gRHJhdygpCiAgICBpZiBjb3JvdXRpbmUuc3RhdHVzKCBHYW1lT2JqZWN0Q29yb3V0aW5lICkgPT0gInN1c3BlbmRlZCIgdGhlbgogICAgICAgIGNvcm91dGluZS5yZXN1bWUoIEdhbWVPYmplY3RDb3JvdXRpbmUsIEpvYlR5cGUuRHJhdyApCiAgICBlbmQKICAgIC0tIHByaW50KCAnU2NvcmVEcmF3ZXJDb3JvdXRpbmUgOiAnLi5jb3JvdXRpbmUuc3RhdHVzKCBTY29yZURyYXdlckNvcm91dGluZSApICkKICAgIHJlc3VsdCwgbWVzID0gY29yb3V0aW5lLnJlc3VtZSggU2NvcmVEcmF3ZXJDb3JvdXRpbmUgKQogICAgaWYgcmVzdWx0ID09IGZhbHNlIHRoZW4KICAgICAgICBwcmludCggbWVzICkKICAgIGVuZAplbmQKCmZ1bmN0aW9uIEZyYW1ld29yaygpCiAgICBmb3IgaT0xLCA1IGRvCiAgICAgICAgVXBkYXRlKCkKICAgICAgICBEcmF3KCkKICAgIGVuZAplbmQKCkZyYW1ld29yaygp