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

落日804452252

来源 西伯利亚的忠犬-狗哥
: v7 x! v! B3 m


4 H4 a. ~3 ]! D" }( S5 z[@MAIN]
. F' T  @9 s2 V0 R0 X6 x$ _3 C#SAY
<一键合成/@一键合成>
7 b* k$ q% M" k
[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
7 [+ {* y7 r9 Y* sMOV N$循环标识 0
. N; b" [2 H1 o& \GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT
9 P- _$ n$ B, z) c; T9 u8 V
;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
! F+ o- E, ~0 V! {- q
; d+ y3 ?/ g2 G0 p1 \;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
5 V( N1 `1 K) h% A. t" g% z7 E3 ^& }DIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
: a0 \4 h4 R- ^- S$ }' ]DIV N$当前物品数量 4
# ^' m2 ~4 N1 |' LGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
: i( q' x' r4 `  Z! c
#IF
#ACT
INC N$循环标识 1