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

落日804452252

来源 西伯利亚的忠犬-狗哥
1 u/ |$ r$ U* D7 \' P& [" u
3 D% y) y' Q/ A% A' P
: l8 j: g* e, E9 E+ r& j! Z
" C  i& c) }# Q" w  L[@MAIN]
#SAY
<一键合成/@一键合成>
. M9 m% m4 Z6 K! v! R: @# y4 T
) |' J! N5 Q- R# Y[@一键合成]
MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
" D/ c* o" p1 k% Y% U  i# xDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
& X. C; `  y! j, A9 eLOOPGOTO @_@合成 <$STR(N$物品列表数量)>
9 [  p! \0 K7 w8 s
[@_@合成]
#IF
; T, {  Q: B& |+ T( hCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
#ACT
* _  P# G! i9 y# `
;获取背包该物品数量
2 w- D8 P! Z, @GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
% t3 u- ?: l/ x. ADIV N$当前物品数量 4
  ]4 z. o; p3 k3 [+ EMUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
! e: z3 t! c" x8 DINC N$给予下标 1
4 D3 ~5 u% ]4 E; ^4 zTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
' j$ |0 z% C9 I/ tDIV N$当前物品数量 4
1 C) t! z$ P( B/ e8 N6 lGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
8 t  U" D- B+ k! @
#IF
: [3 ?4 C( g1 L#ACT
INC N$循环标识 1