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

落日804452252

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

  t9 N+ z3 z! q/ q

% T/ P0 W2 s7 r( O' O[@MAIN]
" p8 f5 i& F2 m4 d#SAY
<一键合成/@一键合成>

/ u. V, w- h/ ^# q$ n( x[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
) j# {* V# `, F: `' lLOOPGOTO @_@合成 <$STR(N$物品列表数量)>
/ G: O3 j! L! t+ \- g
' L, a- s7 d, [- g6 O$ `[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT
- k% p! H+ O% A5 x8 H
;获取背包该物品数量
7 F3 U5 s. q% C) O" UGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
3 P* ^, r8 O' q8 S) S- t4 pDIV N$当前物品数量 4
MUL N$当前物品数量 4
) _: t# h: r! Q& V% g$ Q: p/ `MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
% P" d8 }  B% z+ F, y$ xTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
: m& r6 S6 U. \. K+ W9 O" P2 [GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>

#IF
7 D1 B0 v7 n1 e+ ^#ACT
2 }& l) a8 x& y) u% {INC N$循环标识 1