MvP points+invasion mvp

[Kasthiel]

Hello, I would like to be able to help me with these 2 scripts, I want the mvp invocation to invoke the mvp and to kill it from the configured points in the other one, I tried to put everything together in one file but I could not, I kill the mvp but it does not give me Score.

-	script	Pontos MvP	-1,{
OnNPCKillEvent:
// facil
//killedrid== 3029
//1086, 1087, 1115, 1147, 1150, 1159, 1190, 1251, 1252, 1389, 1583, 1688, 1885, 1980, 2068, 2094, 2131, 2194
if(killedrid== 1086 || killedrid== 1087 || killedrid== 1115 || killedrid== 1147 || killedrid== 1150 || 
	killedrid== 1159 || killedrid== 1190 || killedrid== 1251 || killedrid== 1252 || killedrid== 1389 || 
	killedrid== 1583 || killedrid== 1688 || killedrid== 1885 || killedrid== 1980 || killedrid== 2068 ||
	killedrid== 2094 || killedrid== 2131 || killedrid== 2194){
set PontoMvp,PontoMvp+1;
dispbottom "[Pontos MvP] Parabéns "+strcharinfo(0)+", sua recompensa por derrotar esse montros é 1 [Ponto MvP] Agora você possui "+PontoMvp+" pontos.";
}
// medio
//killedrid== 3000
//killedrid== 3073
//1038, 1039, 1046, 1059, 1112, 1157, 1272, 1312, 1373, 1418, 1492, 1511, 1623, 1630, 1785, 1957, 2022, 2087, 2187, 2188, 2253, 2317, 2321,  2441, 2442, 2996
if(killedrid== 1038 || killedrid== 1039 || killedrid== 1046 || killedrid== 1059 || killedrid== 1112 || 
	killedrid== 1157 || killedrid== 1272 || killedrid== 1312 || killedrid== 1373 || killedrid== 1418 || 
	killedrid== 1492 || killedrid== 1511 || killedrid== 1623 || killedrid== 1630 || killedrid== 1785 || 
	killedrid== 1957 || killedrid== 2022 || killedrid== 2087 || killedrid== 2187 || killedrid== 2188 || 
	killedrid== 2253 || killedrid== 2317 || killedrid== 2321 || killedrid== 2441 || killedrid== 2442 || 
	killedrid== 2996){
set PontoMvp,PontoMvp+2;
dispbottom "[Pontos MvP] Parabéns "+strcharinfo(0)+", sua recompensa por derrotar esse montros é 2 [Pontos MvP] Agora você possui "+PontoMvp+" pontos.";
}
// dificil
//1658, 1685, 1708, 1719, 1734, 1768, 1779, 1917, 1929, 1956, 2189, 2190, 2202, 2251, 2255, 2319, 2362
if(killedrid== 1658 || killedrid== 1685 || killedrid== 1708 || killedrid== 1719 || killedrid== 1734 || 
	killedrid== 1768 || killedrid== 1779 || killedrid== 1917 || killedrid== 1929 || killedrid== 1956 || 
	killedrid== 2189 || killedrid== 2190 || killedrid== 2202 || killedrid== 2251 || killedrid== 2255 || 
	killedrid== 2319 || killedrid== 2362){
set PontoMvp,PontoMvp+5;
dispbottom "[Pontos MvP] Parabéns "+strcharinfo(0)+", sua recompensa por derrotar esse montros é 3 [Pontos MvP] Agora você possui "+PontoMvp+" pontos.";
}
// tenso
//killedrid== 3097
//1646, 1647, 1648, 1649, 1650, 1651, 1751, 1832, 1871, 1874, 2165, 2235, 2236, 2237, 2238, 2239, 2240, 2241, 2249, 
if(killedrid== 1646 || killedrid== 1647 || killedrid== 1648 || killedrid== 1649 || killedrid== 1650 || 
	killedrid== 1651 || killedrid== 1751 || killedrid== 1832 || killedrid== 1871 || killedrid== 1874 || 
	killedrid== 2165 || killedrid== 2235 || killedrid== 2236 || killedrid== 2237 || killedrid== 2238 || 
	killedrid== 2239 || killedrid== 2240 || killedrid== 2241 || killedrid== 2249){
set PontoMvp,PontoMvp+10;
dispbottom "[Pontos MvP] Parabéns "+strcharinfo(0)+", sua recompensa por derrotar esse montros é 5 [Pontos MvP] Agora você possui "+PontoMvp+" pontos.";
}
end;
}
-	shop	MVSHOP1	-1,512:-1
-	shop	MVSHOP2	-1,512:-1

