传奇私服 发表于 2017-2-7 10:12:30

传奇私服GOM引擎镶嵌脚本

[@main]
\ \ \
<武器打孔镶嵌/@a>　<衣服打孔镶嵌/@b>　 <头盔打孔镶嵌/@c> 　 <项链打孔镶嵌/@d> \
<左手打孔镶嵌/@e>　<右手打孔镶嵌/@f>　 <左戒打孔镶嵌/@g>　<右戒打孔镶嵌/@h> \
<靴子打孔镶嵌/@i> 　 <腰带打孔镶嵌/@j>　 <胸牌打孔镶嵌/@k> 　 <九龙打孔镶嵌/@s> \
<冥藤打孔镶嵌/@m> 　 <弓箭打孔镶嵌/@n>   <战绩打孔镶嵌/@r> 　\
[@s12]
#if
CHECKSOCKETABLEITEM 15 0N1 S1
#act
SOCKETABLEITEM * * * * 15 0 * * 0 *
give<$STR(S1)> 1


[@s22]
#if
CHECKSOCKETABLEITEM 15 1N1 S1
#act
SOCKETABLEITEM * * * * 15 1 * * 0 *
give<$STR(S1)> 1

[@s32]
#if
CHECKSOCKETABLEITEM 15 2N1 S1
#act
SOCKETABLEITEM * * * * 15 2 * * 0 *
give<$STR(S1)> 1

[@s42]
#if
CHECKSOCKETABLEITEM 15 3 N1 S1
#act
SOCKETABLEITEM * * * * 15 3 * * 0 *
give<$STR(S1)> 1

[@s52]
#if
CHECKSOCKETABLEITEM 15 4 N1 S1
#act
SOCKETABLEITEM * * * * 15 4 * * 0 *
give<$STR(S1)> 1


[@r12]
#if
CHECKSOCKETABLEITEM 14 0 N1 S1
#act
SOCKETABLEITEM * * * * 14 0 * * 0 *
give<$STR(S1)> 1


[@r22]
#if
CHECKSOCKETABLEITEM 14 1 N1 S1
#act
SOCKETABLEITEM * * * * 14 1 * * 0 *
give<$STR(S1)> 1

[@r32]
#if
CHECKSOCKETABLEITEM 14 2 N1 S1
#act
SOCKETABLEITEM * * * * 14 2 * * 0 *
give<$STR(S1)> 1

[@r42]
#if
CHECKSOCKETABLEITEM 14 3 N1 S1
#act
SOCKETABLEITEM * * * * 14 3 * * 0 *
give<$STR(S1)> 1

[@r52]
#if
CHECKSOCKETABLEITEM 14 4 N1 S1
#act
SOCKETABLEITEM * * * * 14 4 * * 0 *
give<$STR(S1)> 1



[@n12]
#if
CHECKSOCKETABLEITEM 16 0 N1 S1
#act
SOCKETABLEITEM * * * * 16 0 * * 0 *
give<$STR(S1)> 1


[@n22]
#if
CHECKSOCKETABLEITEM 16 1 N1 S1
#act
SOCKETABLEITEM * * * * 16 1 * * 0 *
give<$STR(S1)> 1

[@n32]
#if
CHECKSOCKETABLEITEM 16 2 N1 S1
#act
SOCKETABLEITEM * * * * 16 2 * * 0 *
give<$STR(S1)> 1

[@n42]
#if
CHECKSOCKETABLEITEM 16 3 N1 S1
#act
SOCKETABLEITEM * * * * 16 3 * * 0 *
give<$STR(S1)> 1

[@n52]
#if
CHECKSOCKETABLEITEM 16 4 N1 S1
#act
SOCKETABLEITEM * * * * 16 4 * * 0 *
give<$STR(S1)> 1



[@m12]
#if
CHECKSOCKETABLEITEM 12 0 N1 S1
#act
SOCKETABLEITEM * * * * 12 0 * * 0 *
give<$STR(S1)> 1


[@m22]
#if
CHECKSOCKETABLEITEM 12 1 N1 S1
#act
SOCKETABLEITEM * * * * 12 1 * * 0 *
give<$STR(S1)> 1

