GOM镶嵌宝石脚本,测试可用,

郭光庆

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

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

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

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

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

break

[@ItemIntoBox5]
#ACT
SetUpgradeItem 5
#IF
NOT CHECKDRILLHOLE -1 0
#ACT
ReturnBoxItem 5
MESSAGEBOX 此物没有打孔，宝石无法与其融合。
break

[@开始镶嵌]
#ACT
MOVR N$镶嵌几率 0 10
SetUpgradeItem 5
#IF
EQUAL <$BOXITEM[4].NAME>
#ACT
MESSAGEBOX 你没有放入镶嵌石.
break
#IF
EQUAL <$BOXITEM[5].NAME>
#ACT
MESSAGEBOX 你没有放入镶嵌的装备，镶嵌失败。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 > 4
#ACT
MESSAGEBOX 此装备可容纳宝石的孔槽已满。
break
#IF
NOT CheckGold 50000
#ACT
MESSAGEBOX 金币不足\每次镶嵌需要5万的金币。
break
#IF
NOT CHECKDRILLHOLE -1 1
CHECKSOCKETABLEITEMCOUNT -1 = 1
#ACT
ReturnBoxItem 5
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOT CHECKDRILLHOLE -1 2
CHECKSOCKETABLEITEMCOUNT -1 = 2
#ACT
ReturnBoxItem 5
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOT CHECKDRILLHOLE -1 3
CHECKSOCKETABLEITEMCOUNT -1 = 3
#ACT
ReturnBoxItem 5
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break
#IF
NOT CHECKDRILLHOLE -1 4
CHECKSOCKETABLEITEMCOUNT -1 = 4
#ACT
ReturnBoxItem 5
MESSAGEBOX 此装备已经没有更多的孔槽去容纳宝石，镶嵌失败。
break

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


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

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

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

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

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

常德市金摇篮幼教

路过支持一下

林之秋实

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

哇呀呀呀呀

楼主太厉害了！楼主，I*老*虎*U！我觉得GM爱好者：www.gmahz.com真是个好地方

fcwindpass

感谢楼主的无私分享！要想GM爱好者：www.gmahz.com好 就靠你我他

莪湜玎玎

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！

大饼小时候

既然你诚信诚意的推荐了，那我就勉为其难的看看吧！GM爱好者：www.gmahz.com不走平凡路。

完美至极

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com

小水桶

金币我要攒金币！！！