星空资源网 - 打造中国最全的传奇一条龙开区版本资源网。
登 录注 册网游资讯传奇服务端传奇版本下载网站地图
当前位置:星空资源网网游资讯传奇技术

四象之力脚本制作

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2019-11-05 16:52:06

[@main]

#OR

NOT equal U8 <$STR(U9)>

NOT equal U8 <$STR(U10)>

NOT equal U8 <$STR(U11)>

#act

MOV U38 0

#if

#act

MOV P40 <$STR(U8)>

MOV P41 <$STR(U9)>

MOV P42 <$STR(U10)>

MOV P43 <$STR(U11)>

INC P40 740

INC P41 740

INC P42 740

INC P43 740

CLEARDELAYGOTO

OPENMERCHANTBIGDLG 0 733 1 4 1 -70 0 0 0 1

#say

 <ImgEx:7:3213:3214:3215:645:32/@exit>\

 <PlayImg:5:750:10:200:58:47:0:0|243#每次升级需要500荣誉点或者2金刚石!^243#优先消耗荣誉点,荣誉点不足时消耗金刚石!^-^243#提升时可以使用保底符抵御失败不清零等级^-^250#点击开始升级/@升级青龙aa><PlayImg:5:760:10:200:76:47:0:0|243#每次点击需要500荣誉点!^243#优先消耗荣誉点,荣誉点不足时消耗金刚石!^-^243#提升时可以使用保底符抵御失败不清零等级^-^250#点击开始升级/@升级白虎aa>\

 <PlayImg:5:770:10:200:58:234:0:0|243#每次点击需要500荣誉点!^243#优先消耗荣誉点,荣誉点不足时消耗金刚石!^-^243#提升时可以使用保底符抵御失败不清零等级^-^250#点击开始升级/@升级朱雀aa><PlayImg:5:780:10:200:76:234:0:0|243#每次点击需要500荣誉点!^243#优先消耗荣誉点,荣誉点不足时消耗金刚石!^-^243#提升时可以使用保底符抵御失败不清零等级^-^250#点击开始升级/@升级玄武aa>\

 <Img:<$STR(P40)>:0:122:144/@><Img:<$STR(P41)>:0:272:144/@>\

 <Img:<$STR(P42)>:0:122:331/@><Img:<$STR(P43)>:0:272:331/@>\ \ \ \ \ \ \ \ \ \ \ 

                                      <购买1个保底符|254#需要1个RMB点/@购买a>\ \

                                     <购买10个保底符|254#需要10个RMB点/@购买b>\

[@购买a]

#if

CHECKGAMEGLORY > 0

#act

GAMEGLORY - 1

give 保底符 1

SENDMSG 提示:恭喜您成功购买了一个「保底符」!

#elseact

MessageBox 提示:您的RMB点不足!

break

[@购买b]

#if

CHECKGAMEGLORY > 9

#act

GAMEGLORY - 10

give 保底符 10

SENDMSG 提示:恭喜您成功购买了10个「保底符」!

#elseact

MessageBox 提示:您的RMB点不足!

break

;=====================================================================升级青龙

[@升级青龙aa]

#if

large U8 9

#act

MessageBox 你当前的青龙之力已经升到**了!!

break

#elseact

GetRandomText ..\QuestDiary\系统功能\四象\升级成功率.txt <$STR(S$四象成功率)> <$STR(U8)>

GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt <$STR(S$四象荣誉)> <$STR(U8)>

GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt <$STR(S$四象RMB)> <$STR(U8)>

#if

CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

CHECKGameGird < <$STR(S$四象荣誉)>

#act

MessageBox 升级四象之力需要RMB【<$STR(S$四象RMB)>点】或者【<$STR(S$四象荣誉)>荣誉点】\ \条件不足,无法升级!!

break

#elseact

MOVR N$成功基数 0 1001

MOV N$JJQQ 0

#if

NOT CHECKGameGird < <$STR(S$四象荣誉)>

#act

GameGird - <$STR(S$四象荣誉)>

MOV N$JJQQ 1

#if

EQUAL N$JJQQ 0

NOT CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

#act

GAMEDIAMOND - <$STR(S$四象RMB)>

#if

checkitem 保底符 1

small N$成功基数 <$STR(S$四象成功率)>

#act

take 保底符 1

INC U8 1

SENDMSG 6 恭喜四象『青龙之力』升级成功,当前『青龙之力』等级:<$STR(U8)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

