GOM引擎装备打孔镶嵌宝石脚本

[@main]
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=2>\
　　　　　　　　　　<★装备打孔★/@宝石打孔>\
<　　　　　　　　快来给您的极品装备开孔吧!/SCOLOR=254>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=231>\
　　　　　　　　　　<★镶嵌宝石★/@宝石镶嵌>\
<　　　　　　　免费为您的镶嵌装备宝石,提高属性…/SCOLOR=254>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=8>\
　　　　　<「宝石摘除」/@宝石摘除>　<免费帮您摘下装备上的宝石!/SCOLOR=254>\
　　　　　<『宝石合成』/@宝石合成>　<可将低级宝石合为高级!/SCOLOR=254>\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=7>\


[@宝石打孔]
<$USERNAME>，你知道吗？\
给装备打孔之后就可以在其中镶嵌宝石了\
每件装备可以打2个孔，第一个孔每次收费1000元宝，成功几率35%\
第二个孔每次收费3000元宝，成功几率25%，第三孔收费5000，成功几率10%。\ \
<ITEMBOX:1:6:513:5:-5:40:40:*:将需要打孔的装备放入框框内>\ \ \
<确认打孔/@确认打孔>  <返回/@MAIN>  <关闭/@EXIT>

[@确认打孔]
#IF
#ACT
SetUpgradeItem 1

#IF
equal <$BOXITEM[1].NAME>
#ACT
MESSAGEBOX 提示：请先放入需要打孔的装备到上面的框里！
BREAK

#IF
NOT CheckContainsTextList ..\QuestDiary\允许镶嵌装备.txt <$BOXITEM[1].NAME>
#ACT
ReturnBoxItem 1
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[1].NAME>】不支持打孔！
BREAK

#if
CHECKDRILLHOLECOUNT -1 > 2
#act
MESSAGEBOX 提示：你的装备【<$BOXITEM[1].NAME>】已打满3个孔了！
ReturnBoxItem 1
BREAK

#IF
CHECKDRILLHOLECOUNT -1 = 0
CHECKGAMEGOLD < 1000
#ACT
MESSAGEBOX 提示：开启第一孔需要1000元宝！
ReturnBoxItem 1
BREAK

#IF
CHECKDRILLHOLECOUNT -1 = 1
CHECKGAMEGOLD < 3000
#ACT
MESSAGEBOX 提示：开启第二孔需要3000元宝！
ReturnBoxItem 1
BREAK

#IF
CHECKDRILLHOLECOUNT -1 = 2
CHECKGAMEGOLD < 3000
#ACT
MESSAGEBOX 提示：开启第二孔需要5000元宝！
ReturnBoxItem 1
BREAK


#IF
CHECKDRILLHOLECOUNT -1 = 0
#act
GAMEGOLD - 1000
MOVR P0 100

#if
small P0 35
CHECKDRILLHOLECOUNT -1 = 0
#act
DRILLHOLE 0 0 -1 0 0 0 0 1 0 0
MESSAGEBOX 恭喜你：你的装备【<$BOXITEM[1].NAME>】成功开启第一孔！
UpDateBoxItem 1
BREAK

#if
CHECKDRILLHOLECOUNT -1 = 0
#act
MESSAGEBOX 对不起：你的装备【<$BOXITEM[1].NAME>】打孔失败！
BREAK

#IF
CHECKDRILLHOLECOUNT -1 = 1
#act
GAMEGOLD - 3000
MOVR P0 100

#if
small P0 25
CHECKDRILLHOLECOUNT -1 = 1
#act
DRILLHOLE 0 0 -1 0 0 1 0 1 0 0
MESSAGEBOX 恭喜你：你的装备【<$BOXITEM[1].NAME>】成功开启第二孔！
UpDateBoxItem 1
BREAK

#if
CHECKDRILLHOLECOUNT -1 = 1
#act
MESSAGEBOX 对不起：你的装备【<$BOXITEM[1].NAME>】打孔失败！
BREAK



