这个传奇3私服的首饰合成脚本，可以自定义合成的成功率，并把合成的情况记录在文本中。
原始成功率，最大成功率的设置，请自行新建目录，里面写明就行了。
[@合成首饰]
{
#ACT
LOADVALUE D8 "QuestDiary\资料库\参数控制\积分系统控制.txt" 参数控制 项链合成原始成功率
LOADVALUE D9 "QuestDiary\资料库\参数控制\积分系统控制.txt" 参数控制 项链合成最大成功率
LOADVALUE D0 "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造
#IF
LARGE D0 0
#ACT
INC D8 %D0
#SAY
请选择你需要合成的项链!\
目前成功率为[{FCOLOR/1}<$OUTPUT(D8)>/<$OUTPUT(D9)>{FCOLOR/12}]\
<[注入创造之石]/@@合成首饰注入>\
<[退回创造之石]/@首退创造>\
<[黑天暗云]/@首饰合成(黑,天,暗,云)>\
<[九宫云雾]/@首饰合成(九,宫,云,雾)>\
<[万里碧海]/@首饰合成(万,里,碧,海)>\
<[血花落照]/@首饰合成(血,花,落,照)>\
#ELSESAY
请选择你需要合成的项链!\
目前成功率为[{FCOLOR/1}<$OUTPUT(D8)>/<$OUTPUT(D9)>{FCOLOR/12}]\
<[注入创造宝石]/@@合成首饰注入>\
<[黑天暗云]/@首饰合成(黑,天,暗,云)>\
<[九宫云雾]/@首饰合成(九,宫,云,雾)>\
<[万里碧海]/@首饰合成(万,里,碧,海)>\
<[血花落照]/@首饰合成(血,花,落,照)>\
[@首退创造]
#ACT
LOADVALUE D0 "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造
#IF
EQUAL D0 0
#ACT
CLOSE
BREAK
#ELSEACT
GIVE 创造之石 %D0
SAVEVALUE "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造 0
CLOSE
BREAK
[@首饰合成()]
#ACT
MOV A1 %ARG(1)
MOV A2 %ARG(2)
MOV A3 %ARG(3)
MOV A4 %ARG(4)
MOV A0 ""
ADDSTR A0 %A1
ADDSTR A0 %A2
ADDSTR A0 %A3
ADDSTR A0 %A4
MOV A5 %A0
ADDSTR A5 "（"
ADDSTR A5 %A1
ADDSTR A5 "）"
MOV A6 %A0
ADDSTR A6 "（"
ADDSTR A6 %A2
ADDSTR A6 "）"
MOV A7 %A0
ADDSTR A7 "（"
ADDSTR A7 %A3
ADDSTR A7 "）"
MOV A8 %A0
ADDSTR A8 "（"
ADDSTR A8 %A4
ADDSTR A8 "）"
#IF
CHECKITEM %A5 1
CHECKITEM %A6 1
CHECKITEM %A7 1
CHECKITEM %A8 1
#SAY
目前成功率为[{FCOLOR/1}<$OUTPUT(D8)>/<$OUTPUT(D9)>{FCOLOR/12}]\
请问你是否继续合成?\
<合成/@合成去>\
<算了,退回创造/@合成首饰退还创造>\
#ELSEACT
SYSMSG "你道具不足~"
[@合成去]
#ACT
MOVR D7 100
INC D7 1
#IF
ESMALL D7 %D8
#ACT
TAKE %A5 1
TAKE %A6 1
TAKE %A7 1
TAKE %A8 1
GIVE %A0 1
SAVEVALUE "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造 0
linemsg Grobal "难以置信.<$USERNAME>:成功的合成了 密宝 [<$OUTPUT(A0)>]"
CLOSE
BREAK
#ELSEACT
TAKE %A5 1
TAKE %A6 1
TAKE %A7 1
TAKE %A8 1
SYSMSG "有个不幸的消息告诉你,你失败了!材料已经全部破碎"
SAVEVALUE "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造 0
CLOSE
BREAK
[@@合成首饰注入]
#ACT
MOV D0 %INPUTNUM
#IF
ESMALL D0 0
#ACT
SYSMSG "对不起,你输入的数值有误"
BREAK
#IF
CHECKITEM 创造之石 %D0
#ACT
LOADVALUE D1 "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造
INC D1 %D0
TAKE 创造之石 %D0
SAVEVALUE "QuestDiary\资料库\暂时记录\创造记录.txt" %USERNAME 合成首饰创造 %D1
GOTO @合成首饰
BREAK
#ELSEACT
SYSMSG "对不起，你没有那么多的创造之石，请查证"
break
}
本文出自:
搜传奇3转载请注明来处：http://www.so373.com/showarticle.asp?id=83
