(@@InPutString @@InPutInteger )[@开始抢红包]{#IFCheckLevelEx > 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)>\#ACTOPENMERCHANTBIGDLG 1 1 1 4 0 0 1 385 6BREAK[@万人领包]#IFNOT Large G25 0#ACTMESSAGEBOX <$STR(A18)>发放的红包没有了,等待下一个发红包的人吧。BREAK#IFCHECKNAMELIST ..\TxData\限制\已领红包.txt#ACTMESSAGEBOX 你刚刚领取过<$STR(A18)>发放的红包了。BREAK#IFRandom 30Large G25 20#ACTINC G24 1MOV N$红包中转 <$STR(G25)>INC N$红包中转 1Addnamelist ..\TxData\限制\已领红包.txtMOVR N$红包金额 1 <$STR(N$红包中转)>DEC G25 <$STR(N$红包金额)>GAMEGOLD + <$STR(N$红包金额)>MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!GOTO @开始抢红包BREAK#IFRandom 20Large G25 20#ACTINC G24 1MOV N$红包中转 <$STR(G25)>INC N$红包中转 1Addnamelist ..\TxData\限制\已领红包.txtDIV N$红包中转 2MOVR N$红包金额 1 <$STR(N$红包中转)>DEC G25 <$STR(N$红包金额)>GAMEGOLD + <$STR(N$红包金额)>MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!GOTO @开始抢红包BREAK#IFRandom 10Large G25 20#ACTINC G24 1MOV N$红包中转 <$STR(G25)>INC N$红包中转 1Addnamelist ..\TxData\限制\已领红包.txtDIV N$红包中转 4MOVR N$红包金额 1 <$STR(N$红包中转)>DEC G25 <$STR(N$红包金额)>GAMEGOLD + <$STR(N$红包金额)>MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!GOTO @开始抢红包BREAK#IFRandom 5Large G25 20#ACTINC G24 1MOV N$红包中转 <$STR(G25)>INC N$红包中转 1Addnamelist ..\TxData\限制\已领红包.txtDIV N$红包中转 5MOVR N$红包金额 1 <$STR(N$红包中转)>DEC G25 <$STR(N$红包金额)>GAMEGOLD + <$STR(N$红包金额)>MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!GOTO @开始抢红包BREAK#IFLarge G25 20#ACTINC G24 1MOV N$红包中转 <$STR(G25)>INC N$红包中转 1Addnamelist ..\TxData\限制\已领红包.txtMOVR N$红包金额 1 20DEC G25 <$STR(N$红包金额)>GAMEGOLD + <$STR(N$红包金额)>MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!GOTO @开始抢红包BREAK#IFLarge G25 0#ACTINC G24 1MOV N$红包中转 <$STR(G25)>INC N$红包中转 1Addnamelist ..\TxData\限制\已领红包.txtMOVR N$红包金额 1 <$STR(N$红包中转)>DEC G25 <$STR(N$红包金额)>GAMEGOLD + <$STR(N$红包金额)>MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!GOTO @开始抢红包BREAK[@InPutInteger22]#IFLarge G25 0#ACTMESSAGEBOX <$STR(A18)>刚刚发放的红包还没被领完,领完你再发吧!\ \5分钟内没被领取完的红包将被系统领取哟^_^MOV N22 0GOTO @开始抢红包BREAK#IFSmall N22 100#ACTMESSAGEBOX 发放红包太少了,一次性最少发放100元宝的红包!MOV N22 0GOTO @开始抢红包BREAK#IFCHECKGAMEGOLD < <$STR(N22)>#ACTMESSAGEBOX 发放红包太少了,一次性最少发放100以上的元宝红包!MOV N22 0GOTO @开始抢红包BREAK#IFCHECKNAMELIST ..\TxData\限制\万人敬仰.txt#ACTGAMEGOLD – <$STR(N22)>INC U13 <$STR(N22)>#ELSEACTAddnamelist ..\TxData\限制\万人敬仰.txtGAMEGOLD – <$STR(N22)>MOV U13 <$STR(N22)>#IFCheckLevelEx > 0#ACTMOV A18 <$USERNAME>MOV G23 <$STR(N22)>MOV G24 0MOV G25 <$STR(N22)>#IFLarge U13 <$STR(G22)>#ACTSendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}造福大家,成为了万人敬仰!站在万人敬仰者的周围,每分钟可以获得经验值!#ELSEACTClearNameList ..\TxData\限制\已领红包.txtSendNewLineMsg 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#IFCHECKONLINE <$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#IFNOT EQUAL A19 <$USERNAME>CHECKONLINE <$STR(A19)>#ACT<$STR(A19)>.SENDMSG 5 你的万人敬仰者头衔被别人抢去了…#IFCheckLevelEx > 0#ACTChangeHumAbility 1 = 10ChangeHumAbility 2 = 30ChangeHumAbility 3 = 10ChangeHumAbility 4 = 30ChangeHumAbility 11 = 1000ChangeHumAbility 12 = 1000SetClientBuff 12 20 157 -1 778 615SetIcon 3 12 240 -5 -76 1 0 1 200SetIcon 2 24 1 -5 -76 15 1 0 200MOV A19 <$USERNAME>MOV G22 <$STR(U13)>SetNpcImage 99 0 0ClearNameList ..\TxData\限制\已领红包.txtMESSAGEBOX 你成为【万人敬仰】,世界因你而精彩!GOTO @开始抢红包BREAK} (责任编辑:传奇精英)