GOM镶嵌宝石脚本,测试可用,GM爱好者

郭光庆 发表于 2022-12-22 23:33:39

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

给别人设计的GOM引擎宝石镶嵌脚本.注：宝石DB库的IDX序号加1
宝石DB库的字段Reserved=0时Ac2Mac2DC2MC2SC2 HP MP字段的值是增加的对应的7个基本属性的值
宝石DB库的字段Reserved>0时Ac2Mac2DC2MC2SC2 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.NAME> 宝石
#ACT
ReturnBoxItem 4
MESSAGEBOX 你放入的不是镶嵌宝石，请重新放入。
#IF
EQUAL <$BOXITEM.NAME> 防御增加宝石
#ACT
MOV N$宝石变量 603

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

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

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

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

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

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

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

常德市金摇篮幼教 发表于 2022-12-23 01:58:49

路过支持一下

林之秋实 发表于 2022-12-23 02:37:34

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

哇呀呀呀呀 发表于 2022-12-23 02:37:58

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

fcwindpass 发表于 2022-12-24 03:50:25

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

莪湜玎玎 发表于 2022-12-25 03:55:15

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

大饼小时候 发表于 2022-12-25 18:38:39

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

完美至极 发表于 2022-12-26 16:20:05

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

小水桶 发表于 2022-12-30 20:39:09

金币我要攒金币！！！

a137580399 发表于 2022-12-31 02:55:35

页: [1] 2

GM爱好者's Archiver

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