[@m32]
#if
CHECKSOCKETABLEITEM 12 2 N1 S1
#act
SOCKETABLEITEM * * * * 12 2 * * 0 *
give<$STR(S1)> 1

[@m42]
#if
CHECKSOCKETABLEITEM 12 3 N1 S1
#act
SOCKETABLEITEM * * * * 12 3 * * 0 *
give<$STR(S1)> 1

[@m52]
#if
CHECKSOCKETABLEITEM 12 4 N1 S1
#act
SOCKETABLEITEM * * * * 12 4 * * 0 *
give<$STR(S1)> 1


[@l12]
#if
CHECKSOCKETABLEITEM 9 0 N1 S1
#act
SOCKETABLEITEM * * * * 9 0 * * 0 *
give<$STR(S1)> 1


[@l22]
#if
CHECKSOCKETABLEITEM 9 1 N1 S1
#act
SOCKETABLEITEM * * * * 9 1 * * 0 *
give<$STR(S1)> 1

[@l32]
#if
CHECKSOCKETABLEITEM 9 2 N1 S1
#act
SOCKETABLEITEM * * * * 9 2 * * 0 *
give<$STR(S1)> 1

[@l42]
#if
CHECKSOCKETABLEITEM 9 3 N1 S1
#act
SOCKETABLEITEM * * * * 9 3 * * 0 *
give<$STR(S1)> 1


[@l52]
#if
CHECKSOCKETABLEITEM 9 4 N1 S1
#act
SOCKETABLEITEM * * * * 9 4 * * 0 *
give<$STR(S1)> 1


[@k12]
#if
CHECKSOCKETABLEITEM 2 0 N1 S1
#act
SOCKETABLEITEM * * * * 2 0 * * 0 *
give<$STR(S1)> 1


[@k22]
#if
CHECKSOCKETABLEITEM 2 1 N1 S1
#act
SOCKETABLEITEM * * * * 2 1 * * 0 *
give<$STR(S1)> 1

[@k32]
#if
CHECKSOCKETABLEITEM 2 2 N1 S1
#act
SOCKETABLEITEM * * * * 2 2 * * 0 *
give<$STR(S1)> 1

[@k42]
#if
CHECKSOCKETABLEITEM 2 3 N1 S1
#act
SOCKETABLEITEM * * * * 2 3 * * 0 *
give<$STR(S1)> 1

[@k52]
#if
CHECKSOCKETABLEITEM 2 4 N1 S1
#act
SOCKETABLEITEM * * * * 2 4 * * 0 *
give<$STR(S1)> 1


[@j12]
#if
CHECKSOCKETABLEITEM 10 0 N1 S1
#act
SOCKETABLEITEM * * * * 10 0 * * 0 *
give<$STR(S1)> 1


[@j22]
#if
CHECKSOCKETABLEITEM 10 1 N1 S1
#act
SOCKETABLEITEM * * * * 10 1 * * 0 *
give<$STR(S1)> 1

[@j32]
#if
CHECKSOCKETABLEITEM 10 2 N1 S1
#act
SOCKETABLEITEM * * * * 10 2 * * 0 *
give<$STR(S1)> 1

[@j42]
#if
CHECKSOCKETABLEITEM 10 3 N1 S1
#act
SOCKETABLEITEM * * * * 10 3 * * 0 *
give<$STR(S1)> 1

[@j52]
#if
CHECKSOCKETABLEITEM 10 4N1 S1
#act
SOCKETABLEITEM * * * * 10 4 * * 0 *
give<$STR(S1)> 1


[@i12]
#if
CHECKSOCKETABLEITEM 11 0 N1 S1
#act
SOCKETABLEITEM * * * * 11 0 * * 0 *
give <$STR(S1)> 1


[@i22]
#if
CHECKSOCKETABLEITEM 11 1N1 S1
#act
SOCKETABLEITEM * * * * 11 1 * * 0 *
give<$STR(S1)> 1

[@i32]
#if
CHECKSOCKETABLEITEM 11 2N1 S1
#act
SOCKETABLEITEM * * * * 11 2 * * 0 *
give<$STR(S1)> 1

