GOM引擎传奇服务端极品装备回收脚本

[@main]
#if
#act
MOV S$回收物品
MOV N$回收价格 0
MOV S$极品点数  
GOTO @回收确认
BREAK


[@回收确认]
#say
拾到极品装备千万不要直接回收哦..这里的回收价格比普通回收更高\
属性+3的极品装备可以在我这里进行元宝回收，请注意武\
我们坚持纯散人和公益，也希望大家支持啦.\ \
<当前物品:/FCOLOR=250><$str(s$回收物品)>\
<回收价格:/FCOLOR=250><$str(n$回收价格)>元宝\
<极品点数:/FCOLOR=250><$str(S$极品点数)>             <确认回收/@确认回收>\
<ITEMBOX:0:28:117:310:90:76:76:*:请放入极品装备>　　　　　　　　　<请放入极品装备|146#仅限雷霆、烈火、烈焰装备/FCOLOR=243>→\


[@ItemOutBox0]
#if
#act
MOV S$回收物品
MOV N$回收价格 0
MOV S$极品点数
GOTO @回收确认
BREAK


[@ItemIntoBox0]
#OR
CHECKTEXTLIST ..\QuestDiary\特殊回收\雷霆+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\雷霆+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\烈焰+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\烈焰+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\光芒+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\光芒+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\强化雷霆+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\强化雷霆+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\强化烈焰+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\强化烈焰+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\强化光芒+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\强化光芒+5装备.txt <$BOXITEM[0].NAME>
#ACT
SetUpgradeItem 0
#ELSEACT
MESSAGEBOX 此物品禁止回收，或者该装备没有任何极品属性
UNALLOWITEMINTOBOX
BREAK


#OR
EQUAL <$BOXITEM[0].STDMODE> 5
EQUAL <$BOXITEM[0].STDMODE> 6
#ACT
MOV N$检测攻击 0
MOV N$检测魔法 1
MOV N$检测道术 2
#ELSEACT
MOV N$检测攻击 2
MOV N$检测魔法 3
MOV N$检测道术 4


#IF
CHECKTEXTLIST ..\QuestDiary\特殊回收\雷霆+4装备.txt <$BOXITEM[0].NAME>
#ACT
MOV N$检测位置 <$STR(N$检测攻击)>


#IF
CHECKTEXTLIST ..\QuestDiary\特殊回收\烈焰+4装备.txt <$BOXITEM[0].NAME>
#ACT
MOV N$检测位置 <$STR(N$检测魔法)>


#IF
CHECKTEXTLIST ..\QuestDiary\特殊回收\光芒+4装备.txt <$BOXITEM[0].NAME>
#ACT
MOV N$检测位置 <$STR(N$检测道术)>


#IF
CheckItemAddValue -1 <$STR(N$检测位置)> > 2
#ACT
GETITEMADDVALUE -1 <$STR(N$检测位置)> <$STR(N$极品点数)>
MOV S$回收物品 <$BOXITEM[0].NAME>
MOV N$回收价格 1000
MOV S$极品点数 <$STR(N$极品点数)>
UpDateBoxItem 0
GOTO @回收确认
#ELSEACT
MESSAGEBOX 此物品禁止回收，或者该装备没有任何极品属性
UpDateBoxItem 0
UNALLOWITEMINTOBOX
BREAK


[@确认回收]
#if
EQUAL <$BOXITEM[0].NAME>
#act
MESSAGEBOX 请问你要回收什么？？
BREAK


#OR
CHECKTEXTLIST ..\QuestDiary\特殊回收\雷霆+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\雷霆+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\烈焰+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\烈焰+5装备.txt <$BOXITEM[0].NAME>




CHECKTEXTLIST ..\QuestDiary\特殊回收\光芒+4装备.txt <$BOXITEM[0].NAME>
CHECKTEXTLIST ..\QuestDiary\特殊回收\光芒+5装备.txt <$BOXITEM[0].NAME>
#ACT
SetUpgradeItem 0
#ELSEACT
MESSAGEBOX 此物品禁止回收，或者该装备没有任何极品属性
ReturnBoxItem 0
BREAK


#OR
EQUAL <$BOXITEM[0].STDMODE> 5
EQUAL <$BOXITEM[0].STDMODE> 6
#ACT
MOV N$检测攻击 0
MOV N$检测魔法 1
MOV N$检测道术 2
#ELSEACT
MOV N$检测攻击 2
MOV N$检测魔法 3
MOV N$检测道术 4


#IF
CHECKTEXTLIST ..\QuestDiary\特殊回收\雷霆+4装备.txt <$BOXITEM[0].NAME>
#ACT
MOV N$检测位置 <$STR(N$检测攻击)>


#IF
CHECKTEXTLIST ..\QuestDiary\特殊回收\烈焰+4装备.txt <$BOXITEM[0].NAME>
#ACT
MOV N$检测位置 <$STR(N$检测魔法)>


#IF
CHECKTEXTLIST ..\QuestDiary\特殊回收\光芒+4装备.txt <$BOXITEM[0].NAME>
#ACT
MOV N$检测位置 <$STR(N$检测道术)>


#IF
CheckItemAddValue -1 <$STR(N$检测位置)> > 2
#ACT
MOV S$回收物品 <$BOXITEM[0].NAME>
MOV N$回收价格 1000
MOV S$极品点数 <$STR(N$极品点数)>
UpDateBoxItem 0
DELBOXITEM 0
GAMEGOLD + <$str(n$回收价格)>
SendMsg 0 {装备回收ぐ|151:0:1}：{%s|227:0:1}回收了一个{[<$str(S$极品点数)>]|250:0:1}{[<$str(s$回收物品)>]|154:0:1}获得{[<$str(n$回收价格)>]|250:0:1}元宝！
GOTO @MAIN
break
#ELSEACT
MESSAGEBOX 此物品禁止回收，或者该装备没有任何极品属性
UpDateBoxItem 0
ReturnBoxItem 0
BREAK