#IF
CHECKDRILLHOLECOUNT -1 = 2
#act
GAMEGOLD - 5000
MOVR P0 100

#if
small P0 10
CHECKDRILLHOLECOUNT -1 = 2
#act
DRILLHOLE 0 0 -1 0 0 2 0 1 0 0
MESSAGEBOX 恭喜你：你的装备【<$BOXITEM[1].NAME>】成功开启第三孔！
UpDateBoxItem 1
BREAK

#if
CHECKDRILLHOLECOUNT -1 = 2
#act
MESSAGEBOX 对不起：你的装备【<$BOXITEM[1].NAME>】打孔失败！
BREAK






[@宝石镶嵌]
<------------------------------------------------------------　/SCOLOR=13>\
<左边方框放入装备,右边方框放入宝石,免费镶嵌…>\　\
<ITEMBOX:2:6:513:5:-5:40:40:*:将需要镶嵌宝石的装备放入框框内>  <ITEMBOX:3:6:513:5:-5:40:40:41:将宝石放入框框内>\ \ \
<确认镶嵌/@确认镶嵌>  <返回/@MAIN>  <关闭/@EXIT>

[@确认镶嵌]
#IF
#ACT
SetUpgradeItem 2


#IF
equal <$BOXITEM[2].NAME>
#ACT
MESSAGEBOX 提示：请先放入需要镶嵌的装备到上面左边的框里！
BREAK

#IF
equal <$BOXITEM[3].NAME>
#ACT
MESSAGEBOX 提示：请先放入需要镶嵌的宝石到上面右边的框里！
BREAK


#IF
NOT CheckContainsTextList ..\QuestDiary\允许镶嵌装备.txt <$BOXITEM[2].NAME>
#ACT
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[2].NAME>】不支持镶嵌！
BREAK

#IF
NOT CheckContainsTextList ..\QuestDiary\镶嵌宝石列表.txt <$BOXITEM[3].NAME>
#ACT
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[3].NAME>】不是可用的宝石！
BREAK

#IF
CHECKDRILLHOLECOUNT -1 = 0
#ACT
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[2].NAME>】还未打孔！
BREAK

#IF
CHECKSOCKETABLEITEMCOUNT -1 = 3
#ACT
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[2].NAME>】已镶嵌3个宝石了！
BREAK


#IF
CHECKSOCKETABLEITEMCOUNT -1 = 2
CHECKDRILLHOLECOUNT -1 = 1
#ACT
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[2].NAME>】还未开启第三孔！
ReturnBoxItem 2
BREAK

#IF
CHECKDRILLHOLECOUNT -1 = 0
#ACT
MESSAGEBOX 提示：你放入的装备【<$BOXITEM[3].NAME>】还未打孔！
BREAK

#IF
NOT CHECKSOCKETABLEITEM -1 0 N$1 S$1
CHECKDRILLHOLECOUNT -1 > 0
#ACT
MESSAGEBOX 恭喜：你成功将宝石【<$BOXITEM[3].NAME>】镶嵌到装备【<$BOXITEM[2].NAME>】上面！
SOCKETABLEITEM 0 0 0 0 -1 0 0 0 <$BOXITEM[3].INDEX> 0
UpDateBoxItem 2
DELBOXITEM 3 1
UpDateBoxItem 3
BREAK

#IF
NOT CHECKSOCKETABLEITEM -1 1 N$1 S$1
CHECKDRILLHOLECOUNT -1 > 1
#ACT
MESSAGEBOX 恭喜：你成功将宝石【<$BOXITEM[3].NAME>】镶嵌到装备【<$BOXITEM[2].NAME>】上面！
SOCKETABLEITEM 0 0 0 0 -1 1 0 0 <$BOXITEM[3].INDEX> 0
UpDateBoxItem 2
DELBOXITEM 3 1
UpDateBoxItem 3
BREAK