#if

small N$成功基数 <$STR(S$四象成功率)>

#act

INC U8 1

SENDMSG 6 恭喜四象『青龙之力』升级成功,当前『青龙之力』等级:<$STR(U8)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

goto @检测青龙保底

[@检测青龙保底]

#if

checkitem 保底符 1

#act

take 保底符 1

SENDMSG 5 运气不好,四象『青龙之力』升级失败,当前『保底符抵御失败不降等级』!

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

MOV U8 0

SENDMSG 5 运气不好,四象『青龙之力』升级失败,当前『青龙之力』等级重置为:0

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

;=====================================================================升级白虎

[@升级白虎aa]

#if

large U9 9

#act

MessageBox 你当前的白虎之力已经升到**了!!

break

#elseact

GetRandomText ..\QuestDiary\系统功能\四象\升级成功率.txt <$STR(S$四象成功率)> <$STR(U9)>

GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt <$STR(S$四象荣誉)> <$STR(U9)>

GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt <$STR(S$四象RMB)> <$STR(U9)>

#if

CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

CHECKGameGird < <$STR(S$四象荣誉)>

#act

MessageBox 升级四象之力需要RMB【<$STR(S$四象RMB)>点】或者【<$STR(S$四象荣誉)>荣誉点】\ \条件不足,无法升级!!

break

#elseact

MOVR N$成功基数 0 1001

MOV N$JJQQ 0

#if

NOT CHECKGameGird < <$STR(S$四象荣誉)>

#act

GameGird - <$STR(S$四象荣誉)>

MOV N$JJQQ 1

#if

EQUAL N$JJQQ 0

NOT CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

#act

GAMEDIAMOND - <$STR(S$四象RMB)>

#if

checkitem 保底符 1

small N$成功基数 <$STR(S$四象成功率)>

#act

take 保底符 1

INC U9 1

SENDMSG 6 恭喜四象『白虎之力』升级成功,当前『白虎之力』等级:<$STR(U9)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

#if

small N$成功基数 <$STR(S$四象成功率)>

#act

GameGird - <$STR(S$四象荣誉)>

INC U9 1

SENDMSG 6 恭喜四象『白虎之力』升级成功,当前『白虎之力』等级:<$STR(U9)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

goto @检测白虎保底

[@检测白虎保底]

#if

checkitem 保底符 1

#act

take 保底符 1

SENDMSG 5 运气不好,四象『白虎之力』升级失败,当前『保底符抵御失败不降等级』!

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

MOV U9 0

SENDMSG 5 运气不好,四象『白虎之力』升级失败,当前『白虎之力』等级重置为:0

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

;=====================================================================升级朱雀

[@升级朱雀aa]

#if

large U10 9

#act

MessageBox 你当前的朱雀之力已经升到**了!!

break

#elseact

GetRandomText ..\QuestDiary\系统功能\四象\升级成功率.txt <$STR(S$四象成功率)> <$STR(U10)>

GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt <$STR(S$四象荣誉)> <$STR(U10)>

GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt <$STR(S$四象RMB)> <$STR(U10)>

#if

CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

CHECKGameGird < <$STR(S$四象荣誉)>

#act

MessageBox 升级四象之力需要RMB【<$STR(S$四象RMB)>点】或者【<$STR(S$四象荣誉)>荣誉点】\ \条件不足,无法升级!!

break

#elseact

MOVR N$成功基数 0 1001

MOV N$JJQQ 0

#if

NOT CHECKGameGird < <$STR(S$四象荣誉)>

#act

GameGird - <$STR(S$四象荣誉)>

MOV N$JJQQ 1

#if

EQUAL N$JJQQ 0

NOT CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

#act

GAMEDIAMOND - <$STR(S$四象RMB)>

#if

checkitem 保底符 1

small N$成功基数 <$STR(S$四象成功率)>

#act

take 保底符 1

INC U10 1

SENDMSG 6 恭喜四象『朱雀之力』升级成功,当前『朱雀之力』等级:<$STR(U10)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

#if

small N$成功基数 <$STR(S$四象成功率)>

#act

GameGird - <$STR(S$四象荣誉)>

INC U10 1

SENDMSG 6 恭喜四象『朱雀之力』升级成功,当前『朱雀之力』等级:<$STR(U10)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

goto @检测朱雀保底

[@检测朱雀保底]

#if

checkitem 保底符 1

#act

take 保底符 1

