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

西瓜柚子冰

[@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

rebecca0479

支持，楼下的跟上哈~

十里秋香

没人回帖。。。我来个吧

我叫舞姐

发发呆，回回帖，工作结束~

ddz008pr

呵呵，低调，低调！

红la4efp

啊啊啊啊啊啊啊啊啊啊啊

@Xizi_AiUYkuYP

珍爱生命，果断回帖。

chenshibin

我只是路过，不发表意见

461281947

为保住菊花，这个一定得回复！

indiansea

呵呵，低调，低调！