[@MAIN]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 提示：请先佩戴切割再来升级！
BREAK
#IF
#ACT
GetStringPos ..QuestDiary传奇切割切割系统切割装备名字列表.txt <$DRUM>
MOV N$下级切割IDX <$STR(N0)>
INC N$下级切割IDX 473
MOV N$下级切割序号 <$STR(N0)>
INC N$下级切割序号 1
GETLISTSTRING ..QuestDiary传奇切割切割系统切割装备名字列表.txt N$下级切割序号 S$下级切割名字
GETLISTSTRING ..QuestDiary传奇切割切割系统切割装备升级配置.txt N0 N$切割升级元宝 N$切割升级金元
#IF
NOT SMALL N0 9
#ACT
MESSAGEBOX 提示：您已经很强大了！
CLOSE
BREAK
#IF
EQUAL N$切割升级金元 0
#ACT
MOV S$切割条件显示 <晋升条件/SCOLOR=250>：{<$STR(N$切割升级元宝)>元宝/SCOLOR=70}
#ELSEACT
MOV S$切割条件显示 <晋升条件/SCOLOR=250>：{<$STR(N$切割升级元宝)>元宝+<$STR(N$切割升级金元)>金元/SCOLOR=70}
#IF
#ACT
OPENMERCHANTBIGDLG 90 38 1 4 0 -80 0
#SAY
<><IMG:39:90:85:-2>
<IMGEX:90:1:2:3:295:-8/@EXIT>
<ITEMSHOW:<$STR(N$下级切割IDX)>:0:123:6:1>
<> {<$STR(S$下级切割名字)>/SCOLOR=254}
<><$STR(S$切割条件显示)>
<IMGEX:90:20:21:22:114:30/@开始晋升切割>
[@开始晋升切割]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 提示：请先佩戴切割再来升级！
BREAK
#IF
#ACT
OPENMERCHANTBIGDLG 90 38 1 4 0 -80 0
GetStringPos ..QuestDiary传奇切割切割系统切割装备名字列表.txt <$DRUM>
MOV N$下级切割IDX <$STR(N0)>
INC N$下级切割IDX 473
MOV N$下级切割序号 <$STR(N0)>
INC N$下级切割序号 1
GETLISTSTRING ..QuestDiary传奇切割切割系统切割装备名字列表.txt N$下级切割序号 S$下级切割名字
GETLISTSTRING ..QuestDiary传奇切割切割系统切割装备升级配置.txt N0 N$切割升级元宝 N$切割升级金元
#IF
CHECKBAGSIZE 1
#ELSEACT
MESSAGEBOX 提示：必须保留1个包袱空格！
BREAK
#IF
NOT SMALL N0 9
#ACT
MESSAGEBOX 提示：您已经很强大了！
CLOSE
BREAK
#IF
CHECKGAMEGOLD < <$STR(N$切割升级元宝)>
#ACT
MESSAGEBOX 提示：元宝不够！
GOTO @MAIN
BREAK
#IF
CHECKGAMEDIAMOND < <$STR(N$切割升级金元)>
#ACT
MESSAGEBOX 提示：金元不够！
GOTO @MAIN
BREAK
#IF
CHECKBAGSIZE 1
CHECKGAMEGOLD ? <$STR(N$切割升级元宝)>
CHECKGAMEDIAMOND ? <$STR(N$切割升级金元)>
#ACT
GAMEGOLD – <$STR(N$切割升级元宝)>
GAMEDIAMOND – <$STR(N$切割升级金元)>
TAKEW <$DRUM> 1
GIVE <$STR(S$下级切割名字)> 1
TakeOnItem <$STR(S$下级切割名字)> 14
SendCenterMsg 0 254 恭喜玩家[<$USERNAME>]晋升【<$STR(S$下级切割名字)>】成功！ 1 15
SendMsg 0 {系统提示ぐ|151:0:1}：恭喜玩家{<$USERNAME>|227:0:1}晋升[{<$STR(S$下级切割名字)>|250:0:1}]成功！！
MESSAGEBOX 提示：晋升成功！
GOTO @MAIN
BREAK