[@i42]
#if
CHECKSOCKETABLEITEM 11 3N1 S1
#act
SOCKETABLEITEM * * * * 11 3 * * 0 *
give<$STR(S1)> 1

[@i52]
#if
CHECKSOCKETABLEITEM 11 4N1 S1
#act
SOCKETABLEITEM * * * * 11 4 * * 0 *
give<$STR(S1)> 1


[@h12]
#if
CHECKSOCKETABLEITEM 7 0N1 S1
#act
SOCKETABLEITEM * * * * 7 0 * * 0 *
give<$STR(S1)> 1


[@h22]
#if
CHECKSOCKETABLEITEM 7 1N1 S1
#act
SOCKETABLEITEM * * * * 7 1 * * 0 *
give<$STR(S1)> 1

[@h32]
#if
CHECKSOCKETABLEITEM 7 2N1 S1
#act
SOCKETABLEITEM * * * * 7 2 * * 0 *
give<$STR(S1)> 1

[@h42]
#if
CHECKSOCKETABLEITEM 7 3N1 S1
#act
SOCKETABLEITEM * * * * 7 3 * * 0 *
give<$STR(S1)> 1

[@h52]
#if
CHECKSOCKETABLEITEM 7 4N1 S1
#act
SOCKETABLEITEM * * * * 7 4 * * 0 *
give<$STR(S1)> 1


[@g12]
#if
CHECKSOCKETABLEITEM 8 0 N1 S1
#act
SOCKETABLEITEM * * * * 8 0 * * 0 *
give<$STR(S1)> 1


[@g22]
#if
CHECKSOCKETABLEITEM 8 1N1 S1
#act
SOCKETABLEITEM * * * * 8 1 * * 0 *
give<$STR(S1)> 1

[@g32]
#if
CHECKSOCKETABLEITEM 8 2N1 S1
#act
SOCKETABLEITEM * * * * 8 2 * * 0 *
give<$STR(S1)> 1

[@g42]
#if
CHECKSOCKETABLEITEM 8 3N1 S1
#act
SOCKETABLEITEM * * * * 8 3 * * 0 *
give<$STR(S1)> 1

[@g52]
#if
CHECKSOCKETABLEITEM 8 4N1 S1
#act
SOCKETABLEITEM * * * * 8 4 * * 0 *
give<$STR(S1)> 1


[@f12]
#if
CHECKSOCKETABLEITEM 5 0N1 S1
#act
SOCKETABLEITEM * * * * 5 0 * * 0 *
give<$STR(S1)> 1


[@f22]
#if
CHECKSOCKETABLEITEM 5 1N1 S1
#act
SOCKETABLEITEM * * * * 5 1 * * 0 *
give<$STR(S1)> 1

[@f32]
#if
CHECKSOCKETABLEITEM 5 2N1 S1
#act
SOCKETABLEITEM * * * * 5 2 * * 0 *
give<$STR(S1)> 1

[@f42]
#if
CHECKSOCKETABLEITEM 5 3N1 S1
#act
SOCKETABLEITEM * * * * 5 3 * * 0 *
give<$STR(S1)> 1

[@f52]
#if
CHECKSOCKETABLEITEM 5 4N1 S1
#act
SOCKETABLEITEM * * * * 5 4 * * 0 *
give<$STR(S1)> 1


[@e12]
#if
CHECKSOCKETABLEITEM 6 0 N1 S1
#act
SOCKETABLEITEM * * * * 6 0 * * 0 *
give <$STR(S1)> 1


[@e22]
#if
CHECKSOCKETABLEITEM 6 1N1 S1
#act
SOCKETABLEITEM * * * * 6 1 * * 0 *
give <$STR(S1)> 1

[@e32]
#if
CHECKSOCKETABLEITEM 6 2N1 S1
#act
SOCKETABLEITEM * * * * 6 2 * * 0 *
give <$STR(S1)> 1

[@e42]
#if
CHECKSOCKETABLEITEM 6 3N1 S1
#act
SOCKETABLEITEM * * * * 6 3 * * 0 *
give <$STR(S1)> 1

