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

落日804452252

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

4 b2 u% h4 E" U7 T, a( w9 Y9 `4 {
9 y  I$ w  F: P/ j# t- X. K8 z
0 v2 y7 R) ?( `! M% h& _6 d[@MAIN]
#SAY
; k/ Q, {$ z+ t+ }6 K<一键合成/@一键合成>
- G9 ~5 o6 r0 f4 ^3 r
[@一键合成]
1 q6 Z* i6 h, b0 s) P8 E( O) h4 WMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
3 ]( u& e9 ]% ?8 g1 o) o- cMOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
1 e6 n5 t/ E) L: c1 r- W
4 x6 d# I3 t$ k* U$ J/ g4 x5 ~: c[@_@合成]
#IF
/ R% @! V+ Z; [CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
. m6 u( y0 X1 z: Y#ACT
$ n; K' t9 o9 r8 `
" P2 r5 K0 `, M# N6 l;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

4 V4 u) J9 H) m7 B/ s;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
5 i$ J! S9 N4 d6 T# D6 e# YINC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
3 F" t% ]. P0 L, j4 V#ACT
1 H3 @* v0 @  w' K) D' {- u6 LINC N$循环标识 1
. \- E2 O$ f0 D. B
& F2 _/ e2 G7 {; h/ C