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;
	}

}