[@e52]
#if
CHECKSOCKETABLEITEM 6 4N1 S1
#act
SOCKETABLEITEM * * * * 6 4 * * 0 *
give <$STR(S1)> 1




[@d12]
#if
CHECKSOCKETABLEITEM 3 0N1 S1
#act
SOCKETABLEITEM * * * * 3 0 * * 0 *
give <$STR(S1)> 1


[@d22]
#if
CHECKSOCKETABLEITEM 3 1N1 S1
#act
SOCKETABLEITEM * * * * 3 1 * * 0 *
give <$STR(S1)> 1

[@d32]
#if
CHECKSOCKETABLEITEM 3 2N1 S1
#act
SOCKETABLEITEM * * * * 3 2 * * 0 *
give <$STR(S1)> 1

[@d42]
#if
CHECKSOCKETABLEITEM 3 3N1 S1
#act
SOCKETABLEITEM * * * * 3 3 * * 0 *
give <$STR(S1)> 1

[@d52]
#if
CHECKSOCKETABLEITEM 3 4N1 S1
#act
SOCKETABLEITEM * * * * 3 4 * * 0 *
give <$STR(S1)> 1




[@c12]
#if
CHECKSOCKETABLEITEM 4 0 N1 S1
#act
SOCKETABLEITEM * * * * 4 0 * * 0 *
give <$STR(S1)> 1


[@c22]
#if
CHECKSOCKETABLEITEM 4 1N1 S1
#act
SOCKETABLEITEM * * * * 4 1 * * 0 *
give <$STR(S1)> 1

[@c32]
#if
CHECKSOCKETABLEITEM 4 2 N1 S1
#act
SOCKETABLEITEM * * * * 4 2 * * 0 *
give <$STR(S1)> 1

[@c42]
#if
CHECKSOCKETABLEITEM 4 3 N1 S1
#act
SOCKETABLEITEM * * * * 4 3 * * 0 *
give <$STR(S1)> 1

[@c52]
#if
CHECKSOCKETABLEITEM 4 4 N1 S1
#act
SOCKETABLEITEM * * * * 4 4 * * 0 *
give <$STR(S1)> 1




[@s]


　<九龙打一孔/@s1>   <[闪耀蓝晶石]镶嵌一孔/@s11> 　<摘除一孔[闪耀蓝晶石]/@s12> \　\
　<九龙打二孔/@s2>   <[闪耀黄晶石]镶嵌二孔/@s21>   <摘除二孔[闪耀黄晶石]/@s22> \　\
　<九龙打三孔/@s3>   <[闪耀红晶石]镶嵌三孔/@s31>   <摘除三孔[闪耀红晶石]/@s32> \　\
　<九龙打四孔/@s4>   <[闪耀紫晶石]镶嵌四孔/@s41> 　<摘除四孔[闪耀紫晶石]/@s42> \　\
　<九龙打五孔/@s5>   <[闪耀绿晶石]镶嵌五孔/@s51> 　<摘除五孔[闪耀绿晶石]/@s52> \

[@s1]
#IF
NOT CHECKUSEITEM 15
#ACT
MESSAGEBOX 你没有带上九龙无法打孔。
break

#IF
CHECKDRILLHOLE 15 0
#ACT
MESSAGEBOX 你的九龙已经打了第一孔。
break

#if
NOT CHECKDRILLHOLE15 0
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 15 孔 孔 0 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 15 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第一个孔槽。. 1 3


[@s2]
#IF
NOT CHECKUSEITEM 15
#ACT
MESSAGEBOX 你没有带上九龙无法打孔。
break

#IF
CHECKDRILLHOLE 15 1
#ACT
MESSAGEBOX 你的九龙已经打了第二孔。
break

#if
NOT CHECKDRILLHOLE15 1
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 15 孔 孔 1 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 15 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第二个孔槽。. 1 3



[@s3]
#IF
NOT CHECKUSEITEM 15
#ACT
MESSAGEBOX 你没有带上九龙无法打孔。
break

#IF
CHECKDRILLHOLE 15 2
#ACT
MESSAGEBOX 你的九龙已经打了第三孔。
break

