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

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

出处：本站整理作者：佚名发布时间：2014-02-27阅读次数：

;D80 随机因子  $CustomValue(0) 保存的随机因子，可以使用自定义变量
;D81 当前位置  $CustomValue(1) 保存的当前位置，可以使用自定义变量
;随机因子保存后，可以实现玩家在随机因子不改变的情况下，珍宝大赢家中奖励物品不变
;领取面板中的奖励，自行使用变量保存，可以自己定义任意奖励名称和数量，格式为：物品名字|外观|数量

[@main]
    勇士，我这里有大量的奇珍异宝，并且海量存货，你有信\
心能拿多少就拿多少吧!\
    <参加珍宝大赢家/@joinZhenBaoPaoPao>\
    <领取昨日里程碑奖励/@viewYesterdayPrize>\
    <宝石精华兑换技能宝石/@exchangeJewel>\
    <购买骰子/@popBuyDiceDlg1>\
    <购买聚宝令/@popBuyJubaoling1>\
    <查看游戏规则/@viewActivityDetail_0>\
    <离开/@exit>\

[@joinZhenBaoPaoPao] SAY(1)
#IF
TRUE
#ACT
MOV D80 $CustomValue(0)
MOV D81 $CustomValue(1)

#IF
EQUAL D80 0
#ACT
MOV D80 $RANDOM(10000)
;需要保存一下随机因子
ChangeCustomValue 0 = $STR(D80)

#IF
TRUE
#SAY
&随机因子=<$STR(D80)>\
&成就奖励=洗魂水X10|15;镇魂铁X3|100;二级紫宝石X1|200\
&当前位置=<$STR(D81)>\
&骰子数量=<$ITEMVALSUM(骰子).DURA>\
&成就分数=<$STR(D82)>\
&我的奖品=<$STR(D83)>\
#ACT

[@投掷骰子] SAY(0)
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @奖励正常启动
Break
#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @检测双倍奖励
Break

[@检测双倍奖励] SAY(0)
#IF
CHECKITEM 聚宝令 1
#ACT
TAKE 聚宝令 1
GOTO @奖励正常启动
#SAY
&奖品位置=<$STR(D81)>\
&骰子数量=<$ITEMVALSUM(骰子).DURA>\
&我的奖品=<$STR(D83)>\
#ELSESAY
&错误代码=2
#ELSEACT
GOTO @错误代码2
Break

[@奖励正常启动] SAY(0)
#IF
CHECKITEM 骰子 1
#ACT
INC D81 $RANDOM(6)
INC D81 1
MOV D83 1
TAKE 骰子 1
GetZhenBaoPrize $STR(D80) $STR(D81)
CALCVAR HUMAN 珍宝点数 + $PARAM(2)
SAVEVAR HUMAN 珍宝点数 ..\QUESTDIARY\数据文件\个人变量.txt
GOTO @奖励启动正常
#SAY
&奖品位置=<$STR(D81)>\
&骰子数量=<$ITEMVALSUM(骰子).DURA>\
&我的奖品=<$STR(D83)>\
#ELSESAY
&错误代码=2
#ELSEACT
GOTO @错误代码
Break

;当骰子经过起点的时候，奖池中的所有奖品会进行刷新
#IF
LARGE D81 23
#ACT
MOV D80 $RANDOM(10000);
DEC D81 24
;需要保存一下随机因子
ChangeCustomValue 0 = $STR(D80)
DELAYGOTO 3000 @joinZhenBaoPaoPao

#IF
TRUE
#ACT
;需要保存一下当前位置
ChangeCustomValue 1 = $STR(D81)
Break

[@错误代码2]
    您身上已经没有聚宝令了，需要购买一些么？\\\\\
    <购买1个聚宝令/@购买1个聚宝令>\
    <购买10个聚宝令/@购买10个聚宝令>\
    <购买100个聚宝令/@购买100个聚宝令>\
    <取消/@exit>\

[@错误代码]
    您身上已经没有骰子了，需要购买一些么？\\\\\
    <购买1个骰子/@购买1个骰子>\
    <购买10个骰子/@购买10个骰子>\
    <购买100个骰子/@购买100个骰子>\
    <取消/@exit>\

[@奖励启动正常]
#IF
EQUAL $PARAM(1) 一级翡翠玉石
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 一级翡翠玉石 + $STR(P99)
SAVEVAR HUMAN 一级翡翠玉石 ..\QUESTDIARY\数据文件\个人变量.txt
break

#IF
EQUAL $PARAM(1) 一级沧蓝晶石
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 一级沧蓝晶石 + $STR(P99)
SAVEVAR HUMAN 一级沧蓝晶石 ..\QUESTDIARY\数据文件\个人变量.txt
break

#IF
EQUAL $PARAM(1) 一级紫魂锆石
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 一级紫魂锆石 + $STR(P99)
SAVEVAR HUMAN 一级紫魂锆石 ..\QUESTDIARY\数据文件\个人变量.txt
break

#IF
EQUAL $PARAM(1) 二级翡翠玉石
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 二级翡翠玉石 + $STR(P99)
SAVEVAR HUMAN 二级翡翠玉石 ..\QUESTDIARY\数据文件\个人变量.txt
break

#IF
EQUAL $PARAM(1) 二级沧蓝晶石
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 二级沧蓝晶石 + $STR(P99)
SAVEVAR HUMAN 二级沧蓝晶石 ..\QUESTDIARY\数据文件\个人变量.txt
break

#IF
EQUAL $PARAM(1) 二级紫魂锆石
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 二级紫魂锆石 + $STR(P99)
SAVEVAR HUMAN 二级紫魂锆石 ..\QUESTDIARY\数据文件\个人变量.txt
break

#IF
EQUAL $PARAM(1) 翡翠玉石精华
#ACT
MOV P99 $PARAM(2)
MULT P99 $PARAM(0)
CALCVAR HUMAN 翡翠玉石精华 + $STR(P99)
SAVEVAR HUMAN 翡翠玉石精华 ..\QUESTDIARY\数据文件\个人变量.txt
break