[@宝石摘除]
<$USERNAME>，你知道吗？\
装备上镶嵌的宝石是可以摘除的额，\
把你要摘除宝石的装备放上来吧，而且是完全免费的呢！\ \
<ITEMBOX:4:6:513:5:-5:40:40:*:将需要摘除宝石的装备放入框框内>\ \ \
<摘除①孔/@摘1>  <摘除②孔/@摘2>  <摘除③孔/@摘3>  <返回/@MAIN>  <关闭/@EXIT>

[@摘1]
#if
#act
SetUpgradeItem 4

#IF
CHECKSOCKETABLEITEM -1 0 N$1 S$1
#ACT
MESSAGEBOX 恭喜：你成功将装备【<$BOXITEM[4].NAME>】孔一的宝石摘除！
SOCKETABLEITEM 0 0 0 0 -1 0 0 0 0 0
UpDateBoxItem 4
GIVE <$str(s$1)> 1
BREAK
#ELSEACT
MESSAGEBOX 失败：你的装备【<$BOXITEM[4].NAME>】并没有镶嵌宝石！

[@摘2]
#if
#act
SetUpgradeItem 4

#IF
CHECKSOCKETABLEITEM -1 1 N$1 S$1
#ACT
MESSAGEBOX 恭喜：你成功将装备【<$BOXITEM[4].NAME>】孔二的宝石摘除！
SOCKETABLEITEM 0 0 0 0 -1 1 0 0 0 0
UpDateBoxItem 4
GIVE <$str(s$1)> 1
BREAK
#ELSEACT
MESSAGEBOX 失败：你的装备【<$BOXITEM[4].NAME>】孔二并没有镶嵌宝石！

[@摘3]
#if
#act
SetUpgradeItem 4

#IF
CHECKSOCKETABLEITEM -1 2 N$1 S$1
#ACT
MESSAGEBOX 恭喜：你成功将装备【<$BOXITEM[4].NAME>】孔三的宝石摘除！
SOCKETABLEITEM 0 0 0 0 -1 2 0 0 0 0
UpDateBoxItem 4
GIVE <$str(s$1)> 1
BREAK
#ELSEACT
MESSAGEBOX 失败：你的装备【<$BOXITEM[4].NAME>】孔三并没有镶嵌宝石！


[@宝石合成]
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=7>\
2000血以上怪可爆出1级宝石,BOSS有几率爆出2级,小几率爆出3级宝石！\
　　　<2级攻击宝石合成/@融化二攻>　<2级魔法宝石合成/@融化二魔>　<2级道术宝石合成/@融化二道>\
　二级宝石合成需要条件：需要2块1级相应宝石+1000元宝[几率为35%]\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=7>\
　　　<3级攻击宝石合成/@融化三攻>  <3级魔法宝石合成/@融化三魔>  <3级道术宝石合成/@融化三道>\
　三级宝石合成需要条件：需要2块2级相应宝石+3000元宝[几率为30%]\
<┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=7>\
　　　　　　<三级宝石为最高级宝石>　　<返回/@MAIN>　　<关闭/@EXIT>

[@融化二攻]
#IF
checkitem 一级攻击宝石 2
CHECKGAMEGOLD > 999
#ELSEACT
MESSAGEBOX 失败：你没有2个一级攻击宝石或者1000元宝！
BREAK

#IF
checkitem 一级攻击宝石 2
CHECKGAMEGOLD > 999
#ACT
GAMEGOLD - 1000
MOVR P0 100

#IF
small P0 50
#ACT
TAKE 一级攻击宝石 2
GIVE 二级攻击宝石 1
SENDMSG 7 提示：成功合成1块二级攻击宝石！
BREAK

#IF
#ACT
TAKE 一级攻击宝石 2
SENDMSG 7 提示：合成失败！
BREAK

