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

落日804452252

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

3 X5 L5 [( b: {9 P6 I
* w# N; O& L; W3 s
- l7 y( a: A. ~4 ]# f, s  Q[@MAIN]
#SAY
<一键合成/@一键合成>

5 H# n. h9 h: S+ ^% S5 Y[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
  y$ P! c/ e( r( B0 q! [GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
2 X; d5 X  J' M7 F% r3 PLOOPGOTO @_@合成 <$STR(N$物品列表数量)>

3 e- l& d/ |8 N5 M  b[@_@合成]
* d0 X  z$ N2 @9 ]7 a$ i3 z#IF
$ I% @8 F  E5 cCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
7 g' T6 A: g, [) d! t  g#ACT
$ @) l+ E6 E, n6 Q
3 |- ^) Y0 v! [$ M+ q;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
( h6 N. Q4 C! y+ v4 B5 W
  \, R+ J- e3 P4 a, ?;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
+ \' S+ v% Y: Y: S- h7 vMUL N$当前物品数量 4
$ N# V' _- \# W: @1 o! i8 l% cMOV N$给予下标 <$STR(N$循环标识)>
, a4 f1 w1 _' N/ n: `6 AINC N$给予下标 1
4 P  k& h, r" Z! U7 a* lTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
0 n/ K1 ^3 M& Z, L" o# DGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

  f8 J/ Z6 W" m) u#IF
#ACT
INC N$循环标识 1