$${
IFMATCHES("%CHATCLEAN%","^» CraftLandia [\S\s]+ \(www.craftlandia.com.br\)$");
IF(player_connected);
UNSET(player_connected);
UNSET(foreach);
DO(15);
SETLABEL("PC","&e[PC] &aCriado por &a&oSLEEP&a.");
WAIT(1MS);
SETLABEL("PC","&e[PC] &aCriado por SLEEP.");
WAIT(1MS);
LOOP;
SET(player_connected);
ELSE;
SETLABEL("PC","");
UNSET(foreach);
UNSET(player_connected);
ENDIF;
ENDIF;
IFMATCHES("%CHATCLEAN%","^\[[GL]\] [\s\S]*%PLAYER%: ([\s\S]*)$");
MATCH("%CHATCLEAN%","^\[[GL]\] ([\s\S]*)%PLAYER%: ([\s\S]*)$",{&chatinfo,&chatmsg});
IFMATCHES("%&chatinfo%",":");
ELSE;
IFMATCHES("%&chatmsg%","^sleep pc (on|off|list)$");
MATCH("%&chatmsg%","^sleep pc (on|off|list)$",{&status});
IF((%&status%="on")&&(!player_connected));
LOG("&e[PC] &aLigado.");
}$$/g ativando a macro: sleep player connected.$${
UNSET(foreach);
DO(15);
SETLABEL("PC","&e[PC] &aCriado por &a&oSLEEP&a.");
WAIT(1MS);
SETLABEL("PC","&e[PC] &aCriado por SLEEP.");
WAIT(1MS);
LOOP;
SET(player_connected);
ELSEIF((%&status%="on")&&(player_connected));
LOG("&e[PC] &cEste macro já esta ON.");
ELSEIF((%&status%="off")&&(player_connected));
LOG("&e[PC] &cDesligado.");
UNSET(player_connected);
}$$/g desativando a macro: sleep player connected.$${
ELSEIF((%&status%="off")&&(!player_connected));
LOG("&e[PC] &cEste macro já esta OFF.");
ELSEIF((%&status%="list")&&(player_connected));
SET(©_amigos,"%&list_amigos%");
SET(©_rivais,"%&list_rivais%");
SET(©_staffs,"%&list_staffs%");
LOG("&e[PC] &aLista:");
LOG("");
IF(%©_amigos%=NULL);
LOG("&a[Amigo] &fLista vazia.");
ELSE;
IFMATCHES("%©_amigos%","<(.*)><(.*)>");
SET(&tag,"Amigos");
ELSE;
SET(&tag,"Amigo");
ENDIF;
REPLACE(©_amigos,"<","");
REPLACE(©_amigos,">",", ");
IFMATCHES("%©_amigos%","(.*),");
MATCH("%©_amigos%","(.*),",{©_amigos});
ENDIF;
LOG("&a[%&tag%] &f%©_amigos%.");
ENDIF;
IF(%©_rivais%=NULL);
LOG("&c[Rival] &fLista vazia.");
ELSE;
IFMATCHES("%©_rivais%","<(.*)><(.*)>");
SET(&tag,"Rivais");
ELSE;
SET(&tag,"Rival");
ENDIF;
REPLACE(©_rivais,"<","");
REPLACE(©_rivais,">",", ");
IFMATCHES("%©_rivais%","(.*),");
MATCH("%©_rivais%","(.*),",{©_rivais});
ENDIF;
LOG("&c[%&tag%] &f%©_rivais%.");
ENDIF;
IF(%©_staffs%=NULL);
LOG("&4[Staff] &fLista vazia.");
ELSE;
IFMATCHES("%©_staffs%","<(.*)><(.*)>");
SET(&tag,"Staffs");
ELSE;
SET(&tag,"Staff");
ENDIF;
REPLACE(©_staffs,"<","");
REPLACE(©_staffs,">",", ");
IFMATCHES("%©_staffs%","(.*),");
MATCH("%©_staffs%","(.*),",{©_staffs});
ENDIF;
LOG("&4[%&tag%] &f%©_staffs%.");
ENDIF;
ELSEIF((%&status%="list")&&(!player_connected));
LOG("&e[PC] &cEste macro esta OFF.");
ENDIF;
ENDIF;
IFMATCHES("%&chatmsg%","^sleep (.*) (.*) (.*)$");
MATCH("%&chatmsg%","^sleep (.*) (.*) (.*)$",{&group,&action,&name});
SET(&command,"%&group%>%&action%");
UNSET(send_error_1);
UNSET(send_error_2);
UNSET(send_error_3);
IFMATCHES("%&command%","^(staff|amigo|rival)>(add|rem)$");
IF(player_connected);
IFMATCHES("%&name%","([a-z|0-9|_]*)",&filter,1,NONE);
ENDIF;
IFMATCHES("%&filter%","[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+[\w_]+");
SET(send_error_3);
ENDIF;
IFMATCHES("%&filter%","[\w_]+[\w_]+[\w_]+[\w_]+");
ELSE;
SET(send_error_3);
ENDIF;
IF(!send_error_3);
IFMATCHES("%PLAYER%","%&filter%");
LOG(&e[PC] &cEste jogador é você.);
ELSE;
SET(&name,"%&filter%");
&minusculo[0] = a; &maiusculo[0] = A;
&minusculo[1] = b; &maiusculo[1] = B;
&minusculo[2] = c; &maiusculo[2] = C;
&minusculo[3] = d; &maiusculo[3] = D;
&minusculo[4] = e; &maiusculo[4] = E;
&minusculo[5] = f; &maiusculo[5] = F;
&minusculo[6] = g; &maiusculo[6] = G;
&minusculo[7] = h; &maiusculo[7] = H;
&minusculo[8] = i; &maiusculo[8] = I;
&minusculo[9] = j; &maiusculo[9] = J;
&minusculo[10] = k; &maiusculo[10] = K;
&minusculo[11] = l; &maiusculo[11] = L;
&minusculo[12] = m; &maiusculo[12] = M;
&minusculo[13] = n; &maiusculo[13] = N;
&minusculo[14] = o; &maiusculo[14] = O;
&minusculo[15] = p; &maiusculo[15] = P;
&minusculo[16] = q; &maiusculo[16] = Q;
&minusculo[17] = r; &maiusculo[17] = R;
&minusculo[18] = s; &maiusculo[18] = S;
&minusculo[19] = t; &maiusculo[19] = T;
&minusculo[20] = u; &maiusculo[20] = U;
&minusculo[21] = v; &maiusculo[21] = V;
&minusculo[22] = w; &maiusculo[22] = W;
&minusculo[23] = x; &maiusculo[23] = X;
&minusculo[24] = y; &maiusculo[24] = Y;
&minusculo[25] = z; &maiusculo[25] = Z;
FOR(#sleep_for,0,25);
REPLACE(&name,"%&maiusculo[%#sleep_for%]%","%&minusculo[%#sleep_for%]%")
NEXT;
IF((%&action%="add")&&(%&group%="amigo"));
IFMATCHES("%&list_amigos%","<%&name%>");
SET(send_error_1);
ELSE;
SET(&list_amigos,"%&list_amigos%<%&name%>");
ENDIF;
ELSEIF((%&action%="add")&&(%&group%="staff"));
IFMATCHES("%&list_staffs%","<%&name%>");
SET(send_error_1);
ELSE;
SET(&list_staffs,"%&list_staffs%<%&name%>");
ENDIF;
ELSEIF((%&action%="add")&&(%&group%="rival"));
IFMATCHES("%&list_rivais%","<%&name%>");
SET(send_error_1);
ELSE;
SET(&list_rivais,"%&list_rivais%<%&name%>");
ENDIF;
ELSEIF((%&action%="rem")&&(%&group%="amigo"));
IFMATCHES("%&list_amigos%","<%&name%>");
REPLACE(&list_amigos,"<%&name%>","");
ELSE;
SET(send_error_2);
ENDIF;
ELSEIF((%&action%="rem")&&(%&group%="staff"));
IFMATCHES("%&list_staffs%","<%&name%>");
REPLACE(&list_staffs,"<%&name%>","");
ELSE;
SET(send_error_2);
ENDIF;
ELSEIF((%&action%="rem")&&(%&group%="rival"));
IFMATCHES("%&list_rivais%","<%&name%>");
REPLACE(&list_rivais,"<%&name%>","");
ELSE;
SET(send_error_2);
ENDIF;
ENDIF;
IF(send_error_1);
LOG(&e[PC] &c"%&name%" já esta nesta lista.);
ELSEIF(send_error_2);
LOG(&e[PC] &c"%&name%" nao esta nesta lista.);
ELSE;
IF(%&action%="add");
LOG(&e[PC] &a"%&name%" adicionado como %&group%.);
ELSEIF(%&action%="rem");
LOG(&e[PC] &c"%&name%" removido como %&group%.);
ENDIF;
ENDIF;
ENDIF;
ELSE;
LOG(&e[PC] &c"%&name%" é um nick inválido.);
ENDIF;
ELSE;
LOG(&e[PC] &cEste macro esta OFF.);
ENDIF;
ELSE;
IF(player_connected);
LOG("&e[PC] &cUso correto: &fsleep &c[&famigo&c|&fstaff&c|&frival&c] [&fadd&c|&frem&c] [&fnome&c].");
ELSE;
LOG(&e[PC] &cEste macro esta OFF.);
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;
IF((player_connected)&&(!foreach));
IF(foreach);
ELSE;
SET(foreach);
WAIT(5T);
DO;
SET(foreach);
SET(&foreach,"");
FOREACH(players);
IFMATCHES("%&list_amigos%","<%PLAYERNAME%>");
SET(&foreach,"%&foreach%<amigo.%PLAYERNAME%.>");
ENDIF;
IFMATCHES("%&list_rivais%","<%PLAYERNAME%>");
SET(&foreach,"%&foreach%<rival.%PLAYERNAME%.>");
ENDIF;
IFMATCHES("%&list_staffs%","<%PLAYERNAME%>");
SET(&foreach,"%&foreach%<staff.%PLAYERNAME%.>");
ENDIF;
IF(!player_connected);
SET(&foreach,"");
BREAK;
ENDIF;
NEXT;
IFMATCHES("%&foreach%","<[\d\w_]+.[\d\w_]+.><[\d\w_]+.[\d\w_]+.>");
SET(&label_txt,"Conectados");
ELSE;
SET(&label_txt,"Conectado");
ENDIF;
REPLACE(&foreach,"staff","&4[Staff] &c");
REPLACE(&foreach,"amigo","&a[Amigo] &f");
REPLACE(&foreach,"rival","&c[Rival] &f");
REPLACE(&foreach,"<","\n");
REPLACE(&foreach,">","");
REPLACE(&foreach,".","");
IF(%&foreach%!=NULL);
SET(&foreach,"&e&l%&label_txt%:\n%&foreach%");
ENDIF;
SETLABEL("PC","%&foreach%");
IF(!player_connected);
UNSET(foreach);
ENDIF;
WHILE(foreach);
SETLABEL("PC","");
ENDIF;
ENDIF;
}$$
A respeito das mensagens automáticas ativando&desativando, elas não são proibidas e não causam punição, para mais informações
.