#if
NOT CHECKDRILLHOLE15 2
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 15 孔 孔 2 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 15 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第三个孔槽。. 1 3


[@s4]
#IF
NOT CHECKUSEITEM 15
#ACT
MESSAGEBOX 你没有带上九龙无法打孔。
break

#IF
CHECKDRILLHOLE 15 3
#ACT
MESSAGEBOX 你的九龙已经打了第四孔。
break

#if
NOT CHECKDRILLHOLE15 3
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 15 孔 孔 3 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 15 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第四个孔槽。. 1 3



[@s5]
#IF
NOT CHECKUSEITEM 15
#ACT
MESSAGEBOX 你没有带上九龙无法打孔。
break

#IF
CHECKDRILLHOLE 15 4
#ACT
MESSAGEBOX 你的九龙已经打了第五孔。
break

#if
NOT CHECKDRILLHOLE15 4
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 15 孔 孔 4 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 15 66
SendCenterMsg 218 160恭喜“[<$USERNAME>]”将“<$STR(S66)>”打造第五个孔槽。. 1 3


[@s11]
#if
CHECKSOCKETABLEITEM 15 0 485 闪耀蓝晶石
#act
MESSAGEBOX 你的九龙已经镶嵌过一孔晶石
#elseact
goto @s11a
[@s11a]
#if
checkitem 闪耀蓝晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 15 0
#ACT
take闪耀蓝晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 15 0 * * 485 *
GetUserItemName 15 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀蓝晶石]”镶嵌进入“[<$STR(S66)>]”第一孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打一孔\　　　　　　②.你包裹里没有闪耀蓝晶石或高级刻铭符
break



[@s21]
#if
CHECKSOCKETABLEITEM 15 1 486 闪耀黄晶石
#act
MESSAGEBOX 你的九龙已经镶嵌过二孔晶石
#elseact
goto @s21a
[@s21a]
#if
checkitem 闪耀黄晶石 1
CHECKDRILLHOLE 15 1
checkitem 高级刻铭符 1
#ACT
take闪耀黄晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 15 1 * * 486 *
GetUserItemName 15 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀黄晶石]”镶嵌进入“[<$STR(S66)>]”第二孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打二孔\　　　　　　②.你包裹里没有闪耀黄晶石或高级刻铭符
break



[@s31]
#if
CHECKSOCKETABLEITEM 15 2 487 闪耀红晶石
#act
MESSAGEBOX 你的九龙已经镶嵌过三孔晶石
#elseact
goto @s31a
[@s31a]
#if
checkitem 闪耀红晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 15 2
#ACT
take闪耀红晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 15 2 * * 487 *
GetUserItemName 15 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀红晶石]”镶嵌进入“[<$STR(S66)>]”第三孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打三孔\　　　　　　②.你包裹里没有闪耀红晶石或高级刻铭符
break


[@s41]
#if
CHECKSOCKETABLEITEM 15 3 488 闪耀紫晶石
#act
MESSAGEBOX 你的九龙已经镶嵌过四孔晶石
#elseact
goto @s41a
[@s41a]
#if
checkitem 闪耀紫晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 15 3
#ACT
take闪耀紫晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 15 3 * * 488 *
GetUserItemName 15 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀紫晶石]”镶嵌进入“[<$STR(S66)>]”第四孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打四孔\　　　　　　②.你包裹里没有闪耀紫晶石或高级刻铭符
break


[@s51]
#if
CHECKSOCKETABLEITEM 15 4 489 闪耀绿晶石
#act
MESSAGEBOX 你的九龙已经镶嵌过五孔晶石
#elseact
goto @s51a
[@s51a]
#if
checkitem 闪耀绿晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 15 4
#ACT
take闪耀绿晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 15 4 * * 489 *
GetUserItemName 15 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀绿晶石]”镶嵌进入“[<$STR(S66)>]”第五孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打五孔\　　　　　　②.你包裹里没有闪耀绿晶石或高级刻铭符
break








[@r]



