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

来源: 作者: 点击:

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

[@MAIN]
#IF
NOTCHECKUSEITEM14
#ACT
MESSAGEBOX\提示:请先佩戴切割再来升级!
BREAK
#IF
#ACT
GetStringPos..\QuestDiary\传奇切割\切割系统\切割装备名字列表.txt<$DRUM>
MOVN$下级切割IDX<$STR(N0)>
INCN$下级切割IDX473
MOVN$下级切割序号<$STR(N0)>
INCN$下级切割序号1
GETLISTSTRING..\QuestDiary\传奇切割\切割系统\切割装备名字列表.txtN$下级切割序号S$下级切割名字
GETLISTSTRING..\QuestDiary\传奇切割\切割系统\切割装备升级配置.txtN0N$切割升级元宝N$切割升级金元

#IF
NOTSMALLN09
#ACT
MESSAGEBOX\提示:您已经很强大了!
CLOSE
BREAK

#IF
EQUALN$切割升级金元0
#ACT
MOVS$切割条件显示        <晋升条件/SCOLOR=250>:{<$STR(N$切割升级元宝)>元宝/SCOLOR=70}
#ELSEACT
MOVS$切割条件显示      <晋升条件/SCOLOR=250>:{<$STR(N$切割升级元宝)>元宝+<$STR(N$切割升级金元)>金元/SCOLOR=70}

#IF
#ACT
OPENMERCHANTBIGDLG9038140-800
#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
NOTCHECKUSEITEM14
#ACT
MESSAGEBOX\提示:请先佩戴切割再来升级!
BREAK

#IF
#ACT
OPENMERCHANTBIGDLG9038140-800
GetStringPos..\QuestDiary\传奇切割\切割系统\切割装备名字列表.txt<$DRUM>
MOVN$下级切割IDX<$STR(N0)>
INCN$下级切割IDX473
MOVN$下级切割序号<$STR(N0)>
INCN$下级切割序号1
GETLISTSTRING..\QuestDiary\传奇切割\切割系统\切割装备名字列表.txtN$下级切割序号S$下级切割名字
GETLISTSTRING..\QuestDiary\传奇切割\切割系统\切割装备升级配置.txtN0N$切割升级元宝N$切割升级金元

#IF
CHECKBAGSIZE1
#ELSEACT
MESSAGEBOX\提示:必须保留1个包袱空格!
BREAK

#IF
NOTSMALLN09
#ACT
MESSAGEBOX\提示:您已经很强大了!
CLOSE
BREAK

#IF
CHECKGAMEGOLD<<$STR(N$切割升级元宝)>
#ACT
MESSAGEBOX\提示:元宝不够!
GOTO@MAIN
BREAK

#IF
CHECKGAMEDIAMOND<<$STR(N$切割升级金元)>
#ACT
MESSAGEBOX\提示:金元不够!
GOTO@MAIN
BREAK

#IF
CHECKBAGSIZE1
CHECKGAMEGOLD?<$STR(N$切割升级元宝)>
CHECKGAMEDIAMOND?<$STR(N$切割升级金元)>
#ACT
GAMEGOLD-<$STR(N$切割升级元宝)>
GAMEDIAMOND-<$STR(N$切割升级金元)>
TAKEW<$DRUM>1
GIVE<$STR(S$下级切割名字)>1
TakeOnItem<$STR(S$下级切割名字)>14
SendCenterMsg0254恭喜玩家[<$USERNAME>]晋升【<$STR(S$下级切割名字)>】成功!115
SendMsg0{系统提示ぐ|151:0:1}:恭喜玩家{<$USERNAME>|227:0:1}晋升[{<$STR(S$下级切割名字)>|250:0:1}]成功!!
MESSAGEBOX\提示:晋升成功!
GOTO@MAIN
BREAK

[顶部]