antyvfl 发表于 2022-10-9 00:05:44

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

;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

#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(0) 0
#ACT
Goto @领取面板_1
break

#IF
EQUAL $PARAM(0) 1
#ACT
Goto @领取面板_2
break

[@我的奖品] SAY(3)
#SAY
&标签列表=技能宝石;宝石精华
#ACT
DELAYGOTO 1 @领取面板_1

[@领取面板_1] SAY(2)
#SAY
&标签序号=0;
一级翡翠玉石|9001|<$HUMAN(一级翡翠玉石)>;
一级沧蓝晶石|9011|<$HUMAN(一级沧蓝晶石)>;
一级紫魂锆石|9021|<$HUMAN(一级紫魂锆石)>;
二级翡翠玉石|9002|<$HUMAN(二级翡翠玉石)>;
二级沧蓝晶石|9012|<$HUMAN(二级沧蓝晶石)>;
二级紫魂锆石|9022|<$HUMAN(二级紫魂锆石)>

;物品名字|外观|数量

[@领取面板_2] SAY(2)
#SAY
&标签序号=1;
翡翠玉石精华|17297|<$HUMAN(翡翠玉石精华)>;
沧蓝晶石精华|17296|<$HUMAN(沧蓝晶石精华)>;
紫魂锆石精华|17298|<$HUMAN(紫魂锆石精华)>

[@物品领取]
#IF
EQUAL $PARAM(0) 0
#SAY
{领取1个/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&0}
{领取5个/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&1}
{领取10个/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&2}\\
<退出/@exit>
#ACT
break
#IF
EQUAL $PARAM(0) 1
#SAY
{领取1个/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&0}
{领取10个/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&1}
{领取100个/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&2}
{领取全部/@fetchLeftPrizeSub&<$PARAM(0)>&<$PARAM(1)>&3}\\
<退出/@exit>
#ACT
break

[@fetchLeftPrizeSub] SAY(2)
#IF
EQUAL $PARAM(0) 0
EQUAL $PARAM(1) 0
;这里进行检测
#ACT
GOTO @一级翡翠玉石
#IF
EQUAL $PARAM(0) 0
EQUAL $PARAM(1) 1
;这里进行检测
#ACT
GOTO @一级沧蓝晶石
#IF
EQUAL $PARAM(0) 0
EQUAL $PARAM(1) 2
;这里进行检测
#ACT
GOTO @一级紫魂锆石

#IF
EQUAL $PARAM(0) 0
EQUAL $PARAM(1) 3
;这里进行检测
#ACT
GOTO @二级翡翠玉石
#IF
EQUAL $PARAM(0) 0
EQUAL $PARAM(1) 4
;这里进行检测
#ACT
GOTO @二级翡翠玉石
#IF
EQUAL $PARAM(0) 0
EQUAL $PARAM(1) 5
;这里进行检测
#ACT
GOTO @二级紫魂锆石
#IF
EQUAL $PARAM(0) 1
EQUAL $PARAM(1) 0
;这里进行检测
#ACT
GOTO @翡翠玉石精华

#IF
EQUAL $PARAM(0) 1
EQUAL $PARAM(1) 1
;这里进行检测
#ACT
GOTO @沧蓝晶石精华
#IF
EQUAL $PARAM(0) 1
EQUAL $PARAM(1) 2
;这里进行检测
#ACT
GOTO @紫魂锆石精华

#IF
EQUAL $PARAM(0) 0
#ACT
DELAYGOTO 1 @领取面板_1
#SAY
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(一级翡翠玉石)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(一级沧蓝晶石)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(一级紫魂锆石)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(二级翡翠玉石)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(二级沧蓝晶石)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(二级紫魂锆石)>

#IF
EQUAL $PARAM(0) 1
#ACT
DELAYGOTO 1 @领取面板_2
#SAY
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(翡翠玉石精华)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(沧蓝晶石精华)>
&数量更新=<$SCRIPTPARAM(0)>|<$SCRIPTPARAM(1)>|<$HUMAN(紫魂锆石精华)>

