当前位置： > 心情故事> 正文
很多传动漫美女被草图奇GM找的宝石拆卸脚本文件分享
发布时间：2020-11-25 21:51:12 来源：http://www.y46.net 作者：
[@main]
#SAY
\Img:507:8:0:-14/@main Img:508:8:0:-14/@转移\
ITEMBOX:1:-1:-1:222:65:36:36:*:放入丹火\
ITEMBOX:2:-1:-1:221:159:36:36:*:放入需要拆卸熔炼石的装备\
\
#ACT
OPENMERCHANTBIGDLG 8 505 1 4 0 0 1 495 10
break
[@ItemIntoBox1]
#IF
NOT CheckContainsText $BOXITEM[1].NAME_G 丹火
#ACT
ReturnBoxItem 1
MESSAGEBOX 你放入的不是丹火，请重新放入。
break
[@ItemIntoBox2]
#ACT
SetUpgradeItem 2
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 2
MESSAGEBOX 此装备没有熔炼过宝石，请换一件装备。
#IF
CHECKSOCKETABLEITEM -1 0 N$宝石1的IDX S$宝石1的名字
#IF
CHECKSOCKETABLEITEM -1 1 N$宝石2的IDX S$宝石2的名字
#IF
CHECKSOCKETABLEITEM -1 2 N$宝石3的IDX S$宝石3的名字
#IF
CHECKSOCKETABLEITEM -1 3 N$宝石4的IDX S$宝石4的名字
#IF
CHECKSOCKETABLEITEM -1 4 N$宝石5的IDX S$宝石5的名字
#IF
#SAY
\Img:$STR(N$宝石1的IDX):73:87:142|^装备:$BOXITEM[2].NAME^孔槽①:$STR(S$宝石1的名字)^ ^251#拆卸熔炼石所需金币10万^251#左键点击此熔炼石可进行拆卸操作/@拆卸1
Img:$STR(N$宝石2的IDX):73:124:142|^装备:$BOXITEM[2].NAME^孔槽②:$STR(S$宝石2的名字)^ ^251#拆卸熔炼石所需金币10万^251#左键点击此熔炼石可进行拆卸操作/@拆卸2
Img:$STR(N$宝石3的IDX):73:159:142|^装备:$BOXITEM[2].NAME^孔槽③:$STR(S$宝石3的名字)^ ^251#拆卸熔炼石所需金币10万^251#左键点击此熔炼石可进行拆卸操作/@拆卸3
Img:$STR(N$宝石4的IDX):73:193:142|^装备:$BOXITEM[2].NAME^孔槽④:$STR(S$宝石4的名字)^ ^251#拆卸熔炼石所需金币10万^251#左键点击此熔炼石可进行拆卸操作/@拆卸4
Img:$STR(N$宝石5的IDX):73:229:142|^装备:$BOXITEM[2].NAME^孔槽⑤:$STR(S$宝石5的名字)^ ^251#拆卸熔炼石所需金币10万^251#左键点击此熔炼石可进行拆卸操作/@拆卸5\
ITEMBOX:1:-1:-1:222:65:36:36:*:放入丹火\
ITEMBOX:2:-1:-1:221:159:36:36:*:放入需要拆卸熔炼石的装备\
\Img:507:8:0:-62/@main Img:508:8:0:-62/@转移\
\
#ACT
OPENMERCHANTBIGDLG 8 505 1 4 0 0 1 495 10
break
[@拆卸1]
#ACT
SetUpgradeItem 2
#IF
EQUAL $BOXITEM[1].NAME
#ACT
MESSAGEBOX 没有放入丹火，无法拆卸熔炼石。
break
#IF
EQUAL $BOXITEM[2].NAME
#ACT
MESSAGEBOX 错误，需要拆卸熔炼石的装备为空，请放入装备后再来拆卸。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 2
MESSAGEBOX 此装备没有熔炼过宝石，请换一件装备。
break
#IF
NOT CheckGold 100000
#ACT
MESSAGEBOX 金币不足10万，无法进行拆卸操作。
break
#IF
Equal N$宝石1的IDX 0
#ACT
MESSAGEBOX 此位置没有宝石。
break
#IF
CheckContainsText $BOXITEM[1].NAME_G 丹火
CheckGold 100000
#ACT
SetUpgradeItem 2
SOCKETABLEITEM * * * * -1 0 * * 0 *
UpDateBoxItem 2
take 金币 100000
take 丹火
give $STR(S$宝石1的名字) 1
MESSAGEBOX 宝石已成功取下,按F9查看包裹。
goto @ItemIntoBox2
break
[@拆卸2]
#ACT
SetUpgradeItem 2
#IF
EQUAL $BOXITEM[1].NAME
#ACT
MESSAGEBOX 没有放入丹火，无法拆卸熔炼石。
break
#IF
EQUAL $BOXITEM[2].NAME
#ACT
MESSAGEBOX 错误，需要拆卸熔炼石的装备为空，请放入装备后再来拆卸。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 2
MESSAGEBOX 此装备没有熔炼过宝石，请换一件装备。
break
#IF
NOT CheckGold 100000
#ACT
MESSAGEBOX 金币不足10万，无法进行拆卸操作。
break
#IF
Equal N$宝石2的IDX 0
#ACT
MESSAGEBOX 此位置没有宝石。
break
#IF
CheckContainsText $BOXITEM[1].NAME_G 丹火
CheckGold 100000
#ACT
SetUpgradeItem 2
SOCKETABLEITEM * * * * -1 1 * * 0 *
UpDateBoxItem 2
ta网通传奇sf发布网ke 金币 100000
take 丹火
give $STR(S$宝石2的名字) 1
MESSAGEBOX 宝石已成功取下,按F9查看包裹。
goto @ItemIntoBox2
break
[@拆卸3]
#ACT
SetUpgradeItem 2
#IF
EQUAL $BOXITEM[1].NAME
#ACT
MESSAGEBOX 没有放入丹火，无法拆卸熔炼石。
break
#IF
EQUAL $BOXITEM[2].NAME
#ACT
MESSAGEBOX 错误，需要拆卸熔炼石的装备为空，请放入装备后再来拆卸。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 2
MESSAGEBOX 此装备没有熔炼过宝石，请换一件装备。
break
#IF
传奇角色名NOT CheckGold 100000
#ACT
MESSAGEBOX 金币不足10万，无法进行拆卸操作。
br176大极品元素eak
#IF
Equal N$宝石3的IDX 0
#ACT
MESSAGEBOX 此位置没有宝石。
break
#IF
CheckContainsText $BOXITEM[1].NAME_G 丹火
CheckGold 100000
#ACT
SetUpgradeItem 2
SOCKETABLEITEM * * * * -1 2 * * 0 *
UpDateBoxItem 2
take 金币 100000
take 丹火
give $STR(S$宝石3的名字) 1
MESSAGEBOX 宝石已成功取下,按F9查看包裹。
goto @ItemIntoBox2
break
[@拆卸4]
#ACT
SetUpgradeItem 2
#IF
EQUAL $BOXITEM[1].NAME
#ACT
MESSAGEBOX 没有放入丹火，无法拆卸熔炼石。
break
#IF
EQUAL $BOXITEM[2].NAME
#ACT
MESSAGEBOX 错误，需要拆卸熔炼石的装备为空，请放入装备后再来拆卸。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 2
MESSAGEBOX 此装备没有熔炼过宝石，请换一件装备。
break
#IF
NOT CheckGold 100000
#ACT
MESSAGEBOX 金币不足10万，无法进行拆卸操作。
break
#IF
Equal N$宝石4的IDX 0
#ACT
MESSAGEBOX 此位置没有宝石。
break
#IF
CheckContainsText $BOXITEM[1].NAME_G 丹火
CheckGold 100000
#ACT
SetUpgradeItem 2
SOCKETABLEITEM * * * * -1 3 * * 0 *
UpDateBoxItem 2
take 金币 100000
take 丹火
give $STR(S$宝石4的名字) 1
MESSAGEBOX 宝石已成功取下,按F9查看包裹。
goto @ItemIntoBox2
break
[@拆卸5]
#ACT
SetUpgradeItem 2
#IF
EQUAL $BOXITEM[1].NAME
#ACT
MESSAGEBOX 没有放入丹火，无法拆卸熔炼石。
break
#IF
EQUAL $BOXITEM[2].NAME
#ACT
MESSAGEBOX 错误，需要拆卸熔炼石的装备为空，请放入装备后再来拆卸。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 2
MESSAGEBOX 此装备没有熔炼过宝石，请换一件装备。
break
#IF
NOT CheckGold 100000
#ACT
MESSAGEBOX 金币不足10万，无法进行拆卸操作。
break
#IF
Equal N$宝石5的IDX 0
#ACT
MESSAGEBOX 此位置没有宝石。
break
#IF
CheckContainsText $BOXITEM[1].NAME_G 丹火
CheckGold 100000
#ACT
SetUpgradeItem 2
SOCKETABLEITEM * * * * -1 4 * * 0 *
UpDateBoxItem 2
take 金币 100000
take 丹火
give $STR(S$宝石5的名字) 1
MESSAGEBOX 宝石已成功取下,按F9查看包裹。
goto @ItemIntoBox2
break
[@转移]
#SAY
\Img:507:8:0:-14/@main Img:508:8:0:-14/@转移\
ITEMBOX:3:-1:-1:218:65:36:36:*:放入需要转移熔炼石的装备\
ITEMBOX:4:-1:-1:218:191:36:36:*:放入熔炼石转入的装备\
\Img:510:8:195:100/@判断转移\
#ACT
OPENMERCHANTBIGDLG 8 509 1 4 0 0 1 495 10
break
[@ItemIntoBox3]
#ACT
SetUpgradeItem 3
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 3
MESSAGEBOX 此装备没有熔炼石，请放入其他装备。
break
[@ItemIntoBox4]
#ACT
SetUpgradeItem 4
#IF
CHECKSOCKETABLEITEMCOUNT -1 0
#ACT
ReturnBoxItem 4
MESSAGEBOX 此装备已有熔炼石，不能转入。
break
#IF
NOT CHECKDRILLHOLE -1 4
#ACT
ReturnBoxItem 4
MESSAGEBOX 必须开满5个孔槽，才可进行转移操作。
break
[@判断转移]
#IF
EQUAL $BOXITEM[3].NAME
#ACT
MESSAGEBOX 放入拥有熔炼石的装备才能进行转移操作。
break
#IF
EQUAL $BOXITEM[4].NAME
#ACT
MESSAGEBOX 宝石转移必须要放进转入的装备才行。
break
#IF
CheckGameGold 4999
#ACT
MESSAGEBOX 你的仙玉小于5000，不能进行宝石转移操作。
break
#IF
#ACT
SetUpgradeItem 3
#IF
CHECKSOCKETABLEITEMCOUNT -1 1
#ACT
ReturnBoxItem 3
MESSAGEBOX 此装备没有熔炼石，请放入其他装备。
break
#IF
#ACT
SetUpgradeItem 4
#IF
CHECKSOCKETABLEITEMCOUNT -1 0
#ACT
ReturnBoxItem 4
MESSAGEBOX 此装备已有熔炼石，不能转入。
break
#IF
CheckGameGold 4999
#ACT
MOVR N$转移成功几率 0 4
GameGold - 5000
goto @开始转移1
break
[@开始转移1]
#ACT
SetUpgradeItem 3
#IF
CHECKSOCKETABLEITEM -1 0 N$宝石1的IDX S$宝石1的名字
Equal N$转移成功几率 3
#ACT
SetUpgradeItem 4
SOCKETABLEITEM * * * * -1 0 * * $STR(N$宝石1的IDX) *
UpDateBoxItem 4
SetUpgradeItem 3
SOCKETABLEITEM * * * * -1 0 * * 0 *
UpDateBoxItem 3
MESSAGEBOX 宝石转移成功。
#IF
CHECKSOCKETABLEITEM -1 0 N$宝石1的IDX S$宝石1的名字
NOT Equal N$转移成功几率 3
#ACT
MESSAGEBOX 宝石转移失败。
#IF
CHECKSOCKETABLEITEM -1 1 N$宝石2的IDX S$宝石2的名字
Equal N$转移成功几率 3
#ACT
SetUpgradeItem 4
SOCKETABLEITEM * * * * -1 1 * * $STR(N$宝石2的IDX) *
UpDateBoxItem 4
SetUpgradeItem 3
SOCKETABLEITEM * * * * -1 1 * * 0 *
UpDateBoxItem 3
MESSAGEBOX 宝石转移成功。
#IF
CHECKSOCKETABLEITEM -1 1 N$宝石2的IDX S$宝石2的名字
NOT Equal N$转移成功几率 3
#ACT
MESSAGEBOX 宝石转移失败。
#IF
CHECKSOCKETABLEITEM -1 2 N$宝石3的IDX S$宝石3的名字
Equal N$转移成功几率 3
#ACT
SetUpgradeItem 4
SOCKETABLEITEM * * * * -1 2 * * $STR(N$宝石3的IDX) *
UpDateBoxItem 4
SetUpgradeItem 3
SOCKETABLEITEM * * * * -1 2 * * 0 *
UpDateBoxItem 3
MESSAGEBOX 宝石转移成功。
#IF
CHECKSOCKETABLEITEM -1 2 N$宝石3的IDX S$宝石3的名字
NOT Equal N$转移成功几率 3
#ACT
MESSAGEBOX 宝石转移失败。
#IF
CHECKSOCKETABLEITEM -1 3 N$宝石4的IDX S$宝石4的名字
Equal N$转移成功几率 3
#ACT
SetUpgradeItem 4
SOCKETABLEITEM * * * * -1 3 * * $STR(N$宝石4的IDX) *
UpDateBoxItem 4
SetUpgradeItem 3
SOCKETABLEITEM * * * * -1 3 * * 0 *
UpDateBoxItem 3
MESSAGEBOX 宝石转移成功。
#IF
CHECKSOCKETABLEITEM -1 3 N$宝石4的IDX S$宝石4的名字
NOT Equal N$转移成功几率 3
#ACT
MESSAGEBOX 宝石转移失败。
#IF
CHECKSOCKETABLEITEM -1 4 N$宝石5的IDX S$宝石5的名字
Equal N$转移成功几率 3
#ACT
SetUpgradeItem 4
SOCKETABLEITEM * * * * -1 4 * * $STR(N$宝石5的IDX) *
UpDateBoxItem 4
SetUpgradeItem 3
SOCKETABLEITEM * * * * -1 4 * * 0 *
UpDateBoxItem 3
MESSAGEBOX 宝石转移成功。
#IF
CHECKSOCKETABLEITEM -1 4 N$宝石5的IDX S$宝石5的名字
NOT Equal N$转移成功几率 3
#ACT
MESSAGEBOX 宝石转移失败。
上一篇： wi邹平网通传奇n7下开启传奇辅助方…
下一篇： 内功怪物刷传奇客户端完整版下载新…
猜你喜欢
[01-21]·第一次进入传奇第六大陆简直积分装备满屏都是小怪也能出终极[12-26]·变态传奇一定要学习好幸运十才能得到相当强的爆率得到惊喜[12-14]·传奇里面的战士玩家技能很少除了系统自带烈火以外就是开天斩和逐日剑法[11-17]·献给大家有关于几个获得元宝的方法[11-17]·冰雪免费火龙财神散宝介绍[11-17]·群战PK分析详解，究竟哪个职业才是灵魂队友？[11-17]·为什么传奇里的职业这么少？[11-17]·传奇里面怎么样才能够获得更好的装备？[11-17]·游戏中宝石正确升级攻略是什么？[11-17]·传奇：战士玩家越来越少是什么原因？
