ENTREGUE [Macro]homes Organizado

Intro rapida:Ola galeraaaa vim trazer um macro novo aqui,Eu e o Crodi Fizemos.
Como colocar:Voce ira colocar em uma letra $$<homes.txt> vai em Edit files e cria um escrito homes,pronto,se pedirem coloco as print de como colocar.
Print como ele fica:
Print 2°:

Uma coisa que voces tem que fazer antes de colocar o macro troque ali em baixo onde ta,home1,home2...
pelo nome de suas homes
Codigo:
$${
// ====================== variavel &listahomes deve conter todas as homes.
&listahomes=Home1,home2,home3,home4,home5,home6,home7,home8,home10;
// ====================== variavel &listawarps deve conter todas as warps do servidor, começando com a palavra WARP.
&listawarps=WARP china,WARP dungeonx,WARP end,WARP games,WARP loja,WARP mobs,WARP mobvip,WARP nepal,WARP spawn,WARP tutorial,WARP vip,WARP wither;
// ====================== variavel &listaoutros deve conter todas as outras localidades, começando com /
&listaoutros=/arena,/evento,/floresta,/gladiador,/minerar,/MvP;
&listatudo=%&listahomes%,--------------,%&listawarps%,--------------,%&listaoutros%;
PROMPT(&resposta,"$$[Qual Home[%&listatudo%]]") ;wait(100ms);
// ====================== verifica se resposta foi anulada com ESC
&teste=xyz%&resposta%xyz;
ifmatches(%&teste%,xyzxyz);
log(Macro cancelada);
}$$ /listhomes $${
stop;
endif;
// ================================ verifica se resposta escolhida foi o separador
ifmatches(%&resposta%,--------------);
log(home cancelada.);
stop;
endif;
// ================================ verifica se resposta escolhida foi /EVENTO
ifmatches(%&resposta%,EVENTO);
log(Listando eventos ...);
}$$ /eventos $${
log(Teletransportando para %&resposta% ...);
type(T); wait(100ms);
type(%&resposta%); wait(100ms);
PRESS(return);
stop;
endif;
// ================================ verifica se resposta escolhida foi uma WARP qualquer
ifmatches(%&resposta%,WARP);
log(Teletransportando para %&resposta% ...);
type(/); wait(100ms);
type(%&resposta%); wait(100ms);
PRESS(return);
stop;
endif;
// ================================ verifica se resposta escolhida foi /qualquercoisa
ifmatches(%&resposta%,/);
log(Teletransportando para %&resposta% ...);
type(t); wait(100ms);
type(%&resposta%); wait(100ms);
PRESS(return);
stop;
endif;
// ================================ vai pra home escolhida
log(Teletransportando para %&resposta% ...);
type(/); wait(100ms);
type(home %&resposta%); wait(100ms);
PRESS(return);
}$$