用户登录  |  用户注册
首 页 ┆ 文章管理 ┆ 下载频道 ┆ 发布软件 ┆ 整站程序 ┆ 广告合作
当前位置：传奇服务端 → 文章管理 → 传奇脚本

传世私服支持玄铁套装功能脚本

减小字体 增大字体 作者：佚名  来源：本站整理  发布时间：2014-08-08 07:47:36

 [@怒海凡装]

{
#IF
SMALL $SPIRITY 100
#ACT
REFINEBOXRESULT 1
MESSAGEBOX 精力值不足100点！
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 金原石
EQUAL $ITEMINFO[$PARAM(2)].NAME 土原石
EQUAL $ITEMINFO[$PARAM(3)].NAME 火原石
EQUAL $ITEMINFO[$PARAM(4)].NAME 水原石
EQUAL $ITEMINFO[$PARAM(5)].NAME 木原石
#ACT
;金土火水木
MOV P1 $ITEMINFO[$PARAM(1)].VALUE(0)
MOV P2 $ITEMINFO[$PARAM(2)].VALUE(0)
MOV P3 $ITEMINFO[$PARAM(3)].VALUE(0)
MOV P4 $ITEMINFO[$PARAM(4)].VALUE(0)
MOV P5 $ITEMINFO[$PARAM(5)].VALUE(0)
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 6
#ACT
SENDMSG 5 怒海凡品需要6阶原石才能升级！
break
#IF
!EQUAL P2 6
#ACT
SENDMSG 5 怒海凡品需要6阶原石才能升级！
break
#IF
!EQUAL P3 6
#ACT
SENDMSG 5 怒海凡品需要6阶原石才能升级！
break
#IF
!EQUAL P4 6
#ACT
SENDMSG 5 怒海凡品需要6阶原石才能升级！
break
#IF
!EQUAL P5 6
#ACT
SENDMSG 5 怒海凡品需要6阶原石才能升级！
break
#IF
POS $ITEMINFO[$PARAM(0)].NAME 炙炎
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 炙炎 怒涛
ReplaceText S0 (精) (凡)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 魔炎
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 魔炎 镇海
ReplaceText S0 (精) (凡)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 灵炎
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 灵炎 凌波
ReplaceText S0 (精) (凡)
#IF
random 1
#ACT
REFINEBOXRESULT 0
SPIRITY - 100
TAKEM $PARAM(0)
TAKEM $PARAM(6)
GIVE $STR(S0) 1
#IF
LARGE $ITEMINFO[$PARAM(1)].DURA 1
#ACT
UpgradeUserItem $PARAM(1) 20 - 1
#ELSEACT
TAKEM $PARAM(1)
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA 1
#ACT
UpgradeUserItem $PARAM(2) 20 - 1
#ELSEACT
TAKEM $PARAM(2)
#IF
LARGE $ITEMINFO[$PARAM(3)].DURA 1
#ACT
UpgradeUserItem $PARAM(3) 20 - 1
#ELSEACT
TAKEM $PARAM(3)
#IF
LARGE $ITEMINFO[$PARAM(4)].DURA 1
#ACT
UpgradeUserItem $PARAM(4) 20 - 1
#ELSEACT
TAKEM $PARAM(4)
#IF
LARGE $ITEMINFO[$PARAM(5)].DURA 1
#ACT
UpgradeUserItem $PARAM(5) 20 - 1
#ELSEACT
TAKEM $PARAM(5)
 
 
}
 