SENDMSG 5 运气不好,四象『朱雀之力』升级失败,当前『保底符抵御失败不降等级』

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

MOV U10 0

SENDMSG 5 运气不好,四象『朱雀之力』升级失败,当前『朱雀之力』等级重置为:0

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

;=====================================================================升级玄武

[@升级玄武aa]

#if

large U11 9

#act

MessageBox 你当前的玄武之力已经升到**了!!

break

#elseact

GetRandomText ..\QuestDiary\系统功能\四象\升级成功率.txt <$STR(S$四象成功率)> <$STR(U11)>

GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt <$STR(S$四象荣誉)> <$STR(U11)>

GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt <$STR(S$四象RMB)> <$STR(U11)>

#if

CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

CHECKGameGird < <$STR(S$四象荣誉)>

#act

MessageBox 升级四象之力需要RMB【<$STR(S$四象RMB)>点】或者【<$STR(S$四象荣誉)>荣誉点】\ \条件不足,无法升级!!

break

#elseact

MOVR N$成功基数 0 1001

MOV N$JJQQ 0

#if

NOT CHECKGameGird < <$STR(S$四象荣誉)>

#act

GameGird - <$STR(S$四象荣誉)>

MOV N$JJQQ 1

#if

EQUAL N$JJQQ 0

NOT CHECKGAMEDIAMOND < <$STR(S$四象RMB)>

#act

GAMEDIAMOND - <$STR(S$四象RMB)>

#if

checkitem 保底符 1

small N$成功基数 <$STR(S$四象成功率)>

#act

take 保底符 1

GameGird - <$STR(S$四象荣誉)>

INC U11 1

SENDMSG 6 恭喜四象『玄武之力』升级成功,当前『玄武之力』等级:<$STR(U11)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

#if

small N$成功基数 <$STR(S$四象成功率)>

#act

INC U11 1

SENDMSG 6 恭喜四象『玄武之力』升级成功,当前『玄武之力』等级:<$STR(U11)>

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

goto @检测玄武保底

[@检测玄武保底]

#if

checkitem 保底符 1

#act

take 保底符 1

SENDMSG 5 运气不好,四象『玄武之力』升级失败,当前『保底符抵御失败不降等级』!

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

#elseact

MOV U11 0

SENDMSG 5 运气不好,四象『玄武之力』升级失败,当前『玄武之力』等级重置为:0

MOV S$升级成功率 

MOV S$需要荣誉 

MOV S$需要RMB 

goto @main1

break

[@main1]

#if

equal U8 1

equal U9 1

equal U10 1

equal U11 1

#act

MOV U38 1

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为一重,人物额外获得0.1倍攻击!

#if

equal U8 2

equal U9 2

equal U10 2

equal U11 2

#act

MOV U38 2

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为二重,人物额外获得0.2倍攻击!

#if

equal U8 3

equal U9 3

equal U10 3

equal U11 3

#act

MOV U38 3

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为三重,人物额外获得0.3倍攻击!

#if

equal U8 4

equal U9 4

equal U10 4

equal U11 4

#act

MOV U38 4

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为四重,人物额外获得0.4倍攻击!

#if

equal U8 5

equal U9 5

equal U10 5

equal U11 5

#act

MOV U38 5

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为五重,人物额外获得0.5倍攻击!

#if

equal U8 6

equal U9 6

equal U10 6

equal U11 6

#act

MOV U38 6

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为六重,人物额外获得0.6倍攻击!

#if

equal U8 7

equal U9 7

equal U10 7

equal U11 7

#act

MOV U38 7

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为七重,人物额外获得0.7倍攻击!

#if

equal U8 8

equal U9 8

equal U10 8

equal U11 8

#act

MOV U38 8

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为八重,人物额外获得0.8倍攻击!

#if

equal U8 9

equal U9 9

equal U10 9

equal U11 9

#act

MOV U38 9

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为九重,人物额外获得0.9倍攻击!

#if

equal U8 10

equal U9 10

equal U10 10

equal U11 10

#act

MOV U38 10

SENDMSG 0 恭喜玩家<$USERNAME>成功将『四象之力』全部升级为十重,人物额外获得1.0倍攻击!

#if

#act

#CALL [\登陆读取\攻击力读取.txt] @攻击力读取

GOTO @MAIN

 

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

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

相关文章

星空资源网第一时间提供最新的传奇服务端,热门网页传奇服务端免费下载。
页面执行时间:328.12500 毫秒