GOM传奇引擎镶嵌宝石脚本测试可用

给别人设计的GOM传奇引擎宝石镶嵌脚本.注：宝石DB库的IDX序号加1
宝石DB库的字段Reserved=0时Ac2Mac2DC2MC2SC2HPMP字段的值是增加的对应的7个基本属性的值
宝石DB库的字段Reserved>0时Ac2Mac2DC2MC2SC2HPMP字段的值除以100，为各属性的倍数，例如Ac2设置为110，人物的防御为200。人物实际防御=110/100*200=220
复制可以直接用数据需自行修改.
[@main]
#IF
CHECKLEVEL1
#ACT
ReturnBoxItem0
ReturnBoxItem1
OPENMERCHANTBIGDLG53241400011\
#say
;画关闭按钮↓
<ITEMBOX:4:5:-50:200:65:39:35:*:镶嵌石>
<ITEMBOX:5:5:50:165:159:39:35:*:放入需要镶嵌的装备>\
<Img:325:5:180:240/@开始镶嵌>

[@ItemIntoBox4]
#IF
NOTCheckContainsText<$BOXITEM[4].NAME>宝石
#ACT
ReturnBoxItem4
MESSAGEBOX你放入的不是镶嵌宝石，请重新放入。
#IF
EQUAL<$BOXITEM[4].NAME>防御增加宝石
#ACT
MOVN$宝石变量603

#IF
EQUAL<$BOXITEM[4].NAME>魔防增加宝石
#ACT
MOVN$宝石变量604

#IF
EQUAL<$BOXITEM[4].NAME>攻击增加宝石
#ACT
MOVN$宝石变量605

#IF
EQUAL<$BOXITEM[4].NAME>血量增加宝石
#ACT
MOVN$宝石变量606

break

[@ItemIntoBox5]
#ACT
SetUpgradeItem5
#IF
NOTCHECKDRILLHOLE-10
#ACT
ReturnBoxItem5
MESSAGEBOX此物没有打孔，宝石无法与其融合。
break

[@开始镶嵌]
#ACT
MOVRN$镶嵌几率010
SetUpgradeItem5
#IF
EQUAL<$BOXITEM[4].NAME>
#ACT
MESSAGEBOX你没有放入镶嵌石.
break
#IF
EQUAL<$BOXITEM[5].NAME>
#ACT
MESSAGEBOX你没有放入镶嵌的装备，镶嵌失败。
break
#IF
CHECKSOCKETABLEITEMCOUNT-1>4
#ACT
MESSAGEBOX此装备可容纳宝石的孔槽已满。
break
#IF
NOTCheckGold50000
#ACT
MESSAGEBOX金币不足\每次镶嵌需要5万的金币。
break
#IF
NOTCHECKDRILLHOLE-11
CHECKSOCKETABLEITEMCOUNT-1=1
#ACT
ReturnBoxItem5
MESSAGEBOX此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOTCHECKDRILLHOLE-12
CHECKSOCKETABLEITEMCOUNT-1=2
#ACT
ReturnBoxItem5
MESSAGEBOX此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOTCHECKDRILLHOLE-13
CHECKSOCKETABLEITEMCOUNT-1=3
#ACT
ReturnBoxItem5
MESSAGEBOX此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOTCHECKDRILLHOLE-14
CHECKSOCKETABLEITEMCOUNT-1=4
#ACT
ReturnBoxItem5
MESSAGEBOX此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break

#IF
CHECKDRILLHOLE-10
CHECKSOCKETABLEITEMCOUNT-1=0
#ACT
Take金币50000
goto@镶嵌进行1
break
#IF
CHECKDRILLHOLE-11
CHECKSOCKETABLEITEMCOUNT-1=1
#ACT
Take金币50000
goto@镶嵌进行2
break
#IF
CHECKDRILLHOLE-12
CHECKSOCKETABLEITEMCOUNT-1=2
#ACT
Take金币50000
goto@镶嵌进行3
break
#IF
CHECKDRILLHOLE-13
CHECKSOCKETABLEITEMCOUNT-1=3
#ACT
Take金币50000
goto@镶嵌进行4
break
#IF
CHECKDRILLHOLE-14
CHECKSOCKETABLEITEMCOUNT-1=4
#ACT
Take金币50000
goto@镶嵌进行5
break


