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

落日804452252

来源 西伯利亚的忠犬-狗哥
1 N* t; w' J( L1 l7 y9 _

3 h* O. l( `$ k8 S8 q* c: x
) L0 Y, J, m3 k( I3 @# v[@MAIN]
0 Q+ o9 l; M+ _; E0 A, k#SAY
. |6 J" P7 V" n% H/ r<一键合成/@一键合成>
( L! s' n8 f; y( a  j5 B! z
[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT
+ O/ F) j) I5 \5 B) g
;获取背包该物品数量
+ U  U# a3 {3 H8 g0 sGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
3 d0 j# \. k7 e4 l. w3 P) n7 UDIV N$当前物品数量 4
" a) H0 D' O7 r* c- u3 I! qMUL N$当前物品数量 4
4 a( M, ^5 R. U% I4 [MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
; g! c$ V6 |- o9 \4 G) CTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
9 @) q. u0 d" M+ ]* b! r+ b5 zDIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
#ACT
9 g( _2 e3 @3 m8 Z* F9 F! t8 y/ cINC N$循环标识 1
; O6 o: ?% Q& U2 {& a