宝石凝练脚本

<我要凝炼宝石/@@gemcondense>

[@@gemcondense]
#IF
CHECKVALIDPARAM 1 6
#ACT
#ELSEACT
SENDMSG 5 切勿使用非法外挂！！！
SMELTBOXRESULT 0 1
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME $ITEMINFO[$PARAM(2)].NAME
EQUAL $ITEMINFO[$PARAM(2)].NAME $ITEMINFO[$PARAM(3)].NAME
EQUAL $ITEMINFO[$PARAM(3)].NAME $ITEMINFO[$PARAM(4)].NAME
EQUAL $ITEMINFO[$PARAM(4)].NAME $ITEMINFO[$PARAM(5)].NAME
EQUAL $ITEMINFO[$PARAM(5)].NAME $ITEMINFO[$PARAM(6)].NAME
#ELSEACT
SENDMSG 5 不是同种宝石不能凝练
SMELTBOXRESULT 0 1
break
#IF
POS $ITEMINFO[$PARAM(1)].NAME 圣灵
#ACT
SENDMSG 5 圣灵宝石无法凝练
SMELTBOXRESULT 0 1
break
#IF
PosInList |<$ITEMINFO[$PARAM(1)].Name>| ..\QuestDiary\数据文件\文本数据\宝石凝练列表.txt S80
#ACT
MOV D19 1
SMELTBOXRESULT 1 7 1
break
#ELSEACT
SMELTBOXRESULT 0 1
SENDMSG 5 您的宝石不能再凝练了
break

[@@gemcondenseok]
#IF
EQUAL D19 1
#ACT
MOV D19 0
TAKEM $PARAM(1)
TAKEM $PARAM(2)
TAKEM $PARAM(3)
TAKEM $PARAM(4)
TAKEM $PARAM(5)
TAKEM $PARAM(6)
SMELTBOXRESULT 0 1
GETVALIDSTR $STR(S80) | S80 S81
GIVE $STR(S81) 1
SENDMSG 5 您的宝石已经成功凝练
break
#ELSEACT
SENDMSG 5 切勿使用非法外挂！！！
break

宝石凝练列表.txt 文本内容为：
|火晶石(小)|火晶石(中)
|火晶石(中)|火晶石(大)
|火晶石(大)|火晶宝石
|冰月石(小)|冰月石(中)
|冰月石(中)|冰月石(大)
|冰月石(大)|冰月宝石
|水云石(小)|水云石(中)
|水云石(中)|水云石(大)
|水云石(大)|水云宝石
|金刚石(小)|金刚石(中)
|金刚石(中)|金刚石(大)
|金刚石(大)|金刚宝石
|圣魔石(小)|圣魔石(中)
|圣魔石(中)|圣魔石(大)
|圣魔石(大)|圣魔宝石
|青木石(小)|青木石(中)
|青木石(中)|青木石(大)
|青木石(大)|青木宝石
|紫心石(小)|紫心石(中)
|紫心石(中)|紫心石(大)
|紫心石(大)|紫心宝石