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

落日804452252

来源 西伯利亚的忠犬-狗哥
% |9 h7 r8 M, `5 P6 D8 `4 ?) \3 k
. f- S7 q) ^& n$ e9 x, u- i0 A& ]
' y3 e& b2 B9 }% @' _3 \; D  Q5 }9 y+ @
[@MAIN]
( a( N. p( s# `" P! Q2 h! S, j#SAY
) V( z8 m3 y" R* c<一键合成/@一键合成>

[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
. f8 P+ m, Y! r2 d% M, Y0 D' e
' w* W8 e/ ]! X. w* K[@_@合成]
# J$ l8 F- z! _3 K2 w#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT
2 _% d5 C4 ]3 ]) J
;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
2 \8 I, j6 p, @( i3 SDIV N$当前物品数量 4
( ~/ _' M2 H  `% ]MUL N$当前物品数量 4
) l) }$ V4 G8 ?+ p" O1 IMOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
, T7 P- G& d; fDIV N$当前物品数量 4
* p. u! |  @. Q0 g8 [GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
7 b) e* x. c2 E) w
& Z5 ?0 G- X* K# ^  A! M3 l( E( M8 Y#IF
#ACT
$ ]4 n# }: A; i( Z6 x; o+ ^4 H# f+ }INC N$循环标识 1