[@开始吧吧3]
#ACT
INC　 D2　 1
DEC　 D7　 %D2

FormatStr FLD_CHARACTER=\'%s\' %A0
mov　 A7　 %A9
FormatStr FLD_JIFEN=\'%s\' %D7
UPDATEVALUESQL TBL_QUEST %A7 %A9　

FormatStr FLD_TYPE=%s and FLD_CHARACTER=\'%s\' %D0 %A0
ReadValueSql TBL_ITEM %A9 FLD_DESC5 @读取目前数

[@读取目前数()]
#ACT
mov　 D5　 %ARG(1)
INC　 D5 %D1

FormatStr FLD_TYPE=%s and FLD_CHARACTER=\'%s\' %D0 %A0
mov　 A7　 %A9
FormatStr %s=%s %A8 %D5
UPDATEVALUESQL TBL_ITEM %A7 %A9

#SAY
_人物 {FCOLOR10}$OUTPUT(A0){FCOLOR12} 装备改造完毕！请{FCOLOR10}换号查看{FCOLOR12}吧！
_花费人物 {FCOLOR10}$OUTPUT(A0){FCOLOR12} {FCOLOR10}$OUTPUT(D2){FCOLOR12}点积分，剩余{FCOLOR10}$OUTPUT(D7){FCOLOR12}点积分
_怎么样，我的技术还不错吧~欢迎下次光临
继续@改造物品选单_main
关 闭@exit

;;加武器攻击元素主程序
[@武器攻击元素()]
#ACT
;;MOV D0 %ARG(1)　　 ;;装备类型0-10
MOV A8 %ARG(2)　　 ;;修改字段
MOV D4 %ARG(3)　　 ;;元素类型
;;MOV D1 %ARG(4)　　 ;;装备改变点数
MOV D2 %ARG(5)　　 ;;所需积分

FormatStr FLD_CHARACTER=\'%s\' %A0
ReadValueSql TBL_QUEST %A9 FLD_CHARACTER,FLD_JIFEN @测试积分数4

[@测试积分数4()]
#ACT
mov　 A6　 %ARG(1)
mov　 D7　 %ARG(2)
dec　 D2　 1

#IF
small D2 %D7
#act
goto @开始吧吧4
#ELSESAY
_{FCOLOR1}该角色的积分点不够，角色现有积分：{FCOLOR10}$OUTPUT(D7){FCOLOR1}点。 {FCOLOR12} 
关 闭@exit

[@开始吧吧4]
#ACT
INC　 D2　 1
DEC　 D7　 %D2

FormatStr FLD_CHARACTER=\'%s\' %A0
mov　 A7　 %A9
FormatStr FLD_JIFEN=\'%s\' %D7
UPDATEVALUESQL TBL_QUEST %A7 %A9　

FormatStr FLD_TYPE=\'%s\' and FLD_CHARACTER=\'%s\' %D0 %A0
ReadValueSql TBL_ITEM %A9 FLD_DESC12 @读取目前数2

[@读取目前数2()]
#ACT
mov　 D5　 %ARG(1)
#IF
SMALL D5 126
#act
goto @开始改造武器
#ELSESAY
{FCOLOR10}有没有搞错！不是告诉过了你了嘛！我只负责加到127点！走开，别跟我捣乱！{FCOLOR12}
关闭@exit

[@开始改造武器]
#ACT
mov　 A3 FLD_DESC12
INC　 D5 1

FormatStr FLD_TYPE=%s and FLD_CHARACTER=\'%s\' %D0 %A0
mov　 A7　 %A9
FormatStr %s=%s %A8 %D4
UPDATEVALUESQL TBL_ITEM %A7 %A9

FormatStr FLD_TYPE=%s and FLD_CHARACTER=\'%s\' %D0 %A0
mov　 A7　 %A9
FormatStr %s=%s %A3 %D5
UPDATEVALUESQL TBL_ITEM %A7 %A9

#SAY
_人物 {FCOLOR10}$OUTPUT(A0){FCOLOR12} 装备改造完毕！请{FCOLOR10}换号查看{FCOLOR12}吧！
_花费人物 {FCOLOR10}$OUTPUT(A0){FCOLOR10} {FCOLOR10}$OUTPUT(D2){FCOLOR12}点积分，剩余{FCOLOR10}$OUTPUT(D7){FCOLOR12}点积分
_怎么样，我的技术还不错吧~欢迎下次光临
继续@改造物品选单_main
关 闭@exit
}