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

　　(@@InPutString @@InPutInteger ) [@开始抢米包] { #IF CheckLevelEx 0 #SAY \ \ \ \ \ \ \ \ $STR(A19)\ \ \ \ \ \ $STR(G22)\ \ \ \ \ \ \ {$STR(A18)/FCOLOR=150}\ {$STR(G23)元宝/FCOLOR=150}\ {$STR(G24)人/FCOLOR=150}\ {$STR(G25)元宝/FCOLOR=150}\ Img:10:1:0:0/@万人领包\ \ \ \ 【我要发米包/@@InPutInteger22(请输入你要发放的米包数目：（一次性醉少发放100元宝米包）)】 $STR(U13)\ #ACT OPENMERCHANTBIGDLG 1 1 1 4 0 0 1 385 6 BREAK [@万人领包] #IF NOT Large G25 0 #ACT MESSAGEBOX $STR(A18)发放的米包没有了，等待下一个发米包的人吧。 BREAK #IF CHECKNAMELIST ..\TxData\限制\已领米包.txt #ACT MESSAGEBOX 你刚刚领取过$STR(A18)发放的米包了。 BREAK #IF Random 30 Large G25 20 #ACT INC G24 1 MOV N$米包中转 $STR(G25) INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt MOVR N$米包金额 1 $STR(N$米包中转) DEC G25 $STR(N$米包金额) GAMEGOLD + $STR(N$米包金额) MESSAGEBOX 恭喜你领取了【$STR(N$米包金额)】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Random 20 Large G25 20 #ACT INC G24 1 MOV N$米包中转 $STR(G25) INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt DIV N$米包中转 2 MOVR N$米包金额 1 $STR(N$米包中转) DEC G25 $STR(N$米包金额) GAMEGOLD + $STR(N$米包金额) MESSAGEBOX 恭喜你领取了【$STR(N$米包金额)】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Random 10 Large G25 20 #ACT INC G24 1 MOV N$米包中转 $STR(G25) INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt DIV N$米包中转 4 MOVR N$米包金额 1 $STR(N$米包中转) DEC G25 $STR(N$米包金额) GAMEGOLD + $STR(N$米包金额) MESSAGEBOX 恭喜你领取了【$STR(N$米包金额)】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Random 5 Large G25 20 #ACT INC G24 1 MOV N$米包中转 $STR(G25) INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt DIV N$米包中转 5 MOVR N$米包金额 1 $STR(N$米包中转) DEC G25 $STR(N$米包金额) GAMEGOLD + $STR(N$米包金额) MESSAGEBOX 恭喜你领取了【$STR(N$米包金额)】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Large G25 20 #ACT INC G24 1 MOV N$米包中转 $STR(G25) INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt MOVR N$米包金额 1 20 DEC G25 $STR(N$米包金额) GAMEGOLD + $STR(N$米包金额) MESSAGEBOX 恭喜你领取了【$STR(N$米包金额)】个元宝的米包！ GOTO @开始抢米包 BREAK #IF Large G25 0 #ACT INC G24 1 MOV N$米包中转 $STR(G25) INC N$米包中转 1 Addnamelist ..\TxData\限制\已领米包.txt MOVR N$米包金额 1 $STR(N$米包中转) DEC G25 $STR(N$米包金额) GAMEGOLD + $STR(N$米包金额) MESSAGEBOX 恭喜你领取了【$STR(N$米包金额)】个元宝的米包！ GOTO @开始抢米包 BREAK [@InPutInteger22] #IF Large G25 0 #ACT MESSAGEBOX $STR(A18)刚刚发放的米包还没被领完，领完你再发吧！\\5分钟内没被领取完的米包将被系统领取哟^_^ MOV N22 0 GOTO @开始抢米包 BREAK #IF Small N22 100 #ACT MESSAGEBOX 发放米包太少了，一次性醉少发放100元宝的米包！ MOV N22 0 GOTO @开始抢米包 BREAK #IF CHECKGAMEGOLD $STR(N22) #ACT MESSAGEBOX 发放米包太少了，一次性醉少发放100以上的元宝米包！ MOV N22 0 GOTO @开始抢米包 BREAK #IF CHECKNAMELIST ..\TxData\限制\万人敬仰.txt #ACT GAMEGOLD - $STR(N22) INC U13 $STR(N22) #ELSEACT Addnamelist ..\TxData\限制\万人敬仰.txt GAMEGOLD - $STR(N22) MOV U13 $STR(N22) #IF CheckLevelEx 0 #ACT MOV A18 $USERNAME MOV G23 $STR(N22) MOV G24 0 MOV G25 $STR(N22) #IF Large U13 $STR(G22) #ACT SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s249:0:1}造福大家，成为了万人敬仰！站在万人敬仰者的周围，每分钟可以获得经验值！ #ELSEACT ClearNameList ..\TxData\限制\已领米包.txt SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s249:0:1}发放了{$STR(N22)249:0:1}个元宝，大家快去{万人敬仰NPC249:0:1}处(盟重省:335:344)领取呀^_^ MESSAGEBOX 你发放了大量的米包，造福大家，努力成为万人敬仰者吧！ GOTO @开始抢米包 BREAK #IF CHECKONLINE $STR(A19) #ACT $STR(A19).ChangeHumAbility 1 = 0 $STR(A19).ChangeHumAbility 2 = 0 $STR(A19).ChangeHumAbility 3 = 0 $STR(A19).ChangeHumAbility 4 = 0 $STR(A19).ChangeHumAbility 11 = 0 $STR(A19).ChangeHumAbility 12 = 0 $STR(A19).CloseClientBuff 20 $STR(A19).SETICON 2 -1 $STR(A19).SETICON 3 -1 #IF NOT EQUAL A19 $USERNAME CHECKONLINE $STR(A19) #ACT $STR(A19).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 $USERNAME MOV G22 $STR(U13) SetNpcImage 99 0 0 ClearNameList ..\TxData\限制\已领米包.txt MESSAGEBOX 你成为【万人敬仰】，世界因你而精彩！ GOTO @开始抢米包 BREAK }