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

落日804452252

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



4 S. T3 k  T: w% g, \9 F/ \: o[@MAIN]
- v7 ?6 l2 Q0 D5 y" Z( `; u#SAY
<一键合成/@一键合成>

[@一键合成]
* f: I* G6 u3 W; }. h# ?MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
; z  y; y" s% R! WGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
5 u% g% o1 Z5 E9 Y$ ?# qDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
. E' I0 E8 \! k  Y  s8 eLOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
#IF
& j1 v4 \( l# jCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
" U3 j% T* P6 ^#ACT

' I. L# }) L0 X3 k6 a" O' f7 k* k;获取背包该物品数量
1 S4 p: |: X4 m# mGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

( k6 s" W: u! s/ O: Z;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
1 O+ u/ c3 q; h& ^9 j' R9 `0 lDIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
5 w6 p( |. D% ~. @0 z" }1 l4 B8 jTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
' V& f. a; \( y/ e* s( ]GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
1 P. k' W1 G! E7 T0 s; V
- c* q$ ~% X# h3 z' S' U7 A#IF
#ACT
INC N$循环标识 1