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