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

admin

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