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

落日804452252

来源 西伯利亚的忠犬-狗哥
: D8 Q: F, |% q6 U2 V, q, ~+ F
/ p# H) e5 H8 _  K
7 f: E8 ~: \/ V* j6 ~2 g
[@MAIN]
#SAY
* ^* V9 b& I& K+ h8 ?" D: D" A<一键合成/@一键合成>
' E! q  B' V% ^6 x9 a
[@一键合成]
: O+ z3 S3 i1 [! c% K5 t7 A5 tMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
' f- F0 o; p  G9 @MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
/ g2 D, e. ^/ p& Q$ w4 \9 sLOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
* K+ P* a5 [, j) \! w#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT
) M' [9 o$ z+ Y3 j
! W, b, V* ?1 R: f  `" I$ [;获取背包该物品数量
! @: @* n, P( P, y1 w% F6 lGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
, A7 u) p4 w- ~0 nDIV N$当前物品数量 4
7 X* l1 }2 D' |8 f$ `MUL N$当前物品数量 4
% F2 j- y7 v6 f5 NMOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
' q. o$ i, V" UDIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
: L: H8 Z3 [7 b- O
#IF
; ^! N, H" j3 o1 A1 }#ACT
" _2 ^$ \" E5 g/ PINC N$循环标识 1

9 _. e  e' {+ n8 e