战神引擎商城明文传奇源代码mir2.scenes.main.panel.shop

夜游神

战神引擎商城明文传奇源代码mir2.scenes.main.panel.shop


local itemInfo = import("..common.itemInfo")
local common = import("..common.common")
local shop = class("shop", function() return display.newNode() end)

table.merge(shop, {
    content,
    nodes,
    selectData,
    -- 物品容器
    shopcontain = {},
    tag1=nil,           --一级标签
    tag2=nil,           --二级标签
    tag1Node = nil,
    tag2Node = nil,
    curSubIdx = nil
})

local tags = {
    hot={tag1="shop",var=6}, give={tag1="shop",var=4}, intensify={tag1="shop",var=2},
    friend={tag1="shop",var=3}, limit={tag1="shop",var=4},spicel={tag1="shop",var=5},
}

function shop:ctor(name)
    self._supportMove = true
    g_data.shop:setEvtListener(self)

    params = params or {}
    if type(params.tag2) ~= "string" or tags[params.tag2] then
        params.tag2 = "hot"
    end
    params.tag1 = tags[params.tag2].tag1

    --背景
    local bg = res.get2("pic/common/black_2.png"):addTo(self):anchor(0,0)
    self:size(bg:getContentSize()):anchor(.5,.5):center()

   
    res.get2("pic/panels/shop/title.png"):addTo(bg):pos(bg:getw()/2, bg:geth()-14):anchor(.5,1)
   
    --关闭
    an.newBtn(res.gettex2("pic/common/close10.png"),function()
        sound.playSound("103")
        self:hidePanel()
    end,{
        pressImage=res.gettex2("pic/common/close11.png"),
        size = cc.size(64,64)
    }):addTo(bg):pos(bg:getw()-9, bg:geth()-8):anchor(1,1)


    --一级标签
    -- "pic/panels/shop/cz.png"
    common.tabs(bg, { sprs={"pic/panels/shop/shangc.png"},ox = 3, oy=12}, function(idx, btn)
        if 1 == idx then
            self.tag1 = "shop"
            self:load("hot")
        elseif 2 == idx then
            self.tag1 = "charge"
            self:load2()
            --main_scene.ui:tip("本次测试有丰厚奖励，暂不开放充值。")
        end
    end, {
        tabTp=1,
        pos={x=0, y=bg:geth()-38, offset=70, anchor=cc.p(1,1)},
    })
end

function shop:onCleanup()
    g_data.shop:setEvtListener(nil)
end

function shop:load()
    if self.tag1Node then
        self.tag1Node:removeSelf()
    end
    self.tag1Node = display.newNode():addTo(self)
    display.newScale9Sprite(res.getframe2("pic/common/black_5.png"), 0, 0, cc.size(127,390)):addTo(self.tag1Node):pos(12,15):anchor(0,0)
    display.newScale9Sprite(res.getframe2("pic/common/black_5.png"), 0, 0, cc.size(480,390)):addTo(self.tag1Node):pos(146,15):anchor(0,0)

    local sprs = {
        "pic/panels/shop/rx.png",
        "pic/panels/shop/zs.png",
        "pic/panels/shop/bg.png",
        "pic/panels/shop/qh.png",
        "pic/panels/shop/hy.png",
        "pic/panels/shop/xl.png",
    }
    --local strs = ({shop={"热销", "补给", "强化","好友", "限量","奇珍"},charge={}})[self.tag1]
    local initTag = {5,0,1,2,3,4}
    common.tabs(self.tag1Node, {sprs=sprs}, function(idx, btn)
        local tmpType = (initTag[idx] or 0)
        self.tag2 = ({shop={"hot", "give", "intensify","friend","limit","spicel"}, charge={}})[self.tag1][tmpType]
        -- 需要获取数据
        local items = g_data.shop:getCurTypePageGoods(tmpType,0)
        self.curSubIdx = tmpType
        if #items == 0 then
            self:query(0, tmpType)
            self:processUpt(-1)
            if self.tag2Node then
                self.tag2Node:removeSelf()
                self.tag2Node = nil
            end
        else
            self:processUpt(tmpType,items)
        end
    end, {
        tabTp=2,
        pos={x=21, y=self:geth()-84, offset=50, anchor=cc.p(0,.5)}
    })
    self:processUpt(-1)     --默认ui背景,避免通讯造成界面过渡生硬
end

function shop:showLock()
    if tolua.isnull(self.infoView) then return end
    local covert = display.newNode()
    local layer = cc.LayerColor:create(cc.c4b(0,0,0,128))
    covert:addChild(layer)
    covert:setTouchEnabled(true)
    covert:setTouchSwallowEnabled(true)
    local loading = res.get2("pic/common/loading.png"):add2(layer)
    loading:runForever(cca.rotateBy(1, 360))
    covert.setContentSize = function(_, ...)
        layer:setContentSize(...)
        local sz = layer:getContentSize()
        loading:pos(sz.width/2,sz.height/2)
    end
    covert.getContentSize = function()
        return layer:getContentSize()
    end
    covert:add2(self.tag2Node):pos(self.infoView:getPosition()):size(self.infoView:getContentSize())
    self.covert = covert
