_Cache

_dofile('cameracontrol.lua')
_sys:addPath('res')

function loadPlayer(c)
    local p = {}
    p.skl = _Skeleton.new('char_rose.skl')
    p.san = p.skl:addAnima('char_rose_skill_01.san')
    p.skn = _Mesh.new('char_rose.skn')
    p.skn:attachSkeleton(p.skl)
    if c then
        p.san:triggerEvents()
    else
        p.san.loop = true
        p.san:play()
    end
    return p
end

cache = _Cache.new()
cache:beginRecord()
loadPlayer(true)
cache:endRecord()
_gc()

--[[
local res = cache:getCaches()
for i, v in ipairs(res) do
    print('### Caching', v.resname, v.object)
end
--]]

_debug:ioReadMonitor(_true, 1000)
_debug.monitor = true

_app:onKeyDown(function(key)
    if key == _System.KeySpace then
        player = nil
        _gc()
        player = loadPlayer()
    elseif key == _System.KeyReturn then
        player = nil
        cache = nil
        _gc()
    end
end)

_app:onIdle(function()
    if player then
        player.skn:drawMesh()
    end
end)