礼品兑换登记保存

meinvwudi

[@main]

;#if 
;isadmin 
;#act
;mov S$清理按钮 <Text|a=4|percentx=80|y=312|color=251|size=16|text=清理数据|link=@清理数据>

#IF
#ACT
mov N$主页整体_宽 530
mov N$主页整体_高 350
mov N$关闭区域_X <$STR(N$主页整体_宽)>
dec N$关闭区域_X 1
mov N$关闭按钮_X <$STR(N$主页整体_宽)>
dec N$关闭按钮_X 1
#SAY
<Img|x=0|y=-1|width=<$STR(N$主页整体_宽)>|height=<$STR(N$主页整体_高)>|img=image/bg2.png|bg=1|scale9r=10|scale9t=10|scale9b=10|reset=1|scale9l=10|move=0|show=0>
<Layout|x=529|y=0|width=80|height=80|link=@exit>
<Button|x=529|y=0|nimg=public/1900000510.png|mimg=public/1900000510.png|pimg=public/1900000511.png|width=26|height=42|link=@exit>
<Text|a=4|percentx=50|y=31|children={title_1,title_2,title_3}|color=243|outline=1|size=18|text=奖品兑换>
<Img|a=1|x=-10|y=5|id=title_1|img=image/title_91.png|esc=0>
<Img|a=0|x=84|y=5|id=title_2|img=image/title_92.png|esc=0>
<Img|a=4|percentx=50|y=30|id=title_3|img=slws/203.png|esc=0>
<RText|a=0|x=25|y=65|size=16|color=100|text=　　为回馈和感谢圣龙网络广大玩家们多年来对圣龙的支持与厚爱在>
<RText|a=0|x=25|y=95|size=16|color=100|text=圣龙第一次迈向三端互通传奇游戏征途的路上离不开您们对圣龙一如>
<RText|a=0|x=25|y=125|size=16|color=100|text=继往的支持，特此圣龙网络三端启航之际开放免费公益活动，所有奖>
<RText|a=0|x=25|y=155|size=16|color=100|text=励物品均为京东商城各大旗舰店货品快递到家所有物品均由各大地图>
<RText|a=0|x=25|y=185|size=16|color=100|text=小BOSS和大BOSS产出，名额有限抓住机会>
<Text|a=0|x=25|y=220|color=251|size=16|text=提交“华硕平板”|link=@实物兑换#奖品=1>
<Text|a=0|x=160|y=220|color=253|size=16|text=名额:<$STR(G301)>/10>
<Text|a=0|x=270|y=220|color=251|size=16|text=提交“小米净化器”|link=@实物兑换#奖品=2>
<Text|a=0|x=420|y=220|color=253|size=16|text=名额:<$STR(G302)>/20>
<Text|a=0|x=25|y=250|color=251|size=16|text=提交“罗技键鼠”|link=@实物兑换#奖品=3>
<Text|a=0|x=160|y=250|color=253|size=16|text=名额:<$STR(G303)>/40>
<Text|a=0|x=270|y=250|color=251|size=16|text=提交“鼠标垫”|link=@实物兑换#奖品=4>
<Text|a=0|x=420|y=250|color=253|size=16|text=名额:<$STR(G304)>/200>
<Img|a=4|percentx=50|y=285|img=slws/203.png|esc=0>
<Text|a=4|percentx=30|y=312|color=251|size=16|text=填写收货地址|link=@收货地址>
<Text|a=4|percentx=60|y=312|color=251|size=16|text=查看兑奖信息|link=@查看兑奖>
<Img|percentx=0|percenty=100|opacity=200|children={RTEXT_1,RTEXT_2,RTEXT_3}|percentwidth=100|height=120|rotate=0|scale9r=10|scale9t=10|scale9l=10|img=zh/7.png|scale9b=10|esc=0>
<RText|x=20|y=20|id=RTEXT_1|color=250|size=14|text=收件人:<$HUMAN(S收件人姓名)>>
<RText|x=20|y=50|id=RTEXT_2|color=250|size=14|text=收件人电话:<$HUMAN(S收件人电话)>>
<RText|x=20|y=80|id=RTEXT_3|color=250|size=14|text=收件人地址:<$HUMAN(S收件人地址)>>

;<$STR(S$清理按钮)>

[@收货地址]
#IF
#ACT
mov N$主页整体_宽 530
mov N$主页整体_高 250
mov N$关闭区域_X <$STR(N$主页整体_宽)>
dec N$关闭区域_X 1
mov N$关闭按钮_X <$STR(N$主页整体_宽)>
dec N$关闭按钮_X 1
#SAY
<Img|x=0.0|y=-2.0|width=530|height=280|reset=1|bg=1|img=image/bg2.png|scale9l=10|scale9b=10|move=0|scale9r=10|scale9t=10|show=0>
<Layout|x=529|y=0|width=80|height=80|link=@exit>
<Button|x=529|y=0|width=26|height=42|mimg=public/1900000510.png|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Text|children={title_1,title_2,title_3}|a=4|x=25|y=31|percentx=50|outline=1|size=18|color=243|text=奖品兑换>
<Img|id=title_1|a=1|x=-10|y=5|img=image/title_91.png|esc=0>
<Img|id=title_2|a=0|x=84|y=5|img=image/title_92.png|esc=0>
<Img|id=title_3|a=4|y=30|percentx=50|img=slws/203.png|esc=0>

