脚本：lua外部对接

360M2

NPC脚本

1. #if
   
2. #act
   
3. SET [1008] 1
   
4. MOV S$模式 1011
   
5. MOV S$发送数据 <$useraccount>
   
6. #CALL [360M2\2892.txt] @360M2_2892

复制代码

1. [@360M2_2892]
   
2. {
   
3. 
   
4. #OR
   
5. #ACT
   
6. MOV S$是否回调 0
   
7. 
   
8. #OR
   
9. ;转区金币确认
   
10. EQUAL S$模式 999
    
11. 
    
12. 
    
13. ;客服管理 1 读取
    
14. EQUAL S$模式 1001
    
15. 
    
16. 
    
17. ;转区货币ID 1 读取
    
18. EQUAL S$模式 1011
    
19. 
    
20. ;转区货币ID 1 增加
    
21. EQUAL S$模式 1012
    
22. 
    
23. ;转区货币ID 1 领取
    
24. EQUAL S$模式 1013
    
25. 
    
26. #ACT
    
27. MOV S$是否回调 1
    
28. 
    
29. #IF
    
30. #ACT
    
31. ;不需要回调填0 需要回调填1
    
32. MOV S$网址 wq.360m2.com/996/index.php?uid=1241&pass=Ph85h2m
    
33. MOV S$记录时间 <$MONTH>月<$DAY>日
    
34. SendCustMsg 200<$STR(S$是否回调)> {"网址":"<$STR(S$网址)>","模式":"<$STR(S$模式)>","时间":"<$STR(S$记录时间)>","分区名":"<$SERVERNAME>","发送数据":"<$STR(S$发送数据)>"}
    
35. 
    
36. 
    
37. 
    
38. 
    
39. 
    
40. 
    
41. 
    
42. 
    
43. }

复制代码

1. ;；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；金币转区开始
   
2. ;读取
   
3. #IF
   
4. CHECKCONTAINSTEXT <$CUSTMSGPARAM> zhuanqu_1|
   
5. CHECK [1008] 1
   
6. #ACT
   
7. SET [1008] 0
   
8. #CALL [360M2\金币转区_2895.txt] @转区_金币
   
9. break
   
10. ;写入
    
11. #IF
    
12. CHECKCONTAINSTEXT <$CUSTMSGPARAM> zhuanqu_1|
    
13. CHECK [1009] 1
    
14. #ACT
    
15. SET [1009] 0
    
16. #CALL [360M2\金币转区_2895.txt] @转区_金币_写入
    
17. break
    
18. 
    
19. ;领取
    
20. #IF
    
21. CHECKCONTAINSTEXT <$CUSTMSGPARAM> zhuanqu_1|
    
22. CHECK [1010] 1
    
23. #ACT
    
24. SET [1010] 0
    
25. #CALL [360M2\金币转区_2895.txt] @转区_金币_领取
    
26. break
    
27. 
    
28. ;；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；金币转区结束

复制代码

1. [@转区_金币]
   
