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

落日804452252

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


' }- j* ?6 q% J7 m) d$ k* y9 [5 I
. h' ~0 v! |* w) T6 z1 G[@MAIN]
#SAY
) u# g! I/ x0 P& [' N+ F) j0 P<一键合成/@一键合成>

[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

  W$ n* M, b: q0 Z, A0 t[@_@合成]
+ e) P: S/ i% R" E0 [/ c" @1 h#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
0 n1 W: Z/ Q) B- c#ACT
8 {# S1 {* U4 i! E7 u
;获取背包该物品数量
, X! D. F: }: \3 ]: Y8 vGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
- i- B8 q5 y& g: r; }3 L
;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
+ j8 I8 k- f+ u3 d9 T& UDIV N$当前物品数量 4
' V0 C) Z) I  z" n5 vMUL N$当前物品数量 4
0 m. o( Z9 R9 b5 zMOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
8 R( z% l. H) N& M/ o" L  c! [' }TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
# Z* v9 P" d" I! ]) o9 k#ACT
3 {+ L6 @7 ~* p$ |6 v8 B3 JINC N$循环标识 1
: r+ O; y8 v' a. F