<Text|ay=1|x=56.0|y=79|size=18|color=255|text=收货人:>
<Img|x=121.0|y=75.0|width=145|img=zh/30.png|esc=0>
<Input|x=124.0|y=78.0|width=141|height=25|color=255|inputid=4|type=0|size=16>

<Text|ay=1|x=283.0|y=83.0|size=18|color=255|text=电话:>
<Img|x=346.0|y=76.0|width=145|img=zh/30.png|esc=0>
<Input|x=349.0|y=79|width=140|height=25|color=255|inputid=5|type=0|size=16>

<Text|x=52.0|y=146.0|size=18|color=255|text=地址>
<Img|x=111.0|y=141.0|width=404|img=zh/30.png|esc=0>
<Input|x=114|y=144.0|width=400|height=25|color=255|inputid=6|type=0|size=16>

<Button|id=right5|a=4|y=230|percentx=75.3|width=130|height=35|submitInput=4,5,6|tips={认真填写快递收货地址/FCOLOR=251}^{填写错误地址无法收到奖品,将自已承担对应损失/FCOLOR=254}|tipsx=0|tipsy=50|outline=1|size=14|pimg=image/button_61.png|nimg=image/button_62.png|color=100|text=保存收货地址|link=@保存收货地址>



[@查看兑奖]
#ACT 
calllua NpcLua/prize @query_parcel_status

[@实物兑换]
#ACT 
calllua NpcLua/prize @redeem_prize,<$STR(S$奖品)>


[@保存收货地址]
#ACT 
calllua NpcLua/prize @save_address


;[@清理数据]
;#ACT 
;MOV G301 0
;MOV G302 0
;MOV G303 0
;MOV G304 0
;calllua NpcLua/prize @cleardb
;goto @main

meinvwudi

--[[
Author: SLWS_Gao_Q1968023646
Date: 2024-06-25 09:27:14
Description: 实物兑换,查询,发货
--]]

require("Envir/Market_Def/NpcLua/zh.lua") --个人封装函数

local prize_list = {
    {id=1, name="华硕平板", goods="华硕平板", stock=10, var = "G301"},
    {id=2, name="小米净化器", goods="小米净化器", stock=20, var ="G302"},
    {id=3, name="罗技键鼠", goods="罗技键鼠", stock=40, var = "G303"},
    {id=4, name="鼠标垫", goods="鼠标垫", stock=200, var =  "G304"}
}


function redeem_prize(actor, prize_id, recipient, tel, address) --兑换实物数据保存,传入奖品id

    local recipient = getstr(actor, "收件人姓名")
    local tel = getstr(actor, "收件人电话")
    local address = getstr(actor, "收件人地址")

    if recipient == "" or not recipient then
        sendmsg9(actor, "请先填写你的收件人姓名,在来兑换!")
		return
    end

    if tel == "" or not tel then
        sendmsg9(actor, "请先填写你的收件人电话,在来兑换!")
		return
    end

    if address == "" or not address then
        sendmsg9(actor, "请先填写你的地址,在来兑换!")
		return
    end

    
    prize_id = tonumber(prize_id) or 0
    
    local prize = prize_list[prize_id] -- 获取奖品信息


    if  not prize then
        return sendmsg9(actor, "Error: 实物奖励物品配置不存在,请检查传入奖励ID.")
    end

    if itemcount(actor, prize["goods"]) < 1 then 
        return sendmsg9(actor, "你的包裹没有" .. prize["goods"] )
    end

    if not ( getsysvar(prize["var"]) < prize["stock"] ) then 
        return sendmsg9(actor, prize["name"] .. "［" .. prize["goods"] .. "］已经兑换了" .. getsysvar(prize["var"]) .. "个,没有名额了!")
    end


    if takeitemex(actor, prize["goods"], 1, 0, "实物兑换") then --兑换写入
        save_redeem_detail(actor, prize)
        setsysvar(prize["var"], getsysvar(prize["var"]) + 1)
        opennpcshow(actor, 45, 10 ) 
    else
        return sendmsg9(actor, "扣除" .. prize["goods"] ..  "无法完成兑换")
    end

end


