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

admin

[@main]
         
         
         
          
                    \
       
       
         
       
        [@开始摘除]
        #SAY
        左侧放入攻击宝石 右侧放入要镶嵌的装备
        每个装备可以镶嵌3颗宝石 每颗增加0.15倍攻击
        使用摘除符可以摘除全部宝石 镶嵌到别的装备去
                   
       
       
       
        [@ItemIntoBox2]
        #IF
        NOT CheckContainsText  拆除符
        #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
        #ACT
        MESSAGEBOX 没有放入拆除符，无法摘除镶嵌石。
        break
        #IF
        EQUAL
        #ACT
        MESSAGEBOX 错误，需要摘除宝石的装备为空，请放入装备后再来摘除。
        break
        #IF
        CHECKSOCKETABLEITEMCOUNT -1 < 1
        #ACT
        ReturnBoxItem 3
        MESSAGEBOX 此装备没有镶嵌过宝石，请换一件装备。
        break
        #IF
        NOT CheckGold 100000
        #ACT
        MESSAGEBOX 金币不足10万，无法进行摘除操作。
        break
        #IF
        CheckContainsText  拆除符
        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  1
        give  1
        give  1
        MESSAGEBOX 宝石已成功取下,按F9查看包裹。
        goto @ItemIntoBox3
        break
       
       
       
       
       
       
        [@ItemIntoBox0]
        #IF
        NOT CheckContainsText  镶嵌宝石
        #ACT
        ReturnBoxItem 0
        MESSAGEBOX 你放入的不是镶嵌宝石，请重新放入。
       
        #IF
        EQUAL  镶嵌宝石
        #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
        #ACT
        MESSAGEBOX 你没有放入镶嵌石.
        break
        #IF
        EQUAL
        #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  1
        SOCKETABLEITEM * * * * -1 0 * *  *
        MESSAGEBOX 恭喜镶嵌成功！镶嵌第一个宝石的几率为80%“”已融合到“”的第一个孔槽内。
        UpDateBoxItem 1
        break
        #IF
        Large N$镶嵌几率 7
        #ACT
        take  1
        MESSAGEBOX 镶嵌失败！宝石已碎裂镶嵌第一个宝石的几率为80%很遗憾，这20%的几率居然让你给碰到了。
        break
       
        [@镶嵌进行2]
        #ACT
        SetUpgradeItem 1
        #IF
        Small N$镶嵌几率 5
        #ACT
        take  1
        SOCKETABLEITEM * * * * -1 1 * *  *
        MESSAGEBOX 恭喜镶嵌成功！镶嵌第二个宝石的几率为70%“”已融合到“”的第二个孔槽内。
        UpDateBoxItem 1
        break
        #IF
        Large N$镶嵌几率 4
        #ACT
        take  1
        MESSAGEBOX 镶嵌失败！宝石已碎裂镶嵌第二个宝石的几率为70%很遗憾，这30%的几率居然让你给碰到了。
        break
       
        [@镶嵌进行3]
        #ACT
        SetUpgradeItem 1
        #IF
        Small N$镶嵌几率 4
        #ACT
        take  1
        SOCKETABLEITEM * * * * -1 2 * *  *
        MESSAGEBOX 恭喜镶嵌成功！镶嵌第三个宝石的几率为40%“”已融合到“”的第三个孔槽内。
        UpDateBoxItem 1
        break
        #IF
        Large N$镶嵌几率 3
        #ACT
        take  1
        MESSAGEBOX 镶嵌失败！宝石已碎裂镶嵌第三个宝石的几率为40%很遗憾，继续努力吧。
        break
       
        [@镶嵌进行4]
        #ACT
        SetUpgradeItem 1
        #IF
        Small N$镶嵌几率 2
        #ACT
        take  1
        SOCKETABLEITEM * * * * -1 3 * *  *
        MESSAGEBOX 恭喜镶嵌成功！镶嵌第四个宝石的几率为15%“”已融合到“”的第四个孔槽内。
        UpDateBoxItem 1
        break
        #IF
        Large N$镶嵌几率 1
        #ACT
        take  1
        MESSAGEBOX 镶嵌失败！宝石已碎裂镶嵌第四个宝石的几率为15%很遗憾，继续努力吧。
        break
       
        [@镶嵌进行5]
        #ACT
        SetUpgradeItem 1
        #IF
        Small N$镶嵌几率 1
        #ACT
        take  1
        SOCKETABLEITEM * * * * -1 4 * *  *
        MESSAGEBOX 恭喜镶嵌成功！镶嵌第五个宝石的几率为5%“”已融合到“”的第五个孔槽内。
        UpDateBoxItem 1
        break
        #IF
        Large N$镶嵌几率 0
        #ACT
        take  1
        MESSAGEBOX 镶嵌失败！宝石已碎裂镶嵌第五个宝石的几率为5%很遗憾，还有机会的，继续努力吧。
        break