[@镶嵌进行1]
#ACT
SetUpgradeItem5
#IF
SmallN$镶嵌几率7
#ACT
take<$BOXITEM[4].NAME>1
SOCKETABLEITEM****-10**<$STR(N$宝石变量)>*
MESSAGEBOX恭喜镶嵌成功！\镶嵌第一个宝石的几率为80%\“<$BOXITEM[4].NAME>”已融合到“<$BOXITEM[5].NAME>”\的第一个孔槽内。
UpDateBoxItem5
break
#IF
LargeN$镶嵌几率7
#ACT
take<$BOXITEM[4].NAME>1
MESSAGEBOX镶嵌失败！宝石已碎裂\镶嵌第一个宝石的几率为80%\很遗憾，这20%的几率居然让你给碰到了。
break

[@镶嵌进行2]
#ACT
SetUpgradeItem5
#IF
SmallN$镶嵌几率5
#ACT
take<$BOXITEM[4].NAME>1
SOCKETABLEITEM****-11**<$STR(N$宝石变量)>*
MESSAGEBOX恭喜镶嵌成功！\镶嵌第二个宝石的几率为70%\“<$BOXITEM[4].NAME>”已融合到“<$BOXITEM[5].NAME>”\的第二个孔槽内。
UpDateBoxItem5
break
#IF
LargeN$镶嵌几率4
#ACT
take<$BOXITEM[4].NAME>1
MESSAGEBOX镶嵌失败！宝石已碎裂\镶嵌第二个宝石的几率为70%\很遗憾，这30%的几率居然让你给碰到了。
break

[@镶嵌进行3]
#ACT
SetUpgradeItem5
#IF
SmallN$镶嵌几率4
#ACT
take<$BOXITEM[4].NAME>1
SOCKETABLEITEM****-12**<$STR(N$宝石变量)>*
MESSAGEBOX恭喜镶嵌成功！\镶嵌第三个宝石的几率为40%\“<$BOXITEM[4].NAME>”已融合到“<$BOXITEM[5].NAME>”\的第三个孔槽内。
UpDateBoxItem5
break
#IF
LargeN$镶嵌几率3
#ACT
take<$BOXITEM[4].NAME>1
MESSAGEBOX镶嵌失败！宝石已碎裂\镶嵌第三个宝石的几率为40%\很遗憾，继续努力吧。
break

[@镶嵌进行4]
#ACT
SetUpgradeItem5
#IF
SmallN$镶嵌几率2
#ACT
take<$BOXITEM[4].NAME>1
SOCKETABLEITEM****-13**<$STR(N$宝石变量)>*
MESSAGEBOX恭喜镶嵌成功！\镶嵌第四个宝石的几率为15%\“<$BOXITEM[4].NAME>”已融合到“<$BOXITEM[5].NAME>”\的第四个孔槽内。
UpDateBoxItem5
break
#IF
LargeN$镶嵌几率1
#ACT
take<$BOXITEM[4].NAME>1
MESSAGEBOX镶嵌失败！宝石已碎裂\镶嵌第四个宝石的几率为15%\很遗憾，继续努力吧。
break

[@镶嵌进行5]
#ACT
SetUpgradeItem5
#IF
SmallN$镶嵌几率1
#ACT
take<$BOXITEM[4].NAME>1
SOCKETABLEITEM****-14**<$STR(N$宝石变量)>*
MESSAGEBOX恭喜镶嵌成功！\镶嵌第五个宝石的几率为5%\“<$BOXITEM[4].NAME>”已融合到“<$BOXITEM[5].NAME>”\的第五个孔槽内。
UpDateBoxItem5
break
#IF
LargeN$镶嵌几率0
#ACT
take<$BOXITEM[4].NAME>1
MESSAGEBOX镶嵌失败！宝石已碎裂\镶嵌第五个宝石的几率为5%\很遗憾，还有机会的，继续努力吧。
break