mes "Escribe el mensaje que deseas enviar.";
input .@message$;
next;
if(getstrlen(.@message$)<2){ mes "El mensaje debe tener 2 carácteres como mínimo."; close; }
mes "Ahora elige el color con el que quieres que se vea el mensaje";
next;
menu "Color Rojo",red,"Color Azul",blue,"Color verde",green,"Color Blanco",white;

red:
set .@color$,"ff0900";
goto Lmessage;
blue:
set .@color$,"00b0ff";
goto Lmessage;
green:
set .@color$,"1dff00";
goto Lmessage;
white:
set .@color$,"ffffff";
goto Lmessage;

Lmessage:
mes "Ahora enviaré el mensaje, gracias por usar este servicio.";
close2;
atcommand "@kamic "+.@color$+" "+strcharinfo(0)+": "+.@message$+"";
end;