//------------------------------------------------------------------------

//====== Cronus ==========================================================

//=Nome do npc:

//=Mensageiro VIP

//===== Feito Por: =============================================================

//=y C y b e r z i n h o

//===== Descrição: =======================================================

//=Manda uma mensagem para todo servidor com 7 cores diferentes e so cobra 2.000.000 zeny do player

 

//===== Como Configuralo: =======================================================

//=Basta apenas voce mudar if(getgmlevel() < 5) o numero "5" para o nivel do seu player VIP

//=como mudar a quantidade de zeny a cer cobrada basta penas mudar o numero 2000000 que fica na frente de set @price pela quantidade desejada

//========================================================================

//========================================================================

prontera,151,187,4      script  Mensageiro      89,{

if(getgmlevel() < 5) {close;}

set @price,2000000;

mes "[^0000FF Mensageiro^000000]";

mes "Olá,eu posso mandar uma mensagem para todo o servidor!";

mes "O valor para mandar cada mensagem é de 2.000.000.";

mes "Gostaria de manda uma mensagem agora?";

next;

menu "Sim!",ss,"Não!",nn;

 

ss:

mes "[^0000FF Mensageiro^000000]";

mes "Selecione a cor de sua mensagem:";

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

v:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^00FF00"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",certeza,"Não,está errada!",errada,"Não quero enviar mensagem.",nomensa;

 

certeza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0x00FF00;

close;

 

 

errada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

nn:

mes "Estaremos aqui caso mude de idéia";

close;

 

az:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^0000FF"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",zcerteza,"Não,está errada!",zerrada,"Não quero enviar mensagem.",nomensa;

 

 

zcerteza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0x0000FF;

close;

 

 

zerrada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

nomensa:

mes "[Mensageiro]";

mes "Ok,me procure quando precisar de meus serviços.";

close;

 

 

lr:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^FF9900"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",lcerteza,"Não,está errada!",lerrada,"Não quero enviar mensagem.",nomensa;

 

lcerteza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0xFF6600;

close;

 

 

lerrada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

 

 

rs:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^FF00FF"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",rcerteza,"Não,está errada!",rerrada,"Não quero enviar mensagem.",nomensa;

 

rcerteza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0xCC0099;

close;

 

 

rerrada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

 

 

rx:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^CC99FF"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",rxxcerteza,"Não,está errada!",rxxerrada,"Não quero enviar mensagem",nomensa;

 

rxxcerteza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0xCC99CC;

close;

 

 

rxxerrada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

 

vrm:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^FF0000"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",vrscerteza,"Não,está errada!",vrserrada;

 

vrscerteza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0xFF0000;

close;

 

vrserrada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

am:

if (Zeny < @price) goto Sem_Zeny;

input @mensagem$;

next;

mes "[^0000FF Mensageiro^000000]";

mes "Mensagem: ^FFFF00"+@mensagem$+"^000000.";

next;

menu "Sim,Tenho certeza!",ascerteza,"Não,está errada!",aserrada,"Não quero enviar mensagem.",nomensa;

 

ascerteza:

set Zeny,Zeny-@price;

announce "["+strcharinfo(0)+" Diz: "+@mensagem$+"]",bc,0xFFFF00;

close;

 

aserrada:

menu "^00FF00Verde^000000",v,"^0000FFAzul^000000",az,"^FF9900Laranja^000000",lr,"^FF00FFRosa^000000",rs,"^800080Roxa^000000",rx,"^FF0000Vermelho^000000",vrm,"^FFFF00Amarelo",am;

 

Sem_Zeny:

mes "[^CC33CCMoa do Torpedo^000000]";

mes "Desculpe ^871F78"+ strcharinfo(0) +"^000000, mas voc no tem todo o dinheiro.";

mes "Volte aqui, quando estiver com dinheiro."+@price+" ";

close;

}