芝麻论坛 › 传奇私服脚本 › GOM宝石镶嵌脚本左侧放入镶嵌宝石 右侧放入要镶嵌的装备

芝麻论坛 发表于 2017-4-23 11:01:47

GOM宝石镶嵌脚本左侧放入镶嵌宝石 右侧放入要镶嵌的装备

[@main]
\ \
<左侧放入镶嵌宝石 右侧放入要镶嵌的装备/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<每个装备可以镶嵌3颗宝石 每颗增加1点基础属性/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<镶嵌宝石可以在神山庄和商铺获得/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \ \ \
<>                        <开始镶嵌/@开始镶嵌>\\

<ITEMBOX:0:11:47:82:-38:36:36:*:放入镶嵌石>\
<ITEMBOX:1:11:47:221:-54:36:36:*:放入需要镶嵌的装备>\

[@开始摘除]
#SAY
左侧放入攻击宝石 右侧放入要镶嵌的装备\ \
每个装备可以镶嵌3颗宝石 每颗增加0.15倍攻击\ \
使用摘除符可以摘除全部宝石 镶嵌到别的装备去\ \
<>                        <开始摘除/@摘除1>\
<ITEMBOX:2:11:47:82:-18:36:36:*:放入拆除符>\
<ITEMBOX:3:11:47:221:-34:36:36:*:放入需要摘取宝石的装备>\

[@ItemIntoBox2]
#IF
NOT CheckContainsText <$BOXITEM.NAME_G> 拆除符
#ACT
ReturnBoxItem 2
MESSAGEBOX 你放入的不是拆除符，请重新放入。
break

[@ItemIntoBox3]
#ACT
SetUpgradeItem 3
#IF
CHECKSOCKETABLEITEMCOUNT -1 < 1
#ACT
ReturnBoxItem 3
MESSAGEBOX 此装备没有镶嵌过宝石，请换一件装备。
#IF
CHECKSOCKETABLEITEM -1 0 N$宝石1的IDX S$宝石1的名字
#IF
CHECKSOCKETABLEITEM -1 1 N$宝石2的IDX S$宝石2的名字
#IF
CHECKSOCKETABLEITEM -1 2 N$宝石3的IDX S$宝石3的名字
#IF
CHECKSOCKETABLEITEM -1 3 N$宝石4的IDX S$宝石4的名字
#IF
CHECKSOCKETABLEITEM -1 4 N$宝石5的IDX S$宝石5的名字
[@摘除1]
#ACT
SetUpgradeItem 3
#IF
EQUAL <$BOXITEM.NAME>
#ACT
MESSAGEBOX 没有放入拆除符，无法摘除镶嵌石。
break
#IF
EQUAL <$BOXITEM.NAME>
#ACT
MESSAGEBOX 错误，需要摘除宝石的装备为空，请放入装备后再来摘除。
break
#IF
CHECKSOCKETABLEITEMCOUNT -1 < 1
#ACT
ReturnBoxItem 3
MESSAGEBOX 此装备没有镶嵌过宝石，请换一件装备。
break
#IF
NOT CheckGold 100000
#ACT
MESSAGEBOX 金币不足10万，无法进行摘除操作。
break
#IF
CheckContainsText <$BOXITEM.NAME_G> 拆除符
CheckGold 100000
#ACT
SetUpgradeItem 3
SOCKETABLEITEM * * * * -1 0 * * 0 *
SOCKETABLEITEM * * * * -1 1 * * 0 *
SOCKETABLEITEM * * * * -1 2 * * 0 *
SOCKETABLEITEM * * * * -1 3 * * 0 *
SOCKETABLEITEM * * * * -1 4 * * 0 *

UpDateBoxItem 3
take 金币 100000
take 拆除符
give <$STR(S$宝石1的名字)> 1
give <$STR(S$宝石2的名字)> 1
give <$STR(S$宝石3的名字)> 1
MESSAGEBOX 宝石已成功取下,按F9查看包裹。
goto @ItemIntoBox3
break






[@ItemIntoBox0]
#IF
NOT CheckContainsText <$BOXITEM.NAME> 镶嵌宝石
#ACT
ReturnBoxItem 0
MESSAGEBOX 你放入的不是镶嵌宝石，请重新放入。

#IF
EQUAL <$BOXITEM.NAME> 镶嵌宝石
#ACT
MOV N$宝石变量 505
break

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

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


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

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

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

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

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

我的小思想 发表于 2017-4-23 17:37:01

我也顶起出售广告位

cgx009 发表于 2017-4-24 16:56:35

路过 帮顶 嘿嘿

查看完整版本: GOM宝石镶嵌脚本左侧放入镶嵌宝石 右侧放入要镶嵌的装备