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

落日804452252

来源 西伯利亚的忠犬-狗哥
0 H9 J% \, L. x: w. L
1 J; X. f: k: ~4 g9 V$ Z5 E

[@MAIN]
+ q* S6 K) u* N) d#SAY
<一键合成/@一键合成>

[@一键合成]
% `" e/ H; d6 k& s8 lMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
' m- F, t5 k6 Z6 |# r6 N' k0 oGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
  Q1 S5 Y9 O; t* N+ R5 s" r
[@_@合成]
0 |/ ?1 [0 V% k! |#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
# }- e9 e' o! V- c) m3 ]#ACT

4 @: A9 g* F/ S;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
- r( k+ r* S7 BDIV N$当前物品数量 4
MUL N$当前物品数量 4
* {9 h1 }+ a/ N# UMOV N$给予下标 <$STR(N$循环标识)>
; m6 {- Q3 R: o: @8 s+ \5 OINC N$给予下标 1
6 Y, [4 x2 Z% R" ^/ pTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
% [+ B' u( A& `& u7 Y) ~DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
! J3 X, Y! J- C. z' y  c
' M+ h5 C/ P) A: j#IF
#ACT
INC N$循环标识 1