GOM引擎元宝首富脚本实例，传奇开区时申请首富封号NPC教程司徒

admin

脚本无错，自己可以修改或者添加，复制粘贴自由发挥你的想象力吧！　　[@main]
　　如果你有够多的元宝,可以申请元宝首富.\
　　申请首富只记录你的元宝数量并不会扣除你的元宝.  \
　　申请首富成功后可以获得[首富封号+龙行靴]\
　　\
　　\
　　假如首富已被申请,你的元宝数量多于他,你便可以顶替他.\
　　 \
　　         【】   【】\
　　元宝首富:　元宝数量:　被砸鲜花:　被扔鸡蛋:\ \
　　[@hc]
　　\
　　1:首富可以获得[龙行靴] \
　　 \ \
　　2:当别人给你砸鲜花,扔鸡蛋都将获得100万,50万经验享受. \ \
　　\ \
　　 \
　　[@赠鲜花]
　　#if
　　equal G271 0
　　#ACT
　　MESSAGEBOX 暂无首富不能砸鲜花哦！
　　BREAK
　　#if
　　checklevelex < 47
　　#ACT
　　MESSAGEBOX 您的等级可能不足47级，不能参与此功能！
　　BREAK
　　#if
　　CHECKVAR HUMAN 鲜花鸡蛋 > 0
　　#act
　　GOTO @xianhua
　　INC G269 1
　　CHANGEEXP + 5000000
　　CALCVAR HUMAN 鲜花鸡蛋 - 1
　　SAVEVAR HUMAN 鲜花鸡蛋 ..\QuestDiary\数据文件\鲜花鸡蛋Save.txt
　　ADDNAMELIST ..\QuestDiary\数据文件\鲜花鸡蛋名单.txt
　　SETWEATHEREFFECT 3 2 15
　　GuildNoticeMsg 151 0 〖%s〗给元宝首富〖〗砸了1次鲜花获得500万经验奖励！
　　GuildNoticeMsg 151 0 首富〖〗被砸1次鲜花获得100万经验奖励,谢谢大家支持！
　　DelayCall 100 @79花
　　DelayCall 500 @80花
　　DelayCall 1000 @81花
　　DelayCall 1500 @82花
　　DelayCall 2000 @83花
　　DelayCall 2500 @86花
　　GOTO @main
　　break
　　#ELSEACT
　　MessageBOX 你今天3次已用完,明天在来吧！
　　[@79花]
　　#ACT
　　GMEXECUTE SHOWEFFECT 79
　　[@80花]
　　#ACT
　　GMEXECUTE SHOWEFFECT 80
　　[@81花]
　　#ACT
　　GMEXECUTE SHOWEFFECT 81
　　[@82花]
　　#ACT
　　GMEXECUTE SHOWEFFECT 82
　　[@83花]
　　#ACT
　　GMEXECUTE SHOWEFFECT 83
　　[@86花]
　　#ACT
　　GMEXECUTE SHOWEFFECT 86
　　[@仍鸡蛋]
　　#if
　　equal G271 0
　　#ACT
　　MESSAGEBOX 暂无首富不能仍鸡蛋哦！
　　BREAK
　　#if
　　checklevelex < 47
　　#ACT
　　MESSAGEBOX 您的等级可能不足47级，不能参与此功能！
　　BREAK
　　#if
　　CHECKVAR HUMAN 鲜花鸡蛋 > 0
　　#act
　　GOTO @jidan
　　INC G270 1
　　CHANGEEXP + 5000000
　　CALCVAR HUMAN 鲜花鸡蛋 - 1
　　SAVEVAR HUMAN 鲜花鸡蛋 ..\QuestDiary\数据文件\鲜花鸡蛋Save.txt
　　ADDNAMELIST ..\QuestDiary\数据文件\鲜花鸡蛋名单.txt
　　SETWEATHEREFFECT 3 3 10
　　GuildNoticeMsg 151 0 〖%s〗给元宝首富〖〗仍了1次鸡蛋获得500万经验奖励！
　　GuildNoticeMsg 151 0 首富〖〗被仍1次鸡蛋获得50万经验奖励,敢不敢送砸鲜花！
　　GMEXECUTE SHOWEFFECT 78
　　GMEXECUTE SHOWEFFECT 79
　　GMEXECUTE SHOWEFFECT 80
　　GMEXECUTE SHOWEFFECT 81
　　GMEXECUTE SHOWEFFECT 82
　　GMEXECUTE SHOWEFFECT 83
　　GMEXECUTE SHOWEFFECT 84
　　GMEXECUTE SHOWEFFECT 87
　　GOTO @main
　　break
　　#ELSEACT
　　MessageBOX 你今天3次已用完,明天在来吧！
　　[@sqsf]
　　#if
　　checkgamegold >
　　#act
　　MOV S12
　　mov A9
　　mov G7
　　mov A2
　　CLEARNAMELIST sj\sf.txt
　　ADDNAMELIST sj\sf.txt
　　MOV G269 0
　　mov G270 0
　　MOV G271 1
　　mov A70 元宝数量\↘本区元宝首富↙\
　　GMEXECUTE zgfzz 龙行靴
　　SENDMSG 0 【公告】%s成功申请为本区的元宝首富[名誉与经验双收].
　　SENDMSG 0 【公告】%s成功申请为本区的元宝首富[名誉与经验双收].
　　SENDMSG 7 恭喜你申请成为本区的元宝首富,获得奖励[龙行靴].
　　messagebox 建议您时刻保持在线,可获得砸鲜花扔鸡蛋经验额外享受.
　　goto @zdej
　　S12.SENDMSG 7 提示:你的首富称号已经被别人抢去.
　　S12.SENDMSG 7 提示:你被迫下线重新登陆.
　　S12.kick
　　mov S12 0
　　#elseact
　　messagebox 你的元宝数量无法申请.
　　[@xsfhm]
　　#IF
　　checklevelex > 34
　　checkNAMELIST sj\sf.txt
　　#act
　　mov G0 1
　　SETRANKLEVELNAME %s\┠元宝首富┨
　　messagebox 封号显示成功
　　#elseact
　　SENDMSG 7 首富35级才可以显示封号.
　　close
　　[@ycfhm]
　　#IF
　　checkNAMELIST sj\sf.txt
　　#act
　　mov G0 0
　　SETRANKLEVELNAME %s\
　　messagebox 封号隐藏成功
　　#elseact
　　SENDMSG 7 你无权使用.
　　close
　　[@xianhua]
　　#IF
　　#act
　　MOV S12
　　#IF
　　SMALL G210 100
　　CheckOnline
　　#act
　　INC G210 1
　　S12.CHANGEEXP + 1000000
　　S12.SENDMSG 7 首富:有人给您砸了一次鲜花您获得100万经验.
　　S12.SendCenterMsg 250 0 首富:有人给您砸了一次鲜花您获得100万经验. 0 6
　　break
　　[@jidan]
　　#IF
　　#act
　　MOV S12
　　#IF
　　SMALL G210 100
　　CheckOnline
　　#act
　　INC G210 1
　　S12.CHANGEEXP + 500000
　　S12.SENDMSG 7 首富:有人给您扔了一次鸡蛋您获得50万经验.
　　S12.SendCenterMsg 250 0 首富:有人给您扔了一次鸡蛋您获得50万经验. 0 6
　　break