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

落日804452252

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

$ w4 C+ T( c* e2 f

' [' j) Y# x6 {8 I. [4 l[@MAIN]
#SAY
7 N% Y3 ~- d# `3 Z3 B6 ^<一键合成/@一键合成>

- `; P, j# N# d2 h( ]( M[@一键合成]
2 J& m% V, P! B$ ~6 j9 \7 ~6 lMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
! k7 b! U8 @+ f: N8 p9 m1 XLOOPGOTO @_@合成 <$STR(N$物品列表数量)>
! ~5 h: g' J% Y9 r
* S% x, A1 A2 Z5 `' E[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
* K) W. ?: j# P3 I, j, Y( Z9 C1 D" \#ACT
7 D( i2 Z! D" j# x! J2 _
;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
7 B0 y3 j! w% M0 `; ?) D- w6 l9 p
. P5 f1 s- @/ ~/ |) Z;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
9 |. b& F) @4 b, HMUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
6 u" |  O0 l/ ~$ @9 E, N* ^$ ?TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
5 N' ?; j; i2 p4 o5 l2 }" \9 sDIV N$当前物品数量 4
: A, J/ v+ V1 B8 |4 PGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
0 Q* L( ?+ H8 X  C4 [/ n7 s#ACT
  m0 [5 e; b; G# G4 g, W; i; _, hINC N$循环标识 1
( Y8 L2 g% i& Y; o
4 J+ U7 m7 d+ |7 V& A