传奇七号站-为优质资源而生分享无止境,七版本站Ctrl+D收藏本站!
登录后,享受更多优质服务哦

镶嵌系统改良装备/武器/衣服此NPC只可以镶嵌凡品宝石

侠名 收藏
镶嵌系统改良装备/武器/衣服此NPC只可以镶嵌凡品宝石

()
%100
[@main]
#IF
#ACT
OPENMERCHANTBIGDLG  22 207  3 4 0 -80 1 380 60
#SAY
 \ \ \ \ \   \ \
<                   ≮镶 嵌 系 统≯/SCOLOR=249>
 \ \
<          请先把想要改良的装备穿在身上/SCOLOR=253>\
<          然后在下方选择对应的装备位置进行操作/SCOLOR=253>\
<          注意:此NPC只可以镶嵌凡品宝石/SCOLOR=253>
\ \
          <武器打孔镶嵌/@武器>\ \
          <衣服打孔镶嵌/@衣服>\
 
 
 
 
[@武器]
#IF
#ACT
OPENMERCHANTBIGDLG  22 251  3 4 0 -80 1 490 105
#SAY
 \ \ \ \ \ \ \ \
      <武器打开一孔/@a1>        <镶嵌一孔宝石/@a11>      <摘除一孔宝石/@a12> \ \
      <武器打开二孔/@a2>        <镶嵌二孔宝石/@a21>      <摘除二孔宝石/@a22> \ \
      <武器打开三孔/@a3>        <镶嵌三孔宝石/@a31>      <摘除三孔宝石/@a32> \ \
      <武器打开四孔/@a4>        <镶嵌四孔宝石/@a41>      <摘除四孔宝石/@a42> \ \
      <武器打开五孔/@a5>        <镶嵌五孔宝石/@a51>      <摘除五孔宝石/@a52> \
 
 
[@a12]
#if
CHECKSOCKETABLEITEM 1 0 N1 S1
#act
SOCKETABLEITEM * * * * 1 0 * * 0 *
give <$STR(S1)> 1
[@a22]
#if
CHECKSOCKETABLEITEM 1 1  N1 S1
#act
SOCKETABLEITEM * * * * 1 1 * * 0 *
give <$STR(S1)> 1
[@a32]
#if
CHECKSOCKETABLEITEM 1 2  N1 S1
#act
SOCKETABLEITEM * * * * 1 2 * * 0 *
give <$STR(S1)> 1
[@a42]
#if
CHECKSOCKETABLEITEM 1 3 N1 S1
#act
SOCKETABLEITEM * * * * 1 3 * * 0 *
give <$STR(S1)> 1
[@a52]
#if
CHECKSOCKETABLEITEM 1 4 N1 S1
#act
SOCKETABLEITEM * * * * 1 4 * * 0 *
give <$STR(S1)> 1
 