[@融化二魔]
#IF
checkitem 一级魔法宝石 2
CHECKGAMEGOLD > 999
#ELSEACT
MESSAGEBOX 失败：你没有2个一级魔法宝石或者1000元宝！
BREAK

#IF
checkitem 一级魔法宝石 2
CHECKGAMEGOLD > 999
#ACT
GAMEGOLD - 1000
MOVR P0 100

#IF
small P0 50
#ACT
TAKE 一级魔法宝石 2
GIVE 二级魔法宝石 1
SENDMSG 7 提示：成功合成1块二级魔法宝石！
BREAK

#IF
#ACT
TAKE 一级魔法宝石 2
SENDMSG 7 提示：合成失败！
BREAK

[@融化二道]
#IF
checkitem 一级道术宝石 2
CHECKGAMEGOLD > 999
#ELSEACT
MESSAGEBOX 失败：你没有2个一级道术宝石或者1000元宝！
BREAK

#IF
checkitem 一级道术宝石 2
CHECKGAMEGOLD > 999
#ACT
GAMEGOLD - 1000
MOVR P0 100

#IF
small P0 50
#ACT
TAKE 一级道术宝石 2
GIVE 二级道术宝石 1
SENDMSG 7 提示：成功合成1块二级道术宝石！
BREAK

#IF
#ACT
TAKE 一级道术宝石 2
SENDMSG 7 提示：合成失败！
BREAK



[@融化三攻]
#IF
checkitem 二级攻击宝石 2
CHECKGAMEGOLD > 2999
#ELSEACT
MESSAGEBOX 失败：你没有2个二级攻击宝石或者3000元宝！
BREAK

#IF
checkitem 二级攻击宝石 2
CHECKGAMEGOLD > 2999
#ACT
GAMEGOLD - 3000
MOVR P0 100

#IF
small P0 40
#ACT
TAKE 二级攻击宝石 2
GIVE 三级攻击宝石 1
SENDMSG 7 提示：成功合成1块三级攻击宝石！
BREAK

#IF
#ACT
TAKE 二级攻击宝石 2
SENDMSG 7 提示：合成失败！
BREAK

[@融化三魔]
#IF
checkitem 二级魔法宝石 2
CHECKGAMEGOLD > 2999
#ELSEACT
MESSAGEBOX 失败：你没有2个二级魔法宝石或者3000元宝！
BREAK

#IF
checkitem 二级魔法宝石 2
CHECKGAMEGOLD > 2999
#ACT
GAMEGOLD - 3000
MOVR P0 100

#IF
small P0 40
#ACT
TAKE 二级魔法宝石 2
GIVE 三级魔法宝石 1
SENDMSG 7 提示：成功合成1块三级魔法宝石！
BREAK

#IF
#ACT
TAKE 二级魔法宝石 2
SENDMSG 7 提示：合成失败！
BREAK


[@融化三道]
#IF
checkitem 二级道术宝石 2
CHECKGAMEGOLD > 2999
#ELSEACT
MESSAGEBOX 失败：你没有2个二级道术宝石或者3000元宝！
BREAK

#IF
checkitem 二级道术宝石 2
CHECKGAMEGOLD > 2999
#ACT
GAMEGOLD - 3000
MOVR P0 100

#IF
small P0 40
#ACT
TAKE 二级道术宝石 2
GIVE 三级道术宝石 1
SENDMSG 7 提示：成功合成1块三级道术宝石！
BREAK

#IF
#ACT
TAKE 二级道术宝石 2
SENDMSG 7 提示：合成失败！
BREAK



注册会员回复下载：

游客，如果您要查看本帖隐藏内容请回复

111111111111111

hgggjjggjghkh

开传奇一条龙就找传奇部落

给梵蒂冈梵蒂冈梵蒂冈梵蒂冈梵蒂冈人忍痛割肉割

33333333333333

来看看。。。。。

法师法师法发顺丰

111111111111111111111111111111111111111

5456456456456456456456

ffdsfsdfsd