求助一个合成脚本的思路！

大jb超人

如有10种材料，只要拥有10种里面随机5种就可以合成1个物品。
可以用if(5)检测，但是take的时候怎么操作....

linklzq

5个变量呗

kill8

检测又不是随机的也是按顺序来了，扣除也按顺序来就行了

看我睡服你

[@main]
#act
GetMultiRandomText ..\QuestDiary\装备合成文本.txt 5 S1 N1
GOTO @_@合成初始化

[@_@合成初始化]
#IF
CHECKITEM <$STR(S1)> 1
CHECKITEM <$STR(S2)> 1
CHECKITEM <$STR(S3)> 1
CHECKITEM <$STR(S4)> 1
CHECKITEM <$STR(S5)> 1
#ACT
TAKE <$STR(S1)> 1
TAKE <$STR(S2)> 1
TAKE <$STR(S3)> 1
TAKE <$STR(S4)> 1
TAKE <$STR(S5)> 1
GIVE 合成物品 1

wtw120

感谢楼上分享

大jb超人

看我睡服你 发表于 2024-5-22 19:11
[@main]
#act
GetMultiRandomText ..\QuestDiary\装备合成文本.txt 5 S1 N1

我说的是10个材料里面，拥有随机5个就能合成

2627136983

#if(5)
checkitem 材料1
checkitem 材料2
checkitem 材料3
checkitem 材料4
checkitem 材料5
checkitem 材料6
checkitem 材料7
checkitem 材料8
checkitem 材料9
checkitem 材料10
#act
mov N$扣除次数 0
goto @扣除材料(材料1)
goto @扣除材料(材料2)
goto @扣除材料(材料3)
goto @扣除材料(材料4)
goto @扣除材料(材料5)
goto @扣除材料(材料6)
goto @扣除材料(材料7)
goto @扣除材料(材料8)
goto @扣除材料(材料9)
goto @扣除材料(材料10)

[@扣除材料]
#if
large N$扣除次数 5
#act
break


#if
#act
mov S$材料名称  <$scriptparam1>

#if
checkitem <$STR(S$材料名称)>
#act
take  S$材料名称
inc N$扣除次数 1

2627136983

结尾加上  


give 合成物品

442671

[@开始合成]
#ACT
;设置需要材料的种数
MOV N$需要材料 5
;材料文本地址,一行一个物品
GetTextLineCount ..\QuestDiary\合成材料.txt N$材料行数
MOV N$读取物品 1
MOV N$满足条件 0
MOV L$扣除材料
Loopgoto @读取材料 N$材料行数

#IF
NOT SMALL N$满足条件 <$STR(N$需要材料)>
#ACT
GetListVarCount L$扣除材料 N$扣除总数
MOV N$扣除材料 0
While N$扣除材料 < N$扣除总数
Take L$扣除材料[<$STR(N$扣除材料)>]
Inc N$扣除材料 1
EndWhile
;合成成功后给与的物品
Give 合成物品 1
MessageBox 恭喜你合成1个合成物品
Break
#ELSEACT
MessageBox 你没有任意<$STR(N$需要材料)>种材料
Break

[@读取材料]
#IF
SMALL N$满足条件 <$STR(N$需要材料)>
#ACT
GETRANDOMLINETEXT  ..\QuestDiary\合成材料.txt S$材料名字 N$读取物品
#ELSEACT
endloop
Break

#IF
CHECKITEM S$材料名字
#ACT
INC L$扣除材料 <$STR(S$材料名字)>
INC N$满足条件 1

#IF
#ACT
INC N$读取物品 1

初见ol

用OK框