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

落日804452252

来源 西伯利亚的忠犬-狗哥
; M; K$ m6 `. R( f# d
' b/ c4 F2 Z2 F
- X& G3 r, ]2 g
[@MAIN]
#SAY
0 r( G- b! b7 n<一键合成/@一键合成>
& \* X5 O! U$ ?
7 U# c- D$ B  N7 C5 H: W[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
9 {% g1 r7 n) `, `) e4 k
[@_@合成]
, |2 n# d8 Z: N5 U- e5 `#IF
# s2 j9 j4 V* A: ]; R8 K5 O9 S2 NCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT

$ f! X) A0 U+ H( i. ^9 i;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

( O5 e8 {7 C* o6 M;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
# Q" ]4 e0 G; i6 O- p$ l/ U2 h' HMOV N$给予下标 <$STR(N$循环标识)>
* c3 J. A* ?7 @3 jINC N$给予下标 1
; ^8 m/ Y7 x' o) K0 U2 \7 |TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
( V1 i9 b, W6 ]1 U/ K, n
* V# N! U* s+ R+ j( {5 y; j' J9 v#IF
  w  V& S! g# i#ACT
INC N$循环标识 1
; d: B/ J, ^7 I