Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${
- unset(@listhomes_mexicanas_onchat);
- toggle(@listhomes_mexicanas);
- if(!@listhomes_mexicanas);
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &f&lLISTHOMES &2&lMEX&f&lICA&4&lNAS&f&l: &c&lOFF&4&l!");
- stop;
- endif;
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &f&lLISTHOMES &2&lMEX&f&lICA&4&lNAS&f&l: &a&lON&2&l!");
- set(@listhomes_mexicanas_onchat);
- unset(@&all_homes[]);
- unset(ordenar);
- unset(ordenado);
- ifmatches(%@&listhomes_ordenadas_backup%,"\w");
- unset(&resposta);
- prompt(&resposta,"$$?","Deseja utilizar o mesmo resultado da ultima vez que ordenou suas homes?");
- ifmatches(%&resposta%,"1|Y|S");
- set(ordenado);
- set(ordenar);
- endif;
- endif;
- if(!ordenado);
- unset(&resposta);
- prompt(&resposta,"$$?","Deseja ordenar suas homes alfabeticamente? §7(esse processo pode demorar e causar §cgrande queda de FPS§7)");
- ifmatches(%&resposta%,"1|Y|S");
- set(ordenar);
- endif;
- endif;
- if(!ordenado);
- echo("/listhomes");
- do(100);
- wait(1t);
- until(!@listhomes_mexicanas_onchat);
- if(@listhomes_mexicanas_onchat);
- unset(@listhomes_mexicanas_onchat);
- log(" ");
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &cOcorreu algum erro com a onChat!");
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &f&lLISTHOMES &2&lMEX&f&lICA&4&lNAS&f&l: &c&lOFF&4&l!");
- unset(@listhomes_mexicanas);
- endif;
- unset(&last_home);
- endif;
- unset(&prompt);
- unsafe(0);
- unset(&prompt_desordenado[]);
- foreach(@&all_homes[],&home_foreach,#pos);
- set(&home_colorida,"%&home_foreach%");
- do();
- ifmatches(%&home_colorida%,"^(?:\u00A7\w)*(?:, (?:\u00A7\w)*)?(\u00A7\w\w+)(?:(?:\u00A7\w)*, )?(.*)$");
- match(%&home_colorida%,"^(?:\u00A7\w)*(?:, (?:\u00A7\w)*)?(\u00A7\w\w+)(?:(?:\u00A7\w)*, )?(.*)$",{&home,&resto});
- if(&home != &last_home);
- set(&last_home,"%&home%");
- push(&prompt_desordenado[],"%&home%");
- if(!ordenar);
- if(!&prompt);
- set(&prompt,"%&home%");
- else;
- set(&prompt,"%&prompt%,%&home%");
- endif;
- endif;
- endif;
- set(&home_colorida,"%&resto%");
- else;
- break;
- endif;
- loop;
- next;
- endunsafe;
- // Processo de ordenar o prompt alfabeticamente;
- // ~ Por lomexicano;
- // xD ;
- if( (ordenar)&&(!ordenado) );
- set(mostrar_log);
- unsafe(0);
- set(&ordem,"_0123456789abcdefghijklmnopqrstuvwxyz");
- unset(&ordem[]);
- do();
- match(%&ordem%,"^(.)(.*)$",{&letra,&resto});
- push(&ordem[],"%&letra%");
- set(&ordem,"%&resto%");
- until(!&ordem);
- unset(&ordenado[]);
- arraysize(&prompt_desordenado[],#rodadas);
- #falta = #rodadas;
- do(%#rodadas%);
- #menor_index = 999;
- unset(&home_em_analise);
- #index_em_analise = -1;
- foreach(&prompt_desordenado[],&home,#index);
- ifmatches(%&home%,"\w");
- match(%&home%,"^(?:\u00A7\w)*(.)",{&primeiro_caractere});
- indexof(&ordem[],#index_letra,"%&primeiro_caractere%");
- if(#index_letra <= #menor_index);
- set(este);
- if(#index_letra == #menor_index);
- set(&home_analise_agora,"%&home%");
- set(&home_analise_anterior,"%&prompt_desordenado[%#index_em_analise%]%");
- set(este);
- do();
- //break;
- match("%&home_analise_agora%","^(?:\u00A7\w)*(.)(.|$)",{&primeiro_caractere,&segundo_caractere});
- match("%&home_analise_anterior%","^(?:\u00A7\w)*(.)(.|$)",{&primeiro_caractere_2,&segundo_caractere_2});
- if(!&segundo_caractere);
- break;
- elseif(!&segundo_caractere_2);
- unset(este);
- break;
- else;
- indexof(&ordem[],#index_letra_temp_1,"%&segundo_caractere%");
- indexof(&ordem[],#index_letra_temp_2,"%&segundo_caractere_2%");
- if(#index_letra_temp_1 == #index_letra_temp_2);
- match("%&home_analise_agora%","^((?:\u00A7\w)*).(.*)$",{&cor_possivel,&resto});
- match("%&home_analise_anterior%","^((?:\u00A7\w)*).(.*)$",{&cor_possivel_2,&resto_2});
- set(&home_analise_agora,"%&cor_possivel%%&resto%");
- set(&home_analise_anterior,"%&cor_possivel_2%%&resto_2%");
- elseif(#index_letra_temp_1 < #index_letra_temp_2);
- break;
- else;
- unset(este);
- break;
- endif;
- endif;
- loop;
- endif;
- if(este);
- set(&home_em_analise,"%&home%");
- set(#menor_index,"%#index_letra%");
- set(#index_em_analise,"%#index%");
- endif;
- endif;
- endif;
- next;
- push(&ordenado[],"%&prompt_desordenado[%#index_em_analise%]%");
- unset(&prompt_desordenado[%#index_em_analise%]);
- dec(#falta,1);
- if(KEY_DELETE);
- toggle(mostrar_log);
- do(10);
- wait(1t);
- until(!KEY_DELETE);
- endif;
- if(mostrar_log);
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &fOrdenando... &8[&a%#falta%&7/&e%#rodadas%&8] [DELETE p/ ocultar]");
- endif;
- loop;
- unset(&prompt);
- foreach(&ordenado[],&home);
- ifmatches(%&home%,"\w");
- if(!&prompt);
- set(&prompt,"%&home%");
- else;
- set(&prompt,"%&prompt%,%&home%");
- endif;
- endif;
- next;
- set(@&listhomes_ordenadas_backup,"%&prompt%");
- endunsafe;
- //log("fim do processo de ordenar");
- elseif(ordenado);
- set(&prompt,"%@&listhomes_ordenadas_backup%");
- endif;
- do();
- unset(&resposta);
- prompt(&resposta,"$$[Resposta[%&prompt%]]","§eEscolha uma home para teleportar. §7Segure §cDELETE §7ao clicar para §cdeleta-la§7!");
- strip(&resposta_sem_cor,"%&resposta%");
- if(!&resposta_sem_cor);
- break;
- endif;
- if(KEY_DELETE);
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &c/deletehome %&resposta_sem_cor%");
- echo("/deletehome %&resposta_sem_cor%");
- wait(800ms);
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &c/deletehome %&resposta_sem_cor%");
- echo("/deletehome %&resposta_sem_cor%");
- ifmatches(%&prompt%,"^(.*),%&resposta%,(.*)$");
- match(%&prompt%,"^(.*),%&resposta%,(.*)$",{&antes,&depois});
- set(&prompt,"%&antes%,%&depois%");
- else;
- ifmatches(%&prompt%,"^%&resposta%,(.*)$",&depois,1);
- set(&prompt,"%&depois%");
- else;
- ifmatches(%&prompt%,"^(.*),%&resposta%$",&antes,1);
- set(&prompt,"%&antes%");
- else;
- ifmatches(%&prompt%,"^,?%&resposta%,?$");
- unset(&prompt);
- set(@&listhomes_ordenadas_backup,"%&prompt%");
- log(" ");
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &cAcabaram as homes da lista!");
- break;
- endif;
- endif;
- endif;
- endif;
- set(@&listhomes_ordenadas_backup,"%&prompt%");
- else;
- unset(@teleportado);
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &e/home &a%&resposta_sem_cor%");
- echo("/home %&resposta_sem_cor%");
- do(70);
- wait(1t);
- until(@teleportado);
- endif;
- loop;
- unset(@listhomes_mexicanas);
- log("&f&l[&2&lMA&f&lC&4&lRO&f&l] &f&lLISTHOMES &2&lMEX&f&lICA&4&lNAS&f&l: &c&lOFF&4&l!");
- }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement