Ayuda con npc Brodcast

[kira_full 0]

Hola como el titulo lo dice, intento implementar un npc brodcast funciona bien, pero el siguien problema es que no me cobra el zeny si no al contrario lo hace gratis :c. ayuda! les dejo el codigo. de ante manos gracias.

 

 

 

prontera,145,169,4 script Broadcast 790,{waitingroom "Broadcast",0;set .@name$, "^c50000[broadcast]^000000";set $costo,10000000;//Costo del mensajemes .@name$;mes "Hola "+strcharinfo(0)+" soy el broadcaster un servicio especial para envíar mensajes a todo el servidor.";next;mes .@name$;mes "Dime ¿qué puedo hacer por ti?.";next;switch(select("Información:Normas:Enviar Mensaje:Nada")){case 1:mes .@name$;mes "Yo podré envíar un mensaje a todo el servidor por un pequeño costo, podrás hacer mensajes especifícos.";next;mes .@name$;mes "Aquí las características: ";next;mes "^c50000[CARACTERÍSTICAS]^000000";mes "1. Podrás envíar mensajes de:";mes "Compra.";mes "Búsqueda.";mes "Venta";next;mes "^c50000[CARACTERÍSTICAS]^000000";mes "2. Tendrá un costo de:";mes "10,000,000z";next;mes "^c50000[CARACTERÍSTICAS]^000000";mes "3. Personalización:";mes "Tendrás la opción de envíar tu mensaje en distintos colores.";close;break;case 2:mes .@name$;mes "Como bien sabes tendrás que cumplir una serie de reglas al publicar tu mensaje.";next;mes "^c50000[NORMAS]^000000";mes "1. No podrás usar el Broadcast para peleas.";mes "2. No deberás usar lenguaje ostil u ofensivo.";mes "3. El spam será sancionado en el juego.";mes "5. El broadcast deberá ser usado sólo para el fin mencionado.";next;mes .@name$;mes "Las reglas pueden ser modificadas sin previo aviso.";mes "Cualquier anomalía reportarla con el staff.";close;break;case 3:if(zeny < $costo)goto error;switch(select("Compra:Búsqueda:Venta:Nada")){case 1:mes .@name$;mes "Ingresa el mensaje de compra:";input .@compra$;next;mes .@name$;mes "Selecciona el color:";switch(select("Amarillo:Azul")){case 1:announce strcharinfo(0)+" [Compra]: "+.@compra$,bc_yellow|bc_all;set zeny,zeny- $costo;close;break;case 2:announce strcharinfo(0)+" [Compra]: "+.@compra$,bc_blue|bc_all;set zeny,zeny- $costo;close;break;}case 2:mes .@name$;mes "Ingrese el mensaje de Búsqueda:";input .@buscar$;next;mes .@name$;mes "Selecciona el color";switch(select("Amarillo:Azul")){case 1:announce strcharinfo(0)+" [busca]: "+.@buscar$,bc_yellow|bc_all;set zeny,zeny- $costo;close;break;case 2:announce strcharinfo(0)+" [busca]: "+.@buscar$,bc_blue|bc_all;set zeny,zeny- $costo;close;break;}case 3:mes .@name$;mes "Ingresa el mensaje de venta:";input .@venta$;next;mes .@name$;mes "Selecciona el color:";switch(select("Amarillo:Azul")){case 1:announce strcharinfo(0)+" [Compra]: "+.@venta$,bc_yellow|bc_all;set zeny,zeny- $costo;close;break;case 2:announce strcharinfo(0)+" [Compra]: "+.@venta$,bc_blue|bc_all;set zeny,zeny- $costo;close;
break;
}

}
case 4:
mes .@name$;
mes "¡Hasta pronto!.";
close;

}
error:
mes .@name$;
mes "Lo siento vuelve cuando tengas "+$costo+"z";
close;
end;

}

Edited January 2, 2015 by M45T3R
Big Post

[Alexandria 53]

Luego me agradeces.

 

http://pastebin.com/yA2REwbc

[kira_full 0]

Luego me agradeces.

 

http://pastebin.com/yA2REwbc

Ya fue Probado, muchas gracias Alexandria.

cierren.

[Relzz 32]

Ya veo que lo solucionaste, un consejo.. Utiliza la etiqueta CODE para encerrar codigo de esa manera es mas facil revisar el codigo o copiarlo para examinarlo.

Si es posible escondelo en  un SPOILER o CODEBOX o bien utiliza pastebin

Asi mantenemos todo mas limpio

 

Buena suerte!