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

落日804452252

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



[@MAIN]
2 o( j' L0 u  p; _: {. Q#SAY
<一键合成/@一键合成>

[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
4 O# Y  b1 r) V3 m( E7 ~! C' s2 CLOOPGOTO @_@合成 <$STR(N$物品列表数量)>
: q0 [1 I6 D2 y0 O7 W5 l
[@_@合成]
# l9 c$ J) Z" L8 [, t# B#IF
' q3 o6 }. c7 L9 ^, k9 {CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT

;获取背包该物品数量
* t! n8 a* p6 q$ p' M  A. `GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
$ n2 i9 d9 }, ?8 y7 [  l6 d+ x0 }
3 J) c% c$ _" w8 j0 Y' C9 n;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
+ W% P4 w, z1 x$ f9 cINC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
#ACT
INC N$循环标识 1
0 C" z8 L+ [! L
* E6 X3 `+ u( I6 I/ m