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

落日804452252

来源 西伯利亚的忠犬-狗哥
& Q6 G0 }; ?- n: t9 P
$ q: t4 h- ~4 m
3 p5 z2 K" h8 S0 R
4 h* G: H5 l$ p[@MAIN]
* U' S- L% ~: q#SAY
<一键合成/@一键合成>

/ j  {* U( {: B( v[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
1 W: ]$ l, g6 x& l3 T; RDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

' a* |/ {% x3 R) [6 X1 S[@_@合成]
/ _; s) b8 n9 q, @#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
2 F  v6 N( d& B3 i: `( I#ACT

; y1 w$ o+ w1 X  ];获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
) G8 N8 u/ y7 E" Z) P
;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
3 [* d: v8 w6 b3 R* W; FDIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
# w, y3 b' |+ U; K% W6 I; p- UINC N$给予下标 1
# n# t6 j9 E/ O2 v& U# i) v7 xTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
, W. h1 R/ w/ ]9 B  }6 J  u' tDIV N$当前物品数量 4
. M: ~5 M8 f3 i8 i$ E# }GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
" P+ N: A; Z! t/ z- h
#IF
! l! u# G' R0 v! R0 u, h#ACT
  l% m. z& y; jINC N$循环标识 1

4 O, y9 c$ u2 W5 q4 Z/ H3 M7 K( W