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

落日804452252

来源 西伯利亚的忠犬-狗哥
6 V) `5 k+ [9 i* x# ^1 c. B# o3 c9 Y


% p: n  w# b9 ~! x) V[@MAIN]
#SAY
<一键合成/@一键合成>

! _* E7 Y* u. G! v, T; o1 ?, j) Y2 S) @[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
+ _7 X: h2 q1 s* W+ J; EMOV N$循环标识 0
( X5 `0 k+ E: L" F) m9 J: V, z* NGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
6 f' Q, B3 J* Q. ~: ALOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
# `: R) J: j% `6 r: u9 ^#IF
: M* J6 N/ }0 V. ^) n0 ICHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
+ H) \2 Q. a' T! U& Y$ k! ]#ACT
" \% T* @/ p4 m. Y9 B
;获取背包该物品数量
2 f8 q* p- V" Y1 n1 qGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
- F8 R- q0 J, v- u5 F
1 T3 k1 s% P9 ^+ G$ G; o+ `;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
$ j# V: k: j( V: X' [# K0 PMUL N$当前物品数量 4
9 P1 C: r1 c5 ]5 m2 V% P) UMOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
4 e( c. {4 P3 X0 V* GGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
# l2 Y$ [9 |4 e
# D+ b2 w  Q7 f#IF
#ACT
INC N$循环标识 1
; \  c3 d7 W8 v0 H/ a* @. }8 ^