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

落日804452252

来源 西伯利亚的忠犬-狗哥
' I! l6 R0 `6 u! ]) a


2 y! r/ J" S& D[@MAIN]
#SAY
7 u' a8 x: I; H<一键合成/@一键合成>
8 y' N/ w/ z1 b. k
[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
; D5 Q% D- ~4 x' L- j) \' S# KMOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
& ]; u5 I' l0 V' _  N" cDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
* _7 K$ D0 P, O4 V' b
8 {  N' Y- n) ^9 ~6 \0 L. C: v1 u/ }) c[@_@合成]
. S3 X; z+ m1 U) y: E( l#IF
  [5 q) J3 g2 O/ uCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
9 p  }* V* X* ^/ S) p* b5 i. y#ACT
9 F. k4 K4 l" W; }/ h9 y4 \
;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
! ]: \5 r: C( n% ^2 K0 g5 F+ aDIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
. `& F: m3 L* b2 M/ V, V0 H9 Y5 AINC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
+ B5 X/ {! J  S4 _) aDIV N$当前物品数量 4
4 |/ P5 L$ f6 O  ]0 LGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
, T  F8 k4 U4 f0 F5 C8 C/ L! P" x
" l0 R9 W* v# Q6 p0 p  {' A#IF
- E" W! U/ W% U9 _#ACT
5 b# \+ Q2 z% j# I& ~# iINC N$循环标识 1

# \( y; t6 ]' f- _& O3 d