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

落日804452252

来源 西伯利亚的忠犬-狗哥
9 e% I% J( d9 }% d  X

- X+ B' \( Z( ?5 e3 d) q7 h
[@MAIN]
& h' I/ ]& L* X9 O: J2 x#SAY
/ x! g) {7 s/ X/ V1 z: t* O6 ~9 E<一键合成/@一键合成>

& P; |$ ^3 @" L4 ], u[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
6 v0 l+ [/ O$ Z  }) p: V; V/ GMOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
* G2 f! E4 y9 }" m2 c2 ^% BDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

& @& L! J: j* `. t& }- g0 E2 M[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
8 q: a7 @% G) K" h0 i#ACT

;获取背包该物品数量
( m5 d- n3 A1 M. {8 a( ~$ p, gGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
7 R8 B, k8 i; s$ r7 FTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
' s; P6 \" I. Y! oDIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
9 {) d' s8 F+ e' Z& Y% g#ACT
INC N$循环标识 1
3 [# f0 V/ o* R5 Z& d* d
& |. i6 E4 Q3 P