[@一级翡翠玉石]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(一级翡翠玉石) 1
#ACT
GIVE 翡翠玉石 1
CALCVAR HUMAN 一级翡翠玉石 - 1
SAVEVAR HUMAN 一级翡翠玉石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(一级翡翠玉石) 5
#ACT
GIVE 翡翠玉石 5
CALCVAR HUMAN 一级翡翠玉石 - 5
SAVEVAR HUMAN 一级翡翠玉石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(一级翡翠玉石) 10
#ACT
GIVE 翡翠玉石 10
CALCVAR HUMAN 一级翡翠玉石 - 10
SAVEVAR HUMAN 一级翡翠玉石 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@一级沧蓝晶石]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(一级沧蓝晶石) 1
#ACT
GIVE 沧蓝晶石 1
CALCVAR HUMAN 一级沧蓝晶石 - 1
SAVEVAR HUMAN 一级沧蓝晶石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(一级沧蓝晶石) 5
#ACT
GIVE 沧蓝晶石 5
CALCVAR HUMAN 一级沧蓝晶石 - 5
SAVEVAR HUMAN 一级沧蓝晶石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(一级沧蓝晶石) 10
#ACT
GIVE 沧蓝晶石 10
CALCVAR HUMAN 一级沧蓝晶石 - 10
SAVEVAR HUMAN 一级沧蓝晶石 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@一级紫魂锆石]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(一级紫魂锆石) 1
#ACT
GIVE 紫魂锆石 1
CALCVAR HUMAN 一级紫魂锆石 - 1
SAVEVAR HUMAN 一级紫魂锆石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(一级紫魂锆石) 5
#ACT
GIVE 紫魂锆石 5
CALCVAR HUMAN 一级紫魂锆石 - 5
SAVEVAR HUMAN 一级紫魂锆石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(一级紫魂锆石) 10
#ACT
GIVE 紫魂锆石 10
CALCVAR HUMAN 一级紫魂锆石 - 10
SAVEVAR HUMAN 一级紫魂锆石 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@二级翡翠玉石]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(二级翡翠玉石) 1
#ACT
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级翡翠玉石 - 1
SAVEVAR HUMAN 二级翡翠玉石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(二级翡翠玉石) 5
#ACT
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级翡翠玉石 - 5
SAVEVAR HUMAN 二级翡翠玉石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(二级翡翠玉石) 10
#ACT
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 翡翠玉石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级翡翠玉石 - 10
SAVEVAR HUMAN 二级翡翠玉石 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@二级沧蓝晶石]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(二级沧蓝晶石) 1
#ACT
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级沧蓝晶石 - 1
SAVEVAR HUMAN 二级沧蓝晶石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(二级沧蓝晶石) 5
#ACT
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级沧蓝晶石 - 5
SAVEVAR HUMAN 二级沧蓝晶石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(二级沧蓝晶石) 10
#ACT
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 沧蓝晶石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级沧蓝晶石 - 10
SAVEVAR HUMAN 二级沧蓝晶石 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@二级紫魂锆石]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(二级紫魂锆石) 1
#ACT
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级紫魂锆石 - 1
SAVEVAR HUMAN 二级紫魂锆石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(二级紫魂锆石) 5
#ACT
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级紫魂锆石 - 5
SAVEVAR HUMAN 二级紫魂锆石 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(二级紫魂锆石) 10
#ACT
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
CALCVAR HUMAN 二级紫魂锆石 - 10
SAVEVAR HUMAN 二级紫魂锆石 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@翡翠玉石精华]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(翡翠玉石精华) 1
#ACT
GIVE 翡翠玉石精华 1
CALCVAR HUMAN 翡翠玉石精华 - 1
SAVEVAR HUMAN 翡翠玉石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(翡翠玉石精华) 10
#ACT
GIVE 翡翠玉石精华 10
CALCVAR HUMAN 翡翠玉石精华 - 10
SAVEVAR HUMAN 翡翠玉石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(翡翠玉石精华) 100
#ACT
GIVE 翡翠玉石精华 100
CALCVAR HUMAN 翡翠玉石精华 - 100
SAVEVAR HUMAN 翡翠玉石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 3
;这里进行检测
!SMALL $HUMAN(翡翠玉石精华) 1
#ACT
GIVE 翡翠玉石精华 $HUMAN(翡翠玉石精华)
CALCVAR HUMAN 翡翠玉石精华 = 0
SAVEVAR HUMAN 翡翠玉石精华 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@沧蓝晶石精华]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(沧蓝晶石精华) 1
#ACT
GIVE 沧蓝晶石精华 1
CALCVAR HUMAN 沧蓝晶石精华 - 1
SAVEVAR HUMAN 沧蓝晶石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(沧蓝晶石精华) 10
#ACT
GIVE 沧蓝晶石精华 10
CALCVAR HUMAN 沧蓝晶石精华 - 10
SAVEVAR HUMAN 沧蓝晶石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(沧蓝晶石精华) 100
#ACT
GIVE 沧蓝晶石精华 100
CALCVAR HUMAN 沧蓝晶石精华 - 100
SAVEVAR HUMAN 沧蓝晶石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 3
;这里进行检测
!SMALL $HUMAN(沧蓝晶石精华) 1
#ACT
GIVE 沧蓝晶石精华 $HUMAN(沧蓝晶石精华)
CALCVAR HUMAN 沧蓝晶石精华 = 0
SAVEVAR HUMAN 沧蓝晶石精华 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@紫魂锆石精华]
#IF
EQUAL $SCRIPTPARAM(3) 0
;这里进行检测
!SMALL $HUMAN(紫魂锆石精华) 1
#ACT
GIVE 紫魂锆石精华 1
CALCVAR HUMAN 紫魂锆石精华 - 1
SAVEVAR HUMAN 紫魂锆石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 1
;这里进行检测
!SMALL $HUMAN(紫魂锆石精华) 10
#ACT
GIVE 紫魂锆石精华 10
CALCVAR HUMAN 紫魂锆石精华 - 10
SAVEVAR HUMAN 紫魂锆石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 2
;这里进行检测
!SMALL $HUMAN(紫魂锆石精华) 100
#ACT
GIVE 紫魂锆石精华 100
CALCVAR HUMAN 紫魂锆石精华 - 100
SAVEVAR HUMAN 紫魂锆石精华 ..QUESTDIARY数据文件个人变量.txt
break

