Jump to content
  • Sign Up
  • 0
Sign in to follow this  
Followers 0
Asgard4676

Erro ao Iniciar Evento

Asked by Asgard4676

Question

Asgard4676    0

Asgard4676
Posted (edited)

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;}
Edited by Asgard4676

Share this post

Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Asgard4676    0

Asgard4676
Posted (edited)

erro muito óbvio :P

 

:

callsub OnStart;

 

callsub OnEventStart;

 

 

uma das duas não existe, adivinhe qual kkk

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;

Edited by Asgard4676

Share this post

Link to post
Share on other sites
  • 0

ρixєℓ    21

ρixєℓ
Posted (edited)

Troque:

 

 

   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;

 

Por:

 

 

   switch(select("Entrar no evento:Ligar Evento")){

 
case 1:
 
    mes "[Evento Pandaring]";
    mes "Divirta-se!";
    next;
    warp "poring_c01", 100, 100;
    end;
 
case 2:
goto OnEventStart;
close;
}
 
        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;

 
Sobre o estilista basta renomear a label "L_end" para L_End", e os outros npcs, pode postar novamente? ficou meio zoado.
Edited by ρixєℓ
Asgard4676 and JulioCF reacted to this

Share this post

Link to post
Share on other sites
  • 0

Asgard4676    0

Asgard4676
Posted

 

Troque:

 

 

   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;

 

Por:

 

 

   switch(select("Entrar no evento:Ligar Evento")){

 
case 1:
 
    mes "[Evento Pandaring]";
    mes "Divirta-se!";
    next;
    warp "poring_c01", 100, 100;
    end;
 
case 2:
goto OnEventStart;
close;
}
 
        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;

 
Sobre o estilista basta renomear a label "L_end" para L_End", e os outros npcs, pode postar novamente? ficou meio zoado.

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

Share this post

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
Sign in to follow this  
Followers 0
Go To Question Listing
×
×
  • Create New...

Important Information

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

  I accept