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

落日804452252

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


& H$ u& \, M& B6 z, R7 ~# G
& W' E+ D8 ]- a6 o& L- S2 }4 l' V[@MAIN]
#SAY
# E2 i* M/ F$ x3 |* b9 \: c<一键合成/@一键合成>
. Y7 x# X! H# ?; ^  N
[@一键合成]
4 u9 C9 D$ H7 t8 ]( H6 r3 gMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
2 C" u: t8 t/ V6 O' V: TMOV N$循环标识 0
# R7 \' h2 h! N3 J2 {GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
/ z" R3 W# c) v& s- R5 Z4 WDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
1 R" z0 z$ ?1 h- DLOOPGOTO @_@合成 <$STR(N$物品列表数量)>

& u' B& a+ N# I# v* Y. M; H. a7 C[@_@合成]
" r/ C6 y, E* h. @- K) p- q7 E#IF
0 p* m- h1 c1 ]. u) z# l5 @CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT

;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
- t0 m2 S+ P' s$ BMOV N$给予下标 <$STR(N$循环标识)>
" q6 P) g/ F, `- c. w, aINC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
/ E- W6 p0 s( d) B$ M7 kDIV N$当前物品数量 4
( L9 [  W5 w) ^GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
#ACT
INC N$循环标识 1

# S5 ?1 M1 z- y" {( F