• 手游资讯1

  • 手游资讯2

  • 手游资讯3

  • 手游资讯4

  • 手游资讯5

  • 手游资讯6

  • 手游资讯7

  • 手游资讯8

  • 手游资讯9

  • 手游资讯10

  • 手游资讯11

  • 手游资讯12

  • 手游资讯13

  • 手游资讯14

  • 手游资讯15

  • 手游资讯16

  • 手游资讯17

  • 手游资讯18

  • 手游资讯19

  • 手游资讯20

          您现在的位置:首页 >> 热血传奇网站国际 >> 内容

          gom引擎抢红包脚本

          时间:2018/7/31 14:54:53 点击:

            核心提示:(@@InPutString @@InPutInteger )[@开始抢红包]{#IFCheckLevelEx0#SAY\ \ \ \ \ \ \ \$STR(A19)\ \ \ \ \ \$STR(...
          (@@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

          作者:http://5igao.com 来源:http://5igao.com
          相关_传奇私服评论
          发表我的_传奇私服评论
          • 大名:
          • 内容:
        • 新开1.80传奇sf|1.80英雄合击|合击传奇发布网(5igao.com) © 2018 版权所有 All Rights Reserved.