热门关键词: 新开超变传世 新开仿盛大 新开微变传世 每日新开传世 新开传世私服 每日新开私服 传世私服网
海底转盘升级(炎神，凡品，上品，极品，仙品)全套
文章作者:admin 文章来源:传世私服,传奇世界私服,新开传世私服,传奇世界私服发布网 更新时间：2011-11-17 19:34:06 

[@怒海凡装]
{
#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 新开传世私服升级框中的物品不存在或者是复制物品，升级失败
break
#IF
EQUAL $SUPERBOXITEM(1).NAME 金原石
EQUAL $SUPERBOXITEM(2).NAME 土原石
EQUAL $SUPERBOXITEM(3).NAME 火原石
EQUAL $SUPERBOXITEM(4).NAME 水原石
EQUAL $SUPERBOXITEM(5).NAME 木原石
#ACT
ClearVar S0 99
ClearVar P0 99
;金土火水木
MOV S1 $SUPERBOXITEM(1).ItemExD
MOV P1 $ItemEx.$STR(S1).80
MOV S2 $SUPERBOXITEM(2).ItemExD
MOV P2 $ItemEx.$STR(S2).80
MOV S3 $SUPERBOXITEM(3).ItemExD
MOV P3 $ItemEx.$STR(S3).80
MOV S4 $SUPERBOXITEM(4).ItemExD
MOV P4 $ItemEx.$STR(S4).80
MOV S5 $SUPERBOXITEM(5).ItemExD
MOV P5 $ItemEx.$STR(S5).80
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 2
#ACT
SENDMSG 5 怒海凡品需要三阶原石才能升级！
break
#IF
!EQUAL P2 2
#ACT
SENDMSG 5 怒海凡品需要三阶原石才能升级！
break
#IF
!EQUAL P3 2
#ACT
SENDMSG 5 怒海凡品需要三阶原石才能升级！
break
#IF
!EQUAL P4 2
#ACT
SENDMSG 5 怒海凡品需要三阶原石才能升级！
break
#IF
!EQUAL P5 2
#ACT
SENDMSG 5 怒海凡品需要三阶原石才能升级！
break
#IF
POS $SUPERBOXITEM(0).NAME 炙炎
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 炙炎 怒涛
ReplaceText S0 (精) (凡)
#IF
POS $SUPERBOXITEM(0).NAME 魔炎
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 魔炎 镇海
ReplaceText S0 (精) (凡)
#IF
POS $SUPERBOXITEM(0).NAME 灵炎
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 灵炎 凌波
ReplaceText S0 (精) (凡)
#IF
random 1
#ACT
SETHUMX 0 - 100
TAKESUPERBOXITEM 0
TAKESUPERBOXITEM 6
GIVE $STR(S0) 1
#IF
LARGE $SUPERBOXITEM(1).DURA 1
#ACT
MOV P1 $SUPERBOXITEM(1).ItemExD
UpgradeUserItemEx $STR(P1) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 1
#IF
LARGE $SUPERBOXITEM(2).DURA 1
#ACT
MOV P2 $SUPERBOXITEM(2).ItemExD
UpgradeUserItemEx $STR(P2) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 2
#IF
LARGE $SUPERBOXITEM(3).DURA 1
#ACT
MOV P3 $SUPERBOXITEM(3).ItemExD
UpgradeUserItemEx $STR(P3) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 3
#IF
LARGE $SUPERBOXITEM(4).DURA 1
#ACT
MOV P4 $SUPERBOXITEM(4).ItemExD
UpgradeUserItemEx $STR(P4) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 4
#IF
LARGE $SUPERBOXITEM(5).DURA 1
#ACT
MOV P5 $SUPERBOXITEM(5).ItemExD
UpgradeUserItemEx $STR(P5) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 5
}
[@怒海上装]
{
#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品，升级失败
break
#IF
CHECKVARLIST $SUPERBOXITEM(0).NAME ..\QuestDiary\数据文件\文本数据\深海灵饰.txt
#ELSEACT
MESSAGEBOX 你放入的物品不能用于提升品质
BREAK
#IF
EQUAL $SUPERBOXITEM(1).NAME 金原石
EQUAL $SUPERBOXITEM(2).NAME 土原石
EQUAL $SUPERBOXITEM(3).NAME 火原石
EQUAL $SUPERBOXITEM(4).NAME 水原石
EQUAL $SUPERBOXITEM(5).NAME 木原石
#ACT
ClearVar S0 99
ClearVar P0 99
;金土火水木
MOV S1 $SUPERBOXITEM(1).ItemExD
MOV P1 $ItemEx.$STR(S1).80
MOV S2 $SUPERBOXITEM(2).ItemExD
MOV P2 $ItemEx.$STR(S2).80
MOV S3 $SUPERBOXITEM(3).ItemExD
MOV P3 $ItemEx.$STR(S3).80
MOV S4 $SUPERBOXITEM(4).ItemExD
MOV P4 $ItemEx.$STR(S4).80
MOV S5 $SUPERBOXITEM(5).ItemExD
MOV P5 $ItemEx.$STR(S5).80
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P2 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P3 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P4 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P5 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
POS $SUPERBOXITEM(0).NAME 怒涛
POS $SUPERBOXITEM(0).NAME (凡)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (凡) (上)
#IF
POS $SUPERBOXITEM(0).NAME 镇海
POS $SUPERBOXITEM(0).NAME (凡)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (凡) (上)
#IF
POS $SUPERBOXITEM(0).NAME 凌波
POS $SUPERBOXITEM(0).NAME (凡)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (凡) (上)
#IF
random 1
#ACT
SETHUMX 0 - 100
TAKESUPERBOXITEM 0
GIVE $STR(S0) 1
#IF
LARGE $SUPERBOXITEM(1).DURA 1
#ACT
MOV P1 $SUPERBOXITEM(1).ItemExD
UpgradeUserItemEx $STR(P1) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 1
#IF
LARGE $SUPERBOXITEM(2).DURA 1
#ACT
MOV P2 $SUPERBOXITEM(2).ItemExD
UpgradeUserItemEx $STR(P2) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 2
#IF
LARGE $SUPERBOXITEM(3).DURA 1
#ACT
MOV P3 $SUPERBOXITEM(3).ItemExD
UpgradeUserItemEx $STR(P3) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 3
#IF
LARGE $SUPERBOXITEM(4).DURA 1
#ACT
MOV P4 $SUPERBOXITEM(4).ItemExD
UpgradeUserItemEx $STR(P4) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 4
#IF
LARGE $SUPERBOXITEM(5).DURA 1
#ACT
MOV P5 $SUPERBOXITEM(5).ItemExD
UpgradeUserItemEx $STR(P5) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 5
}
[@怒海极装]
{
#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品，升级失败
break
#IF
CHECKVARLIST $SUPERBOXITEM(0).NAME ..\QuestDiary\数据文件\文本数据\深海灵饰.txt
#ELSEACT
MESSAGEBOX 你放入的物品不能用于提升品质
BREAK
#IF
EQUAL $SUPERBOXITEM(1).NAME 金原石
EQUAL $SUPERBOXITEM(2).NAME 土原石
EQUAL $SUPERBOXITEM(3).NAME 火原石
EQUAL $SUPERBOXITEM(4).NAME 水原石
EQUAL $SUPERBOXITEM(5).NAME 木原石
#ACT
ClearVar S0 99
ClearVar P0 99
;金土火水木
MOV S1 $SUPERBOXITEM(1).ItemExD
MOV P1 $ItemEx.$STR(S1).80
MOV S2 $SUPERBOXITEM(2).ItemExD
MOV P2 $ItemEx.$STR(S2).80
MOV S3 $SUPERBOXITEM(3).ItemExD
MOV P3 $ItemEx.$STR(S3).80
MOV S4 $SUPERBOXITEM(4).ItemExD
MOV P4 $ItemEx.$STR(S4).80
MOV S5 $SUPERBOXITEM(5).ItemExD
MOV P5 $ItemEx.$STR(S5).80
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P2 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P3 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P4 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P5 3
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
POS $SUPERBOXITEM(0).NAME 怒涛
POS $SUPERBOXITEM(0).NAME (上)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (上) (极)
#IF
POS $SUPERBOXITEM(0).NAME 镇海
POS $SUPERBOXITEM(0).NAME (上)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (上) (极)
#IF
POS $SUPERBOXITEM(0).NAME 凌波
POS $SUPERBOXITEM(0).NAME (上)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (上) (极)
#IF
random 1
#ACT
SETHUMX 0 - 100
TAKESUPERBOXITEM 0
GIVE $STR(S0) 1
#IF
LARGE $SUPERBOXITEM(1).DURA 1
#ACT
MOV P1 $SUPERBOXITEM(1).ItemExD
UpgradeUserItemEx $STR(P1) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 1
#IF
LARGE $SUPERBOXITEM(2).DURA 1
#ACT
MOV P2 $SUPERBOXITEM(2).ItemExD
UpgradeUserItemEx $STR(P2) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 2
#IF
LARGE $SUPERBOXITEM(3).DURA 1
#ACT
MOV P3 $SUPERBOXITEM(3).ItemExD
UpgradeUserItemEx $STR(P3) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 3
#IF
LARGE $SUPERBOXITEM(4).DURA 1
#ACT
MOV P4 $SUPERBOXITEM(4).ItemExD
UpgradeUserItemEx $STR(P4) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 4
#IF
LARGE $SUPERBOXITEM(5).DURA 1
#ACT
MOV P5 $SUPERBOXITEM(5).ItemExD
UpgradeUserItemEx $STR(P5) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 5
}
[@怒海仙装]
{
#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品，升级失败
break
#IF
CHECKVARLIST $SUPERBOXITEM(0).NAME ..\QuestDiary\数据文件\文本数据\深海灵饰.txt
#ELSEACT
MESSAGEBOX 你放入的物品不能用于提升品质
BREAK
#IF
EQUAL $SUPERBOXITEM(1).NAME 金原石
EQUAL $SUPERBOXITEM(2).NAME 土原石
EQUAL $SUPERBOXITEM(3).NAME 火原石
EQUAL $SUPERBOXITEM(4).NAME 水原石
EQUAL $SUPERBOXITEM(5).NAME 木原石
#ACT
ClearVar S0 99
ClearVar P0 99
;金土火水木
MOV S1 $SUPERBOXITEM(1).ItemExD
MOV P1 $ItemEx.$STR(S1).80
MOV S2 $SUPERBOXITEM(2).ItemExD
MOV P2 $ItemEx.$STR(S2).80
MOV S3 $SUPERBOXITEM(3).ItemExD
MOV P3 $ItemEx.$STR(S3).80
MOV S4 $SUPERBOXITEM(4).ItemExD
MOV P4 $ItemEx.$STR(S4).80
MOV S5 $SUPERBOXITEM(5).ItemExD
MOV P5 $ItemEx.$STR(S5).80
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 4
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P2 4
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P3 4
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P4 4
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P5 4
!EQUAL $SUPERBOXITEM(1).NAME 无
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
POS $SUPERBOXITEM(0).NAME 怒涛
POS $SUPERBOXITEM(0).NAME (极)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (极) (仙)
#IF
POS $SUPERBOXITEM(0).NAME 镇海
POS $SUPERBOXITEM(0).NAME (极)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (极) (仙)
#IF
POS $SUPERBOXITEM(0).NAME 凌波
POS $SUPERBOXITEM(0).NAME (极)
#ACT
MOV S0 $SUPERBOXITEM(0).NAME
ReplaceText S0 (极) (仙)
#IF
random 1
#ACT
SETHUMX 0 - 100
TAKESUPERBOXITEM 0
GIVE $STR(S0) 1
#IF
LARGE $SUPERBOXITEM(1).DURA 1
#ACT
MOV P1 $SUPERBOXITEM(1).ItemExD
UpgradeUserItemEx $STR(P1) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 1
#IF
LARGE $SUPERBOXITEM(2).DURA 1
#ACT
MOV P2 $SUPERBOXITEM(2).ItemExD
UpgradeUserItemEx $STR(P2) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 2
#IF
LARGE $SUPERBOXITEM(3).DURA 1
#ACT
MOV P3 $SUPERBOXITEM(3).ItemExD
UpgradeUserItemEx $STR(P3) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 3
#IF
LARGE $SUPERBOXITEM(4).DURA 1
#ACT
MOV P4 $SUPERBOXITEM(4).ItemExD
UpgradeUserItemEx $STR(P4) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 4
#IF
LARGE $SUPERBOXITEM(5).DURA 1
#ACT
MOV P5 $SUPERBOXITEM(5).ItemExD
UpgradeUserItemEx $STR(P5) 13 - 1
#ELSEACT
TAKESUPERBOXITEM 5
}

