//--------------------------------------------------------
//-          ._._____    _    _   _ ___ __  __           -
//-          | |____ |  / \  | | | |_ _|  \/  |          -
//-          | | |_  | / _ \ | |_| || || |\/| |          -
//-       ___| |___| |/ ___ \|  _  || || |  | |          -
//-      |_____|_____/_/   \_\_| |_|___|_|  |_|          -
//-           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