[@a1]
#IF
NOT CHECKUSEITEM 1
#ACT
MESSAGEBOX 你没有带上武器无法打孔。
break
#IF
CHECKDRILLHOLE 1 0
#ACT
MESSAGEBOX 你的武器已经打了一号孔。
break
#if
NOT CHECKDRILLHOLE  1 0
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 1 孔 孔 0 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造一号个孔槽。. 1 3 
[@a2]
#IF
NOT CHECKUSEITEM 1
#ACT
MESSAGEBOX 你没有带上武器无法打孔。
break
#IF
CHECKDRILLHOLE 1 1
#ACT
MESSAGEBOX 你的武器已经打了第二孔。
break
#if
NOT CHECKDRILLHOLE  1 1
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 1 孔 孔 1 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造第二个孔槽。. 1 3 
[@a3]
#IF
NOT CHECKUSEITEM 1
#ACT
MESSAGEBOX 你没有带上武器无法打孔。
break
#IF
CHECKDRILLHOLE 1 2
#ACT
MESSAGEBOX 你的武器已经打了第三孔。
break
#if
NOT CHECKDRILLHOLE  1 2
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 1 孔 孔 2 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造第三个孔槽。. 1 3 
[@a4]
#IF
NOT CHECKUSEITEM 1
#ACT
MESSAGEBOX 你没有带上武器无法打孔。
break
#IF
CHECKDRILLHOLE 1 3
#ACT
MESSAGEBOX 你的武器已经打了第四孔。
break
#if
NOT CHECKDRILLHOLE  1 3
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 1 孔 孔 3 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造第四个孔槽。. 1 3 
[@a5]
#IF
NOT CHECKUSEITEM 1
#ACT
MESSAGEBOX 你没有带上武器无法打孔。
break
#IF
CHECKDRILLHOLE 1 4
#ACT
MESSAGEBOX 你的武器已经打了第五孔。
break
#if
NOT CHECKDRILLHOLE  1 4
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 1 孔 孔 4 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜“[<$USERNAME>]”将“<$STR(S66)>”打造第五个孔槽。. 1 3 
 
 
[@a11]
#if
CHECKSOCKETABLEITEM 1 0 760 攻击宝石[凡品] 
#act
MESSAGEBOX 你的武器已经镶嵌过一孔宝石
#elseact
goto @a11a
[@a11a]
#if
checkitem 攻击宝石[凡品] 1
 
CHECKDRILLHOLE 1 0
#ACT
 
take  攻击宝石[凡品] 1
SOCKETABLEITEM * * * * 1 0 * * 760 *
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“攻击宝石[凡品]”镶嵌进入“[<$STR(S66)>]”一号孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打一孔\      ②.你包裹里没有攻击宝石[凡品]石头
break
[@a21]
#if
CHECKSOCKETABLEITEM 1 1 760 攻击宝石[凡品] 
#act
MESSAGEBOX 你的武器已经镶嵌过二孔宝石
#elseact
goto @a21a
[@a21a]
#if
checkitem 攻击宝石[凡品] 1
 
CHECKDRILLHOLE 1 1
#ACT
take  攻击宝石[凡品] 1
 
SOCKETABLEITEM * * * * 1 1 * * 760 *
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“攻击宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第二孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打二孔\      ②.你包裹里没有攻击宝石[凡品]石头
break
[@a31]
#if
CHECKSOCKETABLEITEM 1 2 760 攻击宝石[凡品] 
#act
MESSAGEBOX 你的武器已经镶嵌过三孔宝石
#elseact
goto @a31a
[@a31a]
#if
checkitem 攻击宝石[凡品] 1
 
CHECKDRILLHOLE 1 2
#ACT
take  攻击宝石[凡品] 1
 
SOCKETABLEITEM * * * * 1 2 * * 760 *
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“攻击宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第三孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打三孔\      ②.你包裹里没有攻击宝石[凡品]石头
break
[@a41]
#if
CHECKSOCKETABLEITEM 1 3 760 攻击宝石[凡品] 
#act
MESSAGEBOX 你的武器已经镶嵌过四孔宝石
#elseact
goto @a41a
[@a41a]
#if
checkitem 攻击宝石[凡品] 1
 
CHECKDRILLHOLE 1 3
#ACT
take  攻击宝石[凡品] 1
 
SOCKETABLEITEM * * * * 1 3 * * 760 *
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“攻击宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第四孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打四孔\      ②.你包裹里没有攻击宝石[凡品]石
break
[@a51]
#if
CHECKSOCKETABLEITEM 1 4 760 攻击宝石[凡品] 
#act
MESSAGEBOX 你的武器已经镶嵌过五孔宝石
#elseact
goto @a51a
[@a51a]
#if
checkitem 攻击宝石[凡品] 1
 
CHECKDRILLHOLE 1 4
#ACT
take  攻击宝石[凡品] 1
 