function save_redeem_detail(actor, prize) --保存兑换详情
    
    local recipient = getstr(actor, "收件人姓名")
    local tel = getstr(actor, "收件人电话")
    local address = getstr(actor, "收件人地址")

    local uid = getbaseinfo(actor, 2)
    local username = getname(actor)

    -- 将时间戳转换为日期时间格式
    local date_time_str = os.date("%Y-%m-%d %H:%M:%S", os.time() )
    local sql = string.format("INSERT INTO prize (uid, username, recipient, goods, status, tel, addr, time)  VALUES ('%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s')", uid, username, recipient, prize["goods"], "未发货", tel, address, date_time_str)

    sql = GBK2UTF8(sql)
    db_exec(sql)
    sendmsg9(actor, "恭喜你成功兑换" .. prize["goods"] .. "!官方将统一安排处理。")
    sendmsg6(actor, "恭喜你成功兑换" .. prize["goods"] .. "!官方将统一安排处理。")
end


function save_address(actor)  --保存收货地址
    local recipient = getconst(actor, '<$NPCINPUT(4)>')
    local tel = getconst(actor, '<$NPCINPUT(5)>')
    local address = getconst(actor, '<$NPCINPUT(6)>')

    if  recipient == "" then
        sendmsg9(actor, "请输入你的收件人姓名!")
		return
    end

    if  tel == "" then
        sendmsg9(actor, "请输入你的收件人电话!")
		return
    end

    if  address == "" then
        sendmsg9(actor, "请输入你的收件人地址!")
		return
    end

    setstr(actor, "收件人姓名", recipient)
    setstr(actor, "收件人电话", tel)
    setstr(actor, "收件人地址", address)
    
    sendmsg9(actor, "奖品收件人地址信息已保存!")
    sendmsg6(actor, "奖品收件人地址信息已保存!")
    opennpcshow(acotr, 45, 10)
end


function query_parcel_status(actor)  --显示兑奖信息

    local msg = [[
        <Img|x=0|y=-1|width=530|height=250|img=image/bg2.png|bg=1|scale9r=10|scale9t=10|scale9b=10|reset=1|scale9l=10|move=0|show=0>
        <Layout|x=529|y=0|width=80|height=80|link=@exit>
        <Button|x=529|y=0|nimg=public/1900000510.png|mimg=public/1900000510.png|pimg=public/1900000511.png|width=26|height=42|link=@exit>
       
        <Img|a=4|percentx=50|y=55|id=title_3|img=slws/203.png|esc=0>
        
    ]]

    local uid = getbaseinfo(actor, 2)
    
    local sql = "SELECT id, goods, time from prize where uid = '" .. uid .. "'"
    sql = GBK2UTF8(sql)
    
    --sendmsg6(actor, sql )
    local results = db_exec(sql)
    local id, goods ,time = results:fetch()

     

    if not goods then
        sendmsg9(actor, "没查到你的兑奖信息!")
        return 
    end 
    
    goods =  UTF82GBK(goods)
    time = UTF82GBK(time)   

    local i  = 1
    local y = 10
    msg = msg .. "<RText|id=title|x=60|y=25|color=250|size=16|text=  编号               奖品                               兑换时间>"


    local children = "Rtext_1,"
    while goods do
        goods =  UTF82GBK(goods)
        time = UTF82GBK(time)    
        i = i + 1
        y = y + 20
        msg = msg .. "<RText|id=Rtext_"..  i .. "|x=65|y=" .. y .. "|color=255|size=16|text=　　" .. id  .. " 　　　　" ..  goods ..  "　　　　　　　"  .. time.. ">"
        id, goods ,time = results:fetch()
        children = children .. "Rtext_" .. i .. ","
      end
    results:close()

    msg = msg .. "<RText|id=排版空行|x=20|y=10|color=255|size=16|text=>"
    msg = msg  .. "<ListView|children={" .. children ..  "排版空行}|x=40|y=70|width=460|height=158|margin=10|bounce=1|direction=1|reload=0>"

    say(actor, msg)
end


function db_exec(sql)
    local env = sqlite3.sqlite3()
    local db = env:connect("Envir/QuestDiary/db.sqlite")
    local results = db:execute(sql)
    db:close()
    env:close()
end

function db_exec(sql)
    local env = sqlite3.sqlite3()
    local db = env:connect("Envir/QuestDiary/db.sqlite")
    local results = db:execute(sql)
    if  results then 
        return results
    end
    db:close()
    env:close()
end



function  cleardb(actor)

    local sql = "delete from prize"
    db_exec(sql)
    sendmsg9(actor, "实物兑换已清空")
end


local toutf8 = iconv.new("UTF-8", "GBK")
function GBK2UTF8(str)
    local s, err = toutf8:iconv(str)
    if err then
        release_print("err:"..tostring(err))
        return str
    end
    return s
end
local togbk = iconv.new("GBK", "UTF-8")
function UTF82GBK(str)
    local s, err = togbk:iconv(str)
    if err then
        release_print("err:"..tostring(err))
        return str
    end
    return s
end