传奇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

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[2].NAME

#ACT

MESSAGEBOX 没有放入拆除符，无法摘除镶嵌石。

break

#IF

EQUAL $BOXITEM[3].NAME

#ACT

MESSAGEBOX 错误，需要摘除宝石的装备为空，请放入装备后再来摘除。

break

#IF

CHECKSOCKETABLEITEMCOUNT -1 1

#ACT

ReturnBoxItem 3

MESSAGEBOX 此装备没有镶嵌过宝石，请换一件装备。

break

#IF

NOT CheckGold 100000

#ACT

MESSAGEBOX 金币不足10万，无法进行摘除操作。

break

#IF

CheckContainsText $BOXITEM[2].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[0].NAME 镶嵌宝石

#ACT

ReturnBoxItem 0

MESSAGEBOX 你放入的不是镶嵌宝石，请重新放入。

 

#IF

EQUAL $BOXITEM[0].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[0].NAME

#ACT

MESSAGEBOX 你没有放入镶嵌石.

break

#IF

EQUAL $BOXITEM[1].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[0].NAME 1

SOCKETABLEITEM * * * * -1 0 * * $STR(N$宝石变量) *

MESSAGEBOX 恭喜镶嵌成功！\镶嵌第一个宝石的几率为80%\“$BOXITEM[0].NAME”已融合到“$BOXITEM[1].NAME”\的第一个孔槽内。

UpDateBoxItem 1

break

#IF

Large N$镶嵌几率 7

#ACT

take $BOXITEM[0].NAME 1

MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第一个宝石的几率为80%\很遗憾，这20%的几率居然让你给碰到了。

break

 

[@镶嵌进行2]

#ACT

SetUpgradeItem 1

#IF

Small N$镶嵌几率 5

#ACT

take $BOXITEM[0].NAME 1

SOCKETABLEITEM * * * * -1 1 * * $STR(N$宝石变量) *

MESSAGEBOX 恭喜镶嵌成功！\镶嵌第二个宝石的几率为70%\“$BOXITEM[0].NAME”已融合到“$BOXITEM[1].NAME”\的第二个孔槽内。

UpDateBoxItem 1

break

#IF

Large N$镶嵌几率 4

#ACT

take $BOXITEM[0].NAME 1

MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第二个宝石的几率为70%\很遗憾，这30%的几率居然让你给碰到了。

break

 

[@镶嵌进行3]

#ACT

SetUpgradeItem 1

#IF

Small N$镶嵌几率 4

#ACT

take $BOXITEM[0].NAME 1

SOCKETABLEITEM * * * * -1 2 * * $STR(N$宝石变量) *

MESSAGEBOX 恭喜镶嵌成功！\镶嵌第三个宝石的几率为40%\“$BOXITEM[0].NAME”已融合到“$BOXITEM[1].NAME”\的第三个孔槽内。

UpDateBoxItem 1

break

#IF

Large N$镶嵌几率 3

#ACT

take $BOXITEM[0].NAME 1

MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第三个宝石的几率为40%\很遗憾，继续努力吧。

break

 

[@镶嵌进行4]

#ACT

SetUpgradeItem 1

#IF

Small N$镶嵌几率 2

#ACT

take $BOXITEM[0].NAME 1

SOCKETABLEITEM * * * * -1 3 * * $STR(N$宝石变量) *

MESSAGEBOX 恭喜镶嵌成功！\镶嵌第四个宝石的几率为15%\“$BOXITEM[0].NAME”已融合到“$BOXITEM[1].NAME”\的第四个孔槽内。

UpDateBoxItem 1

break

#IF

Large N$镶嵌几率 1

#ACT

take $BOXITEM[0].NAME 1

MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第四个宝石的几率为15%\很遗憾，继续努力吧。

break

 

[@镶嵌进行5]

#ACT

SetUpgradeItem 1

#IF

Small N$镶嵌几率 1

#ACT

take $BOXITEM[0].NAME 1

SOCKETABLEITEM * * * * -1 4 * * $STR(N$宝石变量) *

MESSAGEBOX 恭喜镶嵌成功！\镶嵌第五个宝石的几率为5%\“$BOXITEM[0].NAME”已融合到“$BOXITEM[1].NAME”\的第五个孔槽内。

UpDateBoxItem 1

break

#IF

Large N$镶嵌几率 0

#ACT

take $BOXITEM[0].NAME 1

MESSAGEBOX 镶嵌失败！宝石已碎裂\镶嵌第五个宝石的几率为5%\很遗憾，还有机会的，继续努力吧。

break