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

落日804452252

来源 西伯利亚的忠犬-狗哥
3 I+ m: z3 j% M: C$ t/ H6 U' ~
8 ~; l% _7 R  ?# }7 c5 K

0 U' N. N5 I; F7 |9 f[@MAIN]
$ f( p$ b" I, [1 G/ K  C#SAY
<一键合成/@一键合成>
- w. l. Z; t3 S% v
7 s6 ~! M% M( ?3 r  I8 h[@一键合成]
/ F# I+ o$ s' I  e8 ]9 N4 eMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
& w& g, A6 R& Y; D9 JDEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
LOOPGOTO @_@合成 <$STR(N$物品列表数量)>
' P6 S/ x3 z) ?* ]$ ^! J
[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
$ D8 i, Z8 @5 d5 L( b#ACT

  a6 k8 E1 b% g4 b- Z" Y; R. D;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
0 `* U7 P5 a9 G8 ]! V9 WMUL N$当前物品数量 4
: w- ?. n/ y2 z4 T. fMOV N$给予下标 <$STR(N$循环标识)>
/ }8 n# k" f; I! O% UINC N$给予下标 1
2 `+ }, P' F6 o0 z! T9 B: T9 t2 s# P- tTAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
DIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
8 d: j3 i0 L' X
4 B$ U. e  `8 H#IF
. z& ^3 L% d" h7 N7 A#ACT
INC N$循环标识 1

5 y  q7 t. d2 T8 w9 [. S