GOM引擎四象之力脚本，传奇版本库升级时四象成功率设置教程。

趣游论坛 · 发表于 2019-10-24 11:33:35

[@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个游戏点/@购买a>\ \
　 <购买10个保底符|254#需要10个游戏点/@购买b>\

[@购买a]
#if
CHECKGAMEGLORY > 0
#act
GAMEGLORY - 1
give 保底符 1
SENDMSG 提示：恭喜您成功购买了一个「保底符」！
#elseact
MessageBox 提示：您的游戏点不足！
break

[@购买b]
#if
CHECKGAMEGLORY > 9
#act
GAMEGLORY - 10
give 保底符 10
SENDMSG 提示：恭喜您成功购买了10个「保底符」！
#elseact
MessageBox 提示：您的游戏点不足！
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\系统功能\四象\需要游戏点.txt <$STR(S$四象游戏点)> <$STR(U8)>

#if
CHECKGAMEDIAMOND < <$STR(S$四象游戏点)>
CHECKGameGird < <$STR(S$四象荣誉)>
#act
MessageBox 升级四象之力需要游戏点【<$STR(S$四象游戏点)>点】或者【<$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$四象游戏点)>
#act
GAMEDIAMOND - <$STR(S$四象游戏点)>

#if
checkitem 保底符 1
small N$成功基数 <$STR(S$四象成功率)>
#act
take 保底符 1
INC U8 1
SENDMSG 6 恭喜四象『青龙之力』升级成功，当前『青龙之力』等级：<$STR(U8)>
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1
break

#if
small N$成功基数 <$STR(S$四象成功率)>
#act
INC U8 1
SENDMSG 6 恭喜四象『青龙之力』升级成功，当前『青龙之力』等级：<$STR(U8)>
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1

#elseact
goto @检测青龙保底

[@检测青龙保底]
#if
checkitem 保底符 1
#act
take 保底符 1
SENDMSG 5 运气不好，四象『青龙之力』升级失败，当前『保底符抵御失败不降等级』！
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1

#elseact
MOV U8 0
SENDMSG 5 运气不好，四象『青龙之力』升级失败，当前『青龙之力』等级重置为：0
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
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\系统功能\四象\需要游戏点.txt <$STR(S$四象游戏点)> <$STR(U9)>

#if
CHECKGAMEDIAMOND < <$STR(S$四象游戏点)>
CHECKGameGird < <$STR(S$四象荣誉)>
#act
MessageBox 升级四象之力需要游戏点【<$STR(S$四象游戏点)>点】或者【<$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$四象游戏点)>
#act
GAMEDIAMOND - <$STR(S$四象游戏点)>

#if
checkitem 保底符 1
small N$成功基数 <$STR(S$四象成功率)>
#act
take 保底符 1
INC U9 1
SENDMSG 6 恭喜四象『白虎之力』升级成功，当前『白虎之力』等级：<$STR(U9)>
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
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$需要游戏点
goto @main1
#elseact
goto @检测白虎保底

[@检测白虎保底]
#if
checkitem 保底符 1
#act
take 保底符 1
SENDMSG 5 运气不好，四象『白虎之力』升级失败，当前『保底符抵御失败不降等级』！
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1
#elseact
MOV U9 0
SENDMSG 5 运气不好，四象『白虎之力』升级失败，当前『白虎之力』等级重置为：0
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
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\系统功能\四象\需要游戏点.txt <$STR(S$四象游戏点)> <$STR(U10)>

#if
CHECKGAMEDIAMOND < <$STR(S$四象游戏点)>
CHECKGameGird < <$STR(S$四象荣誉)>
#act
MessageBox 升级四象之力需要游戏点【<$STR(S$四象游戏点)>点】或者【<$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$四象游戏点)>
#act
GAMEDIAMOND - <$STR(S$四象游戏点)>

#if
checkitem 保底符 1
small N$成功基数 <$STR(S$四象成功率)>
#act
take 保底符 1
INC U10 1
SENDMSG 6 恭喜四象『朱雀之力』升级成功，当前『朱雀之力』等级：<$STR(U10)>
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
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$需要游戏点
goto @main1
#elseact

goto @检测朱雀保底

[@检测朱雀保底]

#if
checkitem 保底符 1
#act
take 保底符 1
SENDMSG 5 运气不好，四象『朱雀之力』升级失败，当前『保底符抵御失败不降等级』
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1
#elseact
MOV U10 0
SENDMSG 5 运气不好，四象『朱雀之力』升级失败，当前『朱雀之力』等级重置为：0
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
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\系统功能\四象\需要游戏点.txt <$STR(S$四象游戏点)> <$STR(U11)>

#if
CHECKGAMEDIAMOND < <$STR(S$四象游戏点)>
CHECKGameGird < <$STR(S$四象荣誉)>
#act
MessageBox 升级四象之力需要游戏点【<$STR(S$四象游戏点)>点】或者【<$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$四象游戏点)>
#act
GAMEDIAMOND - <$STR(S$四象游戏点)>

#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$需要游戏点
goto @main1
break

#if
small N$成功基数 <$STR(S$四象成功率)>
#act
INC U11 1
SENDMSG 6 恭喜四象『玄武之力』升级成功，当前『玄武之力』等级：<$STR(U11)>
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1
#elseact
goto @检测玄武保底

[@检测玄武保底]

#if
checkitem 保底符 1
#act
take 保底符 1
SENDMSG 5 运气不好，四象『玄武之力』升级失败，当前『保底符抵御失败不降等级』！
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
goto @main1
#elseact
MOV U11 0
SENDMSG 5 运气不好，四象『玄武之力』升级失败，当前『玄武之力』等级重置为：0
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要游戏点
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

文艺范 · 发表于 2019-10-24 11:33:37

每一个支持趣游论坛新贴，消灭0回复，

习惯以后 · 发表于 2019-10-24 12:33:18

为了积分，脚本还是不错的，帮赞个！

泡沫 · 发表于 2019-10-24 12:33:57

为毛老子总也抢不到沙发？！！

卜卦 · 发表于 2019-10-24 12:50:00

介是神马？！！

巴巴拉 · 发表于 2019-10-24 13:27:04

秀起来~

陆雪琪 · 发表于 2019-10-24 13:28:56

为毛老子总也抢不到沙发？！！

小舒航 · 发表于 2019-10-24 14:07:33

我是个凑数的。。。

戒烟了 · 发表于 2019-10-24 15:00:07

介是神马？！！

孤独 · 发表于 2019-10-24 15:38:57

呵呵，低调，低调！

`设为首页收藏本站`

[传奇一键替换包]

[GOM引擎] GOM引擎四象之力脚本，传奇版本库升级时四象成功率设置教程。

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老

设为首页收藏本站 [传奇一键替换包]