GOM引擎钻石会员脚本，传奇服务端添加VIP金钻会员的脚本教程司徒

admin

[@main]　　#IF
　　checknamelist ..\QuestDiary\游戏触发\金钻名单.txt
　　#ACT
　　#SAY
　　   \
　　\
　　   \
　　  \
　　  \
　　  \
　　\ \
　　                     \
　　\
　　#ELSEACT
　　MESSAGEBOX 您不是会员，无法查看该回馈！
　　[@下一页]
　　#IF
　　CHECKGAMEPOINT > 499
　　#ACT
　　#SAY
　　\
　　   \
　　 \
　　 \
　　 \
　　 \
　　\ \
　　       \
　　\
　　#ELSEACT
　　MESSAGEBOX 您没充值满500元哦，不能查看下一页！
　　[@下一页1]
　　#IF
　　CHECKGAMEPOINT > 2499
　　#ACT
　　#SAY
　　\
　　   \
　　 \
　　 \
　　 \
　　\ \
　　       \
　　\
　　#ELSEACT
　　MESSAGEBOX 您没充值满2500元哦，不能查看下一页！
　　[@ybgm]
　　#IF
　　#ACT
　　#SAY
　　   \
　　    \
　　    \
　　    \
　　    \
　　\ \
　　          \
　　\ \
　　\
　　[@V1]
　　#IF
　　CHECKGAMEGOLD > 9999
　　#ACT
　　GAMEGOLD - 10000
　　GIVE VIP1 1
　　SendMsg 1 250 0 %s成功用1W元宝购买了VIP1，大家恭喜他。
　　Break
　　#elseact
　　MESSAGEBOX 购买失败！请确定你有1W元宝。
　　[@V2]
　　#IF
　　CHECKGAMEGOLD > 19999
　　checkitem VIP1 1
　　#ACT
　　GAMEGOLD - 20000
　　TAKE VIP1 1
　　GIVE VIP2 1
　　SendMsg 1 250 0 %s成功用2W元宝购买了VIP2，大家恭喜他。
　　Break
　　#elseact
　　MESSAGEBOX 购买失败！请确定你有2W元宝和VIP2。
　　[@V3]
　　#IF
　　CHECKGAMEGOLD > 49999
　　checkitem VIP2 1
　　#ACT
　　GAMEGOLD - 50000
　　TAKE VIP2 1
　　GIVE VIP3 1
　　SendMsg 1 250 0 %s成功用5W元宝购买了VIP3，大家恭喜他。
　　Break
　　#elseact
　　MESSAGEBOX 购买失败！请确定你有5W元宝和VIP2。
　　[@V4]
　　#IF
　　CHECKGAMEGOLD > 79999
　　checkitem VIP3 1
　　#ACT
　　GAMEGOLD - 80000
　　TAKE VIP3 1
　　GIVE VIP4 1
　　SendMsg 1 250 0 %s成功用8W元宝购买了VIP4，大家恭喜他。
　　Break
　　#elseact
　　MESSAGEBOX 购买失败！请确定你有8W元宝和VIP3。
　　[@50元]
　　#IF
　　CHECKGAMEPOINT > 49
　　CHECKVAR HUMAN 50元奖励 = 0
　　#ACT
　　give VIP1 1
　　give 通天令牌 2
　　CALCVAR HUMAN 50元奖励 = 1
　　SAVEVAR HUMAN 50元奖励 ..\QuestDiary\数据文件\充值奖励\50元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX  [失败]：你的充值元宝数量不够！或者已经领取了！
　　[@100元]
　　#IF
　　checkjob wizard
　　#ACT
　　GOTO @法师1
　　#ELSEACT
　　goto @检测道士1
　　[@检测道士1]
　　#IF
　　checkjob taoist
　　#ACT
　　GOTO @道士1
　　#ELSEACT
　　goto @检测战士1
　　[@检测战士1]
　　#IF
　　checkjob warrior
　　#ACT
　　GOTO @战士1
　　#ELSEACT
　　goto @100元
　　[@法师1]
　　#IF
　　CHECKGAMEPOINT > 99
　　CHECKVAR HUMAN 100元奖励 = 0
　　checkitem VIP1 1
　　#ACT
　　TAKE VIP1 1
　　give VIP2 1
　　give 通天令牌 3
　　take VIP1 1
　　CALCVAR HUMAN 100元奖励 = 1
　　SAVEVAR HUMAN 100元奖励 ..\QuestDiary\数据文件\充值奖励\100元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP1吗？否则不能领取！
　　[@道士1]
　　#IF
　　CHECKGAMEPOINT > 99
　　CHECKVAR HUMAN 100元奖励 = 0
　　checkitem VIP1 1
　　#ACT
　　TAKE VIP1 1
　　give VIP2 1
　　give 通天令牌 3
　　take VIP1 1
　　CALCVAR HUMAN 100元奖励 = 1
　　SAVEVAR HUMAN 100元奖励 ..\QuestDiary\数据文件\充值奖励\100元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP1吗？否则不能领取！
　　[@战士1]
　　#IF
　　CHECKGAMEPOINT > 99
　　CHECKVAR HUMAN 100元奖励 = 0
　　checkitem VIP1 1
　　#ACT
　　TAKE VIP1 1
　　give VIP2 1
　　give 通天令牌 3
　　take VIP1 1
　　CALCVAR HUMAN 100元奖励 = 1
　　SAVEVAR HUMAN 100元奖励 ..\QuestDiary\数据文件\充值奖励\100元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP1吗？否则不能领取！
　　[@200元]
　　#IF
　　CHECKGAMEPOINT > 199
　　CHECKVAR HUMAN 200元奖励 = 0
　　checkitem VIP2 1
　　#ACT
　　give VIP3 1
　　give 通天令牌 5
　　take VIP2 1
　　CALCVAR HUMAN 200元奖励 = 1
　　SAVEVAR HUMAN 200元奖励 ..\QuestDiary\数据文件\充值奖励\200元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP2吗？否则不能领取！
　　[@500元]
　　#IF
　　CHECKVAR HUMAN 500元奖励 = 0
　　CHECKGAMEPOINT > 499
　　checkitem VIP3 1
　　#ACT
　　give VIP4 1
　　give 通天令牌 10
　　take VIP3
　　CALCVAR HUMAN 500元奖励 = 1
　　SAVEVAR HUMAN 500元奖励 ..\QuestDiary\数据文件\充值奖励\500元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP3吗？否则不能领取！
　　[@1000元]
　　#IF
　　CHECKVAR HUMAN 1000元奖励 = 0
　　CHECKGAMEPOINT > 999
　　checkitem VIP4 1
　　CheckJOB Warrior
　　#ACT
　　give VIP5 1
　　give 开天斩 1
　　give 逐日剑法 1
　　take VIP4
　　CALCVAR HUMAN 1000元奖励 = 1
　　SAVEVAR HUMAN 1000元奖励 ..\QuestDiary\数据文件\充值奖励\1000元奖励.txt
　　goto @main
　　break
　　#IF
　　CHECKVAR HUMAN 1000元奖励 = 0
　　CHECKGAMEPOINT > 999
　　checkitem VIP4 1
　　CheckJOB Wizard
　　#ACT
　　give VIP5 1
　　give 流星火雨 1
　　give **龙焰 1
　　take VIP4
　　CALCVAR HUMAN 1000元奖励 = 1
　　SAVEVAR HUMAN 1000元奖励 ..\QuestDiary\数据文件\充值奖励\1000元奖励.txt
　　goto @main
　　break
　　#IF
　　CHECKVAR HUMAN 1000元奖励 = 0
　　CHECKGAMEPOINT > 999
　　checkitem VIP4 1
　　CheckJOB taoist
　　#ACT
　　give VIP5 1
　　give 诸神剑阵 1
　　give 死亡之眼 1
　　take VIP4
　　CALCVAR HUMAN 1000元奖励 = 1
　　SAVEVAR HUMAN 1000元奖励 ..\QuestDiary\数据文件\充值奖励\1000元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP4吗？否则不能领取！
　　[@2000元]
　　#IF
　　CHECKVAR HUMAN 2000元奖励 = 0
　　CHECKGAMEPOINT > 1999
　　checkitem VIP5 1
　　#ACT
　　give VIP6 1
　　take VIP5
　　CALCVAR HUMAN 2000元奖励 = 1
　　SAVEVAR HUMAN 2000元奖励 ..\QuestDiary\数据文件\充值奖励\2000元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP5吗？否则不能领取！
　　[@3000元]
　　#IF
　　CHECKVAR HUMAN 3000元奖励 = 0
　　CHECKGAMEPOINT > 2999
　　checkitem VIP6 1
　　#ACT
　　give VIP7 1
　　take VIP6
　　CALCVAR HUMAN 3000元奖励 = 1
　　SAVEVAR HUMAN 3000元奖励 ..\QuestDiary\数据文件\充值奖励\3000元奖励.txt
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP6吗？否则不能领取！
　　[@4000元]
　　#IF
　　CHECKVAR HUMAN 4000元奖励 = 0
　　CHECKGAMEPOINT > 3999
　　checkitem VIP7 1
　　#ACT
　　give VIP8 1
　　take VIP7
　　CALCVAR HUMAN 4000元奖励 = 1
　　SAVEVAR HUMAN 4000元奖励 ..\QuestDiary\数据文件\充值奖励\4000元奖励.txt
　　SENDMSG 4 感谢[%s]您对本服的鼎力支持,我们绝对会越做越好,祝您游戏愉快！
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP7吗？否则不能领取！
　　[@5000元]
　　#IF
　　CHECKVAR HUMAN 5000元奖励 = 0
　　CHECKGAMEPOINT > 4999
　　checkitem VIP8 1
　　#ACT
　　give VIP9 1
　　take VIP8
　　CALCVAR HUMAN 5000元奖励 = 1
　　SAVEVAR HUMAN 5000元奖励 ..\QuestDiary\数据文件\充值奖励\5000元奖励.txt
　　SENDMSG 4 感谢[%s]您对本服的鼎力支持,我们绝对会越做越好,祝您游戏愉快！
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP8吗？否则不能领取！
　　[@8000元]
　　#IF
　　CHECKVAR HUMAN 8000元奖励 = 0
　　CHECKGAMEPOINT > 7999
　　checkitem VIP9 1
　　#ACT
　　give VIP10 1
　　take VIP9
　　CALCVAR HUMAN 8000元奖励 = 1
　　SAVEVAR HUMAN 8000元奖励 ..\QuestDiary\数据文件\充值奖励\8000元奖励.txt
　　SENDMSG 4 感谢[%s]您对本服的鼎力支持,我们绝对会越做越好,祝您游戏愉快！
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP9吗？否则不能领取！
　　[@10000元]
　　#IF
　　CHECKVAR HUMAN 10000元奖励 = 0
　　CHECKGAMEPOINT > 9999
　　checkitem VIP10 1
　　#ACT
　　give VIP11 1
　　take VIP10
　　CALCVAR HUMAN 10000元奖励 = 1
　　SAVEVAR HUMAN 10000元奖励 ..\QuestDiary\数据文件\充值奖励\10000元奖励.txt
　　SENDMSG 4 感谢[%s]您对本服的鼎力支持,我们绝对会越做越好,祝您游戏愉快！
　　goto @main
　　BREAK
　　#ELSEACT
　　MESSAGEBOX [失败]：你的充值元宝数量不够！请确定你背包有VIP10吗？否则不能领取！