藏宝游传奇

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 111|回复: 0

[游戏修改] gom引擎抢红包脚本

[复制链接]
  • TA的每日心情
    开心
    2020-12-29 20:57
  • 签到天数: 3 天

    [LV.2]圆转纯熟

    4332

    主题

    4336

    帖子

    24万

    积分

    超级版主

    Rank: 8Rank: 8

    积分
    247476
    发表于 2020-2-27 21:40:26 | 显示全部楼层 |阅读模式
    1. (@@InPutString @@InPutInteger )

    2. [@开始抢红包]
    3. {
    4. #IF
    5. CheckLevelEx > 0
    6. #SAY
    7. \ \ \ \ \ \ \ \

    8.                   <$STR(A19)>\ \ \ \ \ \
    9.                           <$STR(G22)>\ \ \ \ \ \ \
    10.                                 {<$STR(A18)> /FCOLOR=150}\
    11.                                 {<$STR(G23)>元宝/FCOLOR=150}\
    12.                                 {<$STR(G24)>人/FCOLOR=150}\
    13.                                 {<$STR(G25)>元宝/FCOLOR=150}\
    14. <Img:10:1:0:0/@万人领包>\ \ \ \


    15.           【<我要发红包/@@InPutInteger22(请输入你要发放的红包数目:(一次性最少发放100元宝红包))>】                       <$STR(U13)>\
    16. #ACT
    17. OPENMERCHANTBIGDLG 1 1 1 4  0  0  1  385  6
    18. BREAK



    19. [@万人领包]
    20. #IF
    21. NOT Large G25 0
    22. #ACT
    23. MESSAGEBOX <$STR(A18)>发放的红包没有了,等待下一个发红包的人吧。
    24. BREAK

    25. #IF
    26. CHECKNAMELIST ..\TxData\限制\已领红包.txt
    27. #ACT
    28. MESSAGEBOX 你刚刚领取过<$STR(A18)>发放的红包了。
    29. BREAK

    30. #IF
    31. Random 30
    32. Large G25 20
    33. #ACT
    34. INC G24 1
    35. MOV N$红包中转 <$STR(G25)>
    36. INC N$红包中转 1
    37. Addnamelist ..\TxData\限制\已领红包.txt
    38. MOVR N$红包金额 1 <$STR(N$红包中转)>
    39. DEC G25 <$STR(N$红包金额)>
    40. GAMEGOLD + <$STR(N$红包金额)>
    41. MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!
    42. GOTO @开始抢红包
    43. BREAK

    44. #IF
    45. Random 20
    46. Large G25 20
    47. #ACT
    48. INC G24 1
    49. MOV N$红包中转 <$STR(G25)>
    50. INC N$红包中转 1
    51. Addnamelist ..\TxData\限制\已领红包.txt
    52. DIV N$红包中转 2
    53. MOVR N$红包金额 1 <$STR(N$红包中转)>
    54. DEC G25 <$STR(N$红包金额)>
    55. GAMEGOLD + <$STR(N$红包金额)>
    56. MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!
    57. GOTO @开始抢红包
    58. BREAK

    59. #IF
    60. Random 10
    61. Large G25 20
    62. #ACT
    63. INC G24 1
    64. MOV N$红包中转 <$STR(G25)>
    65. INC N$红包中转 1
    66. Addnamelist ..\TxData\限制\已领红包.txt
    67. DIV N$红包中转 4
    68. MOVR N$红包金额 1 <$STR(N$红包中转)>
    69. DEC G25 <$STR(N$红包金额)>
    70. GAMEGOLD + <$STR(N$红包金额)>
    71. MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!
    72. GOTO @开始抢红包
    73. BREAK

    74. #IF
    75. Random 5
    76. Large G25 20
    77. #ACT
    78. INC G24 1
    79. MOV N$红包中转 <$STR(G25)>
    80. INC N$红包中转 1
    81. Addnamelist ..\TxData\限制\已领红包.txt
    82. DIV N$红包中转 5
    83. MOVR N$红包金额 1 <$STR(N$红包中转)>
    84. DEC G25 <$STR(N$红包金额)>
    85. GAMEGOLD + <$STR(N$红包金额)>
    86. MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!
    87. GOTO @开始抢红包
    88. BREAK

    89. #IF
    90. Large G25 20
    91. #ACT
    92. INC G24 1
    93. MOV N$红包中转 <$STR(G25)>
    94. INC N$红包中转 1
    95. Addnamelist ..\TxData\限制\已领红包.txt
    96. MOVR N$红包金额 1 20
    97. DEC G25 <$STR(N$红包金额)>
    98. GAMEGOLD + <$STR(N$红包金额)>
    99. MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!
    100. GOTO @开始抢红包
    101. BREAK

    102. #IF
    103. Large G25 0
    104. #ACT
    105. INC G24 1
    106. MOV N$红包中转 <$STR(G25)>
    107. INC N$红包中转 1
    108. Addnamelist ..\TxData\限制\已领红包.txt
    109. MOVR N$红包金额 1 <$STR(N$红包中转)>
    110. DEC G25 <$STR(N$红包金额)>
    111. GAMEGOLD + <$STR(N$红包金额)>
    112. MESSAGEBOX 恭喜你领取了【<$STR(N$红包金额)>】个元宝的红包!
    113. GOTO @开始抢红包
    114. BREAK



    115. [@InPutInteger22]
    116. #IF
    117. Large G25 0
    118. #ACT
    119. MESSAGEBOX <$STR(A18)>刚刚发放的红包还没被领完,领完你再发吧!\ \5分钟内没被领取完的红包将被系统领取哟^_^
    120. MOV N22 0
    121. GOTO @开始抢红包
    122. BREAK

    123. #IF
    124. Small N22 100
    125. #ACT
    126. MESSAGEBOX 发放红包太少了,一次性最少发放100元宝的红包!
    127. MOV N22 0
    128. GOTO @开始抢红包
    129. BREAK

    130. #IF
    131. CHECKGAMEGOLD < <$STR(N22)>
    132. #ACT
    133. MESSAGEBOX 发放红包太少了,一次性最少发放100以上的元宝红包!
    134. MOV N22 0
    135. GOTO @开始抢红包
    136. BREAK

    137. #IF
    138. CHECKNAMELIST ..\TxData\限制\万人敬仰.txt
    139. #ACT
    140. GAMEGOLD - <$STR(N22)>
    141. INC U13 <$STR(N22)>
    142. #ELSEACT
    143. Addnamelist ..\TxData\限制\万人敬仰.txt
    144. GAMEGOLD - <$STR(N22)>
    145. MOV U13 <$STR(N22)>

    146. #IF
    147. CheckLevelEx > 0
    148. #ACT
    149. MOV A18 <$USERNAME>
    150. MOV G23 <$STR(N22)>
    151. MOV G24 0
    152. MOV G25 <$STR(N22)>

    153. #IF
    154. Large U13 <$STR(G22)>
    155. #ACT
    156. SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}造福大家,成为了万人敬仰!站在万人敬仰者的周围,每分钟可以获得经验值!
    157. #ELSEACT
    158. ClearNameList ..\TxData\限制\已领红包.txt
    159. SendNewLineMsg 0 251 0 12 250 10 1 我们敬爱的{%s|249:0:1}发放了{<$STR(N22)>|249:0:1}个元宝,大家快去{万人敬仰NPC|249:0:1}处(盟重省:335:344)领取呀^_^
    160. MESSAGEBOX 你发放了大量的红包,造福大家,努力成为万人敬仰者吧!
    161. GOTO @开始抢红包
    162. BREAK

    163. #IF
    164. CHECKONLINE <$STR(A19)>
    165. #ACT
    166. <$STR(A19)>.ChangeHumAbility 1 = 0
    167. <$STR(A19)>.ChangeHumAbility 2 = 0
    168. <$STR(A19)>.ChangeHumAbility 3 = 0
    169. <$STR(A19)>.ChangeHumAbility 4 = 0
    170. <$STR(A19)>.ChangeHumAbility 11 = 0
    171. <$STR(A19)>.ChangeHumAbility 12 = 0
    172. <$STR(A19)>.CloseClientBuff 20
    173. <$STR(A19)>.SETICON 2 -1
    174. <$STR(A19)>.SETICON 3 -1

    175. #IF
    176. NOT EQUAL A19 <$USERNAME>
    177. CHECKONLINE <$STR(A19)>
    178. #ACT
    179. <$STR(A19)>.SENDMSG 5 你的万人敬仰者头衔被别人抢去了...

    180. #IF
    181. CheckLevelEx > 0
    182. #ACT
    183. ChangeHumAbility 1 = 10
    184. ChangeHumAbility 2 = 30
    185. ChangeHumAbility 3 = 10
    186. ChangeHumAbility 4 = 30
    187. ChangeHumAbility 11 = 1000
    188. ChangeHumAbility 12 = 1000
    189. SetClientBuff 12 20 157 -1 778 615
    190. SetIcon 3 12 240 -5 -76 1 0 1 200
    191. SetIcon 2 24 1 -5 -76 15 1 0 200
    192. MOV A19 <$USERNAME>
    193. MOV G22 <$STR(U13)>
    194. SetNpcImage 99 0 0
    195. ClearNameList ..\TxData\限制\已领红包.txt
    196. MESSAGEBOX 你成为【万人敬仰】,世界因你而精彩!
    197. GOTO @开始抢红包
    198. BREAK
    199. }
    复制代码


    回复

    使用道具 举报

    Archiver|手机版|小黑屋|藏宝游

    GMT+8, 2021-5-14 06:05 , Processed in 0.050641 second(s), 22 queries .

    Powered by Discuz! X3.4

    Copyright © 2001-2020, Tencent Cloud.

    快速回复 返回顶部 返回列表