　<战绩打一孔/@r1>   <[闪耀蓝晶石]镶嵌一孔/@r11> 　<摘除一孔[闪耀蓝晶石]/@r12> \　\
　<战绩打二孔/@r2>   <[闪耀黄晶石]镶嵌二孔/@r21>   <摘除二孔[闪耀黄晶石]/@r22> \　\
　<战绩打三孔/@r3>   <[闪耀红晶石]镶嵌三孔/@r31>   <摘除三孔[闪耀红晶石]/@r32> \　\
　<战绩打四孔/@r4>   <[闪耀紫晶石]镶嵌四孔/@r41> 　<摘除四孔[闪耀紫晶石]/@r42> \　\
　<战绩打五孔/@r5>   <[闪耀绿晶石]镶嵌五孔/@r51> 　<摘除五孔[闪耀绿晶石]/@r52> \


[@r1]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 你没有带上战绩无法打孔。
break

#IF
CHECKDRILLHOLE 14 0
#ACT
MESSAGEBOX 你的战绩已经打了第一孔。
break

#if
NOT CHECKDRILLHOLE14 0
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 14 孔 孔 0 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 14 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第一个孔槽。. 1 3


[@r2]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 你没有带上战绩无法打孔。
break

#IF
CHECKDRILLHOLE 14 1
#ACT
MESSAGEBOX 你的战绩已经打了第二孔。
break

#if
NOT CHECKDRILLHOLE14 1
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 14 孔 孔 1 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 14 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第二个孔槽。. 1 3



[@r3]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 你没有带上战绩无法打孔。
break

#IF
CHECKDRILLHOLE 14 2
#ACT
MESSAGEBOX 你的战绩已经打了第三孔。
break

#if
NOT CHECKDRILLHOLE14 2
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 14 孔 孔 2 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 14 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第三个孔槽。. 1 3


[@r4]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 你没有带上战绩无法打孔。
break

#IF
CHECKDRILLHOLE 14 3
#ACT
MESSAGEBOX 你的战绩已经打了第四孔。
break

#if
NOT CHECKDRILLHOLE14 3
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 14 孔 孔 3 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 14 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第四个孔槽。. 1 3



[@r5]
#IF
NOT CHECKUSEITEM 14
#ACT
MESSAGEBOX 你没有带上战绩无法打孔。
break

#IF
CHECKDRILLHOLE 14 4
#ACT
MESSAGEBOX 你的战绩已经打了第五孔。
break

#if
NOT CHECKDRILLHOLE14 4
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 14 孔 孔 4 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 14 66
SendCenterMsg 218 160恭喜“[<$USERNAME>]”将“<$STR(S66)>”打造第五个孔槽。. 1 3


[@r11]
#if
CHECKSOCKETABLEITEM 14 0 485 闪耀蓝晶石
#act
MESSAGEBOX 你的战绩已经镶嵌过一孔晶石
#elseact
goto @r11a
[@r11a]
#if
checkitem 闪耀蓝晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 14 0
#ACT
take闪耀蓝晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 14 0 * * 485 *
GetUserItemName 14 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀蓝晶石]”镶嵌进入“[<$STR(S66)>]”第一孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打一孔\　　　　　　②.你包裹里没有闪耀蓝晶石或高级刻铭符
break



[@r21]
#if
CHECKSOCKETABLEITEM 14 1 486 闪耀黄晶石
#act
MESSAGEBOX 你的战绩已经镶嵌过二孔晶石
#elseact
goto @r21a
[@r21a]
#if
checkitem 闪耀黄晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 14 1
#ACT
take闪耀黄晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 14 1 * * 486 *
GetUserItemName 14 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀黄晶石]”镶嵌进入“[<$STR(S66)>]”第二孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打二孔\　　　　　　②.你包裹里没有闪耀黄晶石或高级刻铭符
break



[@r31]
#if
CHECKSOCKETABLEITEM 14 2 487 闪耀红晶石
#act
MESSAGEBOX 你的战绩已经镶嵌过三孔晶石
#elseact
goto @r31a
[@r31a]
#if
checkitem 闪耀红晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 14 2
#ACT
take闪耀红晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 14 2 * * 487 *
GetUserItemName 14 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀红晶石]”镶嵌进入“[<$STR(S66)>]”第三孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打三孔\　　　　　　②.你包裹里没有闪耀红晶石或高级刻铭符
break