noatun,118,216,3	script	Pontos MvP#noa	1734,{

mes "^A020F0[Loja MvP]^000000";
mes "MVP é a abreviação para Most Valuable Player, que significa Jogador de Maior Valor.";
mes "É uma definição que não se limita apenas à Ragnarök Online.";
next;
mes "^A020F0[Loja MvP]^000000";
mes "A dificuldade de um MVP está pelo seu HP, dano e Experiência altíssimos.";
mes "Eles são do tipo Chefe, ou seja, possuem certas prioridades que um monstro comum não possui.";
next;
mes "^A020F0[Loja MvP]^000000";
mes "Os MVPs são livres para todos os jogadores: qualquer um poderá atacar um MVP sem estar infringindo a regra de Kill Steal.";
mes "Entretanto, se houver abuso e habilidade, os infratores deverão ser denunciados.";
next;
mes "^A020F0[Loja MvP]^000000";
mes "Deseja trocar seus pontos MvP por itens?";
next;
switch(select("[^339966+^000000] Sim.:[^FF0000+^000000] Não."))
{
case 1:
	mes "^A020F0[Loja MvP]^000000";
	mes "Escolha a categoria de itens que lhe interessa.";
	
	set @s, select("Equipamentos:Consumíveis/Cartas");
	message strcharinfo(0),"Esta loja só aceita Pontos MvP.";
	dispbottom "Você tem "+PontoMvp+" Pontos MvP.";
	callshop "MVSHOP"+@s,1;
	npcshopattach "MVSHOP"+@s;
	end;
	
case 2:
close;
}

OnBuyItem:
mes "^A020F0[Loja MvP]^000000";
if (PontoMvp==0){
mes "Você não possui Pontos Mvp.";
close;
}
if (PontoMvp>=1){
	set .@i,0;
	while (.@i < getarraysize(@bought_nameid)) {
		set .@j, 0;
		while (.@j < getarraysize(getd(".Shop"+@s))) {
			if(getd(".Shop"+@s+"["+.@j+"]") == @bought_nameid[.@i]) {
				set @itemcost, (getd(".Shop"+@s+"["+(.@j+1)+"]") * @bought_quantity[.@i]);
				set @totalcost, @totalcost + @itemcost;
				break; }
			set .@j, .@j+2; }
		set .@i, .@i+1; }
	if (@totalcost > PontoMvp) dispbottom "Você não tem o suficiente de Pontos MvP."; 
	else {
		set .@i,0;
		while (.@i < getarraysize(@bought_nameid)) {
			getitem @bought_nameid[.@i], @bought_quantity[.@i];
			
			dispbottom "Você comprou ["+@bought_quantity[.@i]+"x "+getitemname(@bought_nameid[.@i])+"]";

			set .@i, .@i+1; }
		set PontoMvp,PontoMvp-@totalcost;
		mes "Seu total de Pontos MvP agora é ["+PontoMvp+"]";
		}
	set @totalcost, 0;
	deletearray @bought_nameid[0], 128;
	deletearray @bought_quantity[0], 128;
close;
	end;
}

OnInit:
	setarray .Currency[1],507;
	setarray .Shop1[0],30074,100000,30078,100000,30096,100000,30111,100000,30114,100000,30378,100000;
	setarray .Shop2[0],4128,100000,501,10,12210,1,12208,1,12103,5;

	set .@i,1;
	while (.@i <= getarraysize(.Currency)) {
		set .@j,0;
while (.@j < getarraysize(getd(".Shop"+.@i))) {
			npcshopdelitem "MVSHOP"+.@i,512;
			npcshopadditem "MVSHOP"+.@i, getd(".Shop"+.@i+"["+.@j+"]"), getd(".Shop"+.@i+"["+(.@j+1)+"]");
			set .@j, .@j+2; }
		set .@i, .@i+1; }
	end;

}

