gm基地提供gom引擎抢红包脚本

(@@InPutString @@InPutInteger ) [@开始抢米包] { #IF CheckLevelEx > 0 #SAY \ \ \ \ \ \ \ \ 　　　　　　　　　　　　　　　　　　\ \ \ \ \ \

　　　　　　　　　　　　　　　　　　　　　 　　　 \ \ \ \ \ \ \ 　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {　/FCOLOR=150}\

　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {元宝/FCOLOR=150}\ 　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {人/FCOLOR=150}\

　　　　　　　　　　　　　　　　　　　　　 　　　 　 　　　 {元宝/FCOLOR=150}\ \ \ \ \ 　　　　　　　　　　【】　　　　 　　　 　 　　　　　　　　　　　　\

#ACT OPENMERCHANTBIGDLG 1 1 1 4  0  0  1  385  6 BREAK [@万人领包] #IF NOT Large G25 0 #ACT MESSAGEBOX 发放的米包没有了，等待下一个发米包的人吧。

BREAK #IF CHECKNAMELIST ..\TxData\限制\已领米包.txt #ACT MESSAGEBOX 你刚刚领取过发放的米包了 BREAK #IF。

Random 30 Large G25 20 #ACT INC G24 1 MOV N$米包中转 INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt

MOVR N$米包金额 1 DEC G25 GAMEGOLD + MESSAGEBOX 恭喜你领取了【】个元宝的米包！

GOTO @开始抢米包 BREAK #IF Random 20 Large G25 20 #ACT INC G24 1 MOV N$米包中转 INC N$米包中转 1

Addnamelist ..\TxData\限制\已领米包.txt DIV N$米包中转 2 MOVR N$米包金额 1 DEC G25

GAMEGOLD + MESSAGEBOX 恭喜你领取了【】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Random 10

Large G25 20 #ACT INC G24 1 MOV N$米包中转 INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt

DIV N$米包中转 4 MOVR N$米包金额 1 DEC G25 GAMEGOLD + MESSAGEBOX 恭喜你领取了【】个元宝的米包！

GOTO @开始抢米包 BREAK #IF Random 5 Large G25 20 #ACT INC G24 1 MOV N$米包中转 INC N$米包中转 1

Addnamelist ..\TxData\限制\已领米包.txt DIV N$米包中转 5 MOVR N$米包金额 1 DEC G25

GAMEGOLD + MESSAGEBOX 恭喜你领取了【】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Large G25 20

#ACT INC G24 1 MOV N$米包中转 INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt MOVR N$米包金额 1 20

DEC G25 GAMEGOLD + MESSAGEBOX 恭喜你领取了【】个元宝的米包！ GOTO @开始抢米包

BREAK #IF Large G25 0 #ACT INC G24 1 MOV N$米包中转 INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt

MOVR N$米包金额 1 DEC G25 GAMEGOLD + MESSAGEBOX 恭喜你领取了【】个元宝的米包！

GOTO @开始抢米包 BREAK [@InPutInteger22] #IF Large G25 0 #ACT MESSAGEBOX 刚刚发放的米包还没被领完，领完你再发吧！\　\5分钟内没被领取完的米包将被系统领取哟^_^

MOV N22 0 GOTO @开始抢米包 BREAK #IF Small N22 100 #ACT MESSAGEBOX 发放米包太少了，一次性醉少发放100元宝的米包！ MOV N22 0

GOTO @开始抢米包 BREAK #IF CHECKGAMEGOLD < #ACT MESSAGEBOX 发放米包太少了，一次性醉少发放100以上的元宝米包！ MOV N22 0

GOTO @开始抢米包 BREAK #IF CHECKNAMELIST ..\TxData\限制\万人敬仰.txt #ACT GAMEGOLD – INC U13

#ELSEACT Addnamelist ..\TxData\限制\万人敬仰.txt GAMEGOLD – MOV U13 #IF CheckLevelEx > 0

#ACT MOV A18 MOV G23 MOV G24 0 MOV G25 #IF Large U13

#ACT SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}造福大家，成为了万人敬仰！站在万人敬仰者的周围，每分钟可以获得经验值！ #ELSEACT

ClearNameList ..\TxData\限制\已领米包.txt SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}发放了{|249:0:1}个元宝，大家快去{万人敬仰NPC|249:0:1}处(盟重省:335:344)领取呀^_^

MESSAGEBOX 你发放了大量的米包，造福大家，努力成为万人敬仰者吧！ GOTO @开始抢米包 BREAK #IF CHECKONLINE #ACT .ChangeHumAbility 1 = 0

.ChangeHumAbility 2 = 0 .ChangeHumAbility 3 = 0 .ChangeHumAbility 4 = 0

.ChangeHumAbility 11 = 0 .ChangeHumAbility 12 = 0 .CloseClientBuff 20

.SETICON 2 -1 .SETICON 3 -1 #IF NOT EQUAL A19 CHECKONLINE

#ACT .SENDMSG 5 你的万人敬仰者头衔被别人抢去了… #IF CheckLevelEx > 0 #ACT ChangeHumAbility 1 = 10

ChangeHumAbility 2 = 30 ChangeHumAbility 3 = 10 ChangeHumAbility 4 = 30 ChangeHumAbility 11 = 1000

ChangeHumAbility 12 = 1000 SetClientBuff 12 20 157 -1 778 615 SetIcon 3 12 240 -5 -76 1 0 1 200 SetIcon 2 24 1 -5 -76 15 1 0 200

MOV A19 MOV G22 SetNpcImage 99 0 0 ClearNameList ..\TxData\限制\已领米包.txt MESSAGEBOX 你成为【万人敬仰】，世界因你而精彩！

GOTO @开始抢米包 BREAK }