[@r41]
#if
CHECKSOCKETABLEITEM 14 3 488 闪耀紫晶石
#act
MESSAGEBOX 你的战绩已经镶嵌过四孔晶石
#elseact
goto @r41a
[@r41a]
#if
checkitem 闪耀紫晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 14 3
#ACT
take闪耀紫晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 14 3 * * 488 *
GetUserItemName 14 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀紫晶石]”镶嵌进入“[<$STR(S66)>]”第四孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打四孔\　　　　　　②.你包裹里没有闪耀紫晶石或高级刻铭符
break


[@r51]
#if
CHECKSOCKETABLEITEM 14 4 489 闪耀绿晶石
#act
MESSAGEBOX 你的战绩已经镶嵌过五孔晶石
#elseact
goto @r51a
[@r51a]
#if
checkitem 闪耀绿晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 14 4
#ACT
take闪耀绿晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 14 4 * * 489 *
GetUserItemName 14 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀绿晶石]”镶嵌进入“[<$STR(S66)>]”第五孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打五孔\　　　　　　②.你包裹里没有闪耀绿晶石或高级刻铭符
break








[@n]




　<弓箭打一孔/@n1>   <[闪耀蓝晶石]镶嵌一孔/@n11> 　<摘除一孔[闪耀蓝晶石]/@n12> \　\
　<弓箭打二孔/@n2>   <[闪耀黄晶石]镶嵌二孔/@n21>   <摘除二孔[闪耀黄晶石]/@n22> \　\
　<弓箭打三孔/@n3>   <[闪耀红晶石]镶嵌三孔/@n31>   <摘除三孔[闪耀红晶石]/@n32> \　\
　<弓箭打四孔/@n4>   <[闪耀紫晶石]镶嵌四孔/@n41> 　<摘除四孔[闪耀紫晶石]/@n42> \　\
　<弓箭打五孔/@n5>   <[闪耀绿晶石]镶嵌五孔/@n51> 　<摘除五孔[闪耀绿晶石]/@n52> \

[@n1]
#IF
NOT CHECKUSEITEM 16
#ACT
MESSAGEBOX 你没有带上弓箭无法打孔。
break

#IF
CHECKDRILLHOLE 16 0
#ACT
MESSAGEBOX 你的弓箭已经打了第一孔。
break

#if
NOT CHECKDRILLHOLE16 0
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 16 孔 孔 0 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 16 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第一个孔槽。. 1 3


[@n2]
#IF
NOT CHECKUSEITEM 16
#ACT
MESSAGEBOX 你没有带上弓箭无法打孔。
break

#IF
CHECKDRILLHOLE 16 1
#ACT
MESSAGEBOX 你的弓箭已经打了第二孔。
break

#if
NOT CHECKDRILLHOLE16 1
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 16 孔 孔 1 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 16 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第二个孔槽。. 1 3



[@n3]
#IF
NOT CHECKUSEITEM 16
#ACT
MESSAGEBOX 你没有带上弓箭无法打孔。
break

#IF
CHECKDRILLHOLE 16 2
#ACT
MESSAGEBOX 你的弓箭已经打了第三孔。
break

#if
NOT CHECKDRILLHOLE16 2
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 16 孔 孔 2 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 16 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第三个孔槽。. 1 3


[@n4]
#IF
NOT CHECKUSEITEM 16
#ACT
MESSAGEBOX 你没有带上弓箭无法打孔。
break

#IF
CHECKDRILLHOLE 16 3
#ACT
MESSAGEBOX 你的弓箭已经打了第四孔。
break

#if
NOT CHECKDRILLHOLE16 3
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 16 孔 孔 3 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 16 66
SendCenterMsg 218 160恭喜“<$USERNAME>”将“<$STR(S66)>”打造第四个孔槽。. 1 3



[@n5]
#IF
NOT CHECKUSEITEM 16
#ACT
MESSAGEBOX 你没有带上弓箭无法打孔。
break

