Jump to content
Sign in to follow this  
joaomarcos14

[Ajuda] Npcs x Novo Emulador

Recommended Posts

eae pessoal !!! tudo beleza ? bom queria ajudar de vocês com uns scripts , bom eu tirei uns scripts de um emulador antigo e então coloquei no novo emulador da cronus , pois bem , depois de eu ter feito tudo isso , fui olhar os npcs e a maioria deles não funcionou (como assim ?) eu clico neles e nada acontece... poderiam mim ajudar ?

Grato !

vou deixa um script aqui para vocês terem uma noção do erro ..

prontera.gat,166,177,3 script Garota da Enquete 831,{
if ($the_poll_question$ == "") goto L_NoQuestion;
L_Begin:
show "[^666699 Garota da Enquete ^000000]";
show "^FF0000" + $the_poll_question$ + "^000000";
if (#the_pollid != $the_pollid) goto L_NotVoted;
// Sets bar length
set @the_PB$[0], " ";
set @the_PB$[1], "^0077BF| ^000000";
set @the_PB$[2], "^0081CF|^0077BF| ^000000";
set @the_PB$[3], "^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[4], "^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[5], "^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[6], "^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[7], "^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[8], "^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[9], "^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[10], "^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[11], "^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[12], "^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[13], "^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[14], "^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[15], "^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[16], "^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[17], "^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[18], "^CFEBFF|^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[19], "^DFF1FF|^CFEBFF|^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF| ^000000";
set @the_PB$[20], "^EFF8FF|^DFF1FF|^CFEBFF|^BFE5FF|^AFDFFF|^9FD8FF|^8FD2FF|^7FCCFF|^6FC8FF|^5FC2FF|^4FBCFF|^3FB6FF|^2FB0FF|^1FAAFF|^0FA4FF|^009EFF|^0094EF|^008BDF|^0081CF|^0077BF|^000000";
// Calculates percentage
set @the_total,$the_PA[1]+$the_PA[2]+$the_PA[3]+$the_PA[4]+$the_PA[5]+$the_PA[6]+$the_PA[7]+$the_PA[8]+$the_PA[9];
set @the_PC[1],$the_PA[1]*100/@the_total;
set @the_PC[2],$the_PA[2]*100/@the_total;
set @the_PC[3],$the_PA[3]*100/@the_total;
set @the_PC[4],$the_PA[4]*100/@the_total;
set @the_PC[5],$the_PA[5]*100/@the_total;
set @the_PC[6],$the_PA[6]*100/@the_total;
set @the_PC[7],$the_PA[7]*100/@the_total;
set @the_PC[8],$the_PA[8]*100/@the_total;
set @the_PC[9],$the_PA[9]*100/@the_total;
// Displays results
if ($the_PQ$[1] != "") show $the_PQ$[1];
if ($the_PQ$[1] != "") show "["+@the_PB$[@the_PC[1]/5]+"] " + $the_PA[1] + " ("+@the_PC[1]+"%)";
if ($the_PQ$[2] != "") show $the_PQ$[2];
if ($the_PQ$[2] != "") show "["+@the_PB$[@the_PC[2]/5]+"] " + $the_PA[2] + " ("+@the_PC[2]+"%)";
if ($the_PQ$[3] != "") show $the_PQ$[3];
if ($the_PQ$[3] != "") show "["+@the_PB$[@the_PC[3]/5]+"] " + $the_PA[3] + " ("+@the_PC[3]+"%)";
if ($the_PQ$[4] != "") show $the_PQ$[4];
if ($the_PQ$[4] != "") show "["+@the_PB$[@the_PC[4]/5]+"] " + $the_PA[4] + " ("+@the_PC[4]+"%)";
if ($the_PQ$[5] != "") show $the_PQ$[5];
if ($the_PQ$[5] != "") show "["+@the_PB$[@the_PC[5]/5]+"] " + $the_PA[5] + " ("+@the_PC[5]+"%)";
if ($the_PQ$[6] != "") show $the_PQ$[6];
if ($the_PQ$[6] != "") show "["+@the_PB$[@the_PC[6]/5]+"] " + $the_PA[6] + " ("+@the_PC[6]+"%)";
if ($the_PQ$[7] != "") show $the_PQ$[7];
if ($the_PQ$[7] != "") show "["+@the_PB$[@the_PC[7]/5]+"] " + $the_PA[7] + " ("+@the_PC[7]+"%)";
if ($the_PQ$[8] != "") show $the_PQ$[8];
if ($the_PQ$[8] != "") show "["+@the_PB$[@the_PC[8]/5]+"] " + $the_PA[8] + " ("+@the_PC[8]+"%)";
if ($the_PQ$[9] != "") show $the_PQ$[9];
if ($the_PQ$[9] != "") show "["+@the_PB$[@the_PC[9]/5]+"] " + $the_PA[9] + " ("+@the_PC[9]+"%)";
show "Total de Votos: " + @the_total;
if(getgmlevel()>98) menu "Editar uma das Opções",L_Edit,"Editar Resultados",L_EditCount,"Criar nova Enquete",L_SetQuestion,"Sair",-;
close;
// Vote menu
L_NotVoted:
menu $the_PQ$[1],P1,
$the_PQ$[2],P2,
$the_PQ$[3],P3,
$the_PQ$[4],P4,
$the_PQ$[5],P5,
$the_PQ$[6],P6,
$the_PQ$[7],P7,
$the_PQ$[8],P8,
$the_PQ$[9],P9,
"Cancelar",L_Cancel;
P1: set @the_vote,1; goto P_Vote;
P2: set @the_vote,2; goto P_Vote;
P3: set @the_vote,3; goto P_Vote;
P4: set @the_vote,4; goto P_Vote;
P5: set @the_vote,5; goto P_Vote;
P6: set @the_vote,6; goto P_Vote;
P7: set @the_vote,7; goto P_Vote;
P8: set @the_vote,8; goto P_Vote;
P9: set @the_vote,9; goto P_Vote;
P_Vote:
if ($the_PQ$[@the_vote] == "") goto L_Begin;
set $the_PA[@the_vote],$the_PA[@the_vote]+1;
set #the_pollid,$the_pollid;
next;
show "[^666699 Garota da Enquete ^000000]";
show "Obrigado pelo seu voto!";
next;
goto L_Begin;
// No question is set
L_NoQuestion:
show "[^666699 Garota da Enquete ^000000]";
show "Nenhuma enquete está no ar...";
if (getgmlevel() > 90) goto L_SetQuestion;
close;
// Set question
L_SetQuestion:
set $the_PQ$[1],"";
set $the_PQ$[2],"";
set $the_PQ$[3],"";
set $the_PQ$[4],"";
set $the_PQ$[5],"";
set $the_PQ$[6],"";
set $the_PQ$[7],"";
set $the_PQ$[8],"";
set $the_PQ$[9],"";
set $the_PA[1],"";
set $the_PA[2],"";
set $the_PA[3],"";
set $the_PA[4],"";
set $the_PA[5],"";
set $the_PA[6],"";
set $the_PA[7],"";
set $the_PA[8],"";
set $the_PA[9],"";
set $the_poll_question$,"";
next;
show "[^666699 Garota da Enquete ^000000]";
show "Criar enquete?";
next;
menu "Sim",-,"Não",L_Cancel;
digit $the_poll_question$;
set $the_pollid,rand(100000,999999);
show "Enquete ajustada para: ^FF0000" + $the_poll_question$ + "^000000";
next;
show "[^666699 Garota da Enquete ^000000]";
show "Insira as opções:";
show "Entre com 'fim' para feixar a enquete...";
next;
P_Set:
digit $the_PQ$[1];
if ($the_PQ$[1] == "fim") goto P_Set; // Disallows no option poll
P_Set2:
digit $the_PQ$[2];
if ($the_PQ$[2] == "fim") goto P_Set2; // Disallows 1 option poll
digit $the_PQ$[3];
set @the_last,3;
if ($the_PQ$[3] == "fim") goto L_SetEnd;
digit $the_PQ$[4];
set @the_last,4;
if ($the_PQ$[4] == "fim") goto L_SetEnd;
digit $the_PQ$[5];
set @the_last,5;
if ($the_PQ$[5] == "fim") goto L_SetEnd;
digit $the_PQ$[6];
set @the_last,6;
if ($the_PQ$[6] == "fim") goto L_SetEnd;
digit $the_PQ$[7];
set @the_last,7;
if ($the_PQ$[7] == "fim") goto L_SetEnd;
digit $the_PQ$[8];
set @the_last,8;
if ($the_PQ$[8] == "fim") goto L_SetEnd;
digit $the_PQ$[9];
set @the_last,9;
if ($the_PQ$[9] == "fim") goto L_SetEnd;
// Add poll field
L_Add:
next;
show "[^666699 Garota da Enquete ^000000]";
if ($the_PQ$[3] == "") goto PA3;
if ($the_PQ$[4] == "") goto PA4;
if ($the_PQ$[5] == "") goto PA5;
if ($the_PQ$[6] == "") goto PA6;
if ($the_PQ$[7] == "") goto PA7;
if ($the_PQ$[8] == "") goto PA8;
if ($the_PQ$[9] == "") goto PA9;
show "Sinto muito mas o máximo de opções é 9 opções.";
close;
PA3: set @the_add,3; goto L_Add2;
PA4: set @the_add,4; goto L_Add2;
PA5: set @the_add,5; goto L_Add2;
PA6: set @the_add,6; goto L_Add2;
PA7: set @the_add,7; goto L_Add2;
PA8: set @the_add,8; goto L_Add2;
PA9: set @the_add,9; goto L_Add2;
L_Add2:
show "Entre com o nome da opção que você deseja criar:";
digit $the_PQ$[@the_add];
next;
show "[^666699 Garota da Enquete ^000000]";
show "Opção adicionada...";
close;
// Edit poll count
L_EditCount:
next;
show "[^666699 Garota da Enquete ^000000]";
show "De qual opção você deseja mudar o número de votos?";
next;
menu $the_PQ$[1],PEC1,
$the_PQ$[2],PEC2,
$the_PQ$[3],PEC3,
$the_PQ$[4],PEC4,
$the_PQ$[5],PEC5,
$the_PQ$[6],PEC6,
$the_PQ$[7],PEC7,
$the_PQ$[8],PEC8,
$the_PQ$[9],PEC9,
"Cancelar",L_Cancel;
PEC1: digit $the_PA[1]; goto L_EditCountSet;
PEC2: digit $the_PA[2]; goto L_EditCountSet;
PEC3: digit $the_PA[3]; goto L_EditCountSet;
PEC4: digit $the_PA[4]; goto L_EditCountSet;
PEC5: digit $the_PA[5]; goto L_EditCountSet;
PEC6: digit $the_PA[6]; goto L_EditCountSet;
PEC7: digit $the_PA[7]; goto L_EditCountSet;
PEC8: digit $the_PA[8]; goto L_EditCountSet;
PEC9: digit $the_PA[9]; goto L_EditCountSet;
L_EditCountSet:
show "[^666699 Garota da Enquete ^000000]";
show "Opção modificada!";
close;
// Edit poll field
L_Edit:
next;
show "[^666699 Garota da Enquete ^000000]";
show "Qual opção você deseja modificar?";
next;
menu $the_PQ$[1],PE1,
$the_PQ$[2],PE2,
$the_PQ$[3],PE3,
$the_PQ$[4],PE4,
$the_PQ$[5],PE5,
$the_PQ$[6],PE6,
$the_PQ$[7],PE7,
$the_PQ$[8],PE8,
$the_PQ$[9],PE9,
"Cancelar",L_Cancel;
PE1: digit $the_PQ$[1]; goto L_EditSet;
PE2: digit $the_PQ$[2]; goto L_EditSet;
PE3: digit $the_PQ$[3]; goto L_EditSet;
PE4: digit $the_PQ$[4]; goto L_EditSet;
PE5: digit $the_PQ$[5]; goto L_EditSet;
PE6: digit $the_PQ$[6]; goto L_EditSet;
PE7: digit $the_PQ$[7]; goto L_EditSet;
PE8: digit $the_PQ$[8]; goto L_EditSet;
PE9: digit $the_PQ$[9]; goto L_EditSet;
L_EditSet:
show "[^666699 Garota da Enquete ^000000]";
show "Opção modificada!";
close;
L_SetEnd:
Announce "[Enquete] Uma nova Enquete está no ar!",8;
Announce "[Enquete] "+ $the_poll_question$ +" ",8;
set $the_PQ$[@the_last],"";
show "[^666699 Garota da Enquete ^000000]";
show "Enquete ajustada!";
close;
L_Cancel:
show "[^666699 Garota da Enquete ^000000]";
show "Até a proxima!";
end;
}
}

