Gom引擎比較流行的元寶首富腳本實例

比較流行的元寶首富腳本

腳本無錯，自己可以修改或者添加，復制粘貼自由發揮你的想象力吧！

---

[@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