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

admin

                               
登录/注册后可看大图

[@main]
#OR
NOT equal U8
NOT equal U8
NOT equal U8
#act
MOV U38 0

#if
#act
MOV P40
MOV P41
MOV P42
MOV P43
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
　\
　\
　\
　\
　\ \ \ \ \ \ \ \ \ \ \
　                                     \ \
　                                    \









[@购买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  
GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt  
GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt  








#if
CHECKGAMEDIAMOND <
CHECKGameGird <
#act
MessageBox 升级四象之力需要RMB【点】或者【荣誉点】\　\条件不足，无法升级！！
break
#elseact
MOVR N$成功基数 0 1001
MOV N$JJQQ 0

#if
NOT CHECKGameGird <
#act
GameGird -
MOV N$JJQQ 1

#if
EQUAL N$JJQQ 0
NOT CHECKGAMEDIAMOND <
#act
GAMEDIAMOND -


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

#if
small N$成功基数
#act
INC U8 1
SENDMSG 6 恭喜四象『青龙之力』升级成功，当前『青龙之力』等级：
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  
GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt  
GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt  

#if
CHECKGAMEDIAMOND <
CHECKGameGird <
#act
MessageBox 升级四象之力需要RMB【点】或者【荣誉点】\　\条件不足，无法升级！！
break
#elseact
MOVR N$成功基数 0 1001
MOV N$JJQQ 0

#if
NOT CHECKGameGird <
#act
GameGird -
MOV N$JJQQ 1

#if
EQUAL N$JJQQ 0
NOT CHECKGAMEDIAMOND <
#act
GAMEDIAMOND -


#if
checkitem 保底符 1
small N$成功基数
#act
take 保底符 1
INC U9 1
SENDMSG 6 恭喜四象『白虎之力』升级成功，当前『白虎之力』等级：
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要RMB
goto @main1
break

#if
small N$成功基数
#act
GameGird -
INC U9 1
SENDMSG 6 恭喜四象『白虎之力』升级成功，当前『白虎之力』等级：
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  
GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt  
GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt  

#if
CHECKGAMEDIAMOND <
CHECKGameGird <
#act
MessageBox 升级四象之力需要RMB【点】或者【荣誉点】\　\条件不足，无法升级！！
break
#elseact
MOVR N$成功基数 0 1001
MOV N$JJQQ 0

#if
NOT CHECKGameGird <
#act
GameGird -
MOV N$JJQQ 1

#if
EQUAL N$JJQQ 0
NOT CHECKGAMEDIAMOND <
#act
GAMEDIAMOND -


#if
checkitem 保底符 1
small N$成功基数
#act
take 保底符 1
INC U10 1
SENDMSG 6 恭喜四象『朱雀之力』升级成功，当前『朱雀之力』等级：
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要RMB
goto @main1
break

#if
small N$成功基数
#act
GameGird -
INC U10 1
SENDMSG 6 恭喜四象『朱雀之力』升级成功，当前『朱雀之力』等级：
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  
GetRandomText ..\QuestDiary\系统功能\四象\需要荣誉.txt  
GetRandomText ..\QuestDiary\系统功能\四象\需要RMB.txt  

#if
CHECKGAMEDIAMOND <
CHECKGameGird <
#act
MessageBox 升级四象之力需要RMB【点】或者【荣誉点】\　\条件不足，无法升级！！
break
#elseact
MOVR N$成功基数 0 1001
MOV N$JJQQ 0

#if
NOT CHECKGameGird <
#act
GameGird -
MOV N$JJQQ 1

#if
EQUAL N$JJQQ 0
NOT CHECKGAMEDIAMOND <
#act
GAMEDIAMOND -

#if
checkitem 保底符 1
small N$成功基数
#act
take 保底符 1
GameGird -
INC U11 1
SENDMSG 6 恭喜四象『玄武之力』升级成功，当前『玄武之力』等级：
MOV S$升级成功率
MOV S$需要荣誉
MOV S$需要RMB
goto @main1
break

#if
small N$成功基数
#act
INC U11 1
SENDMSG 6 恭喜四象『玄武之力』升级成功，当前『玄武之力』等级：
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 恭喜玩家成功将『四象之力』全部升级为一重，人物额外获得0.1倍攻击！
#if
equal U8 2
equal U9 2
equal U10 2
equal U11 2
#act
MOV U38 2
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为二重，人物额外获得0.2倍攻击！
#if
equal U8 3
equal U9 3
equal U10 3
equal U11 3
#act
MOV U38 3
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为三重，人物额外获得0.3倍攻击！
#if
equal U8 4
equal U9 4
equal U10 4
equal U11 4
#act
MOV U38 4
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为四重，人物额外获得0.4倍攻击！
#if
equal U8 5
equal U9 5
equal U10 5
equal U11 5
#act
MOV U38 5
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为五重，人物额外获得0.5倍攻击！
#if
equal U8 6
equal U9 6
equal U10 6
equal U11 6
#act
MOV U38 6
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为六重，人物额外获得0.6倍攻击！
#if
equal U8 7
equal U9 7
equal U10 7
equal U11 7
#act
MOV U38 7
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为七重，人物额外获得0.7倍攻击！
#if
equal U8 8
equal U9 8
equal U10 8
equal U11 8
#act
MOV U38 8
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为八重，人物额外获得0.8倍攻击！
#if
equal U8 9
equal U9 9
equal U10 9
equal U11 9
#act
MOV U38 9
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为九重，人物额外获得0.9倍攻击！
#if
equal U8 10
equal U9 10
equal U10 10
equal U11 10
#act
MOV U38 10
SENDMSG 0 恭喜玩家成功将『四象之力』全部升级为十重，人物额外获得1.0倍攻击！
#if
#act
#CALL [\登陆读取\攻击力读取.txt] @攻击力读取
GOTO @MAIN


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！