API tools faq
paste
Advertisement
imperiius

Untitled

imperiius
Jul 25th, 2021
149
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 31.54 KB | None | 0 0
raw download clone embed print report
  1. $${
  2. if(anuncio);
  3. unset(anuncio);
  4. unset(start_anunciar_msg);
  5. log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");
  6. stop;
  7. else;
  8. set(anuncio);
  9. set(&novo_anuncio,"");
  10. set(&chat,"");
  11. set(&esc_op_1,"");
  12. set(&chat_log,"");
  13. set(&cor_padrao,"");
  14. set(#cronometro,0);
  15. set(&salvar_msg,"");
  16. set(&anunciar_msg,"");
  17. set(&array_to_string,"");
  18. set(#array_size,"");
  19. set(#index_array,"");
  20. set(&array_to_string,"");
  21. set(&string_guardar,"");
  22. set(&string_auxiliar,"");
  23. set(&array_to_string_ativo,"");
  24. unset(adicionar_anuncio_ativo);
  25. unset(remover_anuncio_ativo);
  26. unset(start_anunciar_msg);
  27. unset(salvar);
  28. unset(confirmado);
  29. unset(criar_anuncio);
  30. unset(deletar_anuncio);
  31. unset(editar_anuncio);
  32. unset(anuncios_ativos);
  33. unset(msg_ja_ativa);
  34. unset(@&array_temp[]);
  35. unset(voltar);
  36. log("&6&l[MACRO] &dMacro de Anuncios §2§lLigada");
  37. IF((KEY_LCONTROL)||(KEY_RCONTROL));
  38. if(@#delay <= 0);
  39. set(@#delay,300);
  40. endif;
  41.  
  42. do;
  43. do;
  44. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  45. prompt(&esc_op_1,"$$[Resposta[§6§lOque quer fazer?,,§f-> §2§lCriar Anuncio,§f-> §c§lDeletar Anuncio,§f-> §e§lEditar Anuncio,§f-> §d§lAnuncios ativos,§f-> §5§lIniciar Anuncios,,§f-> §f§lDelay: %@#delay% segundos,,§f-> §4§lSAIR,,,§d§lCRIADOR DA MACRO:,§6§l imperiius]]","");
  46. ifmatches(%&esc_op_1%,"-> "); match(%&esc_op_1%,"-> (.*)",{&esc_op_1});log(%&esc_op_1%);endif;
  47. ifmatches(%&esc_op_1%,"SAIR");log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  48. ifmatches(%&esc_op_1%,"Criar");set(criar_anuncio);unset(deletar_anuncio);unset(editar_anuncio);unset(anuncios_ativos);unset(delay_change);unset(start_anunciar_msg);break;endif;
  49. ifmatches(%&esc_op_1%,"Deletar");set(deletar_anuncio);unset(criar_anuncio);unset(editar_anuncio);unset(anuncios_ativos);unset(delay_change);unset(start_anunciar_msg);break;endif;
  50. ifmatches(%&esc_op_1%,"Editar");set(editar_anuncio);unset(deletar_anuncio);unset(criar_anuncio);unset(anuncios_ativos);unset(delay_change);unset(start_anunciar_msg);break;endif;
  51. ifmatches(%&esc_op_1%,"Anuncios ativos");set(anuncios_ativos);unset(editar_anuncio);unset(deletar_anuncio);unset(criar_anuncio);unset(delay_change);unset(start_anunciar_msg);break;endif;
  52. ifmatches(%&esc_op_1%,"Iniciar Anuncios");set(start_anunciar_msg);unset(anuncios_ativos);unset(editar_anuncio);unset(deletar_anuncio);unset(criar_anuncio);unset(delay_change);break;endif;
  53. ifmatches(%&esc_op_1%,"Delay");set(delay_change);unset(start_anunciar_msg);unset(anuncios_ativos);unset(editar_anuncio);unset(deletar_anuncio);unset(criar_anuncio);break;endif;
  54. loop;
  55.  
  56. if(criar_anuncio);
  57. do;
  58. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  59. prompt(&chat, "$$[Resposta[§6§lQual chat,§6§lvai utilizar?,,§f-> §a§lAnuncio,§f-> §e§lMegafone,§f-> §7§lGlobal]]","");
  60. ifmatches(%&chat%,"-> "); match(%&chat%,"-> (.*)",{&chat});log(%&chat%);endif;
  61. ifmatches(%&chat%,"Anuncio");set(&chat,"/a");set(&chat_log,"&a[A]");set(&cor_padrao,"&a");break;endif;
  62. ifmatches(%&chat%,"Global");set(&chat,"/g");set(&chat_log,"&7[G]");set(&cor_padrao,"&7");break;endif;
  63. ifmatches(%&chat%,"Megafone");set(&chat,"/mf");set(&chat_log,"&e&l[MEGAFONE]");set(&cor_padrao,"&e");break;endif;
  64. loop;
  65. do;
  66. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  67. prompt(&novo_anuncio,$$?,"Escreva a sua nova mensagem. (Deixe em branco para cancelar)");
  68. do;while(KEY_RETURN);
  69. if(&novo_anuncio == "");
  70. log("&6&l[MACRO] &fMensagem em branco.");
  71. set(voltar);
  72. break;
  73. endif;
  74. log("&6&l[MACRO] &e&lSeu novo anuncio ficara assim: ");
  75. log("%&chat_log% &f%PLAYER%: %&cor_padrao%%&novo_anuncio%");
  76. log("&6&l[MACRO] &ePrecione &2&lENTER &epara confirmar.");
  77. log("&6&l[MACRO] &ePrecione &c&lBACKSPACE &epara voltar.");
  78. set(#cronometro,0);
  79. do;
  80. if(KEY_RETURN);
  81. put(@&lista_msg[],"%&chat% %&novo_anuncio%");
  82. set(confirmado);
  83. break;
  84. endif;
  85. if(KEY_BACK);
  86. unset(confirmado);
  87. break;
  88. endif;
  89. inc(#cronometro,1);
  90. if(#cronometro>=300);
  91. log("&6&l[MACRO] &e&lSeu novo anuncio ficara assim: ");
  92. log("%&chat_log% &f%PLAYER%: %&cor_padrao%%&novo_anuncio%");
  93. log("&6&l[MACRO] &dPrecione &2&lENTER para confirmar.");
  94. log("&6&l[MACRO] &dPrecione &c&lBACKSPACE para voltar.");
  95. set(#cronometro,0);
  96. endif;
  97. loop;
  98. until(confirmado);
  99. if(%&novo_anuncio% != "");
  100. set(#cronometro,0);
  101. do;
  102. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  103. prompt(&salvar_msg,"$$[Resposta[§6§lDeseja deixar este,§6§lanuncio ativo?,,§f-> §2§lSIM,§f-> §c§lNAO]]","");
  104. ifmatches(%&salvar_msg%,"-> "); match(%&salvar_msg%,"-> (.*)",{&salvar_msg});log(%&salvar_msg%);endif;
  105. ifmatches(%&salvar_msg%,"SIM");set(salvar);break;endif;
  106. ifmatches(%&salvar_msg%,"NAO");unset(salvar);break;endif;
  107. loop;
  108. if(salvar);
  109. put(@&lista_msg_ativos[],"%&chat% %&novo_anuncio%");
  110. endif;
  111. do;
  112. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  113. prompt(&anunciar_msg,"$$[Resposta[§6§lDeseja começar a,§6§lanunciar agora ?,,§f-> §2§lSIM,§f-> §c§lNAO]]","");
  114. ifmatches(%&anunciar_msg%,"-> "); match(&anunciar_msg,"-> (.*)",{&anunciar_msg});log(%&anunciar_msg%);endif;
  115. ifmatches(%&anunciar_msg%,"SIM");set(start_anunciar_msg);break;endif;
  116. ifmatches(%&anunciar_msg%,"NAO");unset(start_anunciar_msg);break;endif;
  117. loop;
  118. endif;
  119. endif;
  120. if(deletar_anuncio);
  121. do;
  122. set(&array_to_string,"");
  123. set(&array_to_string_ativo,"");
  124. set(&string_guardar,"");
  125. set(&string_auxiliar,"");
  126. set(&string_guardar2,"");
  127. unset(ativo);
  128. foreach(@&lista_msg,&string_guardar);
  129. if(%&string_guardar% != "");
  130. foreach(@&lista_msg_ativos,&string_guardar2);
  131. if(%&string_guardar2% == %&string_guardar%);
  132. set(ativo);
  133. set(&string_auxiliar2,"%&string_guardar2%");
  134. replace(&string_auxiliar2,"&","§");
  135. replace(&string_auxiliar2,",","'");
  136. replace(&string_auxiliar2,"$","(?)");
  137. replace(&string_auxiliar2,"[","{");
  138. replace(&string_auxiliar2,"]","}");
  139. set(&array_to_string_ativo,"%&array_to_string_ativo%%&string_auxiliar2%,");
  140. break;
  141. endif;
  142. next;
  143. if(!(ativo));
  144. set(&string_auxiliar,"%&string_guardar%");
  145. replace(&string_auxiliar,"&","§");
  146. replace(&string_auxiliar,",","'");
  147. replace(&string_auxiliar,"$","(?)");
  148. replace(&string_auxiliar,"[","{");
  149. replace(&string_auxiliar,"]","}");
  150. set(&array_to_string,"%&array_to_string%%&string_auxiliar%,");
  151. endif;
  152. endif;
  153. unset(ativo);
  154. next;
  155.  
  156.  
  157. do;
  158. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  159. prompt(&msg_delete,"$$[Resposta[§6§lQual Mensagem,§6§lQuer Deletar?,,§2§lATIVADOS,%&array_to_string_ativo%,§4§lDESATIVADOS,%&array_to_string%,§f-> §c§lSAIR,§f-> §e§lVOLTAR]]","");
  160. replace(&msg_delete,"§","&");
  161. replace(&msg_delete,"'",",");
  162. replace(&msg_delete,"(?)","$");
  163. replace(&msg_delete,"{","[");
  164. replace(&msg_delete,"}","]");
  165. INDEXOF(@&lista_msg,#index_array,"%&msg_delete%");
  166.  
  167. if(#index_array > -1);
  168. break;
  169. endif;
  170. ifmatches(%&msg_delete%,"SAIR");
  171. log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;
  172. endif;
  173. ifmatches(%&msg_delete%,"VOLTAR");
  174. set(voltar);
  175. break;
  176. endif;
  177. loop;
  178. if(voltar);
  179. unset(voltar);
  180. break;
  181. endif;
  182. do;
  183. set(&string_prompt,"%&msg_delete%");
  184. replace(&string_prompt,"&","§");
  185. replace(&string_prompt,",","'");
  186. replace(&string_prompt,"$","(?)");
  187. replace(&string_prompt,"[","{");
  188. replace(&string_prompt,"]","}");
  189. prompt(&conf_delete,"$$[Resposta[§6§lDeletar este,§6§lanuncio ?,,%&string_prompt%,,§f-> §2§lSIM,§f-> §c§lNAO]]","");
  190. ifmatches(%&conf_delete%,"-> "); match(&&conf_delete,"-> (.*)",{&conf_delete});log(%&conf_delete%);endif;
  191. ifmatches(%&conf_delete%,"SIM");set(confirm_delete);break;endif;
  192. ifmatches(%&conf_delete%,"NAO");unset(confirm_delete);break;endif;
  193. loop;
  194. if(confirm_delete);
  195. INDEXOF(@&lista_msg,#index_array,"%&msg_delete%");
  196. unset(@&lista_msg[%#index_array%]);
  197. unset(@&array_temp[]);
  198. set(&string_guardar,"");
  199. foreach(@&lista_msg,&string_guardar);
  200. if(%&string_guardar% != "");
  201. put(@&array_temp,"%&string_guardar%");
  202. endif;
  203. next;
  204. unset(@&lista_msg[]);
  205. set(&string_guardar,"");
  206. foreach(@&array_temp,&string_guardar);
  207. put(@&lista_msg,"%&string_guardar%");
  208. next;
  209. unset(#index_array);
  210. unset(@&array_temp);
  211. set(&string_auxiliar,"");
  212. set(&string_guardar,"");
  213. INDEXOF(@&lista_msg_ativos,#index_array,"%&msg_delete%");
  214. unset(@&lista_msg_ativos[%#index_array%]);
  215. unset(@&array_temp[]);
  216. set(&string_guardar,"");
  217. foreach(@&lista_msg_ativos,&string_guardar);
  218. if(%&string_guardar% != "");
  219. put(@&array_temp,"%&string_guardar%");
  220. endif;
  221. next;
  222. unset(@&lista_msg_ativos[]);
  223. set(&string_guardar,"");
  224. foreach(@&array_temp,&string_guardar);
  225. put(@&lista_msg_ativos,"%&string_guardar%");
  226. next;
  227. endif;
  228. loop;
  229. endif;
  230. if(editar_anuncio);
  231. do;
  232. set(&array_to_string,"");
  233. set(&array_to_string_ativo,"");
  234. set(&string_guardar,"");
  235. set(&string_auxiliar,"");
  236. set(&string_guardar2,"");
  237. unset(ativo);
  238. foreach(@&lista_msg,&string_guardar);
  239. if(%&string_guardar% != "");
  240. foreach(@&lista_msg_ativos,&string_guardar2);
  241. if(%&string_guardar2% == %&string_guardar%);
  242. set(ativo);
  243. set(&string_auxiliar2,"%&string_guardar2%");
  244. replace(&string_auxiliar2,"&","§");
  245. replace(&string_auxiliar2,",","'");
  246. replace(&string_auxiliar2,"$","(?)");
  247. replace(&string_auxiliar2,"[","{");
  248. replace(&string_auxiliar2,"]","}");
  249. set(&array_to_string_ativo,"%&array_to_string_ativo%%&string_auxiliar2%,");
  250. break;
  251. endif;
  252. next;
  253. if(!(ativo));
  254. set(&string_auxiliar,"%&string_guardar%");
  255. replace(&string_auxiliar,"&","§");
  256. replace(&string_auxiliar,",","'");
  257. replace(&string_auxiliar,"$","(?)");
  258. replace(&string_auxiliar,"[","{");
  259. replace(&string_auxiliar,"]","}");
  260.  
  261. set(&array_to_string,"%&array_to_string%%&string_auxiliar%,");
  262. endif;
  263. endif;
  264. unset(ativo);
  265. next;
  266.  
  267. do;
  268. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  269. prompt(&msg_edit,"$$[Resposta[§6§lQual Mensagem,§6§lQuer Editar?,,§2§lATIVADOS,%&array_to_string_ativo%,§4§lDESATIVADOS,%&array_to_string%,§f-> §c§lSAIR,§f-> §e§lVOLTAR]]","");
  270. replace(&msg_edit,"§","&");
  271. replace(&msg_edit,"'",",");
  272. replace(&msg_edit,"(?)","$");
  273. replace(&msg_edit,"{","[");
  274. replace(&msg_edit,"}","]");
  275.  
  276. INDEXOF(@&lista_msg[],#index_array,"%&msg_edit%");
  277. if(#index_array > -1);
  278. break;
  279. endif;
  280. ifmatches(%&msg_edit%,"SAIR");
  281. log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;
  282. endif;
  283. ifmatches(%&msg_edit%,"VOLTAR");
  284. set(voltar);
  285. break;
  286. endif;
  287. loop;
  288. if(voltar);
  289. unset(voltar);
  290. break;
  291. endif;
  292. do;
  293. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  294. prompt(&chat, "$$[Resposta[§6§lQual chat,§6§lvai utilizar?,,§f-> §a§lAnuncio,§f-> §e§lMegafone,§f-> §7§lGlobal]]","");
  295. ifmatches(%&chat%,"-> "); match(%&chat%,"-> (.*)",{&chat});log(%&chat%);endif;
  296. ifmatches(%&chat%,"Anuncio");set(&chat,"/a");set(&chat_log,"&a[A]");set(&cor_padrao,"&a");break;endif;
  297. ifmatches(%&chat%,"Global");set(&chat,"/g");set(&chat_log,"&7[G]");set(&cor_padrao,"&7");break;endif;
  298. ifmatches(%&chat%,"Megafone");set(&chat,"/mf");set(&chat_log,"&e&l[MEGAFONE]");set(&cor_padrao,"&e");break;endif;
  299. loop;
  300. do;
  301. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  302. prompt(&anuncio_edit,$$?,"Escreva a sua nova mensagem");
  303. if(%&anuncio_edit% == "");log("&6&l[MACRO] &dA Mensagem não pode ficar vazia");break;endif;
  304. do;while(KEY_RETURN);
  305. log("&6&l[MACRO] &e&lSeu novo anuncio ficara assim: ");
  306. log("%&chat_log% &f%PLAYER%: %&cor_padrao%%&anuncio_edit%");
  307. log("&6&l[MACRO] &ePrecione &2&lENTER &epara confirmar.");
  308. log("&6&l[MACRO] &ePrecione &c&lBACKSPACE &epara voltar.");
  309. set(#cronometro,0);
  310. do;
  311. if(KEY_RETURN);
  312. set(confirmado);
  313. break;
  314. endif;
  315. if(KEY_BACK);
  316. unset(confirmado);
  317. break;
  318. endif;
  319. inc(#cronometro,1);
  320. if(#cronometro>=300);
  321. log("&6&l[MACRO] &e&lSeu novo anuncio ficara assim: ");
  322. log("%&chat_log% &f%PLAYER%: %&cor_padrao%%&novo_anuncio%");
  323. log("&6&l[MACRO] &dPrecione &2&lENTER para confirmar.");
  324. log("&6&l[MACRO] &dPrecione &c&lBACKSPACE para voltar.");
  325. set(#cronometro,0);
  326. endif;
  327. loop;
  328. until(confirmado);
  329. if(%&anuncio_edit% != "");
  330. replace(&anuncio_edit,"§","&");
  331. replace(&anuncio_edit,"'",",");
  332. replace(&anuncio_edit,"(?)","$");
  333. replace(&anuncio_edit,"{","[");
  334. replace(&anuncio_edit,"}","]");
  335. set(@&lista_msg[%#index_array%],"%&chat% %&anuncio_edit%");
  336. indexof(@&lista_msg_ativos,#index_array,"%&msg_edit%");
  337. if(#index_array > -1);
  338. set(@&lista_msg_ativos[%#index_array%],"%&chat% %&anuncio_edit%");
  339. endif;
  340. endif;
  341. loop;
  342. endif;
  343. //LISTA DE ANUNCIOS ATIVOS
  344. if(anuncios_ativos);
  345. do;
  346. set(&string_guardar,"");
  347. set(&array_to_string,"");
  348. foreach(@&lista_msg_ativos,&string_guardar);
  349. set(&string_auxiliar,"%&string_guardar%");
  350. replace(&string_auxiliar,"&","§");
  351. replace(&string_auxiliar,",","'");
  352. replace(&string_auxiliar,"$","(?)");
  353. replace(&string_auxiliar,"[","{");
  354. replace(&string_auxiliar,"]","}");
  355. set(&array_to_string,"%&array_to_string%%&string_auxiliar%,");
  356. next;
  357. do;
  358. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  359. prompt(&anuncio_ativo,"$$[Resposta[§6§lAnuncios Ativos,,%&array_to_string%,,§f-> §2§lAdicionar,§f-> §c§lRemover,,§f-> §5§lSAIR,§f-> §e§lVOLTAR]]","");
  360. ifmatches(%&anuncio_ativo%,"Adicionar");set(adicionar_anuncio_ativo);unset(remover_anuncio_ativo);break;endif;
  361. ifmatches(%&anuncio_ativo%,"Remover");set(remover_anuncio_ativo);unset(adicionar_anuncio_ativo);break;endif;
  362. ifmatches(%&anuncio_ativo%,"-> "); match(%&anuncio_ativo%,"-> (.*)",{&anuncio_ativo});log(%&anuncio_ativo%);endif;
  363. ifmatches(%&anuncio_ativo%,"SAIR");log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  364. ifmatches(%&anuncio_ativo%,"VOLTAR");set(voltar);break;endif;
  365. loop;
  366. if(voltar);
  367. unset(voltar);
  368. break;
  369. endif;
  370. //ADICIONAR UM ANUNCIO A LISTA DE ATIVOS
  371. if(adicionar_anuncio_ativo);
  372. do;
  373. set(&string_guardar,"");
  374. set(&array_to_string,"");
  375. set(&string_auxiliar,"");
  376. foreach(@&lista_msg[],&string_guardar);
  377. foreach(@&lista_msg_ativos[],&string_auxiliar);
  378. if(%&string_guardar% == %&string_auxiliar%);
  379. set(msg_ja_ativa);
  380. break;
  381. endif;
  382. next;
  383. if(!(msg_ja_ativa));
  384. set(&string_auxiliar,"%&string_guardar%");
  385. replace(&string_auxiliar,"&","§");
  386. replace(&string_auxiliar,",","'");
  387. replace(&string_auxiliar,"$","(?)");
  388. replace(&string_auxiliar,"[","{");
  389. replace(&string_auxiliar,"]","}");
  390. set(&array_to_string,"%&array_to_string%%&string_auxiliar%,");
  391. endif;
  392. unset(msg_ja_ativa);
  393. next;
  394.  
  395. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  396. prompt(&msg_add,"$$[Resposta[§6§lEscolha uma,§6§lpara adicionar,,%&array_to_string%,,§f-> §5§lSAIR,§f-> §e§lVOLTAR]]","");
  397. replace(&msg_add,"§","&");
  398. replace(&msg_add,"'",",");
  399. replace(&msg_add,"(?)","$");
  400. replace(&msg_add,"{","[");
  401. replace(&msg_add,"}","]");
  402. indexof(@&lista_msg[],#index,"%&msg_add%");
  403. if(#index > -1);
  404. set(&string_guardar,"");
  405. set(&string_auxilixar,"");
  406. set(&array_to_string,"");
  407. unset(adicionar_anuncio_ativo);
  408. put(@&lista_msg_ativos[],"%&msg_add%");
  409. break;
  410. endif;
  411. ifmatches(%&msg_add%,"-> "); match(%&msg_add%,"-> (.*)",{&msg_add});log(%&msg_add%);endif;
  412. ifmatches(%&msg_add%,"SAIR");log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  413. ifmatches(%&msg_add%,"VOLTAR");break;endif;
  414. loop;
  415. endif;
  416. //REMOVER UM ANUNCIO DA LISTA DE ATIVOS
  417. if(remover_anuncio_ativo);
  418. do;
  419. set(#index_array,"");
  420. set(&string_guardar,"");
  421. set(&string_auxiliar,"");
  422. set(&array_to_string,"");
  423. unset(@&array_temp[]);
  424. foreach(@&lista_msg_ativos[],&string_guardar);
  425. if(%&string_guardar% != "");
  426. set(&string_auxiliar,"%&string_guardar%");
  427. replace(&string_auxiliar,"&","§");
  428. replace(&string_auxiliar,",","'");
  429. replace(&string_auxiliar,"$","(?)");
  430. replace(&string_auxiliar,"[","{");
  431. replace(&string_auxiliar,"]","}");
  432. set(&array_to_string,"%&array_to_string%%&string_auxiliar%,");
  433. endif;
  434. next;
  435. do;
  436. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  437. prompt(&msg_remove,"$$[Resposta[§6§lQual mensagem,§6§lquer remover ?,,%&array_to_string%,,§f-> §5§lSAIR,§f-> §e§lVOLTAR]]","");
  438. replace(&msg_remove,"§","&");
  439. replace(&msg_remove,"'",",");
  440. replace(&msg_remove,"(?)","$");
  441. replace(&msg_remove,"{","[");
  442. replace(&msg_remove,"}","]");
  443. INDEXOF(@&lista_msg_ativos[],#index_array,"%&msg_remove%");
  444. if(#index_array > -1);
  445. break;
  446. endif;
  447. ifmatches(%&msg_remove%,"-> "); match(%&msg_remove%,"-> (.*)",{&msg_remove});log(%&msg_remove%);endif;
  448. ifmatches(%&msg_remove%,"SAIR");log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  449. ifmatches(%&msg_remove%,"VOLTAR");set(voltar);break;endif;
  450. loop;
  451. if(voltar);
  452. unset(voltar);
  453. break;
  454. endif;
  455.  
  456. set(&string_guardar,"");
  457. unset(@&lista_msg_ativos[%#index_array%]);
  458. foreach(@&lista_msg_ativos,&string_guardar);
  459. if(%&string_guardar% != "");
  460. put(@&array_temp,"%&string_guardar%");
  461. endif;
  462. next;
  463. unset(@&lista_msg_ativos[]);
  464. set(&string_guardar,"");
  465. foreach(@&array_temp,&string_guardar);
  466. put(@&lista_msg_ativos,"%&string_guardar%");
  467. next;
  468. loop;
  469. endif;
  470. loop;
  471. endif;
  472. if(delay_change);
  473. do;
  474. if(KEY_ESCAPE);log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");unset(anuncio);stop;endif;
  475. prompt(#delay_novo,$$?,"Coloque o delay em segundos, Minimo recomendado de 20 segundos(Não use pontuação ou letras)");
  476. if(#delay_novo > 0);
  477. set(@#delay,%#delay_novo%);
  478. set(#delay_novo,0);
  479. break;
  480. else;
  481. log(&6&l[MACRO] &d&lDelay Invalido.);
  482. endif;
  483. loop;
  484. endif;
  485. until(start_anunciar_msg);
  486. if(%@&lista_msg_ativos[0]% == "");
  487. log(&6&l[MACRO] &cNenhuma mensagem ativa);
  488. log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");
  489. unset(anuncio);
  490. stop;
  491. endif;
  492. do;
  493. foreach(@&lista_msg_ativos,&msg_atual);
  494. replace(&msg_atual,"§","&");
  495. echo("%&msg_atual%");
  496.  
  497. wait(%@#delay%);
  498. next;
  499. loop;
  500. else;
  501. if(%@&lista_msg_ativos[0]% == "");
  502. log(&6&l[MACRO] &cNenhuma mensagem ativa);
  503. log("&6&l[MACRO] &d&lUse &a&lCTRL+%KEYNAME% &d&lpara entrar no menu.");
  504. log("&6&l[MACRO] &dMacro de Anuncios &c&lDesligada");
  505. unset(anuncio);
  506. stop;
  507. endif;
  508. do;
  509. foreach(@&lista_msg_ativos,&msg_atual);
  510. replace(&msg_atual,"§","&");
  511. echo("%&msg_atual%");
  512.  
  513. wait(%@#delay%);
  514. next;
  515. loop;
  516. endif;
  517. endif;
  518. }$$
  519.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!