翎风引擎 使用数组与循环实现一键4合1功能

落日804452252

来源 西伯利亚的忠犬-狗哥


2 d/ s1 @" B# J* C* x
[@MAIN]
5 }4 _( s( G% L7 @#SAY
<一键合成/@一键合成>

[@一键合成]
5 Y$ D7 [  R" Q$ A; FMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
$ j8 \6 Y6 w9 R+ Q1 eMOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
7 Q, J9 ?: \, VDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
+ N2 m. E& Z3 V) B1 E#ACT
1 ]! m7 Y) c3 r8 p% ]
$ K# B. n' B+ C' H;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
) T9 ~/ w4 F+ k% b" j
;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
% P" Q7 z# m* _+ OMUL N$当前物品数量 4
9 X2 F4 c: {6 S- K, e3 HMOV N$给予下标 <$STR(N$循环标识)>
' k1 n, }  E- [8 uINC N$给予下标 1
' y. T# f2 g" zTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

& X& J, j4 t( s  o! h, z6 t#IF
+ a. z* I0 _) E$ D9 r#ACT
INC N$循环标识 1

# r; H( }  e' z% \( o" F+ h