// By Kirito	Contato kirito.yuki
// Versão 0.1
// Descrição : Quando Evento Inicia abre arena de caça la eles matam mostro e ganham pontos para trocar por item.
// ===================================================
prontera,150,150,5	script	Arena de Caça	763,{

set .n$,"["+StrNpcInfo(1)+"]";

	mes .n$;
		mes "Olá sou o guardião da arena";
		next;
		mes .n$;
		mes "Quanto mais monstro você mata mais ponto você ganha";
		mes "E você pode trocar estes pontos por items";
			next;		
		if(getgmlevel()>98){ 
		
		switch(select("Desejo entrar na Arena:Trocar Pontos:Mudar Items da Loja:Ver items selecionados")) {

Case 1:

GoEntra:

	if($WarpLiberado == 1){

	mes .n$;
		mes "Boa sorte, tente sobreviver";
		warp "ordeal_1-2.gat",154,153;
		close;
		
	}
	
	mes .n$;
		mes "Desculpe estamos fechados";
		close;


Case 2:

GoPonto:
	mes .n$;
		mes "Escolha aqui os items que serão vendidos";
		mes "Você tem "+Ponto+" pontos";
		next;
		mes .n$;
		mes "Se algum item estiver escrito NULL, não tente compra-lo, pois irá perder seus pontos";
			next;
				switch(select(""+getitemname($Item1)+" == "+$Pontos1+"",""+getitemname($Item2)+" == "+$Pontos2+"",""+getitemname($Item3)+" == "+$Pontos3+"",""+getitemname($Item4)+" == "+$Pontos4+"",""+getitemname($Item5)+" == "+$Pontos5+"",""+getitemname($Item6)+" == "+$Pontos6+"")){

Case 1:

	mes .n$;
		mes "Você está certo que deseja comprar o "+$Item1+" por "+$Pontos1+" pontos?";
			next;
				if(select("Sim:Não") == 2) {
				
				close;
				
				}

	mes .n$;
		mes "Digite a quantia de items que você deseja:";
		input @Quantia;
		next;
		if(Ponto < $Pontos1*@Quantia){
		mes .n$;
		mes "Você não tem pontos para comprar essa quantia deste item.";
		close;

		}

	mes .n$;
		mes "Muito Bem aqui estão seus items!";
		set Ponto,Ponto-$Pontos1*@Quantia;
		getitem $Item1,@Quantia;
		close;


Case 2:

	mes .n$;
		mes "Você está certo que deseja comprar o "+$Item2+" por "+$Pontos2+" pontos?";
			next;
				if(select("Sim:Não") == 2) {
				
				close;
				
				}

	mes .n$;
		mes "Digite a quantia de items que você deseja:";
		input @Quantia;
		next;
		if(Ponto < $Pontos2*@Quantia){
		mes .n$;
		mes "Você não tem pontos para comprar essa quantia deste item.";
		close;

		}
		
	mes .n$;
		mes "Muito Bem aqui estão seus items!";
		set Ponto,Ponto-$Pontos2*@Quantia;
		getitem $Item2,@Quantia;
		close;

Case 3:

	mes .n$;
		mes "Você está certo que deseja comprar o "+$Item3+" por "+$Pontos3+" pontos?";
			next;
				if(select("Sim:Não") == 2) {
				
				close;
				
				}

	mes .n$;
		mes "Digite a quantia de items que você deseja:";
		input @Quantia;
		next;
		if(Ponto < $Pontos3*@Quantia){
		mes .n$;
		mes "Você não tem pontos para comprar essa quantia deste item.";
		close;

		}

	mes .n$;
		mes "Muito Bem aqui estão seus items!";
		set Ponto,Ponto-$Pontos3*@Quantia;
		getitem $Item3,@Quantia;
		close;

Case 4:

	mes .n$;
		mes "Você está certo que deseja comprar o "+$Item4+" por "+$Pontos4+" pontos?";
			next;
				if(select("Sim:Não") == 2) {
				
				close;
				
				}

	mes .n$;
		mes "Digite a quantia de items que você deseja:";
		input @Quantia;
		next;
		if(Ponto < $Pontos4*@Quantia){
		mes .n$;
		mes "Você não tem pontos para comprar essa quantia deste item.";
		close;

		}

	mes .n$;
		mes "Muito Bem aqui estão seus items!";
		set Ponto,Ponto-$Pontos4*@Quantia;
		getitem $Item4,@Quantia;
		close;

Case 5:

	mes .n$;
		mes "Você está certo que deseja comprar o "+$Item5+" por "+$Pontos5+" pontos?";
			next;
				if(select("Sim:Não") == 2) {
				
				close;
				
				}

	mes .n$;
		mes "Digite a quantia de items que você deseja:";
		input @Quantia;
		next;
		if(Ponto < $Pontos5*@Quantia){
		mes .n$;
		mes "Você não tem pontos para comprar essa quantia deste item.";
		close;

		}

	mes .n$;
		mes "Muito Bem aqui estão seus items!";
		set Ponto,Ponto-$Pontos5*@Quantia;
		getitem $Item5,@Quantia;
		close;

Case 6:

	mes .n$;
		mes "Você está certo que deseja comprar o "+$Item6+" por "+$Pontos6+" pontos?";
			next;
				if(select("Sim:Não") == 2) {
				
				close;
				
				}

	mes .n$;
		mes "Digite a quantia de items que você deseja:";
		input @Quantia;
		next;
		if(Ponto < $Pontos6*@Quantia){
		mes .n$;
		mes "Você não tem pontos para comprar essa quantia deste item.";
		close;

		}

	mes .n$;
		mes "Muito Bem aqui estão seus items!";
		set Ponto,Ponto-$Pontos6*@Quantia;
		getitem $Item6,@Quantia;
		close;

			}

Case 3:

GoMudar:
	mes .n$;
		mes "Digite os items que serão vendidos e o preço";
		next;
	mes .n$;
		mes "Digite a ID do Primeiro item";
		input $Item1;
		next;
	mes .n$;
		mes "Digite aqui o preço em pontos";
		input $Pontos1;
		next;
	mes .n$;
		mes "Digite a ID do Segundo item";
		input $Item2;
		next;
	mes .n$;
		mes "Digite aqui o preço em pontos";
		input $Pontos2;
		next;
	mes .n$;
		mes "Digite a ID do Terceiro item";
		input $Item3;
		next;
	mes .n$;
		mes "Digite aqui o preço em pontos";
		input $Pontos3;
		next;
	mes .n$;
		mes "Digite a ID do Quarto item";
		input $Item4;
		next;
	mes .n$;
		mes "Digite aqui o preço em pontos";
		input $Pontos4;
		next;
	mes .n$;
		mes "Digite a ID do Quinto item";
		input $Item5;
		next;
	mes .n$;
		mes "Digite aqui o preço em pontos";
		input $Pontos5;
		next;
	mes .n$;
		mes "Digite a ID do Sexto item";
		input $Item6;
		next;
	mes .n$;
		mes "Digite aqui o preço em pontos";
		input $Pontos6;
		next;
		goto Checagem;

Checagem:

	mes .n$;
		mes "Bem os items que você escolheu são:";
		next;
	mes .n$;
		mes ""+getitemname($Item1)+" "+$Pontos1+" pontos";
		mes ""+getitemname($Item2)+" "+$Pontos2+" pontos";
		mes ""+getitemname($Item3)+" "+$Pontos3+" pontos";
		mes ""+getitemname($Item4)+" "+$Pontos4+" pontos";
		mes ""+getitemname($Item5)+" "+$Pontos5+" pontos";
		mes ""+getitemname($Item6)+" "+$Pontos6+" pontos";
		mes "Deseja modificar algo?";
		if(select("Não:Sim") == 2) {
		
			goto GoMudar;
			
		}

	mes .n$;
		mes "Volte sempre que precisar";
		close;
		
Case 4:

	mes .n$;
		mes ""+getitemname($Item1)+" "+$Pontos1+" pontos";
		mes ""+getitemname($Item2)+" "+$Pontos2+" pontos";
		mes ""+getitemname($Item3)+" "+$Pontos3+" pontos";
		mes ""+getitemname($Item4)+" "+$Pontos4+" pontos";
		mes ""+getitemname($Item5)+" "+$Pontos5+" pontos";
		mes ""+getitemname($Item6)+" "+$Pontos6+" pontos";
		mes "Deseja modificar algo?";
		if(select("Não:Sim") == 2) {
		
			goto GoMudar;
			
		}

	mes .n$;
		mes "Volte sempre que precisar";
		close;

		}
	}

		if(select("Desejo entrar na Arena:Trocar Pontos") == 1) {

		goto GoEntra;

		}
		
		goto GoPonto;
}


