传奇世界修炼真魂珠完整功能脚本

[@炼真魂珠]

{
『<加一成/@魂珠加一成>』┆『<加四成/@魂珠加二成>』┆『<加六成/@魂珠加三成>』┆\
<color=green 提示：攻击-道术-魔法-防御超过100的真魂珠无法修炼！>\
<color=red 一点就扣除元宝如果身上没有真魂珠系列物品照样扣除~请慎重！>\
加一成需要花费元宝：10000元宝\
加四成需要古朴石盒：5个\
加六成需要黑暗钥匙：8个\
<color=orange 提示：古朴石盒和黑暗钥匙在副本【血色城堡】里出！>\
<color=orange 真魂珠可重复修炼，每加1成就代表各属性+1经验+1%>\
〖<关闭/@exit>〗

[@魂珠加一成]
#IF
CHECKGAMEGOLD > 9999
#ACT
GAMEGOLD - 10000
ShowSpotDlg 6 放入真魂珠或着仙魂珠 @检测珠子2
break
#SAY
#ELSESAY
对不起，你包裹中元宝数量不足，修炼真魂珠失败\\
<离开/@exit>

[@检测珠子2]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE ..\QuestDiary\游戏功能\允许的珠子.txt
#ELSEACT
break
#ELSESAY
抱歉，该物品不能被升级！\
<升级其他装备/@炼真魂珠>\
<离开/@exit>

#IF
small $ITEMINFO[$PARAM(1)].DC2 98
small $ITEMINFO[$PARAM(1)].AC2 98
#ACT
UPGRADEUSERITEM $PARAM(1) 1 + 1
UPGRADEUSERITEM $PARAM(1) 2 + 0
UPGRADEUSERITEM $PARAM(1) 3 + 1
UPGRADEUSERITEM $PARAM(1) 4 + 0
UPGRADEUSERITEM $PARAM(1) 5 + 1
;UPGRADEUSERITEM $PARAM(1) 6 + 0
;UPGRADEUSERITEM $PARAM(1) 7 + 1
;UPGRADEUSERITEM $PARAM(1) 8 + 0
;UPGRADEUSERITEM $PARAM(1) 9 + 1
UPGRADEUSERITEM $PARAM(1) 12 + 1
UPGRADEUSERITEM $PARAM(1) 15 + 1
;UPGRADEUSERITEM $PARAM(1) 22 + 1
;UPGRADEUSERITEM $PARAM(1) 71 + 1
BREAK
#SAY
真魂珠升级成功!
#ELSESAY
你没有放入您的真魂珠或者修炼已经满!


[@魂珠加二成]
#IF
checkitem 古朴石盒 5
#ACT
take 古朴石盒 5
ShowSpotDlg 6 放入真魂珠或着仙魂珠 @检测珠子3
break
#SAY
#ELSESAY
对不起，古朴石盒数量不足5个，修炼真魂珠失败\\
<离开/@exit>

[@检测珠子3]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE ..\QuestDiary\游戏功能\允许的珠子.txt
#ELSEACT
break
#ELSESAY
抱歉，该物品不能被升级！\
<升级其他装备/@炼真魂珠>\
<离开/@exit>

#IF
small $ITEMINFO[$PARAM(1)].DC2 98
small $ITEMINFO[$PARAM(1)].AC2 98
#ACT
UPGRADEUSERITEM $PARAM(1) 1 + 4
UPGRADEUSERITEM $PARAM(1) 2 + 1
UPGRADEUSERITEM $PARAM(1) 3 + 4
UPGRADEUSERITEM $PARAM(1) 4 + 1
UPGRADEUSERITEM $PARAM(1) 5 + 4
;UPGRADEUSERITEM $PARAM(1) 6 + 1
;UPGRADEUSERITEM $PARAM(1) 7 + 4
;UPGRADEUSERITEM $PARAM(1) 8 + 1
;UPGRADEUSERITEM $PARAM(1) 9 + 4
UPGRADEUSERITEM $PARAM(1) 12 + 1
UPGRADEUSERITEM $PARAM(1) 15 + 1
;UPGRADEUSERITEM $PARAM(1) 22 + 4
;UPGRADEUSERITEM $PARAM(1) 71 + 1
BREAK
#SAY
真魂珠升级成功!
#ELSESAY
你没有放入您的真魂珠或者修炼已经满!

[@魂珠加三成]
#IF
checkitem 黑暗钥匙 8
#ACT
take 黑暗钥匙 8
ShowSpotDlg 6 放入真魂珠或着仙魂珠 @检测珠子4
break
#SAY
#ELSESAY
对不起，黑暗钥匙数量不足8个，修炼真魂珠失败\\


[@检测珠子4]
#IF
CHECKVARLIST $ITEMINFO[$PARAM(1)].STDMODE ..\QuestDiary\游戏功能\允许的珠子.txt
#ELSEACT
break
#ELSESAY
抱歉，该物品不能被升级！\
<升级其他装备/@炼真魂珠>\
<离开/@exit>

#IF
small $ITEMINFO[$PARAM(1)].DC2 98
small $ITEMINFO[$PARAM(1)].AC2 98
#ACT
UPGRADEUSERITEM $PARAM(1) 1 + 6
UPGRADEUSERITEM $PARAM(1) 2 + 4
UPGRADEUSERITEM $PARAM(1) 3 + 6
UPGRADEUSERITEM $PARAM(1) 4 + 1
UPGRADEUSERITEM $PARAM(1) 5 + 6
;UPGRADEUSERITEM $PARAM(1) 6 + 1
;UPGRADEUSERITEM $PARAM(1) 7 + 6
;UPGRADEUSERITEM $PARAM(1) 8 + 1
;UPGRADEUSERITEM $PARAM(1) 9 + 6
UPGRADEUSERITEM $PARAM(1) 12 + 1
UPGRADEUSERITEM $PARAM(1) 15 + 1
;UPGRADEUSERITEM $PARAM(1) 22 + 6
;UPGRADEUSERITEM $PARAM(1) 71 + 4
BREAK
#SAY
真魂珠升级成功!
#ELSESAY
你没有放入您的真魂珠或者修炼已经满!

}

我只是路过打酱油的。

感恩无私的分享与奉献

无回帖，不论坛，这才是人道。

强烈支持楼主ing……

看到这帖子真是高兴！

感恩无私的分享与奉献

无回帖，不论坛，这才是人道。

激动人心，无法言表！

激动人心，无法言表！