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

落日804452252

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


, i, d5 f( W! E( j0 v1 u$ s
, ~: t+ b% O7 J/ S: @' A* D[@MAIN]
$ c* L. p1 f7 P, y) J4 v5 O9 d& P#SAY
<一键合成/@一键合成>
  e1 y5 @) X- B$ A$ o( ^! `
[@一键合成]
' r, K! t+ M! n& V( D7 MMOV L$数组 [一级物品,二级物品,三级物品,四级物品,五级物品,六级物品,七级物品] ;定义可合成的数组列表
MOV N$循环标识 0
& ^7 v! E4 h* }2 c$ C$ Q6 [GetListVarCount L$数组 N$物品列表数量 ;获取数组数量
DEC N$物品列表数量 1 ;因为物品最后一级无法合成,所以循环次数要等于物品数量减一
! S  d# L4 h9 MLOOPGOTO @_@合成 <$STR(N$物品列表数量)>
- \. {) o8 i+ Q
[@_@合成]
#IF
CHECKITEM <$STR(L$数组[<$STR(N$循环标识)>])> 4
$ K2 @: |8 g' q4 I+ q#ACT

5 {# R0 n  R# `  H+ ^7 a/ c;获取背包该物品数量
GetBAGItemCount <$STR(L$数组[<$STR(N$循环标识)>])> N$当前物品数量

;之所以要额外乘除,是为了去掉多余的数量,比如有26件物品，除以4等于6，再乘以4就等于24了
DIV N$当前物品数量 4
MUL N$当前物品数量 4
MOV N$给予下标 <$STR(N$循环标识)>
INC N$给予下标 1
TAKE <$STR(L$数组[<$STR(N$循环标识)>])> <$STR(N$当前物品数量)>
9 X' N4 L% o" a2 X; a9 {" BDIV N$当前物品数量 4
GIVE <$STR(L$数组[<$STR(N$给予下标)>])> <$STR(N$当前物品数量)>
9 B9 C1 c: X  ^8 r2 Z
  C' {: V/ [7 b0 E  L#IF
#ACT
7 r/ _" M& |1 }5 g) X" q3 @INC N$循环标识 1
* `0 X% {3 ]# q* \; P1 j5 s% z6 }