#IF
CHECKDRILLHOLE 16 4
#ACT
MESSAGEBOX 你的弓箭已经打了第五孔。
break

#if
NOT CHECKDRILLHOLE16 4
#act
SetUpgradeItem 3
DRILLHOLE孔 孔 16 孔 孔 4 孔 1 孔 孔
UpDateBoxItem 3
GetUserItemName 16 66
SendCenterMsg 218 160恭喜“[<$USERNAME>]”将“<$STR(S66)>”打造第五个孔槽。. 1 3


[@n11]
#if
CHECKSOCKETABLEITEM 16 0 485 闪耀蓝晶石
#act
MESSAGEBOX 你的弓箭已经镶嵌过一孔晶石
#elseact
goto @n11a
[@n11a]
#if
checkitem 闪耀蓝晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 16 0
#ACT
take闪耀蓝晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 16 0 * * 485 *
GetUserItemName 16 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀蓝晶石]”镶嵌进入“[<$STR(S66)>]”第一孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打一孔\　　　　　　②.你包裹里没有闪耀蓝晶石或高级刻铭符
break



[@n21]
#if
CHECKSOCKETABLEITEM 16 1 486 闪耀黄晶石
#act
MESSAGEBOX 你的弓箭已经镶嵌过二孔晶石
#elseact
goto @n21a
[@n21a]
#if
checkitem 闪耀黄晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 16 1
#ACT
take闪耀黄晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 16 1 * * 486 *
GetUserItemName 16 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀黄晶石]”镶嵌进入“[<$STR(S66)>]”第二孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打二孔\　　　　　　②.你包裹里没有闪耀黄晶石或高级刻铭符
break



[@n31]
#if
CHECKSOCKETABLEITEM 16 2 487 闪耀红晶石
#act
MESSAGEBOX 你的弓箭已经镶嵌过三孔晶石
#elseact
goto @n31a
[@n31a]
#if
checkitem 闪耀红晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 16 2
#ACT
take闪耀红晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 16 2 * * 487 *
GetUserItemName 16 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀红晶石]”镶嵌进入“[<$STR(S66)>]”第三孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打三孔\　　　　　　②.你包裹里没有闪耀红晶石或高级刻铭符
break


[@n41]
#if
CHECKSOCKETABLEITEM 16 3 488 闪耀紫晶石
#act
MESSAGEBOX 你的弓箭已经镶嵌过四孔晶石
#elseact
goto @n41a
[@n41a]
#if
checkitem 闪耀紫晶石 1
checkitem 高级刻铭符 1
CHECKDRILLHOLE 16 3
#ACT
take闪耀紫晶石 1
take高级刻铭符 1
SOCKETABLEITEM * * * * 16 3 * * 488 *
GetUserItemName 16 66
SendCenterMsg 218 160恭喜玩家[<$USERNAME>]将“[闪耀紫晶石]”镶嵌进入“[<$STR(S66)>]”第四孔。. 1 3
UpDateBoxItem 5
#ELSEACT
MESSAGEBOX 　　　　　　[提示]:镶嵌失败!\　　　　　　①.你的装备还未打四孔\　　　　　　②.你包裹里没有闪耀紫晶石或高级刻铭符
break


**** Hidden Message *****


小小小菜鸟 发表于 2017-2-7 10:27:00

顶起出售广告位

丶木木 发表于 2017-2-7 12:39:13

好帖必须得顶起

嫂子别这样 发表于 2017-2-7 13:52:03

学习了，谢谢分享、、、

红茶 发表于 2017-2-7 15:20:32

楼猪V5啊

好的来了就是 发表于 2017-2-7 18:16:00

这么强,支持楼主，佩服

蕞终幻葙 发表于 2017-2-7 19:15:36

站位支持

未来 发表于 2017-2-7 19:30:13

鄙视楼下的顶帖没我快，哈哈

狼派使者 发表于 2017-2-7 19:44:45

谢谢楼主，共同发展

光和秀策啊 发表于 2017-2-7 20:28:28

非常不错，先分享，收藏保存
页: [1] 2 3 4 5 6 7 8 9
查看完整版本: 传奇私服GOM引擎镶嵌脚本