SOCKETABLEITEM * * * * 1 4 * * 760 *
GetUserItemName 1 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“攻击宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第五孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打五孔\      ②.你包裹里没有攻击宝石[凡品] 石头
break
 
 
 
 
[@衣服]
#IF
#ACT
OPENMERCHANTBIGDLG  22 251  3 4 0 -80 1 490 105
#SAY
 \ \ \ \ \ \ \ \
      <衣服打开一孔/@b1>        <镶嵌一孔宝石/@b11>      <摘除一孔宝石/@b12> \ \
      <衣服打开二孔/@b2>        <镶嵌二孔宝石/@b21>      <摘除二孔宝石/@b22> \ \
      <衣服打开三孔/@b3>        <镶嵌三孔宝石/@b31>      <摘除三孔宝石/@b32> \ \
      <衣服打开四孔/@b4>        <镶嵌四孔宝石/@b41>      <摘除四孔宝石/@b42> \ \
      <衣服打开五孔/@b5>        <镶嵌五孔宝石/@b51>      <摘除五孔宝石/@b52> \
 
 
 
 
[@b12]
#if
CHECKSOCKETABLEITEM 0 0  N1 S1
#act
SOCKETABLEITEM * * * * 0 0 * * 0 *
give <$STR(S1)> 1
[@b22]
#if
CHECKSOCKETABLEITEM 0 1  N1 S1
#act
SOCKETABLEITEM * * * * 0 1 * * 0 *
give <$STR(S1)> 1
[@b32]
#if
CHECKSOCKETABLEITEM 0 2  N1 S1
#act
SOCKETABLEITEM * * * * 0 2 * * 0 *
give <$STR(S1)> 1
[@b42]
#if
CHECKSOCKETABLEITEM 0 3  N1 S1
#act
SOCKETABLEITEM * * * * 0 3 * * 0 *
give <$STR(S1)> 1
[@b52]
#if
CHECKSOCKETABLEITEM 0 4  N1 S1
#act
SOCKETABLEITEM * * * * 0 4 * * 0 *
give <$STR(S1)> 1
[@b1]
#IF
NOT CHECKUSEITEM 0
#ACT
MESSAGEBOX 你没有穿上衣服无法打孔。
break
#IF
CHECKDRILLHOLE 0 0
#ACT
MESSAGEBOX 你的衣服已经打了一号孔。
break
#if
NOT CHECKDRILLHOLE  0 0
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 0 孔 孔 0 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造一号个孔槽。. 1 3 
[@b2]
#IF
NOT CHECKUSEITEM 0
#ACT
MESSAGEBOX 你没有穿上衣服无法打孔。
break
#IF
CHECKDRILLHOLE 0 1
#ACT
MESSAGEBOX 你的衣服已经打了第二孔。
break
#if
NOT CHECKDRILLHOLE  0 1
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 0 孔 孔 1 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造第二个孔槽。. 1 3 
[@b3]
#IF
NOT CHECKUSEITEM 0
#ACT
MESSAGEBOX 你没有穿上衣服无法打孔。
break
#IF
CHECKDRILLHOLE 0 2
#ACT
MESSAGEBOX 你的衣服已经打了第三孔。
break
#if
NOT CHECKDRILLHOLE  0 2
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 0 孔 孔 2 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造第三个孔槽。. 1 3 
[@b4]
#IF
NOT CHECKUSEITEM 0
#ACT
MESSAGEBOX 你没有穿上衣服无法打孔。
break
#IF
CHECKDRILLHOLE 0 3
#ACT
MESSAGEBOX 你的衣服已经打了第四孔。
break
#if
NOT CHECKDRILLHOLE  0 3
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 0 孔 孔 3 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜“<$USERNAME>”将“<$STR(S66)>”打造第四个孔槽。. 1 3 
[@b5]
#IF
NOT CHECKUSEITEM 0
#ACT
MESSAGEBOX 你没有穿上衣服无法打孔。
break
#IF
CHECKDRILLHOLE 0 4
#ACT
MESSAGEBOX 你的衣服已经打了第五孔。
break
#if
NOT CHECKDRILLHOLE  0 4
#act
SetUpgradeItem 3
DRILLHOLE  孔 孔 0 孔 孔 4 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜“[<$USERNAME>]”将“<$STR(S66)>”打造第五个孔槽。. 1 3 
 
