Jump to content

Asgard4676

Members
  • Content Count

    3
  • Joined

  • Last visited

Everything posted by Asgard4676

  1. Obrigado!! o da estilista funcionou, ja o do evento não, continuou a mesma coisa, assim que eu ligo o evento no npc trava, como se não desse pramin dar close e seguir o jogo normalmente. o outro npc: sec_in01,165,180,4 script Anunciador VIP 832,{ if (getgmlevel() < 1) { warp getsavepoint(0), getsavepoint(1), getsavepoint(2); end; } mes "[Anunciador VIP]"; mes "Olá, como posso ajudá-l"+((Sex)?"o":"a")+" ?"; mes "Cada mensagem tem intervalo de 60 segundos para ser enviada."; next; //switch (select ("Procurar Grupo:Procurar Clã:Anuncio de Itens:Enviar Mensagem")) switch (select ("Procurar Grupo:Procurar Clã:Enviar Mensagem")) { mes "[Anunciador VIP]"; case 1: case 2: callsub L_Confirm, "[Anúncio VIP]: "+strcharinfo(0)+" ~ "+jobname(Class)+" ~ Nv. "+BaseLevel+"/"+JobLevel+" procura um ["+((@menu == 1)?"Grupo":"Clã")+"] !", "0x"+((@menu == 1)?"00FF00":"FF0000"); break; /* TODO case 3: mes "Escolha a opção:"; next; switch (select ("Comprar Item:Vender Item")) { mes "[Anunciador VIP]"; case 1: mes "Digite o ID do item."; } */ case 3: //case 4: mes "Selecione a cor da mensagem:"; next; switch (select ("^FFFFFFBranca","^EE6363Vermelha","^E8E8E8Cinza","^00CD00Verde","^5CACEEAzul")) { case 1: set .@color$, "0xFFFFFF"; break; case 2: set .@color$, "0xEE6363"; break; case 3: set .@color$, "0xE8E8E8"; break; case 4: set .@color$, "0x00CD00"; break; case 5: set .@color$, "0x5CACEE"; break; } mes "[Anunciador VIP]"; mes "Digite a mensagem:"; mes "Ela deve conter no máximo 130 caracteres."; next; input .@msg$; mes "[Anunciador VIP]"; if (!getstrlen(.@msg$) || getstrlen(.@msg$) > 130) { mes "O tamanho não confere."; close; } callsub L_Confirm, "[VIP - "+strcharinfo(0)+"] "+.@msg$, .@color$; } L_Confirm: mes "Tem certeza que deseja enviar a mensagem ?"; next; if (select ("Sim:Não") == 2) close; mes "[Anunciador VIP]"; mes "Mensagem enviada!"; close2; announce getarg(0), bc_all, getarg(1); end; return;}
  2. obrigadoo !! o Evento agora esta funcionando, porém quando eu ligo o evento pelo npc meu personagem trava. tenho que fechar abrir novamente o jogo. nãao aparenta erros no mapserver' Aproveitando o topico gostaria de pedir uma ajuda com esse npc Estilista, funciona perfeitamente porém fica com esse erro no mapserver ... Error: [Error]: script_add_str: detected possible use of wrong case in a script. Found'L_end', probably meant to be 'L_End' (in 'npc/custom/estilista.txt'). NPC: prontera,150,179,4 script Estilista 122,{cutin "styla2",2; //==============================================================//= Configurações do NPC//============================================================== set .npcname$, "[ ^0000FFEstilista^000000 ]"; //Nome que irá aparecer nas falas do NPC set .vip_needed, 1; //Nível necessário de VIP para acessar os recursos especias do NPC set .max_v_hstyle, 23; //Número máximo de estilos de cabelo para jogadores VIP set .max_v_hcolor, 50; //Número máximo de cores de cabelo para jogadores VIP set .max_v_ccolor, 500; //Número máximo de cores de roupa para jogadores VIP set .novip_can_acess, 0; //Jogadores não-VIP poderão acessar os menus de salvamento e carregamento de estilos? (1 para sim, 0 para não) set .max_hstyle, 12; //Número máximo de estilos de cabelo para jogadores comuns set .max_hcolor, 25; //Número máximo de cores de cabelo para jogadores comuns set .max_ccolor, 200; //Número máximo de cores de roupa para jogadores comuns //Número mínimo para estilos e cores para todos jogadores set .min_hstyle, 0; set .min_hcolor, 0; set .min_ccolor, 0; set .max_sns, 10; //Número máximo de caracteres aceitos para os nomes dos estilos //==============================================================//============================================================== mes .npcname$; mes "Olá, eu sou á Estilista de Rune-Midgard, eu posso alterar sua aparência com muitos e variados estilos e cores de roupa e cabelo."; next; goto menu1; menu1 : { set @hstyle, getlook (1); set @hcolor, getlook (6); set @ccolor, getlook (7); if (.novip_can_acess == 0) { if (getgmlevel () < .vip_needed) { set .save_style$, ""; set .load_style$, ""; } else { set .save_style$, "- Salvar estilo."; set .load_style$, "- Carregar estilo."; } } else { set .save_style$, "- Salvar estilo."; set .load_style$, "- Carregar estilo."; } mes .npcname$; mes "Vejo que está utilizando um estilo bem interessante..."; mes "Estilo de cabelo: ^FF0000"+@hstyle+"^000000."; mes "Cor do cabelo: ^FF0000"+@hcolor+"^000000."; mes "Cor da roupa: ^FF0000"+@ccolor+"^000000."; mes "Em que posso lhe ser útil?"; next; menu "- Alterar estilo do cabelo.",c_hstyle,"- Alterar cor do cabelo.",c_hcolor,"- Alterar cor da roupa.",c_ccolor,.save_style$,save_style,.load_style$,load_style,"- Sair.",L_end; } c_hstyle: { mes .npcname$; mes "Seu estilo de cabelo atual é o de número : ^FF0000"+@hstyle+"^000000."; mes "O que acha?"; next; switch (select ("- Próximo.:- Anterior.:- Escolher número.:- Gostei deste.")) { case 1: { //Próximo if (.vip_needed > 0) { if (getgmlevel () < .vip_needed) { if (@hstyle >= .max_hstyle) { mes .npcname$; mes "Seu estilo de cabelo já é o último que possuo em meu catálogo."; next; goto c_hstyle; } else { setlook 1,@hstyle+1; set @hstyle, getlook (1); specialeffect2 54,strcharinfo(0); goto c_hstyle; } } else { if (@hstyle >= .max_v_hstyle) { mes .npcname$; mes "Seu estilo de cabelo já é o último que possuo em meu catálogo."; next; goto c_hstyle; } else { setlook 1,@hstyle+1; set @hstyle, getlook (1); specialeffect2 54,strcharinfo(0); goto c_hstyle; } } } else { if (@hstyle >= .max_hstyle) { mes .npcname$; mes "Seu estilo de cabelo já é o último que possuo em meu catálogo."; next; goto c_hstyle; } else { setlook 1,@hstyle+1; set @hstyle, getlook (1); specialeffect2 54,strcharinfo(0); goto c_hstyle; } } } case 2: { //Anterior if (@hstyle == .min_hstyle ) { mes .npcname$; mes "Seu estilo de cabelo já é o primeiro que possuo em meu catálogo."; next; goto c_hstyle; } else { setlook 1,@hstyle-1; set @hstyle, getlook (1); specialeffect2 54,strcharinfo(0); goto c_hstyle; } } case 3: { //Escolher Número mes .npcname$; if (.vip_needed > 0) { if (getgmlevel () < .vip_needed) { mes "Escolha um número entre ^FF0000"+.min_hstyle+"^000000 e ^FF0000"+.max_hstyle+"^000000."; next; input @input,.min_hstyle,.max_hstyle; setlook 1,@input; set @hstyle, @input; specialeffect2 54,strcharinfo(0); goto c_hstyle; } else { mes "Escolha um número entre ^FF0000"+.min_hstyle+"^000000 e ^FF0000"+.max_v_hstyle+"^000000."; next; input @input,.min_hstyle,.max_v_hstyle; setlook 1,@input; set @hstyle, @input; specialeffect2 54,strcharinfo(0); goto c_hstyle; } } else { mes "Escolha um número entre ^FF0000"+.min_hstyle+"^000000 e ^FF0000"+.max_hstyle+"^000000."; next; input @input,.min_hstyle,.max_hstyle; setlook 1,@input; set @hstyle, @input; specialeffect2 54,strcharinfo(0); goto c_hstyle; } } case 4: { //Gostei deste mes .npcname$; mes "Que bom que gostou, deseja mais algo?"; next; if (select ("- Sim.:- Não.") == 1) { goto menu1; } else { goto L_end; } close; } } } c_hcolor: { mes .npcname$; mes "Sua cor de cabelo atual é a de número : ^FF0000"+@hcolor+"^000000."; mes "O que acha?"; next; switch (select ("- Próxima.:- Anterior.:- Escolher número.:- Gostei desta.")) { case 1: { //Próxima if (.vip_needed > 0) { if (getgmlevel () < .vip_needed) { if (@hcolor >= .max_hcolor) { mes .npcname$; mes "Sua cor de cabelo já é a última que possuo em meu catálogo."; next; goto c_hcolor; } else { setlook 6,@hcolor+1; set @hcolor, getlook (6); specialeffect2 54,strcharinfo(0); goto c_hcolor; } } else { if (@hcolor >= .max_v_hcolor) { mes .npcname$; mes "Sua cor de cabelo já é a última que possuo em meu catálogo."; next; goto c_hcolor; } else { setlook 6,@hcolor+1; set @hcolor, getlook (6); specialeffect2 54,strcharinfo(0); goto c_hcolor; } } } else { if (@hcolor >= .max_hcolor) { mes .npcname$; mes "Sua cor de cabelo já é a última que possuo em meu catálogo."; next; goto c_hcolor; } else { setlook 6,@hcolor+1; set @hcolor, getlook (6); specialeffect2 54,strcharinfo(0); goto c_hcolor; } } } case 2: { //Anterior if (@hcolor == .min_hcolor ) { mes .npcname$; mes "Sua cor de cabelo já é a primeira que possuo em meu catálogo."; next; goto c_hcolor; } else { setlook 6,@hcolor-1; set @hcolor, getlook (6); specialeffect2 54,strcharinfo(0); goto c_hcolor; } } case 3: { //Escolher Número mes .npcname$; if (.vip_needed > 0) { if (getgmlevel () < .vip_needed) { mes "Escolha um número entre ^FF0000"+.min_hcolor+"^000000 e ^FF0000"+.max_hcolor+"^000000."; next; input @input,.min_hcolor,.max_hcolor; setlook 6,@input; set @hcolor, @input; specialeffect2 54,strcharinfo(0); goto c_hcolor; } else { mes "Escolha um número entre ^FF0000"+.min_hcolor+"^000000 e ^FF0000"+.max_v_hcolor+"^000000."; next; input @input,.min_hcolor,.max_v_hcolor; setlook 6,@input; set @hcolor, @input; specialeffect2 54,strcharinfo(0); goto c_hcolor; } } else { mes "Escolha um número entre ^FF0000"+.min_hcolor+"^000000 e ^FF0000"+.max_hcolor+"^000000."; next; input @input,.min_hcolor,.max_hcolor; setlook 6,@input; set @hcolor, @input; specialeffect2 54,strcharinfo(0); goto c_hcolor; } } case 4: { //Gostei desta mes .npcname$; mes "Que bom que gostou, deseja mais algo?"; next; if (select ("- Sim.:- Não.") == 1) { goto menu1; } else { goto L_end; } close; } } } c_ccolor: { mes .npcname$; mes "Sua cor de roupa atual é a de número : ^FF0000"+@ccolor+"^000000."; mes "O que acha?"; next; switch (select ("- Próxima.:- Anterior.:- Escolher número.:- Gostei desta.")) { case 1: { //Próxima if (.vip_needed > 0) { if (getgmlevel () < .vip_needed) { if (@ccolor >= .max_ccolor) { mes .npcname$; mes "Sua cor de roupa já é a última que possuo em meu catálogo."; next; goto c_ccolor; } else { setlook 7,@ccolor+1; set @ccolor, getlook (7); specialeffect2 54,strcharinfo(0); goto c_ccolor; } } else { if (@ccolor >= .max_v_ccolor) { mes .npcname$; mes "Sua cor de roupa já é a última que possuo em meu catálogo."; next; goto c_ccolor; } else { setlook 7,@ccolor+1; set @ccolor, getlook (7); specialeffect2 54,strcharinfo(0); goto c_ccolor; } } } else { if (@ccolor >= .max_ccolor) { mes .npcname$; mes "Sua cor de roupa já é a última que possuo em meu catálogo."; next; goto c_ccolor; } else { setlook 7,@ccolor+1; set @ccolor, getlook (7); specialeffect2 54,strcharinfo(0); goto c_ccolor; } } } case 2: { //Anterior if (@ccolor == .min_ccolor ) { mes .npcname$; mes "Sua cor de roupa já é a primeira que possuo em meu catálogo."; next; goto c_ccolor; } else { setlook 7,@ccolor-1; set @ccolor, getlook (7); specialeffect2 54,strcharinfo(0); goto c_ccolor; } } case 3: { //Escolher Número mes .npcname$; if (.vip_needed > 0) { if (getgmlevel () < .vip_needed) { mes "Escolha um número entre ^FF0000"+.min_ccolor+"^000000 e ^FF0000"+.max_ccolor+"^000000."; next; input @input,.min_ccolor,.max_ccolor; setlook 7,@input; set @ccolor, @input; specialeffect2 54,strcharinfo(0); goto c_ccolor; } else { mes "Escolha um número entre ^FF0000"+.min_ccolor+"^000000 e ^FF0000"+.max_v_ccolor+"^000000."; next; input @input,.min_hcolor,.max_v_ccolor; setlook 7,@input; set @ccolor, @input; specialeffect2 54,strcharinfo(0); goto c_ccolor; } } else { mes "Escolha um número entre ^FF0000"+.min_ccolor+"^000000 e ^FF0000"+.max_ccolor+"^000000."; next; input @input,.min_ccolor,.max_ccolor; setlook 7,@input; set @ccolor, @input; specialeffect2 54,strcharinfo(0); goto c_ccolor; } } case 4: { //Gostei desta mes .npcname$; mes "Que bom que gostou, deseja mais algo?"; next; if (select ("- Sim.:- Não.") == 1) { goto menu1; } else { goto L_end; } close; } } } save_style: { if (style1$ == "") { set style1$, "Vazio"; } if (style2$ == "") { set style2$, "Vazio"; } if (style3$ == "") { set style3$, "Vazio"; } if (style4$ == "") { set style4$, "Vazio"; } if (style5$ == "") { set style5$, "Vazio"; } mes .npcname$; mes "Escolha em qual slot você deseja salvar seu estilo atual."; next; menu "- Estilo 1 [ ^FF6C00"+style1$+"^000000 ]",style1_save,"- Estilo 2 [ ^FF6C00"+style2$+"^000000 ]",style2_save,"- Estilo 3 [ ^FF6C00"+style3$+"^000000 ]",style3_save,"- Estilo 4 [ ^FF6C00"+style4$+"^000000 ]",style4_save,"- Estilo 5 [ ^FF6C00"+style5$+"^000000 ]",style5_save,"- Voltar.",menu1,"- Sair.",L_end; style1_save: { if (style1$ == "Vazio") { mes .npcname$; mes "Digite um nome para o estilo."; mes "^FF0000Atenção:^000000 O nome do estilo pode conter no máximo ^FF0000"+.max_sns+"^000000 caracteres."; next; if (input (@style_n$,1,.max_sns) == 1) { mes .npcname$; mes "^FF0000Falha ao salvar estilo.^000000"; mes "O nome que você digitou para o estilo possui mais que "+.max_sns+" caracteres, por favor digite um nome menor para que o estilo seja salvo corretamente."; next; menu "- Tentar novamente.",style1_save,"- Cancelar.",save_style,"- Sair.",L_end; } else { set style1$, @style_n$; set style1_hstyle, getlook (1); set style1_hcolor, getlook (6); set style1_ccolor, getlook (7); goto save_sucess; } } else { mes .npcname$; mes "^FF0000Atenção:^000000 O estilo já foi salvo anteriormente se decidir continuar ele será deletado, o que deseja fazer?"; next; menu "- Continuar.",style1_ovrwt,"- Cancelar.",save_style,"- Sair.",L_end; } style1_ovrwt: { set style1$, "Vazio"; goto style1_save; } } style2_save: { if (style2$ == "Vazio") { mes .npcname$; mes "Digite um nome para o estilo."; mes "^FF0000Atenção:^000000 O nome do estilo pode conter no máximo ^FF0000"+.max_sns+"^000000 caracteres."; next; if (input (@style_n$,1,.max_sns) == 1) { mes .npcname$; mes "^FF0000Falha ao salvar estilo.^000000"; mes "O nome que você digitou para o estilo possui mais que "+.max_sns+" caracteres, por favor digite um nome menor para que o estilo seja salvo corretamente."; next; menu "- Tentar novamente.",style2_save,"- Cancelar.",save_style,"- Sair.",L_end; } else { set style2$, @style_n$; set style2_hstyle, getlook (1); set style2_hcolor, getlook (6); set style2_ccolor, getlook (7); goto save_sucess; } } else { mes .npcname$; mes "^FF0000Atenção:^000000 O estilo já foi salvo anteriormente se decidir continuar ele será deletado, o que deseja fazer?"; next; menu "- Continuar.",style2_ovrwt,"- Cancelar.",save_style,"- Sair.",L_end; } style2_ovrwt: { set style2$, "Vazio"; goto style2_save; } } style3_save: { if (style3$ == "Vazio") { mes .npcname$; mes "Digite um nome para o estilo."; mes "^FF0000Atenção:^000000 O nome do estilo pode conter no máximo ^FF0000"+.max_sns+"^000000 caracteres."; next; if (input (@style_n$,1,.max_sns) == 1) { mes .npcname$; mes "^FF0000Falha ao salvar estilo.^000000"; mes "O nome que você digitou para o estilo possui mais que "+.max_sns+" caracteres, por favor digite um nome menor para que o estilo seja salvo corretamente."; next; menu "- Tentar novamente.",style3_save,"- Cancelar.",save_style,"- Sair.",L_end; } else { set style3$, @style_n$; set style3_hstyle, getlook (1); set style3_hcolor, getlook (6); set style3_ccolor, getlook (7); goto save_sucess; } } else { mes .npcname$; mes "^FF0000Atenção:^000000 O estilo já foi salvo anteriormente se decidir continuar ele será deletado, o que deseja fazer?"; next; menu "- Continuar.",style3_ovrwt,"- Cancelar.",save_style,"- Sair.",L_end; } style3_ovrwt: { set style3$, "Vazio"; goto style3_save; } } style4_save: { if (style4$ == "Vazio") { mes .npcname$; mes "Digite um nome para o estilo."; mes "^FF0000Atenção:^000000 O nome do estilo pode conter no máximo ^FF0000"+.max_sns+"^000000 caracteres."; next; if (input (@style_n$,1,.max_sns) == 1) { mes .npcname$; mes "^FF0000Falha ao salvar estilo.^000000"; mes "O nome que você digitou para o estilo possui mais que "+.max_sns+" caracteres, por favor digite um nome menor para que o estilo seja salvo corretamente."; next; menu "- Tentar novamente.",style4_save,"- Cancelar.",save_style,"- Sair.",L_end; } else { set style4$, @style_n$; set style4_hstyle, getlook (1); set style4_hcolor, getlook (6); set style4_ccolor, getlook (7); goto save_sucess; } } else { mes .npcname$; mes "^FF0000Atenção:^000000 O estilo já foi salvo anteriormente se decidir continuar ele será deletado, o que deseja fazer?"; next; menu "- Continuar.",style4_ovrwt,"- Cancelar.",save_style,"- Sair.",L_end; } style4_ovrwt: { set style4$, "Vazio"; goto style4_save; } } style5_save: { if (style5$ == "Vazio") { mes .npcname$; mes "Digite um nome para o estilo."; mes "^FF0000Atenção:^000000 O nome do estilo pode conter no máximo ^FF0000"+.max_sns+"^000000 caracteres."; next; if (input (@style_n$,1,.max_sns) == 1) { mes .npcname$; mes "^FF0000Falha ao salvar estilo.^000000"; mes "O nome que você digitou para o estilo possui mais que "+.max_sns+" caracteres, por favor digite um nome menor para que o estilo seja salvo corretamente."; next; menu "- Tentar novamente.",style5_save,"- Cancelar.",save_style,"- Sair.",L_end; } else { set style5$, @style_n$; set style5_hstyle, getlook (1); set style5_hcolor, getlook (6); set style5_ccolor, getlook (7); goto save_sucess; } } else { mes .npcname$; mes "^FF0000Atenção:^000000 O estilo já foi salvo anteriormente se decidir continuar ele será deletado, o que deseja fazer?"; next; menu "- Continuar.",style5_ovrwt,"- Cancelar.",save_style,"- Sair.",L_end; } style5_ovrwt: { set style5$, "Vazio"; goto style5_save; } } save_sucess: { mes .npcname$; mes "^0000FFEstilo salvo com sucesso.^000000"; mes "O seu estilo foi salvo corretamente, e você poderá utilizá-lo quando quiser."; mes "Deseja mais alguma coisa?"; next; menu "- Alterar aparência.",menu1,"- Sair.",L_end; } } load_style: { if (style1$ == "") { set style1$, "Vazio"; } if (style2$ == "") { set style2$, "Vazio"; } if (style3$ == "") { set style3$, "Vazio"; } if (style4$ == "") { set style4$, "Vazio"; } if (style5$ == "") { set style5$, "Vazio"; } mes .npcname$; mes "Escolha qual estilo deseja carregar."; next; menu "- Estilo 1 [ ^FF6C00"+style1$+"^000000 ]",style1_load,"- Estilo 2 [ ^FF6C00"+style2$+"^000000 ]",style2_load,"- Estilo 3 [ ^FF6C00"+style3$+"^000000 ]",style3_load,"- Estilo 4 [ ^FF6C00"+style4$+"^000000 ]",style4_load,"- Estilo 5 [ ^FF6C00"+style5$+"^000000 ]",style5_load,"- Voltar.",menu1,"- Sair.",L_end; style1_load: { if (style1$ == "Vazio") { mes .npcname$; mes "O estilo que você selecionou está vazio e não pode ser carregado."; next; goto load_style; } else { setlook 1, style1_hstyle; setlook 6, style1_hcolor; setlook 7, style1_ccolor; specialeffect2 54,strcharinfo(0); goto load_sucess; } } style2_load: { if (style2$ == "Vazio") { mes .npcname$; mes "O estilo que você selecionou está vazio e não pode ser carregado."; next; goto load_style; } else { setlook 1, style2_hstyle; setlook 6, style2_hcolor; setlook 7, style2_ccolor; specialeffect2 54,strcharinfo(0); goto load_sucess; } } style3_load: { if (style3$ == "Vazio") { mes .npcname$; mes "O estilo que você selecionou está vazio e não pode ser carregado."; next; goto load_style; } else { setlook 1, style3_hstyle; setlook 6, style3_hcolor; setlook 7, style3_ccolor; specialeffect2 54,strcharinfo(0); goto load_sucess; } } style4_load: { if (style4$ == "Vazio") { mes .npcname$; mes "O estilo que você selecionou está vazio e não pode ser carregado."; next; goto load_style; } else { setlook 1, style4_hstyle; setlook 6, style4_hcolor; setlook 7, style4_ccolor; specialeffect2 54,strcharinfo(0); goto load_sucess; } } style5_load: { if (style5$ == "Vazio") { mes .npcname$; mes "O estilo que você selecionou está vazio e não pode ser carregado."; next; goto load_style; } else { setlook 1, style5_hstyle; setlook 6, style5_hcolor; setlook 7, style5_ccolor; specialeffect2 54,strcharinfo(0); goto load_sucess; } } load_sucess: { mes .npcname$; mes "Estilo carregado com sucesso, deseja mais algo?"; next; menu "- Alterar aparência.",menu1,"- Carregar outro estilo.",load_style,"- Sair.",L_end; } } L_end: { mes .npcname$; mes "Tudo bem, volte quando precisar dos meus serviços."; cutin "",255; close; }} Gostaria de pedir ajuda com esse npc também o de Anunciar tentei de todas as formas que conheço corrigir e nada se alguem puder me ajuda, agradeço desde ja. NPC: prontera,150,150,5 script Anunciador 888,{ //> Início das Configurações // Observações: As cores das mensagens podem ser aleradas nas linhas: // // "DelayAnnounce("Mensagem","Torpedo","0xFFFF00");" // // Onde "0xFFFF00" será a cor delimitada. // Opções de menu, coloque 1 para habilitar menus de 'torpedo(normal), compra, venda, troca. set .Opt,1; // Palavras bloqueadas. setarray .palavras$[1],"coloque","as","palavras","aqui"; //Coloque aqui as palavras bloqueadas, cada uma dentro das aspas. // Configuração do Tempo de Delay. (Padrão: 10 minutos) set .DelayAnn,10; // Configuração Zenys (Padrão: 200.000z) set .Zeny,200000; // Nível de BASE mínimo para uso do NPC. (Padrão: 40) set .LevelUser,10; //> Início do Script function DelayAnnounce; if(!DelayAnnounce("DelayGet",getcharid(3),.DelayAnn)) { mes "[Anunciador]"; mes "Desculpe, mas você deve esperar ^FF0000"+.DelayAnn+"^000000 minuto(s) para poder enviar outro torpedo."; close; } mes "[Anunciador]"; mes "Olá "+strcharinfo(0)+", deseja enviar uma mensagem?"; mes "Total enviados: ^0000FF"+#envio+"^000000"; if (.DelayAnn > 0) { mes "Delay: ^0000FF"+.DelayAnn+" minutos.^000000"; } if (.Zeny > 0) { mes "Valor: ^0000FF"+.Zeny+"z^000000"; } if(select("Sim:Não") == 2) close; if(.Opt == 1) { switch(select("Torpedo","Venda","Compra","Troca")) { case 1: DelayAnnounce("Mensagem","Torpedo","0xFFFF00"); case 2: DelayAnnounce("Mensagem","vender","0x00BFFF"); case 3: DelayAnnounce("Mensagem","comprar","0x00CD00"); case 4: DelayAnnounce("Mensagem","trocar","0xFF0000"); } } else { DelayAnnounce("Mensagem","Torpedo","0xFFFF00"); } function DelayAnnounce { if( GetArg(0) == "DelayGet" ) { setd "$anndelay_"+GetArg(1),gettime(4)*24*60 + gettime(6)*60 + gettime(2); return 0; } else if( GetArg(0) == "DelaySet" ) { set .@check, gettime(4)*24*60 + gettime(6)*60 + gettime(2) - getd("$anndelay_"+GetArg(1)); return !(.@check >= 0 && .@check < GetArg(2) ); } if( GetArg(0) == "Mensagem" ) { next; Restart: mes "[Anunciador]"; mes "Muito bem, digite a sua mensagem:"; mes " "; mes "Digite 'fechar' para sair."; digit @msg$; if(@msg$ == "fechar") { close; } next; if(Zeny < .Zeny) { mes "[Anunciador]"; mes "Me desculpe mas você não tem"; mes "zenys suficientes para usar"; mes "o serviço de torpedos."; next; mes "[Anunciador]"; mes "Você irá precisar de ^FF0000"+.Zeny+"z^000000."; close; } if(BaseLevel < .LevelUser) { mes "[Anunciador]"; mes "Me desculpe mais por"; mes "questões de segurança,"; mes "você precisa ter o level"; mes "maior que ^FF0000"+.LevelUser+"^000000."; close; } for(set .@i,1; .@i < getarraysize(.palavras$); set .@i,.@i+1) { if(compare(@msg$,.palavras$[.@i])) { mes "[Anunciador]"; mes "Desculpe, mais não é permitido palavrões no anuncio."; close; } } mes "[Anunciador]"; mes "Você digitou:"; mes "'^FF0000"+@msg$+"^000000'"; if(select("Correto!","Não, está errado...") == 2) { close2; goto Restart; } if(getarg(1) != "Torpedo") { announce "["+strcharInfo(0)+"] quer "+getarg(1)+": "+@msg$+".",bc_all,getarg(2); } else { announce "["+strcharInfo(0)+"](Torpedo) disse: "+@msg$+".",bc_all,getarg(2); } ; } DelayAnnounce("DelaySet",getcharid(3)); if (.Zeny > 0) { set Zeny,Zeny-.Zeny; } set #envio,#envio+1; close; }} Error: [Error]: script error in file 'npc/custom/vip/anunciadora.txt' line 58 column 12 parse_simpleexpr: unmatched ')' 55: 56: function DelayAnnounce { 57:* 58: if( GetArg(0) == "DelaySet" ) ~~~~~~~~~~~~~~~~~~^ 59: { 60: setd "$anndelay_"+GetArg(1),gettime(4)*24*60 + gettime(6)*60 + gettime(2); 61: return 0;
  3. Olá estou usando o Evento ache o Poring e toda vez que o npc vai iniciar o jogo trava e aparece o seguinte erro no mapserver ERROR: [Warning]: Unexpected type for argument 1. Expected label, got C_NAME[Debug]: Data: variable name='OnStart' index=0[Debug]: Function: callsub[Debug]: Source (NPC): Evento Pandaring at prontera (147,171)[Error]: script:callsub: argument is not a label[Debug]: Data: number value=0[Debug]: Source (NPC): Evento Pandaring at prontera (147,171) - script Evento Pandaring#var -1,{end; OnInit: //- ID do item do prêmio. set $ipe, 607; //- Quantidade do item do prêmio. set $qpe, 5; //- Tirar 50% de HP quando matar //- um Pandaring falso? //- [0=NÃO|1=SIM] set $hpe, 0; end;}//===== Script: ==============================================prontera,147,171,3 script Evento Pandaring 763,{ if(getgmlevel() < 50) { if(!.pandaringcatch) { mes "[Evento Pandaring]"; mes "Não tem evento por inquanto."; close; } mes "[Evento Pandaring]"; mes "Olá "+strcharinfo(0)+" o que posso fazer por você?"; next; switch(select("Entrar no evento.:Informação.")) { case 1: mes "[Evento Pandaring]"; mes "Divirta-se!"; next; warp "poring_c01", 100, 100; end; case 2: mes "[Evento Pandaring]"; mes "São invocados 100 Pandarings."; mes "Só UM é verdadeiro e você tem que acha-lo."; mes "Caso consiga, ganhará um item."; mes "Boa Sorte."; close; } } mes "[Evento Pandaring]"; mes "Olá "+strcharinfo(0)+" o que posso fazer por você?"; next; if(select("Ligar evento.:Entrar no evento.") == 1) callsub OnStart; mes "[Evento Pandaring]"; mes "Divirta-se!"; next; warp "poring_c01", 100, 100; end; Onclock0200: callsub OnEventStart; Onclock0030: callsub OnEventStart; OnClock1630: callsub OnEventStart; OnClock0500: callsub OnEventStart; OnClock2000: callsub OnEventStart; OnClock1900: callsub OnEventStart; OnEventStart: announce "[Evento Pandaring]: Gente, é hora do evento. Falem comigo para entrar.",0; initnpctimer; monster "poring_c01",0,0,"Pandaring",3500,1,strnpcinfo(0)+"::OnMobKilled"; monster "poring_c01",0,0,"Pamdaring",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandarimg",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"P@andaring",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Panndarin",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pendaring",3500,5,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandaryng",3500,1,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandarlng",3500,1,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandarng",3500,1,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandring",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"P4ndring",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandaryng",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Panring",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pandring",3500,10,strnpcinfo(0)+"::OnWrongKilled"; monster "poring_c01",0,0,"Pamdring",3500,1,strnpcinfo(0)+"::OnWrongKilled"; set .pandaringcatch,1; end; return; OnTimer600000: stopnpctimer; announce "[Evento Pandaring]: O tempo acabou, tente na próxima vez.",0; set .pandaringcatch,0; killmonsterall "poring_c01"; end; OnMobKilled: stopnpctimer; announce "[Evento Pandaring]: "+strcharinfo(0)+" encontrou o Pandaring. Tente denovo na próxima vez.",0; dispbottom "Parabéns, você me achou."; getitem $ipe,$qpe; killmonsterall "poring_c01"; set .pandaringcatch,0; end; OnWrongKilled: dispbottom "Whaa, você errou feio."; if($hpe) percentheal -50,0; warp "prontera",157,175; end;}
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.