GOM传奇服务端 传奇开区一条龙版本切割大师脚本怎么写？

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