继续@改造物品选单_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
}
|