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

落日804452252

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



[@MAIN]
#SAY
<一键合成/@一键合成>

: b0 x2 b! p/ k) e& k[@一键合成]
: P* j' h/ F3 o$ T) \8 NMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
8 H- T( {7 f. p! }) HMOV N$循环标识 0
' i4 I$ i/ \* G- f3 h, _GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
9 [# I( M: g+ A. {4 sDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
! T) I4 G/ q9 Y2 Q- R3 x; h2 n
2 u1 [0 Z* w& A0 }[@_@合成]
#IF
/ A% o; [4 r  lCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT

;获取背包该物品数量
* g2 M: t* j4 W$ I* I. ]1 _GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量
4 f. X! W& ?* B
;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
* f* _0 x" y1 W" L  a( ^; D3 |2 Y" cDIV N$当前物品数量 4
* ^# i% A0 Y, H* QMUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
) f5 `  Y- X6 m0 ^/ f) \4 M* wTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
! h# Q& q" I* v+ {% P: T& |" m7 pDIV N$当前物品数量 4
, b3 X, f6 U# h8 I- k6 O3 rGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
2 \  Y" w' k9 L5 Z  R( K7 |* `9 f. ^
#IF
#ACT
INC N$循环标识 1
7 l# s! W- k6 M% @( X# g" j& m
' n4 Q# w' w0 C% }/ Q" f8 G7 u