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

#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