快捷使用lua

泡泡牛

--快捷使用脚本
--普通
x900002_g_ScriptId = 900002



--**********************************
--事件列表
--**********************************
function x900002_UpdateEventList( sceneId, selfId,targetId )

        BeginEvent(sceneId)
    AddNumText( sceneId, x900001_g_ScriptId, "#G快捷使用", 6, 33 )       
        EndEvent(sceneId)
        DispatchEventList(sceneId,selfId,targetId)

end
--**********************************
--事件列表选中一项
--**********************************
function x900002_OnEventRequest( sceneId, selfId, targetId, eventId )       
         if GetNumText() == 33 then
           BeginEvent(sceneId)
           AddText(sceneId,"       #r#W这里可以帮您快捷使用物品,免去烦恼#W")
           AddNumText( sceneId, x900001_g_ScriptId, "#G武道", 6, 3 )
           AddNumText( sceneId, x900001_g_ScriptId, "#G元宝", 6, 6 )
           AddNumText( sceneId, x900001_g_ScriptId, "#G绑元", 6, 7 )
           EndEvent(sceneId)
           DispatchEventList(sceneId,selfId,targetId)

    end
                ----- 一键武道丹
        local xiaoxiang_Num=GetNumText()
        --- 武道丹
        local xiaoxiang_ybpd={
        [38002396]=1,
        [38002397]=1,        
        }
        --- 元宝
        local xiaoxiang_yjyb={
        [39000069]=10,
        [39000070]=20,        
        [39000071]=50,        
        [39900000]=100,        
        [39900001]=500,        
        [39900002]=1000,        
        [39900003]=2000,        
        [39900004]=5000,        
        [39900005]=10000,        
        [39900006]=20000,        
        [39900007]=50000,        
        [39900008]=200,        
        }
        --- 绑元
        local xiaoxiang_yjby={
        [38000202]=50,        
        [38000203]=200,        
        [38002224]=40,        
        [38002225]=45,        
        [38002226]=55,        
        [38002227]=60,                
        [39901003]=500,        
        [39901004]=1000,        
        [39901005]=2000,        
        [39901006]=3000,        
        [39901007]=4000,        
        [39901008]=5000,        
        [39901009]=6000,        
        [39901017]=20,        
        [39901018]=50,        
        [39901019]=100,        
        [39901020]=200,                
        }
        --  武道丹
        if xiaoxiang_Num == 3 then

                local xiaoxiang_yuanbao=0
                for i=0,55 do
                        local xiaoxiang_t=LuaFnGetItemTableIndexByIndex( sceneId, selfId, i )
                        if xiaoxiang_ybpd[xiaoxiang_t]~=nil then
                                local xiaoxiang_y=LuaFnGetItemCountInBagPos(sceneId, selfId, i)
                                xiaoxiang_yuanbao=xiaoxiang_yuanbao+xiaoxiang_ybpd[xiaoxiang_t]*xiaoxiang_y
                        end
                end
                BeginEvent( sceneId )
                AddText( sceneId,  "#Y你背包里的武道丹总共可以兑换" )
                AddText( sceneId,  "#G     "..xiaoxiang_yuanbao )
                AddText( sceneId,  "    点数" )
                if xiaoxiang_yuanbao>0 then
                        AddNumText( sceneId, x900002_g_scriptId, "#G确定兑换", 6, 98652)
                end
                EndEvent( sceneId )
                DispatchEventList( sceneId, selfId, targetId )
                return
        end       
        --  一键元宝
        if xiaoxiang_Num == 6 then

                local xiaoxiang_yuanbao=0
                for i=0,55 do
                        local xiaoxiang_t=LuaFnGetItemTableIndexByIndex( sceneId, selfId, i )
                        if xiaoxiang_yjyb[xiaoxiang_t]~=nil then
                                local xiaoxiang_y=LuaFnGetItemCountInBagPos(sceneId, selfId, i)
                                xiaoxiang_yuanbao=xiaoxiang_yuanbao+xiaoxiang_yjyb[xiaoxiang_t]*xiaoxiang_y
                        end
                end
                BeginEvent( sceneId )
                AddText( sceneId,  "#Y你背包里的元宝票总共可以兑换" )
                AddText( sceneId,  "#G     "..xiaoxiang_yuanbao )
                AddText( sceneId,  "    点数" )
                if xiaoxiang_yuanbao>0 then
                        AddNumText( sceneId, x900002_g_scriptId, "#G确定兑换", 6, 98653)
                end
                EndEvent( sceneId )
                DispatchEventList( sceneId, selfId, targetId )
                return
        end       
        -- 一键绑元
        if xiaoxiang_Num == 7 then

                local xiaoxiang_yuanbao=0
                for i=0,55 do
                        local xiaoxiang_t=LuaFnGetItemTableIndexByIndex( sceneId, selfId, i )
                        if xiaoxiang_yjby[xiaoxiang_t]~=nil then
                                local xiaoxiang_y=LuaFnGetItemCountInBagPos(sceneId, selfId, i)
                                xiaoxiang_yuanbao=xiaoxiang_yuanbao+xiaoxiang_yjby[xiaoxiang_t]*xiaoxiang_y
                        end
                end
                BeginEvent( sceneId )
                AddText( sceneId,  "#Y你背包里的绑定元宝票总共可以兑换" )
                AddText( sceneId,  "#G     "..xiaoxiang_yuanbao )
                AddText( sceneId,  "    点数" )
                if xiaoxiang_yuanbao>0 then
                        AddNumText( sceneId, x900002_g_scriptId, "#G确定兑换", 6, 98654)
                end
                EndEvent( sceneId )
                DispatchEventList( sceneId, selfId, targetId )
                return
        end       
       
        -- 武道丹
        if xiaoxiang_Num == 98652 then
                local xiaoxiang_yuanbao=0
                for i=0,55 do
                        local xiaoxiang_t=LuaFnGetItemTableIndexByIndex( sceneId, selfId, i )
                        if xiaoxiang_ybpd[xiaoxiang_t]~=nil then
                                local xiaoxiang_y=LuaFnGetItemCountInBagPos(sceneId, selfId, i)
                                if LuaFnEraseItem( sceneId, selfId, i)==1 then
                                        xiaoxiang_yuanbao=xiaoxiang_yuanbao+xiaoxiang_ybpd[xiaoxiang_t]*xiaoxiang_y
                                end
                        end
                end
            SetMissionData(sceneId,selfId,MD_TALENTPOINT,GetMissionData(sceneId,selfId,MD_TALENTPOINT)+xiaoxiang_yuanbao)
                BroadMsgByChatPipe(sceneId, selfId, "@*;SrvMsg;DBD:兑换成功", 0);
                LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 49, 0)
                BeginUICommand(sceneId) EndUICommand(sceneId) DispatchUICommand(sceneId,selfId, 1000)
                return
        end               
        -- 元宝
        if xiaoxiang_Num == 98653 then
                local xiaoxiang_yuanbao=0
                for i=0,55 do
                        local xiaoxiang_t=LuaFnGetItemTableIndexByIndex( sceneId, selfId, i )
                        if xiaoxiang_yjyb[xiaoxiang_t]~=nil then
                                local xiaoxiang_y=LuaFnGetItemCountInBagPos(sceneId, selfId, i)
                                if LuaFnEraseItem( sceneId, selfId, i)==1 then
                                        xiaoxiang_yuanbao=xiaoxiang_yuanbao+xiaoxiang_yjyb[xiaoxiang_t]*xiaoxiang_y
                                end
                        end
                end
            YuanBao(sceneId,selfId,-1,1,xiaoxiang_yuanbao)
                BroadMsgByChatPipe(sceneId, selfId, "@*;SrvMsg;DBD:兑换成功", 0);
                LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 49, 0)
                BeginUICommand(sceneId) EndUICommand(sceneId) DispatchUICommand(sceneId,selfId, 1000)
                return
        end               
        -- 绑元
        if xiaoxiang_Num == 98654 then
                local xiaoxiang_yuanbao=0
                for i=0,55 do
                        local xiaoxiang_t=LuaFnGetItemTableIndexByIndex( sceneId, selfId, i )
                        if xiaoxiang_yjby[xiaoxiang_t]~=nil then
                                local xiaoxiang_y=LuaFnGetItemCountInBagPos(sceneId, selfId, i)
                                if LuaFnEraseItem( sceneId, selfId, i)==1 then
                                        xiaoxiang_yuanbao=xiaoxiang_yuanbao+xiaoxiang_yjby[xiaoxiang_t]*xiaoxiang_y
                                end
                        end
                end
            ZengDian(sceneId,selfId,-1,1,xiaoxiang_yuanbao)
                BroadMsgByChatPipe(sceneId, selfId, "@*;SrvMsg;DBD:兑换成功", 0);
                LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 49, 0)
                BeginUICommand(sceneId) EndUICommand(sceneId) DispatchUICommand(sceneId,selfId, 1000)
                return
        end       
end