end
function shop:releaseLock()
    if not tolua.isnull(self.covert) then
        self.covert:removeSelf()
    end
end

function shop:load2(tag2)
    if self.tag1Node then
        self.tag1Node:removeSelf()
    end
    self.tag1Node = display.newNode():addTo(self)
   
    if self.tag2Node then
        self.tag2Node:removeSelf()
    end
    self.tag2Node = display.newNode():addTo(self)

    self.curSubIdx = nil


    display.newScale9Sprite(res.getframe2("pic/scale/scale14.png")):addto(self.tag2Node):anchor(0, 0):pos(14,14):size(self:getw()-28,self:geth()-60)--:debug()
    an.newBtn(res.gettex2("pic/common/btn10.png"), function()
        local btns = {"确定"}
        local helperText = "支付结果可能存在延迟,请耐心等待.\n支付过程中请勿关闭游戏，否则您成功购买\n的商品可能会延期半小时以上才能发放。"
        -- if g_data.shop:hasTimeoutOrder() then
        --     helperText = helperText.."\n 似乎存在超时订单,您可以尝试\"刷新订单\""
        -- end
        local ops = {}

        local box = an.newMsgbox("", function(idx)
            if ops[idx] then
                ops[idx]()
            end
        end, {hasCancel = false, disableScroll=true})
        an.newLabel(helperText, 20, 1):addTo(box):pos(box:centerPos()):anchor(.5,.5)
        
    end, {
        pressImage=res.gettex2("pic/common/btn11.png"),
        label = {"充值帮助", 18, 1,{color=def.colors.btn20}}}
    ):add2(self.tag2Node):anchor(0,0.5):pos(20,self:geth()-72)
   
    an.newBtn(res.gettex2("pic/common/btn10.png"), function()
        g_data.shop:checkPaidOrder()
    end, {
        pressImage=res.gettex2("pic/common/btn11.png"),
        label = {"刷新订单", 18, 1,{color=def.colors.btn20}}}
    ):add2(self.tag2Node):anchor(0,0.5):pos(120,self:geth()-72)

    an.newLabel("若充值有问题，请点击充值帮助!", 20, 0):anchor(0.5,0.5):add2(self.tag2Node):pos(self:getw()*0.5+50,self:geth()-72)

    local lists = g_data.shop:getProducts()
    local infoView = an.newScroll(12,18, self:getw()-28,self:geth()-114):add2(self.tag2Node)--:debug()
    self.infoView = infoView
    local h = 160
    infoView:setScrollSize(self:getw()-28, math.max(self:geth()-110, math.modf((#lists-1)/4) * h))

    if #lists <= 0 then
        local sz = infoView:getScrollSize()
        local txt = "正在从苹果服务端请求商品列表"
        if device.platform ~= "ios" then
            txt = "当前仅支持通过iOS客户端进行充值"
        end
        an.newLabel(txt, 20, 0):anchor(0.5, 1):add2(infoView):pos(sz.width/2, sz.height*0.618)
    end

    for i,v in ipairs(lists) do
        local node = res.get2("pic/panels/shop/bg2.png"):anchor(0,1):pos(((i-1)%4)*152+4,infoView:getScrollSize().height-math.modf((i-1)/4)*h):add2(infoView)
        an.newLabel(v.name, 20, 0):anchor(0.5,0.5):add2(node):pos(node:getw()*0.5, node:geth()-24)
        res.get2("pic/panels/shop/line02.png"):pos(node:getw()*0.5, node:geth()-40):add2(node):scaleX(0.6)

        res.get2("pic/console/infobar/yb.png"):pos(node:getw()*0.5-8, node:geth()*0.5+8):add2(node)
        res.get2("pic/console/infobar/yb.png"):pos(node:getw()*0.5+8, node:geth()*0.5-8):add2(node)

        an.newBtn(res.gettex2("pic/common/btn20.png"), function()
            if g_data.shop:hasPayingOrder() then
                if main_scene and main_scene.ui then
                    main_scene.ui:tip("当前正在处理其他订单,请稍后...")
                end
                return
            end
            local function buy()
                self:showLock()
                g_data.shop:addPayOrder(v.identifier)
            end
            local tip = "是否确认购买 " ..v.name .." ?"
            local msgbox = an.newMsgbox("", function(isOk)
                if 1 == isOk then
                    buy()
                end
            end, {hasCancel = true})
            an.newLabel(v.name,22,1):add2(msgbox.bg):pos(280,190):anchor(.5,0)
            an.newLabel("充值金额",22,1,{color=def.colors.cellTitle}):add2(msgbox.bg):pos(50,190)
            res.get2("pic/panels/setting/line.png"):pos(msgbox.bg:getw()*0.5, 180-5):add2(msgbox.bg):scaleX(0.6)
            an.newLabel(g_data.login:getSelectGroup():get("groupName"),22,1):add2(msgbox.bg):pos(280,135):anchor(.5,0)
            an.newLabel("充值服务器",22,1,{color=def.colors.cellTitle}):add2(msgbox.bg):pos(50,135)
            res.get2("pic/panels/setting/line.png"):pos(msgbox.bg:getw()*0.5, 125-5):add2(msgbox.bg):scaleX(0.6)
            an.newLabel("当前角色",22,1):add2(msgbox.bg):pos(280,80):anchor(.5,0)
            -- local numInput = an.newInput(200, 80, 120, 30, 22,{
            --     label = {"", 16*scale},
            --     return_call = function() pwInput:startInput() end
            -- }):addTo(self)
            an.newLabel("充值对象",22,1,{color=def.colors.cellTitle}):add2(msgbox.bg):pos(50,80)
            --res.get2("pic/panels/setting/line.png"):pos(msgbox.bg:getw()*0.5, 70):add2(msgbox.bg):scaleX(0.6)

        end, {pressImage=res.gettex2("pic/common/btn21.png"),label = {"￥ "..v.price, 22, 1,{color=def.colors.btn20}}})
        :add2(node):anchor(0.5,0.5):pos(node:getw()*0.5,30)
    end


    if g_data.shop:hasPayingOrder() then
        self:showLock()
    end
end

function shop:onPaymentEvent(step,code,msg)
    if not main_scene or not main_scene.ui or tolua.isnull(self) then
        return
    end
    if not tolua.isnull(main_scene.ui.panels.shop) and not g_data.shop:hasPayingOrder() then
        print("releaseLock")
        main_scene.ui.panels.shop:releaseLock()
    end
    code = tonumber(code)
    if step == "onUpdatedProducts"then
        if not self.curSubIdx then
            self:load2()
        end
    elseif step == "onPayReady" then
        if code == -1 then
            main_scene.ui:tip("存在未完成订单,请稍后重试.")   
        else
            main_scene.ui:tip("未知错误")
        end
    elseif step == "onPayEnd" then
        if code == 1002 then
            main_scene.ui:tip("订单取消")
        elseif code == 1011 then
            main_scene.ui:tip("查询订单超时,如果您已经成功支付,我们将在稍后同步支付结果")
        elseif code ~= 0 and msg then
            main_scene.ui:tip(msg)
            --main_scene.ui:tip(string.format("如果您已经成功支付,我们将在稍后同步支付结果",code))
        end
    elseif step == "onPayResult" then
        if code == -1 then--不可能
            main_scene.ui:tip("订单查询异常,如果您已经成功支付,我们将在稍后同步支付结果")
        elseif code == -2 then
            main_scene.ui:tip("订单查询超时,如果您已经成功支付,我们将在稍后同步支付结果")
        elseif code < 0 then
            main_scene.ui:tip("服务异常,如果您已经成功支付,请联系客服解决此问题")
        end
        print("onPayResult",code);
    elseif code ~= 0 then
        main_scene.ui:tip("购买异常,异常ID:"..code)
    end
end


function shop:processUpt(tag2Var,items)
    -- 非选择页
    if self.curSubIdx ~= tag2Var or not items then
        return
    end

    if self.tag2Node then
        self.tag2Node:removeSelf()
    end
    self.tag2Node = display.newNode():addTo(self)

    local infoView = an.newScroll(150, 19, 478, 384):add2(self.tag2Node)--:debug()
    local h = 126
    infoView:setScrollSize(478, math.max(384, math.modf((#items-1)/2) * h))
    for i,v in ipairs(items) do
        local node = res.get2("pic/panels/shop/bg1.png"):anchor(0,1):pos((i%2)== 0 and 240 or 0,infoView:getScrollSize().height-math.modf((i-1)/2)*h):add2(infoView)
        res.get2("pic/panels/shop/frame.png"):pos(50,50):add2(node):enableClick(function(x,y)
                print(x,y)
                self:show(v,cc.p(x,y))
            end)
        res.get("items", v:get("looks")):addto(node):pos(50,50)
        an.newLabel(v:get("name"), 20, 1):anchor(0.5,0.5):add2(node):pos(node:getw()*0.5, node:geth()-24)
        res.get2("pic/panels/shop/line02.png"):pos(node:getw()*0.5, node:geth()-40):add2(node)

        an.newBtn(res.gettex2("pic/common/btn20.png"), function()
            local function buy()
                net.send({CM_DOSHOP,recog = 1}, {v:get("name")})
            end
            -- 免确认购买
            --[[
            if g_data.setting.other.buyNotTip then
                buy()
                return
            end
            ]]
            local box = an.newMsgbox("", function(isOk)
                if 1 == isOk then
                    buy()
                end
            end, {hasCancel = true, disableScroll = true})
            an.newLabel("是否确认购买 " ..v:get("name") .." ?", 20, 1):addTo(box):pos(box:centerPos()):anchor(.5,.5)
        end, {pressImage=res.gettex2("pic/common/btn21.png"),label = {math.modf(v:get("price")) .."", 18, 1,{color=def.colors.btn20}},
        labelOffset=cc.p(-20,0),sprite=res.gettex2("pic/console/infobar/yb.png"),spriteOffset=cc.p(20,0)})
        :add2(node):anchor(0.5,0.5):pos(160,50)
    end
end

function shop:show(data, scenePos, params)
    params = params or {}
    local layer = display.newNode():size(display.width, display.height):addto(params.parent or main_scene.ui, params.z or main_scene.ui.z.textInfo)
    layer:setTouchEnabled(true)
    layer:setTouchSwallowEnabled(false)
    layer:addNodeEventListener(cc.NODE_TOUCH_CAPTURE_EVENT, function(event)
        if event.name == "ended" then
            layer:runs({
                cc.DelayTime:create(0.01),
                cc.RemoveSelf:create(true)
            })
        end
        return true
    end)

    local bg = display.newScale9Sprite(res.getframe2("pic/scale/scale24.png")):addto(layer):anchor(0, 1)
    local w, h, space = 0, 7, -2

    -- 信息,按钮
    h = h + 160
   
    local infos = {}
    local introduces = string.split(data:get("descStr"), '|')
    for i,v in ipairs(introduces) do
        infos[#infos+1] = an.newLabel(introduces, 20, 1)
        h = h+22
    end

    res.get2("pic/panels/shop/frame.png"):pos(50,h-50):add2(bg)
    res.get("items", data:get("looks")):addto(bg):pos(50,h-50)
    local itemName = an.newLabel(data:get("name"), 20, 1):anchor(0,0.5):add2(bg):pos(90, h-50)
    w = math.max(w, itemName:getw()+20+90)

    local posh = h-120
    for i,v in ipairs(infos) do
        v:addto(bg, 99):anchor(0, 0):pos(10, posh - (i-1)*22)
        w = math.max(w, v:getw()+20)
    end

    an.newBtn(res.gettex2("pic/common/btn20.png"), function()
        local function buy()
            net.send({CM_DOSHOP,recog = 1}, {data:get("name")})
        end
        -- 免确认购买
        --[[
        if g_data.setting.other.buyNotTip then
            buy()
            return
        end]]
        local msgbox = an.newMsgbox("", function(isOk)
            if 1 == isOk then
                buy()
            end
        end, {hasCancel = true, disableScroll = true})
        an.newLabel("是否确认购买 " ..data:get("name") .." ?", 20, 1):addTo(msgbox):pos(msgbox:centerPos()):anchor(.5,.5)
    end, {pressImage=res.gettex2("pic/common/btn21.png"),label = {math.modf(data:get("price")) .."", 18, 1,{color=def.colors.btn20}},
    labelOffset=cc.p(-20,0),sprite=res.gettex2("pic/console/infobar/yb.png"),spriteOffset=cc.p(20,0)})
    :add2(bg):anchor(0.5,0.5):pos(w*0.5,30)

    local rect = cc.rect(params.minx or 0, params.miny or 0, params.maxx or display.width, params.maxy or display.height)
    local p = scenePos
    if p.x < rect.x then p.x = rect.x end
    if p.x+w > rect.width then p.x = rect.width-w end
    if p.y > rect.height then p.y = rect.height end
    if p.y-h < rect.y then p.y = h+rect.y end
    bg:size(w, h):pos(p.x, p.y)
end
function shop.onDoShopFail(ident,recog,param)
    local str = nil
    if 0 == recog then str = '非法物品名'
    elseif -1 == recog then str = '不存在你想购买的物品'
    elseif -2 == recog then str = '请先进行元宝充值'
    elseif -3 == recog then str = '你帐号中的元宝数不够'
    elseif -4 == recog then str = '你无法携带更多的物品'
    elseif -5 == recog then str = '购买物品不在商城中'
    elseif -6 == recog then str = '您的购买速度过快'
    elseif - 8 == recog then str = '您的专属元宝不足'
    elseif - 8 == recog then str = '您的荣耀点不足'
    elseif -9 == recog then str = '您不是主宰者不能购买'
    else
        str = '你无法购买 err:' .. recog
    end
    main_scene.ui:tip("购买失败:"..str)
end

function shop:query(page, type)
    net.send({CM_REQSEESHOP,recog = type})
end

return shop