麒麟传世发布站，传奇世界发布网，新开传奇世界私服，每日新开传奇世界私服，麒麟传世广告代理！

www.231woool.com    www.231woool.com   www.233woool.com

代理联系 QQ 443555029 
·上一篇;挖矿大师
 浏览次数：10
最新文章
· 麒麟教您 如何让百度快速收录新站内容页面...
· 麒麟发布站：编写修改脚本必备与传奇私服常...
· 麒麟教你如何添加最新传奇私服发型脚本...
· 麒麟教你传奇私服四级魔法盾的设置方法...
· 传世私服一条龙怎么才可以开两个区...
· 如何选折现在的传世私服，防止上当...
· 最新八大任务系统脚本集合...
· 开发杀怪练级脚本（独创）...
· 完整中州祈愿树触发脚本...
· 幸运使者（幸运礼包）脚本...
热门文章
· 海底转盘升级(炎神，凡品，上品，极品，仙...
· 幸运使者（幸运礼包）脚本...
· 挖矿大师...
· 最新八大任务系统脚本集合...
· 开发杀怪练级脚本（独创）...
· 完整中州祈愿树触发脚本...
· 传世私服一条龙怎么才可以开两个区...
· 如何选折现在的传世私服，防止上当...
· 麒麟发布站：编写修改脚本必备与传奇私服常...
· 麒麟教你如何添加最新传奇私服发型脚本...
· 麒麟教你传奇私服四级魔法盾的设置方法...