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

落日804452252

来源 西伯利亚的忠犬-狗哥
, w& R* f9 X7 w% c' [6 [


[@MAIN]
#SAY
<一键合成/@一键合成>
( k- w. v7 M6 o* v' h
[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
, \! S5 U0 F; p+ p9 y! gGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
, C' v" r; d( {  L- z! F
' ^% h# B9 e3 k[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
( }% j7 k2 Z8 w$ W#ACT
& ]) d1 J! _! p1 X% u# m
1 ?; _0 m' m1 n5 {( a/ E2 c;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

8 T; I/ z" }. F2 j;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
' ~6 k" a4 S. B% a; tDIV N$当前物品数量 4
9 ]: q0 ~5 `) d# t( QMUL N$当前物品数量 4
) f+ {; B- u4 ~0 T8 H5 w6 |- r1 ZMOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
) H# V7 q+ A6 `" d6 qGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
  S, n5 v9 [- G: X% O: D, G9 z
#IF
0 x( {3 r; O( {4 `' _0 T. y) E6 m#ACT
INC N$循环标识 1
! z7 a  ]( S' u. u& [& ]
9 F* N) C+ ]5 w) r5 p2 d6 i; V