|
[@main]
#if
CHECKLEVELEX > 52
#act
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
MOV N$框编号 10
MOV N$框图片 47
MOV N$遮挡编号 10
MOV N$遮挡图片1 380
MOV N$遮挡图片2 381
MOV N$遮挡图片3 382
MOV N$宝石1 0
MOV S$宝石1
MOV N$宝石2 0
MOV S$宝石2
MOV N$宝石3 0
MOV S$宝石3
MOV N$宝石4 0
MOV S$宝石4
MOV N$宝石5 0
MOV S$宝石5
MOV S$孔显示 <itembox:1:<$STR(N$框编号)>:<$STR(N$框图片)>:-10:140:38:38:*:请放入需要镶嵌的宝石>
MOV S$孔显示1 <itembox:2:<$STR(N$框编号)>:<$STR(N$框图片)>:20:140:38:38:*:请放入需要镶嵌的宝石>
MOV S$孔显示2 <itembox:3:<$STR(N$框编号)>:<$STR(N$框图片)>:50:140:38:38:*:请放入需要镶嵌的宝石>
MOV S$孔显示3 <itembox:4:<$STR(N$框编号)>:<$STR(N$框图片)>:80:140:38:38:*:请放入需要镶嵌的宝石>
MOV S$孔显示4 <itembox:5:<$STR(N$框编号)>:<$STR(N$框图片)>:110:140:38:38:*:请放入需要镶嵌的宝石>
GOTO @对话框
break
#ELSEACT
MESSAGEBOX 请您到了53级带极品套之后再来，否则是浪费石头和元宝。\\石头各个BOSS都有爆出！
break
[@对话框]
#if
#act
OPENMERCHANTBIGDLG 3 402 1 0 1 1 1
#say
\ <itembox:0:<$STR(N$框编号)>:<$STR(N$框图片)>:165:90:38:38:*:请放入需要打孔或镶嵌的装备><$STR(S$孔显示)><$STR(S$孔显示1)><$STR(S$孔显示2)><$STR(S$孔显示3)><$STR(S$孔显示4)>\
\ 在这里可以进行打孔、镶嵌和去除宝石.\
\ <打孔:点击封闭的孔就可以了,但是需要2000元宝开孔./FCOLOR=250>\
\ <镶嵌:将宝石放入孔里即可,每次镶嵌5000元宝./FCOLOR=250>\
\ <去除:去除宝石点击孔里的宝石就可以了/FCOLOR=250> <【宝石合成】/@合成宝石>\
[@合成宝石]
#if
#act
OPENMERCHANTBIGDLG 3 402 1 0 1 1 1
#say
\ \
\ <注:镶嵌2级宝石需要3个1级宝石和2000元宝/FCOLOR=249>\
\ <注:镶嵌3级宝石需要3个2级宝石和2000元宝/FCOLOR=249>\
\ <注:各大3W2以上的BOSS均可爆出宝石/FCOLOR=249>\ \
\ <2级攻击宝石/@合2级攻> <3级攻击宝石/@合3级攻> <2级魔法宝石/@合2级魔> <3级魔法宝石/@合3级魔>\ \
\ <2级道术宝石/@合2级道> <3级道术宝石/@合3级道> <2级生命宝石/@合2级血> <3级生命宝石/@合3级血>\
[@合3级血]
#if
CHECKITEM 二级生命宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个二级生命宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 二级生命宝石 3
GIVE 三级生命宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[三级生命宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合2级血]
#if
CHECKITEM 一级生命宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个一级生命宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 一级生命宝石 3
GIVE 二级生命宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[二级生命宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合3级道]
#if
CHECKITEM 二级道术宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个二级道术宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 二级道术宝石 3
GIVE 三级道术宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[三级道术宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合2级道]
#if
CHECKITEM 一级道术宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个一级道术宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 一级道术宝石 3
GIVE 二级道术宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[二级道术宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合3级魔]
#if
CHECKITEM 二级魔法宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个二级魔法宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 二级魔法宝石 3
GIVE 三级魔法宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[三级魔法宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合2级魔]
#if
CHECKITEM 一级魔法宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个一级魔法宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 一级魔法宝石 3
GIVE 二级魔法宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[二级魔法宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合3级攻]
#if
CHECKITEM 二级攻击宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个二级攻击宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 二级攻击宝石 3
GIVE 三级攻击宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[三级攻击宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@合2级攻]
#if
CHECKITEM 一级攻击宝石 3
#act
#elseact
MESSAGEBOX 包裹中没有3个一级攻击宝石!
break
#if
CHECKGAMEGOLD ? 2000
#act
TAKE 一级攻击宝石 3
GIVE 二级攻击宝石 1
GAMEGOLD - 2000
MESSAGEBOX 恭喜你成功合成[二级攻击宝石]*1
break
#elseact
MESSAGEBOX 元宝不足,无法合成!
break
[@ItemIntoBox0]
#if
checktextlist ..\QuestDiary\数据文件\可镶嵌列表.txt <$BOXITEM[0].NAME>
#act
SetUpgradeItem 0
#elseact
ReturnBoxItem 0
MESSAGEBOX 你放入的物品不能镶嵌宝石!
break
#if
CHECKDRILLHOLE -1 0
#act
MOV S$孔显示 <itembox:1:<$STR(N$框编号)>:<$STR(N$框图片)>:-10:140:38:38:*:请放入需要镶嵌的宝石>
#elseact
MOV S$孔显示 <IMGEX:<$STR(N$遮挡编号)>:<$STR(N$遮挡图片1)>:<$STR(N$遮挡图片2)>:<$STR(N$遮挡图片3)>:-10:140/@开启1孔>
#if
CHECKDRILLHOLE -1 1
#act
MOV S$孔显示1 <itembox:2:<$STR(N$框编号)>:<$STR(N$框图片)>:20:140:38:38:*:请放入需要镶嵌的宝石>
#elseact
MOV S$孔显示1 <IMGEX:<$STR(N$遮挡编号)>:<$STR(N$遮挡图片1)>:<$STR(N$遮挡图片2)>:<$STR(N$遮挡图片3)>:20:140/@开启2孔>
#if
CHECKDRILLHOLE -1 2
#act
MOV S$孔显示2 <itembox:3:<$STR(N$框编号)>:<$STR(N$框图片)>:50:140:38:38:*:请放入需要镶嵌的宝石>
#elseact
MOV S$孔显示2 <IMGEX:<$STR(N$遮挡编号)>:<$STR(N$遮挡图片1)>:<$STR(N$遮挡图片2)>:<$STR(N$遮挡图片3)>:50:140/@开启3孔>
#if
CHECKDRILLHOLE -1 3
#act
MOV S$孔显示3 <itembox:4:<$STR(N$框编号)>:<$STR(N$框图片)>:80:140:38:38:*:请放入需要镶嵌的宝石>
#elseact
MOV S$孔显示3 <IMGEX:<$STR(N$遮挡编号)>:<$STR(N$遮挡图片1)>:<$STR(N$遮挡图片2)>:<$STR(N$遮挡图片3)>:80:140/@开启4孔>
#if
CHECKDRILLHOLE -1 4
#act
MOV S$孔显示4 <itembox:5:<$STR(N$框编号)>:<$STR(N$框图片)>:110:140:38:38:*:请放入需要镶嵌的宝石>
#elseact
MOV S$孔显示4 <IMGEX:<$STR(N$遮挡编号)>:<$STR(N$遮挡图片1)>:<$STR(N$遮挡图片2)>:<$STR(N$遮挡图片3)>:110:140/@开启5孔>
#if
CHECKSOCKETABLEITEM -1 0 N$宝石1 S$宝石1
#act
DEC N$宝石1 1
MOV S$孔显示 <ItemShow:<$STR(N$宝石1)>:1:-10:140:1/@拆宝石1>
#if
CHECKSOCKETABLEITEM -1 1 N$宝石2 S$宝石2
#act
DEC N$宝石2 1
MOV S$孔显示1 <ItemShow:<$STR(N$宝石2)>:1:20:140:1/@拆宝石2>
#if
CHECKSOCKETABLEITEM -1 2 N$宝石3 S$宝石3
#act
DEC N$宝石3 1
MOV S$孔显示2 <ItemShow:<$STR(N$宝石3)>:1:50:140:1/@拆宝石3>
#if
CHECKSOCKETABLEITEM -1 3 N$宝石4 S$宝石4
#act
DEC N$宝石4 1
MOV S$孔显示3 <ItemShow:<$STR(N$宝石4)>:1:80:140:1/@拆宝石4>
#if
CHECKSOCKETABLEITEM -1 4 N$宝石5 S$宝石5
#act
DEC N$宝石5 1
MOV S$孔显示4 <ItemShow:<$STR(N$宝石5)>:1:110:140:1/@拆宝石5>
#if
#act
GOTO @对话框
break
[@ItemOutBox0]
#if
#act
GOTO @main
[@开启1孔]
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
DRILLHOLE 88 88 -1 88 88 0 88 1 88 88
UpDateBoxItem 0
GOTO @ItemIntoBox0
SENDMSG 5 恭喜你成功开启[<$BOXITEM[0].NAME>]的第一个宝石孔位!
break
#elseact
MESSAGEBOX 元宝不足2000,不能开孔!
BREAK
[@开启2孔]
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
DRILLHOLE 88 88 -1 88 88 1 88 1 88 88
UpDateBoxItem 0
GOTO @ItemIntoBox0
SENDMSG 5 恭喜你成功开启[<$BOXITEM[0].NAME>]的第二个宝石孔位!
break
#elseact
MESSAGEBOX 元宝不足2000,不能开孔!
BREAK
[@开启3孔]
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
DRILLHOLE 88 88 -1 88 88 2 88 1 88 88
UpDateBoxItem 0
GOTO @ItemIntoBox0
SENDMSG 5 恭喜你成功开启[<$BOXITEM[0].NAME>]的第三个宝石孔位!
break
#elseact
MESSAGEBOX 元宝不足2000,不能开孔!
BREAK
[@开启4孔]
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
DRILLHOLE 88 88 -1 88 88 3 88 1 88 88
UpDateBoxItem 0
GOTO @ItemIntoBox0
SENDMSG 5 恭喜你成功开启[<$BOXITEM[0].NAME>]的第四个宝石孔位!
break
#elseact
MESSAGEBOX 元宝不足2000,不能开孔!
BREAK
[@开启5孔]
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
DRILLHOLE 88 88 -1 88 88 4 88 1 88 88
UpDateBoxItem 0
GOTO @ItemIntoBox0
SENDMSG 5 恭喜你成功开启[<$BOXITEM[0].NAME>]的第五个宝石孔位!
break
#elseact
MESSAGEBOX 元宝不足2000,不能开孔!
BREAK
[@ItemIntoBox1]
#if
checktextlist ..\QuestDiary\数据文件\宝石列表.txt <$BOXITEM[1].NAME>
#act
#elseact
ReturnBoxItem 1
MESSAGEBOX 你放入的不是宝石,不能镶嵌!
break
#if
CHECKSOCKETABLEITEM -1 0 N$宝石1 S$宝石1
#act
#if
NOT EQUAL S$宝石1
#act
ReturnBoxItem 1
MESSAGEBOX 当前位置已经镶嵌过宝石!
BREAK
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
MOV S$宝石名1 <$BOXITEM[1].NAME>
SOCKETABLEITEM 88 88 88 88 -1 0 88 88 0 88
SOCKETABLEITEM 88 88 88 88 -1 0 88 88 <$BOXITEM[1].INDEX> 88
ReturnBoxItem 1
TAKE <$STR(S$宝石名1)> 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
break
#elseact
ReturnBoxItem 1
MESSAGEBOX 元宝不足5000,不能镶嵌!
break
[@ItemIntoBox2]
#if
checktextlist ..\QuestDiary\数据文件\宝石列表.txt <$BOXITEM[2].NAME>
#act
#elseact
ReturnBoxItem 2
MESSAGEBOX 你放入的不是宝石,不能镶嵌!
break
#if
CHECKSOCKETABLEITEM -1 1 N$宝石2 S$宝石2
#act
#if
NOT EQUAL S$宝石2
#act
ReturnBoxItem 2
MESSAGEBOX 当前位置已经镶嵌过宝石!
BREAK
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
MOV S$宝石名2 <$BOXITEM[2].NAME>
SOCKETABLEITEM 88 88 88 88 -1 1 88 88 0 88
SOCKETABLEITEM 88 88 88 88 -1 1 88 88 <$BOXITEM[2].INDEX> 88
ReturnBoxItem 2
TAKE <$STR(S$宝石名2)> 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
break
#elseact
ReturnBoxItem 2
MESSAGEBOX 元宝不足5000,不能镶嵌!
break
[@ItemIntoBox3]
#if
checktextlist ..\QuestDiary\数据文件\宝石列表.txt <$BOXITEM[3].NAME>
#act
#elseact
ReturnBoxItem 3
MESSAGEBOX 你放入的不是宝石,不能镶嵌!
break
#if
CHECKSOCKETABLEITEM -1 2 N$宝石3 S$宝石3
#act
#if
NOT EQUAL S$宝石3
#act
ReturnBoxItem 3
MESSAGEBOX 当前位置已经镶嵌过宝石!
BREAK
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
MOV S$宝石名3 <$BOXITEM[3].NAME>
SOCKETABLEITEM 88 88 88 88 -1 2 88 88 0 88
SOCKETABLEITEM 88 88 88 88 -1 2 88 88 <$BOXITEM[3].INDEX> 88
ReturnBoxItem 3
TAKE <$STR(S$宝石名3)> 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
break
#elseact
ReturnBoxItem 3
MESSAGEBOX 元宝不足5000,不能镶嵌!
break
[@ItemIntoBox4]
#if
checktextlist ..\QuestDiary\数据文件\宝石列表.txt <$BOXITEM[4].NAME>
#act
#elseact
ReturnBoxItem 4
MESSAGEBOX 你放入的不是宝石,不能镶嵌!
break
#if
CHECKSOCKETABLEITEM -1 3 N$宝石4 S$宝石4
#act
#if
NOT EQUAL S$宝石4
#act
ReturnBoxItem 4
MESSAGEBOX 当前位置已经镶嵌过宝石!
BREAK
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
MOV S$宝石名4 <$BOXITEM[4].NAME>
SOCKETABLEITEM 88 88 88 88 -1 3 88 88 0 88
SOCKETABLEITEM 88 88 88 88 -1 3 88 88 <$BOXITEM[4].INDEX> 88
ReturnBoxItem 4
TAKE <$STR(S$宝石名4)> 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
break
#elseact
ReturnBoxItem 4
MESSAGEBOX 元宝不足5000,不能镶嵌!
break
[@ItemIntoBox5]
#if
checktextlist ..\QuestDiary\数据文件\宝石列表.txt <$BOXITEM[5].NAME>
#act
#elseact
ReturnBoxItem 5
MESSAGEBOX 你放入的不是宝石,不能镶嵌!
break
#if
CHECKSOCKETABLEITEM -1 4 N$宝石5 S$宝石5
#act
#if
NOT EQUAL S$宝石5
#act
ReturnBoxItem 5
MESSAGEBOX 当前位置已经镶嵌过宝石!
BREAK
#if
CHECKGAMEGOLD ? 2000
#act
SetUpgradeItem 0
GAMEGOLD - 2000
MOV S$宝石名5 <$BOXITEM[5].NAME>
SOCKETABLEITEM 88 88 88 88 -1 4 88 88 0 88
SOCKETABLEITEM 88 88 88 88 -1 4 88 88 <$BOXITEM[5].INDEX> 88
ReturnBoxItem 5
TAKE <$STR(S$宝石名5)> 1
UpDateBoxItem 0
GOTO @ItemIntoBox0
break
#elseact
ReturnBoxItem 5
MESSAGEBOX 元宝不足5000,不能镶嵌!
break
[@拆宝石1]
#if
CHECKSOCKETABLEITEM -1 0 N$宝石1 S$宝石1
#act
#if
NOT EQUAL S$宝石1
#act
SetUpgradeItem 0
SOCKETABLEITEM 88 88 88 88 -1 0 88 88 0 88
UpDateBoxItem 0
MESSAGEBOX 成功拆除第一个孔位的宝石[<$STR(S$宝石1)>].
GOTO @ItemIntoBox0
break
#elseact
MESSAGEBOX 当前孔位没有镶嵌宝石!
break
[@拆宝石2]
#if
CHECKSOCKETABLEITEM -1 1 N$宝石2 S$宝石2
#act
#if
NOT EQUAL S$宝石2
#act
SetUpgradeItem 0
SOCKETABLEITEM 88 88 88 88 -1 1 88 88 0 88
UpDateBoxItem 0
MESSAGEBOX 成功拆除第二个孔位的宝石[<$STR(S$宝石2)>].
GOTO @ItemIntoBox0
break
#elseact
MESSAGEBOX 当前孔位没有镶嵌宝石!
break
[@拆宝石3]
#if
CHECKSOCKETABLEITEM -1 2 N$宝石3 S$宝石3
#act
#if
NOT EQUAL S$宝石3
#act
SetUpgradeItem 0
SOCKETABLEITEM 88 88 88 88 -1 2 88 88 0 88
UpDateBoxItem 0
MESSAGEBOX 成功拆除第三个孔位的宝石[<$STR(S$宝石3)>].
GOTO @ItemIntoBox0
break
#elseact
MESSAGEBOX 当前孔位没有镶嵌宝石!
break
[@拆宝石4]
#if
CHECKSOCKETABLEITEM -1 3 N$宝石4 S$宝石4
#act
#if
NOT EQUAL S$宝石4
#act
SetUpgradeItem 0
SOCKETABLEITEM 88 88 88 88 -1 3 88 88 0 88
UpDateBoxItem 0
MESSAGEBOX 成功拆除第四个孔位的宝石[<$STR(S$宝石4)>].
GOTO @ItemIntoBox0
break
#elseact
MESSAGEBOX 当前孔位没有镶嵌宝石!
break
[@拆宝石5]
#if
CHECKSOCKETABLEITEM -1 4 N$宝石5 S$宝石5
#act
#if
NOT EQUAL S$宝石5
#act
SetUpgradeItem 0
SOCKETABLEITEM 88 88 88 88 -1 4 88 88 0 88
UpDateBoxItem 0
MESSAGEBOX 成功拆除第五个孔位的宝石[<$STR(S$宝石5)>].
GOTO @ItemIntoBox0
break
#elseact
MESSAGEBOX 当前孔位没有镶嵌宝石!
break
|
