装备开光系统以及首饰重鉴系统脚本

admin

[@main]
        #IF
        #ACT
        OPENMERCHANTBIGDLG 4 16 1 4 0 -50 1 405 10
        #SAY
            
       
       
         
       
       
                               
       
       
       
         
       
       
       
       
       
       
       
       
       
        [@鉴定说明]
        #IF
        #ACT
        OPENMERCHANTBIGDLG 4 16 1 4 0 -50 1 405 10
        #SAY
            
       
       
        \
       
       
         
       
                      
        ;
       
         　 　         
       
       
       
       
       
       
        [@开始重鉴属性]
        #act
        ;SetUpgradeItem 2
        SetUpgradeItem 3
        #IF
        NOT CheckBoxItemCount 3 1
        #act
        MESSAGEBOX 左边没放装备
        BREAK
        ;#IF
        ;NOT CheckBoxItemCount 2 1
        ;#act
        ;MESSAGEBOX 右边没放装备
        ;BREAK
       
       
        #if
        CHECKGAMEGOLD > 99999
        #ACT
        GAMEGOLD - 100000
        GOTO @确定重鉴属性
        BREAK
        #elseact
        messagebox 元宝不足100000！
       
       
       
        ;#OR
        ;LARGE  
        ;EQUAL  
        ;#act
        ;GOTO @确定重鉴属性
        ;BREAK
        ;#elseact
        ;messagebox 祭品首饰必须与重新鉴定的首饰鉴定等级相同.或者更高！
       
       
       
       
       
       
        [@确定重鉴属性]
        #if
        CHECKTEXTLIST ........秩序觉醒通区通区文本鉴定列表.txt
        #act
        ;DELBOXITEM 2
        CHANGECUSTOMITEMVALUE -1 0 = 0
        CHANGECUSTOMITEMVALUE -1 1 = 0
        CHANGECUSTOMITEMVALUE -1 2 = 0
        CHANGECUSTOMITEMVALUE -1 3 = 0
        CHANGECUSTOMITEMVALUE -1 4 = 0
        CHANGECUSTOMITEMVALUE -1 5 = 0
        CHANGECUSTOMITEMVALUE -1 6 = 0
        #CALL [........秩序觉醒通区通区文本拾取鉴定.txt] @dq拾取鉴定
        MESSAGEBOX 重新鉴定成功
        BREAK
       
       
       
       
       
       
        [@放入装备]
        #ACT
        MESSAGEBOX 你还没有放入装备？？？
       
       
       
        [@ItemOutBox0]
        #ACT
        goto @main
       
       
       
        [@ItemIntoBox0]
        #ACT
        SetUpgradeItem 0
       
        #IF
        EQUAL  10
        #ACT
        MOV N$元素属性位置1 2
        MOV N$元素属性位置2 3
        MOV N$元素属性位置3 5
        MOV N$元素属性位置4 7
       
        MOVR N$元素属性数值1 1 25
        MOVR N$元素属性数值2 1 25
        ;MOVR N$元素属性数值3 1 20
        MOVR N$元素属性数值4 1 25
        MOVR N$打怪伤害数值 1 20
        DELAYGOTO 1 @开光说明
        BREAK
       
       
        #IF
        EQUAL  5
        #ACT
        MOV N$元素属性位置1 0
        MOV N$元素属性位置2 1
        MOV N$元素属性位置3 4
        MOV N$元素属性位置4 6
       
        MOVR N$元素属性数值1 1 30
        MOVR N$元素属性数值2 1 20
        ;MOVR N$元素属性数值3 1 30
        MOVR N$元素属性数值4 1 20
        MOVR N$打怪伤害数值 1 20
        DELAYGOTO 1 @开光说明
        BREAK
       
       
       
       
       
        [@开光说明]
        #IF
        #ACT
        OPENMERCHANTBIGDLG 30 275 1 4 0 -65 1 500 0
        #SAY
               
       
         
       
       
                  
       
       
       
       
       
       
       
       
        [@确定开光]
        #IF
        checkitem 开光魔石 1
        #act
        GOTO @执行开光
        #elseact
        messagebox 请检查是否有足够的材料！
        BREAK
       
       
        [@执行开光]
        #IF
        checkitem 开光魔石 1
        #ACT
        TAKE 开光魔石 1
        SetNewItemValue -1  =
        SetNewItemValue -1  =
        ;SetNewItemValue -1  =
        SetNewItemValue -1  =
        CHANGECUSTOMITEMABIL -1 1 1 8
        CHANGECUSTOMITEMABIL -1 1 2 1
        CHANGECUSTOMITEMABIL -1 1 0 250
        CHANGECUSTOMITEMABIL -1 1 3 1
        CHANGECUSTOMITEMVALUE -1 1 =
        UpDateBoxItem 0
        GOTO @ItemIntoBox0
        MESSAGEBOX 恭喜您成功的给装备开光！