开心ol私服奇迹一条龙新编的神秘工匠师脚本

[@main]
#IF
#ACT
MOV P1 52
;55为sucai.Pak的资源编号
OPENMERCHANTBIGDLG $str(p1) 210 0 0 0 0 1 1160 0 1
#SAY
img:0:$str(p1):380:-14/@exit\
ITEMBOX:0:$str(p1):201:215:110:50:50:28,65,90:254#请放入装备BUff加持\
ITEMBOX:1:$私服 传奇str(p1):201:215:200:50:50:41:254#请放入BUff材料\
\ ImgEx:$STR(p1):198:199:199:145:210/@BUff熔炼\
\ \
\ \
ImgEx:$STR(p1):208:209:209:-5:-45/@main\
ImgEx:$STR(p1):207:206:206:-5:-15/@分解\

[@分解]
#IF
#ACT
OPENMERCHANTBIGDLG $str(p1) 210 0 0 0 0 1 1160 0 1
#SAY
img:0:$str(p1):380:-14/@exit\
ITEMBOX:2:$str(p1):201:215:110:50:50:28,65,90:254#请放入装备分解\
\ \
\ ImgEx:$STR(p1):194:195:195:145:210/@BUf分解\
\ \
\ \
ImgEx:$STR(p1):209:208:208:-5:-45/@main\
ImgEx:$STR(p1):206:207:207:-5:-15/@分解\

[@BUf分解]
#IF
CheckBoxItemCount 2 1
#ACt
GetDBItemFieldValue $BOXITEM[2].NAME STDMODE $STR(S$装备类型)
#elseact
BREAK
#IF
EQUAL $STR(S$装备类型) 90
CheckBoxItemCount 2 1
CHECKTEXTLIST ..\Market_def\锋哥\分解列表.txt $BOXITEM[2].NAME
#ACT
GIVE [BUFF]玄冰灵魄 1
MOV S$分解文本 $BOXITEM[2].NAME
DEC S$分解文本 [BUFF传奇私服1 85内挂版]
GIVE $STR(S$分解文本) 1
DelBoxItem 2
BREAK

#IF
EQUAL $STR(S$装备类型) 65
CheckBoxItemCount 2 1
CHECKTEXTLIST ..\Market_def\锋哥\分解列表.txt $BOXITEM[2].NAME
#ACT
GIVE [BUFF]烈焰灼心 1
MOV S$分解文本 $BOXITEM[2].NAME
DEC S$分解文本 [BUFF]
GIVE $STR(S$分解热血传奇 万宇文本) 1
DelBoxItem 2
BREAK
#IF
EQUAL $STR(S$装备类型) 28
CHECKTEXTLIST ..\Market_def\锋哥\分解列表.txt $BOXITEM[2].NAME
#ACT
GIVE [BUFF]金刚炼魂 1
MOV S$分解文本 $BOXITEM[2].NAME
DEC S$分解文本 [BUFF]
GIVE $STR(S$分解文本) 1
DelBoxItem 2
BREAK
[@ItemIntoBox1]
#IF
NOT CheckBoxItemCount 0 1
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
BREAK
#IF
NOT EQUAL $BOXITEM[1].NAME $STR(S$BUFF材料)
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
BREAK

[@ItemIntoBox0]
#IF
CheckBoxItemCount 0 1
#ACt
GetDBItemFieldValue $BOXITEM[0].NAME STDMODE $STR(S$装备类型)
#elseact
BREAK
#IF
EQUAL $STR(S$装备类型) 90
#ACT
MOV S$BUFF材料 [BUFF]玄冰灵魄
BREAK
#IF
EQUAL $STR(S$装备类型) 65
#ACT
MOV S$BUFF材料 [BUFF]烈焰灼心
BREAK
#IF
EQUAL $STR(S$装备类型) 28
#ACT
MOV S$BUFF材料 [BUFF]金刚炼魂
BREAK
[@BUff熔炼]
#IF
CheckBoxItemCount 0 1
#ACt
GetDBItemFieldValue $BOXITEM[0].NAME STDMODE $STR(S$装备类型)
#elseact
BREAK
#IF
EQUAL $STR(S$装备类型) 90
NOT CheckContainsText [BUFF] $BOXITEM[0].NAME
CHECKTEXTLIST ..\Market_def\锋哥\熔炼列表.txt $BOXITEM[0].NAME
EQUAL $BOXITEM[1].NAME [BUFF]玄冰灵魄
CheckBoxItemCount 1 1
CheckBoxItemCount 0 1
#ACT
GIVE $BOXITEM[0].NAME[BUFF] 1
messagebox [BUFF]玄冰灵魄已熔炼在$BOXITEM[1].NAME装备上
DelBoxItem 1
DelBoxItem 0
MOV S$装备类型
MOV S$BUFF材料
BREAK
#IF
EQUAL $STR(S$装备类型) 65
NOT CheckContainsText [BUFF] $BOXITEM[0].NAME
CHECKTEXTLIST ..\Market_def\锋哥\熔炼列表.txt $BOXITEM[0].NAME
EQUAL $BOXITEM[1].NAME [BUFF]烈焰灼心
CheckBoxItemCount 1 1
CheckBoxItemCount 0 1
#ACT
GIVE $BOXITEM[0].NAME[BUFF] 1
messagebox [BUFF]烈焰灼心已熔炼在$BOXITEM[1].NAME装备上
DelBoxItem 1
DelBoxItem 0
MOV S$装备类型
MOV S$BUFF材料
BREAK
#IF
EQUAL $STR(S$装备类型) 28
NOT CheckContainsText [BUFF] $BOXITEM[0].NAME
CHECKTEXTLIST ..\Market_def\锋哥\熔炼列表.txt $BOXITEM[0].NAME
EQUAL $BOXITEM[1].NAME [BUFF]金刚炼魂
CheckBoxItemCount 1 1
CheckBoxItemCount 0 1
#ACT
ReadConfigFileItem ..Market_def\锋哥\物品名字.txt 物品列表 $BOXITEM[0].NAME $STR(S$合成后BUFF物品)
GIVE $BOXITEM[0].NAME[BUFF] 1
DelBoxItem 1
DelBoxItem 0
MOV S$装备类型
MOV S$BUFF材料
BREAK