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

落日804452252

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


% Q1 |# I3 L8 A( n! o
# z/ P7 i' u/ `' d. z) W[@MAIN]
# s4 v2 a+ G3 |5 G$ _#SAY
<一键合成/@一键合成>
# c& h) _* \7 z+ }+ H1 Y; G
[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
. n- e$ H+ p8 A/ H2 n* pGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
+ \5 Q% }0 D( @6 S0 O5 X
: }: B% U* `5 |[@_@合成]
% C, e6 o# V% R  }#IF
0 u2 o" C1 s5 _CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT

;获取背包该物品数量
- l' Y4 M. H; B0 qGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

" i& t" d) Z( P/ i+ D;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
' ]; B/ S9 f& I$ J# Z3 gMUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
/ }2 b: R- Y5 @  E$ Y; `INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
  i+ l( C( T' H% S2 G5 k& gDIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
& M7 ^, b3 c% V+ h
3 A& B" t5 c* [' Y& J$ {/ L& R# N/ h#IF
' e( Q' @: R# }- B# u#ACT
INC N$循环标识 1

6 _/ A0 r& W/ m0 {