大佬看看还能在简单一点不

略懂

[@main]
年轻人！你来此地找老夫
<开始执行/@开始>

[@开始]
#act                                                                                                               
MOV L$武器行号位置 [炼狱,银蛇,魔杖,无极棍,井中月,血饮,裁决之杖,骨玉权杖,龙纹剑,怒斩,龙牙,逍遥扇,屠龙,嗜魂法杖,霸者之刃,黄金屠龙,紫金嗜魂法杖,赤金逍遥扇]
MOV L$项链行号位置 [蓝翡翠项链,竹笛,放大镜,竹笛,蓝翡翠项链,放大镜,蓝翡翠项链,放大镜,竹笛,幽灵项链,生命项链,天珠项链,绿色项链,恶魔铃铛,灵魂项链,圣战项链,法神项链,天尊项链]
MOV L$武器属性位置 [0,2,1,2,0,1,0,1,2,0,1,2,0,1,2,0,1,2]
MOV L$高几率装备升 [80,80,80,80,80,80,80,80,80,70,70,70,60,60,60,50,50,50]
MOV L$低几率装备升 [50,50,50,50,50,50,50,50,50,40,40,40,30,30,30,20,20,20]
MOV L$装备收费数据 [20,20,20,20,20,20,20,20,20,40,40,40,60,60,60,80,80,80]
GetListVarCount L$武器行号位置 N1
GetListVarIndex L$武器行号位置 <$WEAPON> N3   
MOV N$装备所在数组位置 <$STR(N3)>
MOV N$装备升级几率高 <$STR(L$高几率装备升[<$STR(N$装备所在数组位置)>])>
MOV N$装备升级几率低 <$STR(L$低几率装备升[<$STR(N$装备所在数组位置)>])>
MOV N$装备升级位置点 <$STR(L$武器属性位置[<$STR(N$装备所在数组位置)>])>
MOV S$项链名称 <$STR(L$项链行号位置[<$STR(N$装备所在数组位置)>])>
MOV N$元宝收费数据 <$STR(L$装备收费数据[<$STR(N$装备所在数组位置)>])>

#IF
NOT CheckVarInList L$武器行号位置 <$WEAPON>
#act
MESSAGEBOX 提示：请佩戴好武器后。再来找老夫为你升级武器！
BREAK

#IF
NOT CHECKITEM <$STR(S$项链名称)> 2
#ACT
MESSAGEBOX 提示：[<$STR(S$项链名称)>]数量不足[2]！
BREAK

#IF
NOT CHECKITEM 黑铁矿石 2
#ACT
MESSAGEBOX 提示：[黑铁矿石]数量不足[2]！
BREAK

#IF
CHECKGAMEGOLD < <$STR(N$元宝收费数据)>
#act
MESSAGEBOX 提示：你的元宝数量不足[<$STR(N$元宝收费数据)>]！
BREAK


#IF
CheckItemAddValue 1 <$STR(N$装备升级位置点)> = 7
#act
MESSAGEBOX 提示：你的武器属性目前已经是满级了\以我现在的能力还无法为你继续提供服务！
BREAK

#IF
CheckItemAddValue 1 <$STR(N$装备升级位置点)> < 5
#act
GOTO @_@高成功率修改武器附加属性
#ELSEACT
GOTO @_@低成功率修改武器附加属性

[@_@低成功率修改武器附加属性]
#IF
CHECKGAMEGOLD ≥ <$STR(N$元宝收费数据)>
CHECKITEM 黑铁矿石 2
CHECKITEM <$STR(S$项链名称)> 2
RANDOMEX <$STR(N$装备升级几率低)> 100
#ACT
GAMEDOLD - <$STR(N$元宝收费数据)>
TAKE 黑铁矿石 2
TAKE <$STR(S$项链名称)> 2
CHANGEITEMADDVALUE 1 <$STR(N$装备升级位置点)> + 1
SENDMSG 6 成功武器【<$WEAPON>】属性位置【<$STR(N$装备升级位置点)>】升级几率【<$STR(N$装备升级几率高)>】
#ELSEACT
GAMEDOLD - <$STR(N$元宝收费数据)>
TAKE 黑铁矿石 2
TAKE <$STR(S$项链名称)> 2
SENDMSG 6 失败武器【<$WEAPON>】属性位置【<$STR(N$装备升级位置点)>】升级几率【<$STR(N$装备升级几率高)>】


[@_@高成功率修改武器附加属性]
#IF
CHECKGAMEGOLD ≥ <$STR(N$元宝收费数据)>
CHECKITEM 黑铁矿石 2
CHECKITEM <$STR(S$项链名称)> 2
RANDOMEX <$STR(N$装备升级几率高)> 100
#ACT
GAMEDOLD - <$STR(N$元宝收费数据)>
TAKE 黑铁矿石 2
TAKE <$STR(S$项链名称)> 2
CHANGEITEMADDVALUE 1 <$STR(N$装备升级位置点)> + 1
SENDMSG 6 成功武器【<$WEAPON>】属性位置【<$STR(N$装备升级位置点)>】升级几率【<$STR(N$装备升级几率高)>】
#ELSEACT
GAMEDOLD - <$STR(N$元宝收费数据)>
TAKE 黑铁矿石 2
TAKE <$STR(S$项链名称)> 2
SENDMSG 6 失败武器【<$WEAPON>】属性位置【<$STR(N$装备升级位置点)>】升级几率【<$STR(N$装备升级几率高)>】

威尔

已经写的很好了