Share this post


Link to post
Share on other sites

Vamos buscar soluções para nossos problemas? Sem querer tudo de mão beijada?

Leia esse tutorial que eu fiz, (mais mastigado que isso impossível ¬¬)

http://forum.cronus-emulator.com/tutorials/article/756-comandos-novos-comandos-emulador-20132014/

Share this post


Link to post
Share on other sites

npc 100 % funcionando

prontera,164,175,3	script	Garota da Enquete	831,{		set @nome$,"[^0080C0 Enquete ^000000]";		mes @nome$;	mes "Olá ^BC8F8F"+strcharinfo(0)+"^000000";	mes "Eu faço as pesquisas de opinião oficiais do servidor, e seria muito bom saber a sua opinião";	mes "Esta é a "+$enquetes+", enquete oficial feita pelo servidor.";	mes "O que deseja?";	next;	switch(select("» Votar na enquete:» Ver resultado da enquete:"+(getgmlevel()>50 ? "» Recomeçar contagem dos votos:» Fazer outra pesquisa":":")+":» Nada")){	if(@menu < 5) mes @nome$;	if(@menu <= 3 && ($pergunta$=="" || !getarraysize($opicoes$))){		mes "No momento não há uma enquete definida.";		mes "Mas é muito importante sabermos a opinião dos players.";		mes "Por isso, volte mais tarde, para dar sua opinião.";		close;	}		case 1:			if(#voto==$enquetes){				mes "Você já votou nessa enquete";				mes "Aguarde uma nova enquete oficil ser feita, para poder votar novamente.";				close;			}			mes $pergunta$;			next;			for(set @i,0;@i<getarraysize($opicoes$);set @i,@i+1)				set .@menu$,.@menu$+$opicoes$[@i]+":";			set @selecionado,select(.@menu$)-1;			mes @nome$;			mes "Tem certeza que deseja votar em:";			mes $opicoes$[@selecionado]+" ?";			next;			if(select("» Sim:» Não")==2) close;			mes @nome$;			set #voto,$enquetes;			set $votos[@selecionado],$votos[@selecionado]+1;			set $total,$total+1;			mes "Seu voto foi computado.";			mes "Deseja ver o resultado parcial da enquete?";			next;			if(select("» Sim:» Não")==2) close;			mes @nome$;		case 2:			if(!$total){				mes "A enquete ainda não teve nenhum voto.";				mes "Seja o primeiro a votar.";				close;			}			mes "A pergunta: \""+$pergunta$+"\" teve "+$total+" votos.";			mes "E o resultado parcial é:";			for(set @o,0;@o<getarraysize($opicoes$);set @o,@o+1){				set @indicador,($votos[@o]*20)/$total;				set @indicador$,"";				for(set @i,0;@i<@indicador;set @i,@i+1)					set @indicador$,@indicador$+"|";				mes $opicoes$[@o]+" ["+$votos[@o]+"] ^00ff00"+@indicador$+"^000000";			}			close;		case 3:			mes "Tem certeza que deseja recomeçar a contagem dos votos da pesquisa";			mes "\""+$pergunta$+"\" ?";			next;			if(select("» Sim:» Não")==2) close;			mes @nome$;			set $enquetes,$enquetes+1;			for(set @i,0;@i<getarraysize($votos);set @i,@i+1)				set $votos[@i],0;			set $total,0;			mes "Votos apagados.";			close;		case 4:			mes "Digite a nova pergunta para a enquete.";			next;			input $pergunta$;			for(set @i,0;@i<getarraysize($opicoes$);set @i,@i+1)				set $opicoes$[@i],"";			mes @nome$;			for(set @i,0;@i<126;set @i,@i+1){				mes "Digite a "+(@i+1)+"a. opção";				next;				input $opicoes$[@i];				mes "[ Enquete ]";				mes "Deseja adicionar mais uma opção?";				if(select("» Sim:» Não")==2) break;			}			set $enquetes,$enquetes+1;			for(set @i,0;@i<getarraysize($votos);set @i,@i+1)				set $votos[@i],0;			set $total,0;			mes "Nova enquete adicionada.";			close2;			announce "Uma nova Enquete Oficial foi feita.",bc_all|bc_yellow;			sleep 2500;			announce "Para votar, basta ir ao NPC de Garota da Enquete, no centro de Prontera  ( go 0 )",bc_all|bc_yellow;			end;		case 5:			close;	}	OnMinute46:		if(rand(3)) end;		announce "[Pesquisas Oficiais] "+$pergunta$,bc_all|bc_yellow;		sleep 2500;		announce "[Pesquisas Oficiais] Para votar na enquete, basta falar com o NPC Garota da Enquete, de Prontera ( go 0 ).",bc_all|bc_yellow;		end;} 

Share this post


Link to post
Share on other sites

Mas outro tópico, o autor já não tinha solucionado o problema?

Share this post


Link to post
Share on other sites

Duplicado ! *------------------------------------------------------------------------------------------------------------------*


Aviso automático:

Esse tópico foi fechado por um moderador.

Motivo: Duplicado

Se você não concorda com esta ação, vá até o Tribunal de Pequenas Causas.

Equipe Cronus Emulator.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

Seja bem vindo ao Cronus-Emulator.
É sempre um prazer te-lo conosco.
Você pode visualizar nossas áreas de suporte para encontrar suas soluções sem a necessidade de se registrar!
Registrando em nossa comunidade, você poderá conhecer mais sobre nosso projeto, criar tópicos, responder tópicos existentes, baixar milhares de recursos em nosso sistema de downloads, participar de nossa comunidade, customizar seu perfil e muito mais... Se você já possui uma conta, faça seu login - ou crie uma conta. Também temos integração com Google+ e Facebook.

×
×
  • Create New...