2. {
   
3. ;#if
   
4. ;EQUAL <$GETSTRVALUE(T20,GS)> 1
   
5. ;#act
   
6. ;break
   
7. 
   
8. 
   
9. #if
   
10. #act
    
11. MOV S$转区数据调取 <$CUSTMSGPARAM>
    
12. DEC S$转区数据调取 zhuanqu_1|
    
13. MOV N$新的转区 0
    
14. MOV N$新的转区 <$STR(S$转区数据调取)>
    
15. #SAY
    
16. 
    
17. <Img|move=1|img=custom/360m2/zq/2222.png|loadDelay=1|reset=0|bg=1|show=4>
    
18. <Layout|x=488.0|y=2.0|width=80|height=80|link=@exit>
    
19. <Button|x=506.0|y=15.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
    
20. <Text|x=150.0|y=45.0|color=255|size=18|text=[ $STM(MONEY_1) ]>
    
21. <Text|x=407.0|y=47.0|color=255|size=18|text=[ <$STR(N$新的转区)> ]>
    
22. <Button|x=58.0|y=301.0|submitInput=1|nimg=custom/360m2/zq/11.png|color=255|size=18|link=@转区_金币_写入_启动>
    
23. <Button|x=366.0|y=297.0|color=255|size=18|nimg=custom/360m2/zq/33.png|link=@转区_金币_提取_启动>
    
24. <Input|ax=0|x=144.0|y=232.0|width=100|height=25|place=输入转出金币|color=255|type=1|inputid=1|size=16>
    
25. <Text|x=94.0|y=273.0|color=251|size=18|text=领取转区金币务必先找宣传奖励里的客服审核>
    
26. <$STR(S$GS客服补发)>
    
27. 
    
28. [@INPUTINTEGER30]
    
29. #if
    
30. NOT EQUAL N30 901219
    
31. #act
    
32. SENDMSG 9 密码错误
    
33. break
    
34. 
    
35. #if
    
36. #say
    
37. <Img|loadDelay=1|img=public/bg_npc_01.png|move=0|reset=1|bg=1|show=0>
    
38. <Layout|x=545|y=0|width=80|height=80|link=@exit>
    
39. <Button|x=546|y=0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
    
40. <Text|x=93.0|y=51.0|color=255|size=18|text=输入唯一账号：>
    
41. <Text|x=91.0|y=91.0|color=255|size=18|text=输入转区金额：>
    
42. <Text|x=200.0|y=136.0|color=251|size=18|submitInput=1,2|text=确认提交转区||link=@确认_客服_加入转区>
    
43. <Input|x=215.0|y=48.0|width=100|height=25|type=1|size=16|inputid=1|color=255|place=输入唯一账号>
    
44. <Input|x=214.0|y=86.0|width=100|height=25|type=1|size=16|inputid=2|color=255|place=输入转区金额>
    
45. 
    
46. [@确认_客服_加入转区]
    
47. #if
    
48. #act
    
49. MOV S$模式 999
    
50. MOV S$发送数据 <$NPCINPUT(1)>|<$NPCINPUT(2)>
    
51. MOV S$补发账号 <$NPCINPUT(1)>
    
52. MOV S$补发金额 <$NPCINPUT(2)>
    
53. #CALL [360M2\2892.txt] @360M2_2892
    
54. SENDMSG 9 系统执行中，请稍后
    
55. 
    
56. 
    
57. [@转区_金币_提取_启动]
    
58. #IF
    
59. SMALL N$新的转区 1
    
60. #ACT
    
61. SENDMSG 9 你没有可领取的转区金币
    
62. break
    
63. 
    
64. #if
    
65. #act
    
66. MOV S$转区领取金币 0
    
67. GETLISTSTRING ..\QUESTDIARY\转区账号数据\<$useraccount>.txt 0 S$转区领取金币
    
68. 
    
69. #OR
    
70. SMALL <$STR(S$转区领取金币)> 1
    
71. EQUAL S$转区领取金币
    
72. #act
    
73. SENDMSG 9 客服没有审核你的金币，或者你已经领取过了
    
74. break
    
75. 
    
76. #IF
    
77. NOT EQUAL S$转区领取金币 <$STR(N$新的转区)>
    
78. #ACT
    
79. SENDMSG 9 客服没有审核你的金币，或者你已经领取过了
    
80. break
    
81. 
    
82. #if
    
83. #act
    
84. SET [1010] 1
    
85. MOV S$模式 1013
    
86. MOV S$发送数据 <$useraccount>|<$USERNAME>
    
87. #CALL [360M2\2892.txt] @360M2_2892
    
88. CLOSE
    
89. SENDMSG 9 系统执行中，请稍后
    
90. 
    
91. 
    
92. [@转区_金币_写入_启动]
    
93. #OR
    
94. EQUAL <$NPCINPUT(1)>
    
95. SMALL <$NPCINPUT(1)> 1000
    
96. #ACT
    
97. SENDMSG 9 每次至少转出1000金币
    
98. break
    
99. 
    
100. #IF
     
101. #ACT
     
102. MOV N$扣除金额 <$NPCINPUT(1)>
     
103. MUL N$扣除金额 110
     
104. DIV N$扣除金额 100
     
105. 
     
106. #IF
     
107. CHECKMONEY 金币 < <$STR(N$扣除金额)>
     
108. #ACT
     
109. SENDMSG 9 提取<$NPCINPUT(1)>金币，需要扣除<$STR(N$扣除金额)>金币,你没有这么多金币
     
110. break
     
111. 
     
112. #IF
     
113. #ACT
     
114. messagebox 你即将扣除<$STR(N$扣除金额)>金币，获得<$NPCINPUT(1)>转区金币\\是否确认操作 @确定提交转区_金币 @EXIT
     
115. 
     
116. [@确定提交转区_金币]
     
117. #IF
     
118. NOT CHECKMONEY 金币 < <$STR(N$扣除金额)>
     
119. #ACT
     
120. MOV N$转区获取金币_ <$NPCINPUT(1)>
     
121. SENDMSG 9 系统执行中，请稍后
     
122. 
     
123. 
     
124. SET [1009] 1
     
125. MOV S$模式 1012
     
126. MOV S$发送数据 <$useraccount>|<$STR(N$扣除金额)>|<$STR(N$转区获取金币_)>|<$USERNAME>
     
127. #CALL [360M2\2892.txt] @360M2_2892
     
128. 
     
129. CLOSE
     
130. break
     
131. 
     
132. 
     
133. 
     
134. 
     
135. 
     
136. 
     
137. 
     
138. 
     
139. }
     