#IF
EQUAL $SCRIPTPARAM(3) 3
;这里进行检测
!SMALL $HUMAN(紫魂锆石精华) 1
#ACT
GIVE 紫魂锆石精华 $HUMAN(紫魂锆石精华)
CALCVAR HUMAN 紫魂锆石精华 = 0
SAVEVAR HUMAN 紫魂锆石精华 ..QUESTDIARY数据文件个人变量.txt
break
#ELSESAY
    你没有那么多的奖励可以领取\\\
    <返回/@@main>    <离开/@EXIT>

[@活动规则]
#ACT
Goto @viewActivityDetail_0


[@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 领取>


#IF
!SMALL $STR(P45) 100
#SAY
    镇魂铁X3                <领取/@领取镇魂铁>
#ELSESAY
    镇魂铁X3                <color=gray 领取>

#IF
!SMALL $STR(P45) 200
#SAY
    二级紫宝石X1                <领取/@领取二级紫宝石>
#ELSESAY
    二级紫宝石X1            <color=gray 领取>\\\

[@领取洗魂水]
#IF
!CHECKVARLIST $USERNAME ..QuestDiary数据文件珍宝大赢家初级奖励.txt
#ACT
ADDVARLIST $USERNAME ..QuestDiary数据文件珍宝大赢家初级奖励.txt
give 洗魂水 10
break
#ELSESAY
    对不起，您没有可领取的奖励。\
    <离开/@exit>

[@领取镇魂铁]
#IF
!CHECKVARLIST $USERNAME ..QuestDiary数据文件珍宝大赢家中级奖励.txt
#ACT
ADDVARLIST $USERNAME ..QuestDiary数据文件珍宝大赢家中级奖励.txt
give 镇魂铁 3
break
#ELSESAY
    对不起，您没有可领取的奖励。\
    <离开/@exit>

[@领取二级紫宝石]
#IF
!CHECKVARLIST $USERNAME ..QuestDiary数据文件珍宝大赢家高级奖励.txt
#ACT
ADDVARLIST $USERNAME ..QuestDiary数据文件珍宝大赢家高级奖励.txt
GIVE 紫魂锆石 1
UPGRADEUSERITEM $PARAM(10) 81 = 1
break
#ELSESAY
    对不起，您没有可领取的奖励。\
    <离开/@exit>

[@viewActivityDetail_0]
<color=green 基本规则>:
1.骰子可投掷点数为1 - 6点随机，移动到相应的格子中将
会获得该格子中的奖励，为防止奖品太多而塞满您的包裹，
我们将会在界面中右下角处<color=red 我的奖励>处暂时帮您保存好您所
获得的所有奖品，以便您随时提取。
2.当骰子经过<color=red 起点>的时候，奖池中的所有奖品会进行<color=red 刷新>，
如果您当次的点数正好<color=red 经过起点>，那么将会获得相应格子中
的奖励后<color=red 刷新奖池>。
<color=gray 上一页>    <下一页/@viewActivityDetail_1>    <退出/@exit>

[@viewActivityDetail_1]
3.关于奖励翻倍：当您使用一个<color=red 聚宝令>时，下一次投掷骰子
所<color=red 获得奖励X2>(<color=ff00ffff 即当您获得一个天元星辰石(小)，如果是在奖>
<color=ff00ffff 励翻倍的情况下将会获得天元星辰石(小)X2。>)
4.<color=red 成就奖>：当您每日累计经过起点的次数达到<color=red 15次(初级奖励)>
<color=red 100次(中级奖励)、200次(高级奖励)>的时候依次会获得一份额
外的<color=red 成就奖励>哦。(<color=ff00ffff 成就奖励请于当日领取，过期将会作废，>
<color=ff00ffff 同时成就奖励累计次数每天24点会进行清零更新，成就奖励>
<color=ff00ffff 会周期性进行调整，以实际情况为准>)
<上一页/@viewActivityDetail_0>    <下一页/@viewActivityDetail_2>    <退出/@exit>

[@viewActivityDetail_2]
5.点击<color=red 连投骰子>后会弹框:你将会激活连投模式，在当前状态
下，系统将会快速<color=red 自动连续为您投掷骰子>,直到您没有投掷机
会为止<color=ff00ffff (骰子=0)>,并自动收集奖励到<color=red 我的奖品>中,在此过程中您
可以通过<color=red 点击停止>来退出该模式。
6.奖励翻倍+连投骰子:如果您先激活了奖励翻倍模式再点击连
投骰子，系统将会保持每次都是用奖励翻倍的机制来获取每一
次获得奖励，直到您聚宝令或骰子两种物品的某一种为0时，
自动停止，您也可以通过<color=red 点击停止>来退出该模式。
<上一页/@viewActivityDetail_1>    <下一页/@viewActivityDetail_3>    <退出/@exit>

[@viewActivityDetail_3]
<color=green 友情提示>:
1.一个<color=red 骰子>的价格为:<color=red 2元宝>
2.一个<color=red 聚宝令>的价格为:<color=red 10元宝>
3.当点击奖励翻倍时，<color=red 不会扣除聚宝令>，但会在下一次投掷
骰子的时候<color=red 统一扣除>您包裹内相应的骰子和聚宝令。(<color=ff00ffff 当您在>
<color=ff00ffff 点击奖励翻倍后直接退出界面，重新进入该界面后将会消除>
<color=ff00ffff 聚宝令X2的效果，如需要奖励翻倍，则需要再一次点击奖励>
<color=ff00ffff 翻倍以便于在您下一次投掷骰子时扣除聚宝令>)
<上一页/@viewActivityDetail_2>    <下一页/@viewActivityDetail_4>    <退出/@exit>

[@viewActivityDetail_4]
4.<color=red 奖励翻倍>的效果最多为<color=red X2>，并不可以再消耗道具持续叠加。
5.<color=red 本活动需要更新客户端到2.01061版本才可以正常参与。>\\\
<上一页/@viewActivityDetail_3>    <color=gray 下一页>    <退出/@exit>

;奖励物品列表

;物品名字      外观(Looks)      最小物品      最大物品      类型
沧蓝晶石精华      17296                1                30                1
翡翠玉石精华      17297                1                30                1
紫魂锆石精华      17298                1                30                1

一级紫魂锆石      9021                1                3               2
一级沧蓝晶石      9011                1                2               2
一级翡翠玉石      9001                1                2               2

沧蓝晶石精华      17296                1                30                1
翡翠玉石精华      17297                1                30                1
紫魂锆石精华      17298                1                30                1

沧蓝晶石精华      17296                1                30                1
翡翠玉石精华      17297                1                30                1
紫魂锆石精华      17298                1                30                1

沧蓝晶石精华      17296                1                30                1
翡翠玉石精华      17297                1                30                1
紫魂锆石精华      17298                1                30                1

benzlxb 发表于 2022-10-9 02:28:49

太生气了，无法HOLD啦 >_<......

lyb_0000 发表于 2022-10-10 01:17:25

强烈支持楼主ing……

a58523 发表于 2022-10-11 15:52:53

看到这帖子真是高兴！

ly54476903 发表于 2022-10-18 16:00:07

我只是路过打酱油的。

ade004 发表于 2022-10-19 18:38:32

感恩无私的分享与奉献 :)

zwp707 发表于 2022-10-21 01:26:55

真是难得给力的帖子啊。

kwbkwb123 发表于 2022-10-21 05:22:14

真是被感动的痛哭流涕……

dvdiso 发表于 2022-10-23 17:38:45

激动人心，无法言表！

blfxdsh 发表于 2022-10-25 01:23:19

看到这帖子真是高兴！
页: [1] 2
查看完整版本: 传奇世界开区给力珍宝大赢家脚本