[@怒海上装]
{
#IF
CHECKVARLIST $ITEMINFO[$PARAM(0)].NAME ..\QuestDiary\游戏读取\装备融合\深海灵饰.txt
#ELSEACT
MESSAGEBOX 你放入的物品不能用于提升品质
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 金原石
EQUAL $ITEMINFO[$PARAM(2)].NAME 土原石
EQUAL $ITEMINFO[$PARAM(3)].NAME 火原石
EQUAL $ITEMINFO[$PARAM(4)].NAME 水原石
EQUAL $ITEMINFO[$PARAM(5)].NAME 木原石
#ACT
;金土火水木
MOV P1 $ITEMINFO[$PARAM(1)].VALUE(0)
MOV P2 $ITEMINFO[$PARAM(2)].VALUE(0)
MOV P3 $ITEMINFO[$PARAM(3)].VALUE(0)
MOV P4 $ITEMINFO[$PARAM(4)].VALUE(0)
MOV P5 $ITEMINFO[$PARAM(5)].VALUE(0)
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 7
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要7阶原石才能升级！
break
#IF
!EQUAL P2 7
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要7阶原石才能升级！
break
#IF
!EQUAL P3 7
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要7阶原石才能升级！
break
#IF
!EQUAL P4 7
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要7阶原石才能升级！
break
#IF
!EQUAL P5 7
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要7阶原石才能升级！
break
#IF
POS $ITEMINFO[$PARAM(0)].NAME 怒涛
POS $ITEMINFO[$PARAM(0)].NAME (凡)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (凡) (上)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 镇海
POS $ITEMINFO[$PARAM(0)].NAME (凡)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (凡) (上)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 凌波
POS $ITEMINFO[$PARAM(0)].NAME (凡)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (凡) (上)
#IF
random 1
#ACT
REFINEBOXRESULT 0
SPIRITY - 100
TAKEM $PARAM(0)
GIVE $STR(S0) 1
#IF
LARGE $ITEMINFO[$PARAM(1)].DURA 1
#ACT
UpgradeUserItem $PARAM(1) 20 - 1
#ELSEACT
TAKEM $PARAM(1)
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA 1
#ACT
UpgradeUserItem $PARAM(2) 20 - 1
#ELSEACT
TAKEM $PARAM(2)
#IF
LARGE $ITEMINFO[$PARAM(3)].DURA 1
#ACT
UpgradeUserItem $PARAM(3) 20 - 1
#ELSEACT
TAKEM $PARAM(3)
#IF
LARGE $ITEMINFO[$PARAM(4)].DURA 1
#ACT
UpgradeUserItem $PARAM(4) 20 - 1
#ELSEACT
TAKEM $PARAM(4)
#IF
LARGE $ITEMINFO[$PARAM(5)].DURA 1
#ACT
UpgradeUserItem $PARAM(5) 20 - 1
#ELSEACT
TAKEM $PARAM(5)
 
}
[@怒海极装]
{
 
#IF
CHECKVARLIST $ITEMINFO[$PARAM(0)].NAME ..\QuestDiary\游戏读取\装备融合\深海灵饰.txt
#ELSEACT
MESSAGEBOX 你放入的物品不能用于提升品质
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 金原石
EQUAL $ITEMINFO[$PARAM(2)].NAME 土原石
EQUAL $ITEMINFO[$PARAM(3)].NAME 火原石
EQUAL $ITEMINFO[$PARAM(4)].NAME 水原石
EQUAL $ITEMINFO[$PARAM(5)].NAME 木原石
#ACT
;金土火水木
MOV P1 $ITEMINFO[$PARAM(1)].VALUE(0)
MOV P2 $ITEMINFO[$PARAM(2)].VALUE(0)
MOV P3 $ITEMINFO[$PARAM(3)].VALUE(0)
MOV P4 $ITEMINFO[$PARAM(4)].VALUE(0)
MOV P5 $ITEMINFO[$PARAM(5)].VALUE(0)
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 8
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要8阶原石才能升级！
break
#IF
!EQUAL P2 8
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要四阶原石才能升级！
break
#IF
!EQUAL P3 8
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要8阶原石才能升级！
break
#IF
!EQUAL P4 8
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要8阶原石才能升级！
break
#IF
!EQUAL P5 8
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要8阶原石才能升级！
break
#IF
POS $ITEMINFO[$PARAM(0)].NAME 怒涛
POS $ITEMINFO[$PARAM(0)].NAME (上)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (上) (极)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 镇海
POS $ITEMINFO[$PARAM(0)].NAME (上)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (上) (极)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 凌波
POS $ITEMINFO[$PARAM(0)].NAME (上)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (上) (极)
#IF
random 1
#ACT
REFINEBOXRESULT 0
SPIRITY - 100
TAKEM $PARAM(0)
GIVE $STR(S0) 1
#IF
LARGE $ITEMINFO[$PARAM(1)].DURA 1
#ACT
UpgradeUserItem $PARAM(1) 20 - 1
#ELSEACT
TAKEM $PARAM(1)
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA 1
#ACT
UpgradeUserItem $PARAM(2) 20 - 1
#ELSEACT
TAKEM $PARAM(2)
#IF
LARGE $ITEMINFO[$PARAM(3)].DURA 1
#ACT
UpgradeUserItem $PARAM(3) 20 - 1
#ELSEACT
TAKEM $PARAM(3)
#IF
LARGE $ITEMINFO[$PARAM(4)].DURA 1
#ACT
UpgradeUserItem $PARAM(4) 20 - 1
#ELSEACT
TAKEM $PARAM(4)
#IF
LARGE $ITEMINFO[$PARAM(5)].DURA 1
#ACT
UpgradeUserItem $PARAM(5) 20 - 1
#ELSEACT
TAKEM $PARAM(5)
}
[@怒海仙装]
{
#IF
CHECKVARLIST $ITEMINFO[$PARAM(0)].NAME ..\QuestDiary\游戏读取\装备融合\深海灵饰.txt
#ELSEACT
MESSAGEBOX 你放入的物品不能用于提升品质
BREAK
#IF
EQUAL $ITEMINFO[$PARAM(1)].NAME 金原石
EQUAL $ITEMINFO[$PARAM(2)].NAME 土原石
EQUAL $ITEMINFO[$PARAM(3)].NAME 火原石
EQUAL $ITEMINFO[$PARAM(4)].NAME 水原石
EQUAL $ITEMINFO[$PARAM(5)].NAME 木原石
#ACT
;金土火水木
MOV P1 $ITEMINFO[$PARAM(1)].VALUE(0)
MOV P2 $ITEMINFO[$PARAM(2)].VALUE(0)
MOV P3 $ITEMINFO[$PARAM(3)].VALUE(0)
MOV P4 $ITEMINFO[$PARAM(4)].VALUE(0)
MOV P5 $ITEMINFO[$PARAM(5)].VALUE(0)
#ELSEACT
MESSAGEBOX 只有使用五种五行原石才可以升级！
break
#IF
!EQUAL P1 9
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要9阶原石才能升级！
break
#IF
!EQUAL P2 9
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要9阶原石才能升级！
break
#IF
!EQUAL P3 9
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要9阶原石才能升级！
break
#IF
!EQUAL P4 9
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要9阶原石才能升级！
break
#IF
!EQUAL P5 9
!EQUAL $ITEMINFO[$PARAM(1)].NAME 
#ACT
SENDMSG 5 怒海凡品需要9阶原石才能升级！
break
#IF
POS $ITEMINFO[$PARAM(0)].NAME 怒涛
POS $ITEMINFO[$PARAM(0)].NAME (极)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (极) (仙)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 镇海
POS $ITEMINFO[$PARAM(0)].NAME (极)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (极) (仙)
#IF
POS $ITEMINFO[$PARAM(0)].NAME 凌波
POS $ITEMINFO[$PARAM(0)].NAME (极)
#ACT
MOV S0 $ITEMINFO[$PARAM(0)].NAME
ReplaceText S0 (极) (仙)
#IF
random 1
#ACT
SPIRITY - 100
TAKEM $PARAM(0)
GIVE $STR(S0) 1
REFINEBOXRESULT 0
#IF
LARGE $ITEMINFO[$PARAM(1)].DURA 1
#ACT
UpgradeUserItem $PARAM(1) 20 - 1
#ELSEACT
TAKEM $PARAM(1)
#IF
LARGE $ITEMINFO[$PARAM(2)].DURA 1
#ACT
UpgradeUserItem $PARAM(2) 20 - 1
#ELSEACT
TAKEM $PARAM(2)
#IF
LARGE $ITEMINFO[$PARAM(3)].DURA 1
#ACT
UpgradeUserItem $PARAM(3) 20 - 1
#ELSEACT
TAKEM $PARAM(3)
#IF
LARGE $ITEMINFO[$PARAM(4)].DURA 1
#ACT
UpgradeUserItem $PARAM(4) 20 - 1
#ELSEACT
TAKEM $PARAM(4)
#IF
LARGE $ITEMINFO[$PARAM(5)].DURA 1
#ACT
UpgradeUserItem $PARAM(5) 20 - 1
#ELSEACT
TAKEM $PARAM(5)
}

Tags：

作者：佚名
[] [返回上一页] [打 印]

文章管理评论评论内容只代表网友观点，与本站立场无关！

   评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

栏目导航

本类热门阅览

相关文章

关于本站 | 网站帮助 | 广告合作 | 下载声明 | 友情连接 | 网站地图
【传奇爱好者】www.68kf.com是热血传奇私服发布网站,提供最全面的新开传奇私服游戏开服信息,盛大游戏授权传奇广告发布网,稳定可靠的传奇经典老站,提供最好的经典复古传奇私服,轻变传奇私服,超级变态传奇私服,以及传奇私服合击视频! 沪ICP备09000106号-1