140. [@转区_金币_写入]
     
141. {
     
142. 
     
143. #IF
     
144. #ACT
     
145. MOV S$转区数据调取 <$CUSTMSGPARAM>
     
146. DEC S$转区数据调取 zhuanqu_1|
     
147. getvalidstrsuper <$STR(S$转区数据调取)> # S$金币转区 N$金币转区
     
148. MONEY 金币 - <$STR(S$金币转区1)>
     
149. SENDMSG 9 恭喜你增加【<$STR(S$金币转区2)>】金币转区
     
150. SET [1008] 1
     
151. MOV S$模式 1011
     
152. MOV S$发送数据 <$useraccount>
     
153. #CALL [360M2\2892.txt] @360M2_2892
     
154. 
     
155. 
     
156. }
     
157. [@转区_金币_领取]
     
158. {
     
159. 
     
160. #IF
     
161. #ACT
     
162. MOV S$转区数据调取 <$CUSTMSGPARAM>
     
163. DEC S$转区数据调取 zhuanqu_1|
     
164. MOV N$获取金币 <$STR(S$转区数据调取)>
     
165. 
     
166. 
     
167. MOV S$转区领取金币 0
     
168. GETLISTSTRING ..\QUESTDIARY\转区账号数据\<$useraccount>.txt 0 S$转区领取金币
     
169. 
     
170. #OR
     
171. SMALL <$STR(S$转区领取金币)> 1
     
172. EQUAL S$转区领取金币
     
173. #act
     
174. SENDMSG 9 客服没有审核你的金币，或者你已经领取过了
     
175. break
     
176. 
     
177. #IF
     
178. NOT EQUAL S$转区领取金币 <$STR(S$转区数据调取)>
     
179. #ACT
     
180. SENDMSG 9 客服没有审核你的金币，或者你已经领取过了
     
181. break
     
182. 
     
183. #IF
     
184. LARGE N$获取金币 0
     
185. #ACT
     
186. CLEARNAMELIST ..\QUESTDIARY\转区账号数据\<$useraccount>.txt
     
187. MONEY 金币 + <$STR(N$获取金币)>
     
188. SENDMSG 9 恭喜你成功领取【<$STR(N$获取金币)>】金币
     
189. SET [1008] 1
     
190. MOV S$模式 1011
     
191. MOV S$发送数据 <$useraccount>
     
192. #CALL [360M2\2892.txt] @360M2_2892
     
193. 
     
194. 
     
195. 
     
196. }

复制代码

模式编号 1000
封号 封角色 GS 主播
登录触发

1. MOV S$模式 1000
   
2. LeftStr <$USERID> 15 S$获取字符串
   
3. MOV S$封禁字符串 <$USERID>
   
4. dec S$封禁字符串 <$STR(S$获取字符串)>
   
5. MOV S$发送数据 <$useraccount>|<$STR(S$封禁字符串)>
   
6. #CALL [360M2\2892.txt] @360M2_2892

复制代码

模式编号 1001管理员游戏命令触发

1. MOV S$模式 1001
   
2. MOV S$发送数据 <$useraccount>
   
3. #CALL [360M2\2892.txt] @360M2_2892

复制代码