[@b11]
#if
CHECKSOCKETABLEITEM 0 0 756 防御宝石[凡品]
#act
MESSAGEBOX 你的衣服已经镶嵌过一孔宝石
#elseact
goto @b11a
[@b11a]
#if
checkitem 防御宝石[凡品] 1 
 
CHECKDRILLHOLE 0 0
#ACT
take 防御宝石[凡品] 1
 
SOCKETABLEITEM * * * * 0 0 * * 756 *
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“防御宝石[凡品]”镶嵌进入“[<$STR(S66)>]”一号孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打一孔\      ②.你包裹里没有防御宝石[凡品]石头
break
[@b21]
#if
CHECKSOCKETABLEITEM 0 1 756 防御宝石[凡品]
#act
MESSAGEBOX 你的衣服已经镶嵌过二孔宝石
#elseact
goto @b21a
[@b21a]
#if
checkitem 防御宝石[凡品] 1 
 
CHECKDRILLHOLE 0 1
#ACT
take  防御宝石[凡品] 1
 
SOCKETABLEITEM * * * * 0 1 * * 756 *
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“防御宝石[凡品]石头”镶嵌进入“[<$STR(S66)>]”第二孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打二孔\      ②.你包裹里没有防御宝石[凡品]石头
break
[@b31]
#if
CHECKSOCKETABLEITEM 0 2 756 防御宝石[凡品]
#act
MESSAGEBOX 你的衣服已经镶嵌过三孔宝石
#elseact
goto @b31a
[@b31a]
#if
checkitem 防御宝石[凡品] 1
 
CHECKDRILLHOLE 0 2
#ACT
take  防御宝石[凡品] 1
 
SOCKETABLEITEM * * * * 0 2 * * 756 *
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“防御宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第三孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打三孔\      ②.你包裹里没有防御宝石[凡品]石头
break
[@b41]
#if
CHECKSOCKETABLEITEM 0 3 756 防御宝石[凡品]
#act
MESSAGEBOX 你的衣服已经镶嵌过四孔宝石
#elseact
goto @b41a
[@b41a]
#if
checkitem 防御宝石[凡品] 1
 
CHECKDRILLHOLE 0 3
#ACT
take  防御宝石[凡品] 1
 
SOCKETABLEITEM * * * * 0 3 * * 756 *
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“防御宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第四孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打四孔\      ②.你包裹里没有防御宝石[凡品]石头
break
[@b51]
#if
CHECKSOCKETABLEITEM 0 4 756 防御宝石[凡品]
#act
MESSAGEBOX 你的衣服已经镶嵌过五孔宝石
#elseact
goto @b51a
[@b51a]
#if
checkitem 防御宝石[凡品] 1
 
CHECKDRILLHOLE 0 4
#ACT
take  防御宝石[凡品] 1
 
SOCKETABLEITEM * * * * 0 4 * * 756 *
GetUserItemName 0 66
SendCenterMsg 218 160  恭喜玩家[<$USERNAME>]将“防御宝石[凡品]”镶嵌进入“[<$STR(S66)>]”第五孔。. 1 3 
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX       [提示]:镶嵌失败!\      ①.你的装备还未打五孔\      ②.你包裹里没有防御宝石[凡品]石头
break
 
 
 
 
 

☉若无特殊注明本文皆为传奇版本库原创,转载请保留文章出处。
☉本站提供的资源来源网络收集,仅供学习研究之用切勿用于商业用途。
上一篇:装备精炼-3脚本-lV5及每及精炼属性+10%
下一篇:传奇服务端英雄在线改名脚本系统

我要评论
说点什么吧
  • 全部评论(0
    还没有评论,快来抢沙发吧!