-	script	MobArena	-1,{

OnHour00:
OnHour02:
OnHour04:
OnHour06:
OnHour08:
OnHour10:
OnHour12:
OnHour14:
OnHour16:
OnHour18:
OnHour20:
OnHour22:

killmonsterall "ordeal_1-2.gat";
	announce "Arena de Caça Está Aberta em 5minutos os Warps estarão fechados, quer participar? corra!",8;
		monster "ordeal_1-2",0,0,"Vale 1 Ponto",1002,20,"MobArena::OnVale1";
		monster "ordeal_1-2",0,0,"Vale 1 Ponto",1002,20,"MobArena::OnVale1";
		monster "ordeal_1-2",0,0,"Vale 1 Ponto",1229,20,"MobArena::OnVale1";
		monster "ordeal_1-2",0,0,"Vale 1 Ponto",1229,20,"MobArena::OnVale1";
		monster "ordeal_1-2",0,0,"Vale 10 Pontos",1054,20,"MobArena::OnVale10";
		monster "ordeal_1-2",0,0,"Vale 10 Pontos",1054,20,"MobArena::OnVale10";
		monster "ordeal_1-2",0,0,"Vale 10 Pontos",1034,20,"MobArena::OnVale10";
		monster "ordeal_1-2",0,0,"Vale 10 Pontos",1034,20,"MobArena::OnVale10";
		monster "ordeal_1-2",0,0,"Vale 15 Pontos",1111,20,"MobArena::OnVale15";
		monster "ordeal_1-2",0,0,"Vale 15 Pontos",1111,20,"MobArena::OnVale15";
		monster "ordeal_1-2",0,0,"Vale 15 Pontos",1152,20,"MobArena::OnVale15";
		monster "ordeal_1-2",0,0,"Vale 15 Pontos",1152,20,"MobArena::OnVale15";
		monster "ordeal_1-2",0,0,"Vale 20 Pontos",1177,20,"MobArena::OnVale20";
		monster "ordeal_1-2",0,0,"Vale 20 Pontos",1177,20,"MobArena::OnVale20";
		monster "ordeal_1-2",0,0,"Vale 20 Pontos",1499,20,"MobArena::OnVale20";
		monster "ordeal_1-2",0,0,"Vale 20 Pontos",1499,20,"MobArena::OnVale20";
		monster "ordeal_1-2",0,0,"Vale 30 Pontos",1412,20,"MobArena::OnVale30";
		monster "ordeal_1-2",0,0,"Vale 30 Pontos",1412,20,"MobArena::OnVale30";
		monster "ordeal_1-2",0,0,"Vale 30 Pontos",1410,20,"MobArena::OnVale30";
		monster "ordeal_1-2",0,0,"Vale 30 Pontos",1410,20,"MobArena::OnVale30";
		monster "ordeal_1-2",0,0,"Vale 50 Pontos",1194,20,"MobArena::OnVale50";
		monster "ordeal_1-2",0,0,"Vale 50 Pontos",1194,20,"MobArena::OnVale50";
		monster "ordeal_1-2",0,0,"Vale 50 Pontos",1211,20,"MobArena::OnVale50";
		monster "ordeal_1-2",0,0,"Vale 50 Pontos",1211,20,"MobArena::OnVale50";
		monster "ordeal_1-2",0,0,"Vale 100 Pontos",1382,20,"MobArena::OnVale100";
		monster "ordeal_1-2",0,0,"Vale 100 Pontos",1382,20,"MobArena::OnVale100";
		monster "ordeal_1-2",0,0,"Vale 100 Pontos",1295,20,"MobArena::OnVale100";
		monster "ordeal_1-2",0,0,"Vale 100 Pontos",1295,20,"MobArena::OnVale100";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1039,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1039,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1159,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1159,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1583,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1583,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1272,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1272,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1373,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 1.000 Pontos",1373,1,"MobArena::OnVale1000";
		monster "ordeal_1-2",0,0,"Vale 10.000 Pontos",1708,1,"MobArena::OnVale10000";
	set $WarpLiberado,1;
	end;

OnClock0005:
OnClock0205:
OnClock0405:
OnClock0605:
OnClock0805:
OnClock1005:
OnClock1205:
OnClock1405:
OnClock1605:
OnClock1805:
OnClock2005:
OnClock2205:

set $WarpLiberado,0;
announce "Warps Fechados, não está na arena ? tente na próxima",8;
end;

OnVale1:
set Ponto,Ponto+1;
end;

OnVale10:
set Ponto,Ponto+10;
end;

OnVale15:
set Ponto,Ponto+15;
end;

OnVale20:
set Ponto,Ponto+20;
end;

OnVale30:
set Ponto,Ponto+30;
end;

OnVale50:
set Ponto,Ponto+50;
end;

OnVale100:
set Ponto,Ponto+100;
end;

OnVale1000:
set Ponto,Ponto+1000;
end;

OnVale10000:
set Ponto,Ponto+10000;
end;

}

ordeal_1-2	mapflag	nomemo
ordeal_1-2	mapflag	nowarp
ordeal_1-2	mapflag	nowarpto
ordeal_1-2	mapflag	noicewall
ordeal_1-2	mapflag	nomemo
ordeal_1-2	mapflag	noreturn