//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//%%           _____    _____   _____   _____   _____    _   _____   _   _            %%
//%%          |  _  \  /  _  \ |  _  \ | ____| |  _  \  | | /  ___| | | / /           %%
//%%          | |_| |  | | | | | | | | | |__   | |_| |  | | | |     | |/ /            %%
//%%          |  _  /  | | | | | | | | |  __|  |  _  /  | | | |     | |\ \            %%
//%%          | | \ \  | |_| | | |_| | | |___  | | \ \  | | | |___  | | \ \           %%
//%%          |_|  \_\ \_____/ |_____/ |_____| |_|  \_\ |_| \_____| |_|  \_\          %%
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//%%==================================================================================%%
//%% | Desenvolvido Por [ADM] Roderick | Cronus | Por Favor, Não Retire Os Créditos | %%
//%%==================================================================================%%
//%%  		|		TABELA SQL       (NÃO ESQUECER DE IMPORTAR PARA O BD)             %%
//%%==================================================================================%%
//%% 			DROP TABLE IF EXISTS `invasao`;
//%%		 	CREATE TABLE `invasao` (
//%% 			`id` int(11) unsigned NOT NULL auto_increment,
//%% 			`mobid` int(11) unsigned NOT NULL default '0',
//%% 			PRIMARY KEY (`id`)
//%% 			)ENGINE=MyISAM;
//%%==================================================================================%%
-	script	INVASAOMVP	-1,{	
OnInit:
//%%==================================================================================%%
//%% Colocar aqui a ID dos MVPS "normais" ou seja os MVP's que vão ser sumonado em
//%% maior quantidade
setarray $MVP[1],1086,1087,1115,1147,1150,1159,1190,1251,1252,1389,1583,1688,1885,1980,2068,2094,2131,2194,1038,1039,1046,1059,1112,1157,1272,1312,1373,1418,1492,1511,1623,1630,1785,1957,2022,2087,2187,2188,2253,2317,2321,2441,2442,2996;

//%% Colocar aqui a ID dos MVPS "melhores" ou seja os MVP's que vão ser sumonado em
//%% menor quantidade
setarray $TopMVP[1],1658,1685,1708,1719,1734,1768,1779,1917,1929,1956,2189,2190,2202,2251,2255,2319,2362,1646,1647,1648,1649,1650,1651,1751,1832,1871,1874,2165,2235,2236,2237,2238,2239,2240,2241,2249;

//%% Aqui é a % de chance que os MVPs "normais", poderam ser sumonado 2 do mesmo!!
//%% Pra cada monstro invocado, vai ser aplicado a taxa de porcetentagem para poder
//%% dobrar e invocar 2 do mesmo, sendo assim só alguns vai ser dobrado conforme a %!
//%% Colocar 100 para 100% e 0 para desabilitar essa função
set $dobroMVP,50;

//%% Aqui é a % de chance que os MVPs "melhores", poderam ser sumonado 2 do mesmo!!
//%% Pra cada monstro invocado, vai ser aplicado a taxa de porcetentagem para poder
//%% dobrar e invocar 2 do mesmo, sendo assim só alguns vai ser dobrado conforme a %!
//%% Colocar 100 para 100% e 0 para desabilitar essa função
set $dobroTOP,50;

//%% Quantidade média de MVP "normais" que vai ser sumonado, média porquê esse número
//%% poderá ser maior conforme a taxa de dobro (se estiver ativada)
set $qtdeMVP,6;

//%% Quantidade média de MVP "melhores" que vai ser sumonado, média porquê esse nº
//%% poderá ser maior conforme a taxa de dobro (se estiver ligada)%
set $qtdeTOP,1;

//%% Chance do evento poder não acontecer, se quiser que o evento sempre aconteça
//%% colocar o valor em 100 > 100%. O número equivale a % que evento VAI acontecer!!
set $acontecer,100;

//%% MAPA que vai acontecer a invasão (colocar igual o nome digitado no @warp)
set $mapa$,"prt_fild00";

//%% Nome do MAPA que vai aparecer nas mensagens globais anunciando o EVENTO!!
set $nomemapa$,"CAMPO DE PRONTERA";

//%% Quando estiver faltando 'x' MVP's pra serem mortos o npc começa mandar global
//%% avisando quantos MVP's faltam para ser mortos; Colocar 0 (zero) pra desativar
set $faltam,10;

//%%
end;

//%% Configure aqui os horários para acontecer o evento, coloque os horários em
//%% formato PM sem o separador de horas e minutos. Ex: "1945" para 19:45> 07:45 PM
//%% Pode colocar quantos horários quizer, ou também, apenas um
//OnClock<hour><minute>:
//OnMinute<minute>:
//OnHour<hour>:
//On<weekday><hour><minute>:
//OnDay<month><day>:

OnMinute00:
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

query_sql ("delete from `invasao` where id>0");
set .@iniciar,rand(1,100);
	if (.@iniciar > $acontecer){
		end;
	}
for (set .@c,1; .@c <= $qtdeMVP; .@c++){
	set .@max,getarraysize($MVP)-1;
	set .@ID,rand(1,.@max);
	query_sql ("select mobid from invasao where mobid='"+$MVP[.@ID]+"'",.@fromtable);
		if ($MVP[.@ID] == .@fromtable){
		while ($MVP[.@ID] == .@fromtable){ 		
			set .@ID,rand(1,.@max);
		}}
	set .@dobrar,rand(1,100);
		if(.@dobrar<=$dobroMVP)set .@quantos,2;
		else{ set .@quantos,1;}
		monster $mapa$,0,0,getmonsterinfo($MVP[.@ID],0),$MVP[.@ID],.@quantos,strnpcinfo(0)+"::OnKILLMOB";
		query_sql("insert into `invasao` (mobid) value ('"+$MVP[.@ID]+"')");
}
for (set .@c,1; .@c <= $qtdeTOP; .@c++){
		set .@max,getarraysize($TopMVP)-1;
		set .@ID,rand(1,.@max);
		query_sql ("select mobid from invasao where mobid='"+$TopMVP[.@ID]+"'",.@fromtable);
		if ($TopMVP[.@ID] == .@fromtable){
		while ($TopMVP[.@ID] == .@fromtable){				 
			set .@ID,rand(1,.@max);
		}}
	set .@dobrar,rand(1,100);
		if(.@dobrar<=$dobroTOP)set .@quantos,2;
		else{ set .@quantos,1;}
		monster $mapa$,0,0,getmonsterinfo($TopMVP[.@ID],0),$TopMVP[.@ID],.@quantos,strnpcinfo(0)+"::OnKILLMOB";
		query_sql("insert into `invasao` (mobid) value ('"+$TopMVP[.@ID]+"')");
}
announce "[Invasão MvP] Corram todos, vários MvP's surgiram do nada!!! "+$nomemapa$+"",bc_yellow;
sleep 5000;
announce "[Invasão MvP] Corram porquê eles vão fugir em 30 minutos!!!",bc_yellow;   //Não esqueça de alterar essa linha, caso você altere o tempo da Invasão!
initnpctimer;
set $mob,mobcount($mapa$,strnpcinfo(0)+"::OnKILLMOB");
end;
OnTimer1800000:						//Configure o tempo que a invasão durará aqui, coloque o tempo em segundos!!
killmonster $mapa$,strnpcinfo(0)+"::OnKILLMOB";
cleanmap $mapa$;
announce "[Invasão MvP] OS MvP's fugiram, a INVASÃO terminou!!!",bc_all,0xFF0000;
stopnpctimer;
end;
OnKILLMOB:
	$mob--;
    if($mob==0){
		sleep 3000;
		announce "[Invasão MvP] Todos os MvP's foram mortos, a INVASÃO terminou!!!",bc_all,0xFF0000;
		stopnpctimer;
		end;
}
	if($mob==1){
		sleep 3000;
		announce "[Invasão MvP] Falta apenas 1 MvP para a INVASÃO terminar!",bc_yellow;
	}
	if($mob<=$faltam && $mob>1){
		sleep 3000;
		announce "[Invasão MvP] Ainda existe "+$mob+" MvP's em' "+$nomemapa$+"!!",bc_yellow;
	}	
	
end;
}