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

落日804452252

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



[@MAIN]
. N0 S6 d3 T, r5 f2 D- j: k- ?#SAY
<一键合成/@一键合成>
8 z' \: u4 B3 n4 G/ r
[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

! g1 {% j4 ^2 Q# v. [: z[@_@合成]
/ \0 K. b5 Z0 ]#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
$ S/ K0 q& u# a! z0 v% \4 v; r#ACT
  H, W9 p2 ^0 u
;获取背包该物品数量
1 I5 w2 T: w! _, Q' A- E! DGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
2 H; T9 n& |9 F2 T# d
) x1 c) O$ v5 w6 |, Q0 ?;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
# ?! `+ k; O; e+ LMOV N$给予下标 <$STR(N$循环标识)>
1 L& H$ U8 J  D9 U/ }5 EINC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
( m4 W$ k, \' F7 ~. q* V( ^! J. HDIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

) t4 U* @- @8 X% Z$ b9 p. I#IF
#ACT
5 z$ O) k5 O, x0 t/ lINC N$循环标识 1
2 E7 L/ H7 h' F2 S