传奇世界开区给力珍宝大赢家脚本(5)

[@exchangeJewel]
    100翡翠玉石精华兑换1级翡翠玉石    <兑换/@兑换翡翠玉石>\
    100沧蓝晶石精华兑换1级沧蓝晶石    <兑换/@兑换沧蓝晶石>\
    100紫魂锆石精华兑换1级紫魂锆石    <兑换/@兑换紫魂锆石>\\\\\\
    <返回/@main>    <离开/@exit>\

[@兑换翡翠玉石]
#IF
!SMALL $ITEMVALSUM(翡翠玉石精华).DURA 100
#ACT
MOV P34 $ITEMVALSUM(翡翠玉石精华).DURA
TAKE 翡翠玉石精华 666666
DEC P34 100
give 沧蓝晶石 1
#ELSESAY
    你没有足够的翡翠玉石精华\\\\\\\
    <返回/@main>    <离开/@exit>\
#ELSEACT
break
#IF
!SMALL P34 1
#ACT
GIVE 翡翠玉石精华 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@兑换沧蓝晶石]
#IF
!SMALL $ITEMVALSUM(沧蓝晶石精华).DURA 100
#ACT
MOV P34 $ITEMVALSUM(沧蓝晶石精华).DURA
TAKE 沧蓝晶石精华 666666
DEC P34 100
give 沧蓝晶石 1
#ELSESAY
    你没有足够的沧蓝晶石精华\\\\\\\
    <返回/@main>    <离开/@exit>\
#ELSEACT
break
#IF
!SMALL P34 1
#ACT
GIVE 沧蓝晶石精华 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@兑换紫魂锆石]
#IF
!SMALL $ITEMVALSUM(紫魂锆石精华).DURA 100
#ACT
MOV P34 $ITEMVALSUM(紫魂锆石精华).DURA
TAKE 紫魂锆石精华 666666
DEC P34 100
give 紫魂锆石 1
#ELSESAY
    你没有足够的紫魂锆石精华\\\\\\\
    <返回/@main>    <离开/@exit>\
#ELSEACT
break
#IF
!SMALL P34 1
#ACT
GIVE 紫魂锆石精华 1
UPGRADEUSERITEM $PARAM(10) 20 = $STR(P34)

[@popBuyDiceDlg1]
    勇士，我们的骰子2元宝一个，购买骰子可以参加珍宝大\
赢家活动，需要购买一些么？\\\\
    <购买1个骰子/@购买1个骰子>\
    <购买10个骰子/@购买10个骰子>\
    <购买100个骰子/@购买100个骰子>\
    <返回/@main>    <离开/@exit>\

[@购买1个骰子]
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD \ 2
#ACT
GAMEGOLD - 2
give 骰子 1
#ELSEACT
SENDMSG 5 元宝余额不足，购买失败

[@购买10个骰子]
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD \ 20
#ACT
GAMEGOLD - 20
give 骰子 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
#ELSEACT
SENDMSG 5 元宝余额不足，购买失败

[@购买100个骰子]
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD \ 200
#ACT
GAMEGOLD - 200
give 骰子 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
#ELSEACT
SENDMSG 5 元宝余额不足，购买失败

[@popBuyJubaoling1]
    勇士，我们的聚宝令10元宝一个，购买聚宝令可以使珍宝\
大赢家的奖励翻倍，需要购买一些么？\\\\
    <购买1个聚宝令/@购买1个聚宝令>\
    <购买10个聚宝令/@购买10个聚宝令>\
    <购买100个聚宝令/@购买100个聚宝令>\
    <返回/@main>    <离开/@exit>\

[@购买1个聚宝令]
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD \ 10
#ACT
GAMEGOLD - 10
give 聚宝令 1
#ELSEACT
SENDMSG 5 元宝余额不足，购买失败

[@购买10个聚宝令]
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD \ 100
#ACT
GAMEGOLD - 100
give 聚宝令 1
UPGRADEUSERITEM $PARAM(10) 20 = 10
#ELSEACT
SENDMSG 5 元宝余额不足，购买失败

[@购买100个聚宝令]
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD \ 1000
#ACT
GAMEGOLD - 1000
give 聚宝令 1
UPGRADEUSERITEM $PARAM(10) 20 = 100
#ELSEACT
SENDMSG 5 元宝余额不足，购买失败

[@viewYesterdayPrize]
#IF
!SMALL $HUMAN(珍宝点数) 1
#ACT
MOV P45 $HUMAN(珍宝点数)
DIV P45 24
#ELSESAY
    洗魂水X10               <color=gray 领取>\
    镇魂铁X3                <color=gray 领取>\
    二级紫宝石X1            <color=gray 领取>\\\\\\   
        <返回/@main>    <退出/@exit>\
#ELSEACT
break
#IF
!SMALL $STR(P45) 15
#SAY
    洗魂水X10               <领取/@领取洗魂水>\
#ELSESAY
    洗魂水X10               <color=gray 领取>\