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

落日804452252

来源 西伯利亚的忠犬-狗哥
) P$ s$ o% c8 q# N( R7 F: w  U
- Q. U+ K# |9 `

[@MAIN]
#SAY
<一键合成/@一键合成>

[@一键合成]
4 R/ y6 H$ R* w' ]MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
  M* r; y4 q3 CMOV N$循环标识 0
- V* _0 v. F* P9 i8 L! |4 W6 ^% U5 pGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
9 y* Z5 \% C$ {: tDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
* B; P, I9 q; a( C8 ZLOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
- p9 C% E+ q  c8 X. s#ACT

;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
* S/ @3 r3 Q: f" L- t3 i0 C
3 T% @- Y/ A* I( D  b;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
4 V/ S2 t  g, u" T9 w: M  eDIV N$当前物品数量 4
# M+ s% ~) {1 f$ H6 Q& U! x  qMUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
& w4 E( I% p8 q. e' _" x6 JTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
/ B' N$ F% v) `: {( D5 oDIV N$当前物品数量 4
% W# }/ P0 z( h/ W6 h) pGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
7 u& u9 C2 `, w) V2 a9 }6 T
#IF
#ACT
INC N$循环标识 1

7 O- ~1 c5 r8 G. K' l# ?5 |1 K! r