prontera,100,100,3  script  Broadcaster -1,{
set .@name$,"Broadcaster";
set .@cost,100000;
 
mes .@name$;
mes "El servicio quest "+.@cost+"";
next;
mes .@name$;
mes "Estas dispuesto a pagarlo?";
    switch(select("~ Si: ~ No")){
    case 1:
    if (zeny < .@cost){
        mes .@name$;
        mes "Tienes "+.@cost+", no es suficiente..";
        close;
    
    }
        input .@mensaje$;
        next;
        atcommand "@broadcast "+ .@mensaje$;
            end;
    case 2:
        mes .@name$;
        mes "";
        close;
    }
 
}