axmol/samples/Lua/TestLua/Resources/luaScript/MenuTest/MenuTest.lua

local    kTagMenu = 1
local    kTagMenu0 = 0
local    kTagMenu1 = 1

local MID_CALLBACK     = 1000
local MID_CALLBACK2    = 1001
local MID_DISABLED     = 1002
local MID_ENABLE       = 1003
local MID_CONFIG       = 1004
local MID_QUIT         = 1005
local MID_OPACITY      = 1006
local MID_ALIGN        = 1007
local MID_CALLBACK3    = 1008
local MID_BACKCALLBACK = 1009

--------------------------------------------------------------------
--
-- MenuLayerMainMenu
--
--------------------------------------------------------------------
local function MenuLayerMainMenu()
    local m_disabledItem = nil

    local ret = CCLayer:create()
    ret:setTouchEnabled(true)
    ret:setTouchPriority(kCCMenuHandlerPriority + 1)
    ret:setTouchMode(kCCTouchesOneByOne)

    -- Font Item
    local  spriteNormal = CCSprite:create(s_MenuItem, CCRectMake(0,23*2,115,23))
    local  spriteSelected = CCSprite:create(s_MenuItem, CCRectMake(0,23*1,115,23))
    local  spriteDisabled = CCSprite:create(s_MenuItem, CCRectMake(0,23*0,115,23))

    local  item1 = CCMenuItemSprite:create(spriteNormal, spriteSelected, spriteDisabled)

    local function menuCallback(sender)
        cclog("menuCallback...")
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(1)
    end

    item1:registerScriptTapHandler(menuCallback)
    -- Image Item
    local function menuCallback2(sender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(2)
    end

    local  item2 = CCMenuItemImage:create(s_SendScore, s_PressSendScore)
    item2:registerScriptTapHandler(menuCallback2)


    local schedulerEntry = nil
	local scheduler = CCDirector:sharedDirector():getScheduler()
    local function allowTouches(dt)
        local  pDirector = CCDirector:sharedDirector()
        --pDirector:getTouchDispatcher():setPriority(kCCMenuHandlerPriority+1, ret)
        if nil ~=  schedulerEntry then 
            scheduler:unscheduleScriptEntry(schedulerEntry)
            schedulerEntry = nil
        end
        cclog("TOUCHES ALLOWED AGAIN")
    end


    local function menuCallbackDisabled(sender)
        -- hijack all touch events for 5 seconds
        local  pDirector = CCDirector:sharedDirector()
        --pDirector:getTouchDispatcher():setPriority(kCCMenuHandlerPriority-1, ret)
        schedulerEntry = scheduler:scheduleScriptFunc(allowTouches, 5, false)
        cclog("TOUCHES DISABLED FOR 5 SECONDS")
    end

    -- Label Item (LabelAtlas)
    local  labelAtlas = CCLabelAtlas:create("0123456789", "fonts/labelatlas.png", 16, 24, string.byte('.'))
    local  item3 = CCMenuItemLabel:create(labelAtlas)
    item3:registerScriptTapHandler(menuCallbackDisabled)
    item3:setDisabledColor( ccc3(32,32,64) )
    item3:setColor( ccc3(200,200,255) )

    local function menuCallbackEnable(sender)
        m_disabledItem:setEnabled(not m_disabledItem:isEnabled() )
    end

    -- Font Item
    local item4 = CCMenuItemFont:create("I toggle enable items")
    item4:registerScriptTapHandler(menuCallbackEnable)

    item4:setFontSizeObj(20)
    CCMenuItemFont:setFontName("Marker Felt")

    local function menuCallbackConfig(sender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(3)
    end

    -- Label Item (CCLabelBMFont)
    local  label = CCLabelBMFont:create("configuration", "fonts/bitmapFontTest3.fnt")
    local  item5 = CCMenuItemLabel:create(label)
    item5:registerScriptTapHandler(menuCallbackConfig)

    -- Testing issue #500
    item5:setScale( 0.8 )

    local function menuCallbackPriorityTest(pSender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(4)
    end

    -- Events
    CCMenuItemFont:setFontName("Marker Felt")
    local item6 = CCMenuItemFont:create("Priority Test")
    item6:registerScriptTapHandler(menuCallbackPriorityTest)

    local function menuCallbackBugsTest(pSender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(5)
    end

    -- Bugs Item
    local item7 = CCMenuItemFont:create("Bugs")
    item7:registerScriptTapHandler(menuCallbackBugsTest)

    local function onQuit(sender)
        cclog("onQuit item is clicked.")
    end

    -- Font Item
    local  item8 = CCMenuItemFont:create("Quit")
    item8:registerScriptTapHandler(onQuit)

    local function menuMovingCallback(pSender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(6)
    end

    local  item9 = CCMenuItemFont:create("Remove menu item when moving")
    item9:registerScriptTapHandler(menuMovingCallback)

    local  color_action = CCTintBy:create(0.5, 0, -255, -255)
    local  color_back = color_action:reverse()
    local arr = CCArray:create()
    arr:addObject(color_action)
    arr:addObject(color_back)
    local  seq = CCSequence:create(arr)
    item8:runAction(CCRepeatForever:create(seq))

    local  menu = CCMenu:create()

    menu:addChild(item1)
    menu:addChild(item2)
    menu:addChild(item3)
    menu:addChild(item4)
    menu:addChild(item5)
    menu:addChild(item6)
    menu:addChild(item7)
    menu:addChild(item8)
    menu:addChild(item9)

    menu:alignItemsVertically()

    -- elastic effect
    local s = CCDirector:sharedDirector():getWinSize()

    local i        = 0
    local child    = nil
    local pArray   = menu:getChildren()
    local len      = pArray:count()
    local pObject  = nil
    for i = 0, len-1 do
        pObject = pArray:objectAtIndex(i)
        if pObject == nil then
            break
        end
        child = tolua.cast(pObject, "CCNode")

        local dstPointX, dstPointY = child:getPosition()
        local offset = s.width/2 + 50
        if  i % 2 == 0 then
            offset = 0-offset
        end
        child:setPosition( ccp( dstPointX + offset, dstPointY) )
        child:runAction( CCEaseElasticOut:create(CCMoveBy:create(2, ccp(dstPointX - offset,0)), 0.35) )
    end

    m_disabledItem = item3
    item3:retain()

    m_disabledItem:setEnabled( false )

    ret:addChild(menu)
    menu:setPosition(ccp(s.width/2, s.height/2))

--  local schedulerEntry = nil
    local function onNodeEvent(event)
        if event == "exit" then
            if (schedulerEntry ~= nil) then
                scheduler:unscheduleScriptEntry(schedulerEntry)
            end
            if m_disabledItem ~= nil then
--                m_disabledItem:release()
            end
        end
    end

    ret:registerScriptHandler(onNodeEvent)

    return ret
end

--------------------------------------------------------------------
--
-- MenuLayer2
--
--------------------------------------------------------------------
local function MenuLayer2()
    local ret = CCLayer:create()
    local m_centeredMenu = nil
    local m_alignedH = false

    local function alignMenusH()
        local i = 0
        for i=0, 1 do
            local menu = tolua.cast(ret:getChildByTag(100+i), "CCMenu")
            menu:setPosition( m_centeredMenu )
            if i==0 then
                -- TIP: if no padding, padding = 5
                menu:alignItemsHorizontally()
                local x, y = menu:getPosition()
                menu:setPosition( ccpAdd(ccp(x, y), ccp(0,30)) )
            else
                -- TIP: but padding is configurable
                menu:alignItemsHorizontallyWithPadding(40)
                local x, y = menu:getPosition()
                menu:setPosition( ccpSub(ccp(x, y), ccp(0,30)) )
            end
        end
    end

    local function alignMenusV()
        local i = 0
        for i=0, 1 do
            local menu = tolua.cast(ret:getChildByTag(100+i), "CCMenu")
            menu:setPosition( m_centeredMenu )
            if i==0 then
                -- TIP: if no padding, padding = 5
                menu:alignItemsVertically()
                local x, y = menu:getPosition()
                menu:setPosition( ccpAdd(ccp(x, y), ccp(100,0)) )
            else
                -- TIP: but padding is configurable
                menu:alignItemsVerticallyWithPadding(40)
                local x, y = menu:getPosition()
                menu:setPosition( ccpSub(ccp(x, y), ccp(100,0)) )
            end
        end
    end

    local function menuCallback(sender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(0)
    end

    local function menuCallbackOpacity(tag, sender)
        local menu = tolua.cast(sender:getParent(), "CCMenu")
        local opacity = menu:getOpacity()
        if opacity == 128 then
            menu:setOpacity(255)
        else
            menu:setOpacity(128)
        end
    end

    local function menuCallbackAlign(sender)
        m_alignedH = not m_alignedH

        if m_alignedH then
            alignMenusH()
        else
            alignMenusV()
        end
    end

    local i = 0
    for i=0, 1 do
        local  item1 = CCMenuItemImage:create(s_PlayNormal, s_PlaySelect)
        item1:registerScriptTapHandler(menuCallback)

        local  item2 = CCMenuItemImage:create(s_HighNormal, s_HighSelect)
        item2:registerScriptTapHandler(menuCallbackOpacity)

        local  item3 = CCMenuItemImage:create(s_AboutNormal, s_AboutSelect)
        item3:registerScriptTapHandler(menuCallbackAlign)

        item1:setScaleX( 1.5 )
        item2:setScaleX( 0.5 )
        item3:setScaleX( 0.5 )

        local  menu = CCMenu:create()

        menu:addChild(item1)
        menu:addChild(item2)
        menu:addChild(item3)

        local s = CCDirector:sharedDirector():getWinSize()
        menu:setPosition(ccp(s.width/2, s.height/2))

        menu:setTag( kTagMenu )

        ret:addChild(menu, 0, 100+i)

        local x, y = menu:getPosition()
        m_centeredMenu = ccp(x, y)
    end

    m_alignedH = true
    alignMenusH()

    return ret
end

--------------------------------------------------------------------
--
-- MenuLayer3
--
--------------------------------------------------------------------
local function MenuLayer3()
    local m_disabledItem = nil
    local ret = CCLayer:create()
    local function menuCallback(sender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(0)
    end

    local function menuCallback2(sender)
        cclog("Label clicked. Toogling AtlasSprite")
        m_disabledItem:setEnabled( not m_disabledItem:isEnabled() )
        m_disabledItem:stopAllActions()
    end

    local function menuCallback3(sender)
        cclog("MenuItemSprite clicked")
    end

    CCMenuItemFont:setFontName("Marker Felt")
    CCMenuItemFont:setFontSize(28)

    local  label = CCLabelBMFont:create("Enable AtlasItem", "fonts/bitmapFontTest3.fnt")
    local  item1 = CCMenuItemLabel:create(label)
    item1:registerScriptTapHandler(menuCallback2)

    local  item2 = CCMenuItemFont:create("--- Go Back ---")
    item2:registerScriptTapHandler(menuCallback)

    local spriteNormal   = CCSprite:create(s_MenuItem,  CCRectMake(0,23*2,115,23))
    local spriteSelected = CCSprite:create(s_MenuItem,  CCRectMake(0,23*1,115,23))
    local spriteDisabled = CCSprite:create(s_MenuItem,  CCRectMake(0,23*0,115,23))


    local  item3 = CCMenuItemSprite:create(spriteNormal, spriteSelected, spriteDisabled)
    item3:registerScriptTapHandler(menuCallback3)
    m_disabledItem = item3
    item3:retain()
    m_disabledItem:setEnabled( false )

    local menu = CCMenu:create()

    menu:addChild(item1)
    menu:addChild(item2)
    menu:addChild(item3)

    menu:setPosition( ccp(0,0) )

    local s = CCDirector:sharedDirector():getWinSize()

    item1:setPosition( ccp(s.width/2 - 150, s.height/2) )
    item2:setPosition( ccp(s.width/2 - 200, s.height/2) )
    item3:setPosition( ccp(s.width/2, s.height/2 - 100) )

    local  jump = CCJumpBy:create(3, ccp(400,0), 50, 4)
    local arr = CCArray:create()
    arr:addObject(jump)
    arr:addObject(jump:reverse())
    item2:runAction( CCRepeatForever:create(CCSequence:create( arr)))

    local  spin1 = CCRotateBy:create(3, 360)
    local  spin2 = tolua.cast(spin1:clone(), "CCActionInterval")
    local  spin3 = tolua.cast(spin1:clone(), "CCActionInterval")

    item1:runAction( CCRepeatForever:create(spin1) )
    item2:runAction( CCRepeatForever:create(spin2) )
    item3:runAction( CCRepeatForever:create(spin3) )

    ret:addChild( menu )

    menu:setPosition(ccp(0,0))

    local function onNodeEvent(event)
        if event == "exit" then
            if m_disabledItem ~= nil then
                --m_disabledItem:release()
            end
        end
    end

    ret:registerScriptHandler(onNodeEvent)

    return ret
end


--------------------------------------------------------------------
--
-- MenuLayer4
--
--------------------------------------------------------------------
local function MenuLayer4()
    local ret = CCLayer:create()
    CCMenuItemFont:setFontName("American Typewriter")
    CCMenuItemFont:setFontSize(18)
    local title1 = CCMenuItemFont:create("Sound")
    title1:setEnabled(false)
    CCMenuItemFont:setFontName( "Marker Felt" )
    CCMenuItemFont:setFontSize(34)
    local  item1 = CCMenuItemToggle:create(CCMenuItemFont:create( "On" ))

    local function menuCallback(tag, sender)
        cclog("selected item: tag: %d, index:%d", tag, tolua.cast(sender, "CCMenuItemToggle"):getSelectedIndex() )
    end

    local function backCallback(tag, sender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(0)
    end

    item1:registerScriptTapHandler(menuCallback)
    item1:addSubItem(CCMenuItemFont:create( "Off"))

    CCMenuItemFont:setFontName( "American Typewriter" )
    CCMenuItemFont:setFontSize(18)
    local  title2 = CCMenuItemFont:create( "Music" )
    title2:setEnabled(false)
    CCMenuItemFont:setFontName( "Marker Felt" )
    CCMenuItemFont:setFontSize(34)
    local item2 = CCMenuItemToggle:create(CCMenuItemFont:create( "On" ))
    item2:registerScriptTapHandler(menuCallback)
    item2:addSubItem(CCMenuItemFont:create( "Off"))

    CCMenuItemFont:setFontName( "American Typewriter" )
    CCMenuItemFont:setFontSize(18)
    local  title3 = CCMenuItemFont:create( "Quality" )
    title3:setEnabled( false )
    CCMenuItemFont:setFontName( "Marker Felt" )
    CCMenuItemFont:setFontSize(34)
    local item3 = CCMenuItemToggle:create(CCMenuItemFont:create( "High" ))
    item3:registerScriptTapHandler(menuCallback)
    item3:addSubItem(CCMenuItemFont:create( "Low" ))

    CCMenuItemFont:setFontName( "American Typewriter" )
    CCMenuItemFont:setFontSize(18)
    local  title4 = CCMenuItemFont:create( "Orientation" )
    title4:setEnabled(false)
    CCMenuItemFont:setFontName( "Marker Felt" )
    CCMenuItemFont:setFontSize(34)
    local item4 = CCMenuItemToggle:create(CCMenuItemFont:create( "Off" ))
    item4:registerScriptTapHandler(menuCallback)

    item4:getSubItems():addObject( CCMenuItemFont:create( "33%" ) )
    item4:getSubItems():addObject( CCMenuItemFont:create( "66%" ) )
    item4:getSubItems():addObject( CCMenuItemFont:create( "100%" ) )

    -- you can change the one of the items by doing this
    item4:setSelectedIndex( 2 )

    CCMenuItemFont:setFontName( "Marker Felt" )
    CCMenuItemFont:setFontSize( 34 )

    local label = CCLabelBMFont:create( "go back", "fonts/bitmapFontTest3.fnt" )
    local  back = CCMenuItemLabel:create(label)
    back:registerScriptTapHandler(backCallback)

    local menu = CCMenu:create()

    menu:addChild(title1)
    menu:addChild(title2)
    menu:addChild(item1 )
    menu:addChild(item2 )
    menu:addChild(title3)
    menu:addChild(title4)
    menu:addChild(item3 )
    menu:addChild(item4 )
    menu:addChild(back  )

    local arr = CCArray:create()
    arr:addObject(CCInteger:create(2))
    arr:addObject(CCInteger:create(2))
    arr:addObject(CCInteger:create(2))
    arr:addObject(CCInteger:create(2))
    arr:addObject(CCInteger:create(1))
    menu:alignItemsInColumnsWithArray(arr)

    ret:addChild(menu)

    local s = CCDirector:sharedDirector():getWinSize()
    menu:setPosition(ccp(s.width/2, s.height/2))
    return ret
end

local function MenuLayerPriorityTest()
    local ret = CCLayer:create()
    local m_bPriority = false
    -- Testing empty menu
    local m_pMenu1 = CCMenu:create()
    local m_pMenu2 = CCMenu:create()

    local function menuCallback(tag, pSender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(0)
    end

    local function enableMenuCallback()
        m_pMenu1:setEnabled(true)
    end

    local function disableMenuCallback(tag, pSender)
        m_pMenu1:setEnabled(false)
        local wait = CCDelayTime:create(5)
        local enable = CCCallFunc:create(enableMenuCallback)
        local arr = CCArray:create()
        arr:addObject(wait)
        arr:addObject(enable)
        local  seq = CCSequence:create(arr)
        m_pMenu1:runAction(seq)
    end

    local function togglePriorityCallback(tag, pSender)
        if m_bPriority then
            m_pMenu2:setHandlerPriority(kCCMenuHandlerPriority + 20)
            m_bPriority = false
        else
            m_pMenu2:setHandlerPriority(kCCMenuHandlerPriority - 20)
            m_bPriority = true
        end
    end

    -- Menu 1
    CCMenuItemFont:setFontName("Marker Felt")
    CCMenuItemFont:setFontSize(18)
    local item1 = CCMenuItemFont:create("Return to Main Menu")
    item1:registerScriptTapHandler(menuCallback)
    local item2 = CCMenuItemFont:create("Disable menu for 5 seconds")
    item2:registerScriptTapHandler(disableMenuCallback)

    m_pMenu1:addChild(item1)
    m_pMenu1:addChild(item2)

    m_pMenu1:alignItemsVerticallyWithPadding(20)

    ret:addChild(m_pMenu1)

    -- Menu 2
    m_bPriority = true
    CCMenuItemFont:setFontSize(48)
    item1 = CCMenuItemFont:create("Toggle priority")
    item2:registerScriptTapHandler(togglePriorityCallback)
    item1:setColor(ccc3(0,0,255))
    m_pMenu2:addChild(item1)
    ret:addChild(m_pMenu2)
    return ret
end


-- BugsTest
local function BugsTest()
    local ret = CCLayer:create()
    local function issue1410MenuCallback(tag, pSender)
        local menu = tolua.cast(pSender:getParent(), "CCMenu")
        menu:setTouchEnabled(false)
        menu:setTouchEnabled(true)
        cclog("NO CRASHES")
    end

    local function issue1410v2MenuCallback(tag, pSender)
        local menu = tolua.cast(pSender:getParent(), "CCMenu")
        menu:setTouchEnabled(true)
        menu:setTouchEnabled(false)
        cclog("NO CRASHES. AND MENU SHOULD STOP WORKING")
    end

    local function backMenuCallback(tag, pSender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(0)
    end


    local issue1410 = CCMenuItemFont:create("Issue 1410")
    issue1410:registerScriptTapHandler(issue1410MenuCallback)
    local issue1410_2 = CCMenuItemFont:create("Issue 1410 #2")
    issue1410_2:registerScriptTapHandler(issue1410v2MenuCallback)
    local back = CCMenuItemFont:create("Back")
    back:registerScriptTapHandler(backMenuCallback)

    local menu = CCMenu:create()
    menu:addChild(issue1410)
    menu:addChild(issue1410_2)
    menu:addChild(back)
    ret:addChild(menu)
    menu:alignItemsVertically()

    local s = CCDirector:sharedDirector():getWinSize()
    menu:setPosition(ccp(s.width/2, s.height/2))
    return ret
end


local function RemoveMenuItemWhenMove()
    local ret = CCLayer:create()
    local s = CCDirector:sharedDirector():getWinSize()

    local  label = CCLabelTTF:create("click item and move, should not crash", "Arial", 20)
    label:setPosition(ccp(s.width/2, s.height - 30))
    ret:addChild(label)

    local item = CCMenuItemFont:create("item 1")
    item:retain()

    local back = CCMenuItemFont:create("go back")
    local function goBack(tag, pSender)
        tolua.cast(ret:getParent(), "CCLayerMultiplex"):switchTo(0)
    end

    back:registerScriptTapHandler(goBack)

    local menu = CCMenu:create()
    menu:addChild(item)
    menu:addChild(back)

    ret:addChild(menu)
    menu:alignItemsVertically()

    menu:setPosition(ccp(s.width/2, s.height/2))

    ret:setTouchEnabled(true)
--[[
    local function onNodeEvent(event)
        if event == "enter" then
            CCDirector:sharedDirector():getTouchDispatcher():addTargetedDelegate(ret, -129, false)
        elseif event == "exit" then
           -- item:release()
        end
    end

    ret:registerScriptHandler(onNodeEvent)
    ]]--

    local function onTouchEvent(eventType, x, y)
        if eventType == "began" then
            return true
        elseif  eventType == "moved" then
            if item ~= nil then
                item:removeFromParentAndCleanup(true)
                --item:release()
                --item = nil
            end
        end
    end

    ret:registerScriptTouchHandler(onTouchEvent,false,-129,false)
    return ret
end

function MenuTestMain()
    cclog("MenuTestMain")
    local scene = CCScene:create()

    local  pLayer1 = MenuLayerMainMenu()
    local  pLayer2 = MenuLayer2()

    local  pLayer3 = MenuLayer3()
    local  pLayer4 = MenuLayer4()
    local  pLayer5 = MenuLayerPriorityTest()
    local  pLayer6 = BugsTest()
    local  pLayer7 = RemoveMenuItemWhenMove()


    local arr = CCArray:create()
    arr:addObject(pLayer1)
    arr:addObject(pLayer2)
    arr:addObject(pLayer3)
    arr:addObject(pLayer4)
    arr:addObject(pLayer5)
    arr:addObject(pLayer6)
    arr:addObject(pLayer7)

    local  layer = CCLayerMultiplex:createWithArray(arr)

    scene:addChild(layer, 0)
    scene:addChild(CreateBackMenuItem())
    return scene
end