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

脚本无错，自己可以修改或者添加，复制粘贴自由发挥你的想象力吧！

[@main]
如果你有够多的元宝,可以申请元宝首富.\
申请首富只记录你的元宝数量并不会扣除你的元宝.  <首富有什么好处?/@hc>\
申请首富成功后可以获得[首富封号+龙行靴]\
<龙行靴:防御10-10 魔御10-10 攻击10-10 魔法10-10 道术10-10>\
<该靴只能首富才能佩戴,其他人无法佩戴.>\
假如首富已被申请,你的元宝数量多于他,你便可以顶替他.\
<每天每人限3次机会哦,每次砸或扔一次有500万经验奖励./AUTOCOLOR=250,253,254,241> \
<申请首富/@sqsf>   <显示封号/@xsfhm>   <隐藏封号/@ycfhm>   【<砸鲜花/@赠鲜花>】   【<扔鸡蛋/@仍鸡蛋>】\
元宝首富:<$STR(A9)>　元宝数量:<$STR(G7)>　被砸鲜花:<$STR(G269)>　被扔鸡蛋:<$STR(G270)>\ \

[@hc]
　 \
1:首富可以获得[龙行靴] \
<龙行靴:防御10-10 魔御10-10 攻击10-10 魔法10-10 道术10-10> \ \

2:当别人给你砸鲜花,扔鸡蛋都将获得100万,50万经验享受. \ \

　　　<如果你是首富请尽量保持在线享受额外经验享受>\ \

<返回上页/@main> \

[@赠鲜花]
#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〗给元宝首富〖<$STR(A9)>〗砸了1次鲜花获得500万经验奖励！
GuildNoticeMsg 151 0 首富〖<$STR(A9)>〗被砸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〗给元宝首富〖<$STR(A9)>〗仍了1次鸡蛋获得500万经验奖励！
GuildNoticeMsg 151 0 首富〖<$STR(A9)>〗被仍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 > <$STR(G7)>
#act
MOV S12 <$STR(A9)>
mov A9 <$USERNAME>
mov G7 <$GAMEGOLD>
mov A2 <$DATETIME>
CLEARNAMELIST sj\sf.txt
ADDNAMELIST sj\sf.txt
MOV G269 0
mov G270 0
MOV G271 1
mov A70 元宝数量<$GAMEGOLD>\↘本区元宝首富↙\<$USERNAME>
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 <$STR(A9)>
#IF
SMALL G210 100
CheckOnline <$STR(A9)>
#act
INC G210 1
S12.CHANGEEXP + 1000000
S12.SENDMSG 7 首富:有人给您砸了一次鲜花您获得100万经验.
S12.SendCenterMsg 250 0 首富:有人给您砸了一次鲜花您获得100万经验. 0 6
break

[@jidan]
#IF
#act
MOV S12 <$STR(A9)>
#IF
SMALL G210 100
CheckOnline <$STR(A9)>
#act
INC G210 1
S12.CHANGEEXP + 500000
S12.SENDMSG 7 首富:有人给您扔了一次鸡蛋您获得50万经验.
S12.SendCenterMsg 250 0 首富:有人给您扔了一次鸡蛋您获得50万经验. 0 6
break