//--------------------------------------------------------
//-          ._._____    _    _   _ ___ __  __           -
//-          | |____ |  / \  | | | |_ _|  \/  |          -
//-          | | |_  | / _ \ | |_| || || |\/| |          -
//-       ___| |___| |/ ___ \|  _  || || |  | |          -
//-      |_____|_____/_/   \_\_| |_|___|_|  |_|          -
//-           www.forum.cronus-emulator.com              -
//--------------------------------------------------------
prontera,132,199,5	script	Ygg [Room]::ygg	EVENT_BAPHOMET,{

//--- Id da Premiação Dada ao matar o Mob.
set $idyggroom,607; 
//--- Quantidade (Configure in-game).
set $qtdyggroom,$qtdyggroom;
set $qtdyggroom2,$qtdyggroom2;
//--- Nível de Acesso a Área Administrativa do NPC. 
set @gmlvl,80;
//--- Mapa em que os monstros estarão.
set $mapa$,"prt_maze02";
 
	if (getgroupid() > @gmlvl) {
		mes "[Ygg Room]";
		mes "Olá, vejo que você é um Membro da Staff. A configuração atual é: ";
		mes "Fruto de Yggdrasil por Monstro: "+$qtdyggroom;
		next;
		mes "[Ygg Room]";
		mes "O que deseja?";
		next;
		switch(select("- Configurar Premiação.:- Entrar na Arena.:- Cancelar")) {
		
		case 1:
			callsub Config;
            
		case 2:
			mes "[Ygg Room]";
			mes "Vou te teleportar pra lá.";
			next;
			warp $mapa$, 105, 103;
			close;
			
		case 3:
			mes "[Ygg Room]";
			mes "Certo, volte quando precisar dos meus serviços...";
			close;
			}
		}
		mes "[Ygg Room]";
		mes "Olá "+strcharinfo(0)+" o que posso fazer por você?";
        next;
		switch(select("- O que é Ygg Room?","- Entrar na Ygg Room.")) {

		case 1:
			mes "[Ygg Room]";
			mes "É uma sala onde tem 200 de Bafomé Jr.";
			mes "Cada bafomé está dropando "+$qtdyggroom+"x Frutos de Yggdrasil.";
			close;
            
		case 2:
			mes "[Ygg Room]";
			mes "Vou te teleportar pra lá.";
			next;
			warp $mapa$, 105, 103;
			close;
	}
	
Config:
	mes "[Ygg Room]";
	mes "Digite a Quantidade de Frutos em cada Monstro.";
	input $qtdyggroom2;
	next;
	mes "[Ygg Room]";
	mes "A configuração foi alterada para:";
	mes "Fruto de Yggdrasil por Monstro: "+$qtdyggroom2;
	next;
	mes "[Ygg Room]";
	mes "Deseja continuar?";
	next;
	switch(select("- Sim.","- Não.")) {

	case 1:
		set $qtdyggroom,$qtdyggroom2;
		mes "[Ygg Room]";
		mes "A configuração foi alterada com sucesso.";
		close;
		
	case 2:
		mes "[Ygg Room]";
		mes "Certo, volte quando precisar dos meus serviços...";
		close;
	}
    
OnMobDead:
getitem $idyggroom,$qtdyggroom;
end;

}
//--- Spawn do Monstro.
prt_maze02,0,0,0,0	monster	[Ygg Room] Bafomé Jr.	1729,200,0,0,ygg::OnMobDead

//--- Mapflags.
prt_maze02	mapflag	nomemo
prt_maze02	mapflag	noreturn
prt_maze02	mapflag	nosave
prt_maze02	mapflag	nobranch
prt_maze02	mapflag	noloot
prt_maze02	mapflag	noteleport
prt_maze02	mapflag	nowarp
prt_maze02	mapflag	nowarpto
prt_maze02	mapflag	noicewall