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 我们敬爱的{%s|249:0:1}造福大家，成为了万人敬仰！站在万人敬仰者的周围，每分钟可以获得经验值！ #ELSEACT ClearNameList ..\TxData\限制\已领红包.txt SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}发放了{<$STR(N22)>|249:0:1}个元宝，大家快去{万人敬仰NPC|249: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 }