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

落日804452252

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

4 G% p- l4 @$ U4 v

[@MAIN]
% n3 o1 t, b' ^2 ^& ^+ j+ {#SAY
<一键合成/@一键合成>
3 |" ^) P' L+ B
: z7 ~' _1 z! W[@一键合成]
9 h8 [$ s) ^; q4 i+ ~MOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
3 \: Q/ E% G/ bGetListVarCount L$数组 N$物品列表数量 ;获取数组数量
2 Q& P6 B/ E+ v4 }; P& gDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>

[@_@合成]
#IF
" A. g) i( d/ S6 }: W- m. s' DCHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
$ X" s: C& C5 @3 v#ACT
2 V6 c' z9 P* P# j0 b% Z
;获取背包该物品数量
" r) N9 i1 J2 `& M# [5 w9 aGetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

5 W( n4 G, F0 n! f; N/ a8 l;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
! c6 i3 I+ o6 H8 J4 KDIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
" l8 L  e# }  F1 O7 a2 {TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
8 p5 R6 o+ s: r9 LDIV N$当前物品数量 4
  j# R: C1 Q+ l( |+ CGIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
/ I0 Y& [# P1 @
6 S. K( t3 q7 F: t( g#IF
#ACT
+ @0 R, ], H* x* q+ w3 X6 z' \INC N$循环标识 1
9 S8 P- N" A0 ]0 B$ V
' s7 y' Z' U0 c