游戏淘宝湾

 找回密码
 立即注册
开启左侧

很多传奇GM找的宝石拆卸脚本文件分享

[复制链接]
◇逍遥◆MIR2◇ 发表于 2022-8-8 01:12:56 | 显示全部楼层 |阅读模式
[@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
take 金币 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万,无法进行拆卸操作。
break
#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 宝石转移失败。

本楼点评(0) 收起
turgun 发表于 2022-8-8 02:32:44 | 显示全部楼层
淡定,淡定,淡定……
本楼点评(0) 收起
回复

使用道具 举报

xiaojie73oo 发表于 2022-8-8 06:26:53 | 显示全部楼层
感恩无私的分享与奉献 :)
本楼点评(0) 收起
回复

使用道具 举报

tt8bj 发表于 2022-8-8 12:45:52 | 显示全部楼层
真是被感动的痛哭流涕……
本楼点评(0) 收起
回复

使用道具 举报

qtpj 发表于 2022-8-8 23:40:43 | 显示全部楼层
激动人心,无法言表!
本楼点评(0) 收起
回复

使用道具 举报

wǒ想我是海 发表于 2022-8-9 02:47:32 | 显示全部楼层
淡定,淡定,淡定……
本楼点评(0) 收起
回复

使用道具 举报

today_gg 发表于 2022-8-11 01:09:18 | 显示全部楼层
真是被感动的痛哭流涕……
本楼点评(0) 收起
回复

使用道具 举报

tairgee 发表于 2022-8-11 06:37:18 | 显示全部楼层
真是难得给力的帖子啊。
本楼点评(0) 收起
回复

使用道具 举报

keen.he 发表于 2022-8-11 18:36:00 | 显示全部楼层
真是被感动的痛哭流涕……
本楼点评(0) 收起
回复

使用道具 举报

xdhcwl 发表于 2022-8-11 22:09:46 | 显示全部楼层
激动人心,无法言表!
本楼点评(0) 收起
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|游戏淘宝湾

GMT+8, 2024-3-29 16:10 , Processed in 0.152008 second(s), 97 queries .

Powered by 游戏淘宝湾 X3.4

Copyright © 2001-2023, Oddpp Cloud.

快速回复 返回顶部 返回列表