en ves de un npc puedes poner
este item ala venta que es de mensajes al server

@item 12221

Ya kedo mi broad aki les dejo el scrip por si alguien lo necesita gracias por sus aportaciones .. puse 2road uno vendiendo el item y el otro mandando broads este ultimo mas barato el otro mas caro porke es broad para llevar xP

prontera.gat,160,160,4   script   GM Karel   871,{

      if ($Numero == 0) set $nuke, 0;

   mes "[  GM Karel ]";
   mes "Hola soy el GM Karel yo tengo el poder de enviar mensajes a todo el Planeta Krypton";
   next;
   mes "te advierto que no tengo plata así que te intercambiare dinero por un mensaje xD";
   next;
   mes "[ GM Karel ]";

   mes "ok. si quieres mandar un mensaje a todos para mandar saludos o vender algo importante dime que quieres que mande por ti.";
   mes "Claro esto no es gratis te costara Solo 500,000 Zeny.";
   next;
   menu "Si",M_0,"Hmm...No muy caro no gracias.",M_1;
   mes "Escribe el mensaje que deseas enviar.";

   M_0:
      if(Zeny < 500000) goto sL_Zeny;
      set Zeny, Zeny - 500000;

      input $mensaje$;
   next;
   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$,"0xff0000";
         goto Lmessage;
      blue:
         set .@color$,"0x00b0ff";
         goto Lmessage;
      green:
         set .@color$,"0x1dff00";
         goto Lmessage;
      white:
         set .@color$,"0xffffff";
         goto Lmessage;   
   
Lmessage:
   mes "Ahora enviaré el mensaje, gracias por usar este servicio.";
   close2;
   announce "["+strcharinfo(0)+"]: "+$mensaje$+"",0,.@color$;
   end;
      
      next;
      close;
      sL_Zeny:
         mes "[ GM Karel ]";
         mes "Que no tienes el dinero? Es muy dificil gritar tan fuerte";
         close;
   M_1:
      mes "[ El GM ]";
      mes "Vuelve cuando tengas el dinero suficiente. Que tengas un Buen dia.";
      close;
      end;
sx:
   next;
   mes "[ GM CUCHU ]";
   mes "Quieres cambiar de Sexo?";
   menu "Claro",sip1,"No,Por quien me has tomado",nop;

   sip1:
   mes "[ GM CUCHU ]";
   mes "La operación será complida pero";
   mes "Tampoco es gratis por 100.000.000 zeny que dices!";
   menu "Estoy seguro",sip2,"No,tengo miedo",nop;

   sip2:
   if(Zeny<100000000) goto falta;
   
   set Zeny, Zeny-100000000;

   atcommand strcharinfo(0)+":@changesex";

   mes "[ GM CUCHU ]";
   mes "Ya has cambiado de sexo, enorabuena!";
   emotion 21;
   announce "El GM: Info: tenemos un trasvesti ojo con "+strcharinfo(0)+" no me dijiste que te guarde el secreto xD", 8;
   close;

   nop:
   mes "[ GM CUCHU ]";
   mes "Has sido tú el que ha venido a mi...!";
   close;

   falta:
   mes "[ GM CUCHU ]";
   mes "Pero si eres mas probre que yo xD";
   mes "Sabes cuanto cuestan las opereciones otros lugares???";
   mes "Vuelve cuando tengas dinero";

}