符文之语脚本优化

西伯利亚的忠犬

只发脚本，不负责讲解。示例中将自定义属性的文本当做符文之语的标题描述，自定义属性7-12号位置当做自定义属性词条，示例实现效果：


QM:
[@Login]
#ACT
MOV L$允许符文之语装备位置编号数组 [0,1,3]

QF:

[@TakeOnEX]
#IF
CheckFluteCount <$CurItemPos> > 0
CheckVarInList L$允许符文之语装备位置编号数组 <$CurItemPos>
#ACT
GOTO @_@进入<$CurItemPos>号符文之语



[@_@进入0号符文之语]
#IF
#ACT
GetCustomItemText <$CurItemPos> S$符文之语文本

#IF
NOT EQUAL S$符文之语文本
#ACT
BREAK

#IF
#ACT
#CALL [a西伯利亚的忠犬\QF脚本\符文之语\盔甲符文之语\盔甲1级符文之语.txt] @载入盔甲1级符文之语

[@_@进入1号符文之语]
#IF
#ACT
GetCustomItemText <$CurItemPos> S$符文之语文本

#IF
NOT EQUAL S$符文之语文本
#ACT
BREAK

#IF
#ACT
#CALL [a西伯利亚的忠犬\QF脚本\符文之语\武器符文之语\武器1级符文之语.txt] @载入武器1级符文之语



武器1级符文之语.txt：

[@载入武器1级符文之语]
{

#IF
CheckItemHasStone 1 符文Amn(11) 1
CheckItemHasStone 1 符文El(1) 1
CheckItemHasStone 1 符文Ith(6) 1
CheckItemHasStone 1 符文Tir(3) 1
CheckItemHasStone 1 符文Sol(12) 1
CheckFluteCount 1 = 5
#ACT
SetCustomItemText 1 荣耀(Amn+El+Ith+Tir+Sol)
SetCustomItemTextColor 1 102
GOTO @_@初始化符文之语武器默认自定义参数0
MOV L$添加用自定义属性参数数组[3] 3
MOV L$添加用自定义属性参数数组[7] 15
GOTO @_@不带参赋予单条自定义属性
GOTO @_@初始化符文之语武器默认自定义参数1
MOV L$添加用自定义属性参数数组[7] 7
MOV L$添加用自定义属性参数数组[9] 26
GOTO @_@不带参赋予单条自定义属性
GOTO @_@初始化符文之语武器默认自定义参数2
MOV L$添加用自定义属性参数数组[7] 15
MOV L$添加用自定义属性参数数组[9] 36
GOTO @_@不带参赋予单条自定义属性
GOTO @_@初始化符文之语武器默认自定义参数3
MOV L$添加用自定义属性参数数组[7] 15
MOV L$添加用自定义属性参数数组[9] 37
GOTO @_@不带参赋予单条自定义属性
GOTO @_@初始化符文之语武器默认自定义参数4
MOV L$添加用自定义属性参数数组[7] 8
MOV L$添加用自定义属性参数数组[9] 43
GOTO @_@不带参赋予单条自定义属性
GOTO @_@符文之语武器用更新属性
BREAK




[@_@初始化符文之语武器默认自定义参数0]
#ACT
;0:装备位置 1:属性位置 2:颜色代码 3:M2对应条目 4:行号 5:百分比 6:模块代码 7:取值1 8:取值2 9:取值3
MOV L$添加用自定义属性参数数组 [1,7,2,31,7,0,0,0,0,0]

[@_@初始化符文之语武器默认自定义参数1]
#ACT
;0:装备位置 1:属性位置 2:颜色代码 3:M2对应条目 4:行号 5:百分比 6:模块代码 7:取值1 8:取值2 9:取值3
MOV L$添加用自定义属性参数数组 [1,8,2,31,8,0,0,0,0,0]

[@_@初始化符文之语武器默认自定义参数2]
#ACT
;0:装备位置 1:属性位置 2:颜色代码 3:M2对应条目 4:行号 5:百分比 6:模块代码 7:取值1 8:取值2 9:取值3
MOV L$添加用自定义属性参数数组 [1,9,2,31,9,0,0,0,0,0]

[@_@初始化符文之语武器默认自定义参数3]
#ACT
;0:装备位置 1:属性位置 2:颜色代码 3:M2对应条目 4:行号 5:百分比 6:模块代码 7:取值1 8:取值2 9:取值3
MOV L$添加用自定义属性参数数组 [1,10,2,31,10,0,0,0,0,0]

[@_@初始化符文之语武器默认自定义参数4]
#ACT
;0:装备位置 1:属性位置 2:颜色代码 3:M2对应条目 4:行号 5:百分比 6:模块代码 7:取值1 8:取值2 9:取值3
MOV L$添加用自定义属性参数数组 [1,11,2,31,11,0,0,0,0,0]

[@_@初始化符文之语武器默认自定义参数5]
#ACT
;0:装备位置 1:属性位置 2:颜色代码 3:M2对应条目 4:行号 5:百分比 6:模块代码 7:取值1 8:取值2 9:取值3
MOV L$添加用自定义属性参数数组 [1,12,2,31,12,0,0,0,0,0]



[@_@不带参赋予单条自定义属性]
#IF
#ACT
SetCustomItemAbil <$STR(L$添加用自定义属性参数数组[0])> <$STR(L$添加用自定义属性参数数组[1])> 0 <$STR(L$添加用自定义属性参数数组[2])>
SetCustomItemAbil <$STR(L$添加用自定义属性参数数组[0])> <$STR(L$添加用自定义属性参数数组[1])> 1 <$STR(L$添加用自定义属性参数数组[3])>
SetCustomItemAbil <$STR(L$添加用自定义属性参数数组[0])> <$STR(L$添加用自定义属性参数数组[1])> 2 <$STR(L$添加用自定义属性参数数组[4])>
SetCustomItemAbil <$STR(L$添加用自定义属性参数数组[0])> <$STR(L$添加用自定义属性参数数组[1])> 3 <$STR(L$添加用自定义属性参数数组[5])>
SetCustomItemAbil <$STR(L$添加用自定义属性参数数组[0])> <$STR(L$添加用自定义属性参数数组[1])> 4 <$STR(L$添加用自定义属性参数数组[6])>
SetCustomItemValueEX <$STR(L$添加用自定义属性参数数组[0])> <$STR(L$添加用自定义属性参数数组[1])> = <$STR(L$添加用自定义属性参数数组[7])> <$STR(L$添加用自定义属性参数数组[8])> <$STR(L$添加用自定义属性参数数组[9])>



[@_@符文之语武器用更新属性]
#ACT
UPDATEITEM 1
CLEARLINKITEM

}

街霸

看你名字长，脚本也很厉害啊

cq5388309

是不是可以做成 CSV更简化？