[传奇脚本]GOM引擎传奇脚本宝石镶嵌完整无错脚本

文章转载来源347w资源网

[@main]
#ACT
ReturnBoxItem 0
ReturnBoxItem 1
#SAY

\
<放入所需/FCOLOR=250>       <放入所需/FCOLOR=250>　 \
<镶嵌装备/FCOLOR=250>       <镶嵌材料/FCOLOR=250>　 <蓝宝石:镶嵌后减少伤害/FCOLOR=252>\
<↓↓↓↓/FCOLOR=249>       <↓↓↓↓/FCOLOR=249>　 <红宝石:镶嵌后增加目标暴率/FCOLOR=249>\
<绿宝石:镶嵌后增加攻魔道倍数/FCOLOR=250>\

<开始/@开始镶嵌>\
<ITEMBOX:0:8:883:43:-2:45:45:5,10,11,63,28,62,16,48,15,19,51,30,26,22,64,65,52,20,21,7,53:254#请放入需要镶嵌装备> <ITEMBOX:1:8:883:83:-2:45:45:44:254#请放入所需镶嵌材料>　 　 　 　 　 　\\
<每件装备可同时镶嵌1种宝石/FCOLOR=254>\
\ \ \

[@ItemIntoBox0]
#if
#act
SetUpgradeItem 0
DRILLHOLE * * -1 * * 0 * 1 * *
DRILLHOLE * * -1 * * 1 * 1 * *
DRILLHOLE * * -1 * * 2 * 1 * *
UpDateBoxItem 0

[@ItemIntoBox1]
#if
EQUAL <$BOXITEM[1].NAME> 红宝石
#act
MOV <$STR(N$宝石序号)> 478

#if
EQUAL <$BOXITEM[1].NAME> 蓝宝石
#act
MOV <$STR(N$宝石序号)> 479

#if
EQUAL <$BOXITEM[1].NAME> 绿宝石
#act
MOV <$STR(N$宝石序号)> 480

;#if
;EQUAL <$BOXITEM[1].NAME> 紫宝石
;#act
;MOV <$STR(N$宝石序号)> 481
;break

[@开始镶嵌]
#if
Equal <$BOXITEM[1].NAME>
#act
MESSAGEBOX 当前没有放入镶嵌的宝石！无法提升
#elseact
GOTO @检测OK0

[@检测OK0]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
MESSAGEBOX 当前没有放入镶嵌的装备！无法提升
break
#elseact
SetUpgradeItem 0
DRILLHOLE * * -1 * * 0 * 1 * *
DRILLHOLE * * -1 * * 1 * 1 * *
DRILLHOLE * * -1 * * 2 * 1 * *
UpDateBoxItem 0
GOTO @镶嵌第一个

[@镶嵌第一个]
#ACT
SetUpgradeItem 0  \\关联OK框
#IF
NOT CHECKSOCKETABLEITEM -1 0 <$STR(N$镶嵌序号)> <$STR(能N$镶嵌名字)>
#ACT
GOTO @镶嵌第一个A
#elseact
GOTO @镶嵌第二个

[@镶嵌第一个A]
#IF
NOT CHECKSOCKETABLEITEM -1 0 <$STR(N$镶嵌序号)> <$STR(N$镶嵌名字)>
#ACT
DELBOXITEM 1
SOCKETABLEITEM * * * * -1 0 * * <$STR(N$宝石序号)> *
UpDateBoxItem 0
SENDMSG 6 装备第一个控镶嵌成功
BREAK

[@镶嵌第二个]
#if
equal <$BOXITEM[0].GNAME1> <$BOXITEM[1].NAME>
#act
SENDMSG 6 您的装备已镶嵌了一颗相同的宝石，不能再次镶嵌
break
#IF
NOT CHECKSOCKETABLEITEM -1 1 <$STR(N$镶嵌序号)> <$STR(能N$镶嵌名字)>
#ACT
GOTO @镶嵌第二个A
#elseact
GOTO @镶嵌第三个

[@镶嵌第二个A]
#IF
NOT CHECKSOCKETABLEITEM -1 1 <$STR(N$镶嵌序号)> <$STR(能N$镶嵌名字)>
#ACT
DELBOXITEM 1
SOCKETABLEITEM * * * * -1 1 * * <$STR(N$宝石序号)> *
UpDateBoxItem 0
SENDMSG 6 装备第二个控镶嵌成功
BREAK

[@镶嵌第三个]
#if
equal <$BOXITEM[0].GNAME1> <$BOXITEM[1].NAME>
#act
SENDMSG 6 您的装备已镶嵌了一颗相同的宝石，不能再次镶嵌
break
#if
equal <$BOXITEM[0].GNAME2> <$BOXITEM[1].NAME>
#act
SENDMSG 6 您的装备已镶嵌了一颗相同的宝石，不能再次镶嵌
break
#IF
NOT CHECKSOCKETABLEITEM -1 2 <$STR(N$镶嵌序号)> <$STR(能N$镶嵌名字)>
#ACT
GOTO @镶嵌第三个A
#elseact
GOTO @镶嵌第四个

;http://www.347w.com 传奇资源网

[@镶嵌第三个A]
#IF
NOT CHECKSOCKETABLEITEM -1 2 <$STR(N$镶嵌序号)> <$STR(N$镶嵌名字)>
#ACT
DELBOXITEM 1
SOCKETABLEITEM * * * * -1 2 * * <$STR(N$宝石序号)> *
UpDateBoxItem 0
SENDMSG 6 装备第三个控镶嵌成功
BREAK

;[@镶嵌第三个]
;#if
;equal <$BOXITEM[0].GNAME1> <$BOXITEM[1].NAME>
;#act
;SENDMSG 6 您的装备已镶嵌了一颗相同的宝石，不能再次镶嵌
;break
;#if
;equal <$BOXITEM[0].GNAME2> <$BOXITEM[1].NAME>
;#act
;SENDMSG 6 您的装备已镶嵌了一颗相同的宝石，不能再次镶嵌
;break
;#IF
;NOT CHECKSOCKETABLEITEM -1 2 <$STR(N$镶嵌序号)> <$STR(能N$镶嵌名字)>
;#ACT
;GOTO @镶嵌第三个A
;#elseact
;GOTO @检测提示

;[@镶嵌第三个A]
;#IF
;NOT CHECKSOCKETABLEITEM -1 2 <$STR(N$镶嵌序号)> <$STR(N$镶嵌名字)>
;#ACT
;DELBOXITEM 1
;SOCKETABLEITEM * * * * -1 2 * * <$STR(N$宝石序号)> *
;UpDateBoxItem 0
;SENDMSG 6 装备第三个控镶嵌成功
;BREAK

[@检测提示]
#if
CHECKSOCKETABLEITEMCOUNT -1 = 3
#ACT
SENDMSG 6 当前装备已打上3个宝石，无法再次提升
UpDateBoxItem 0
BREAK