viewing paste [Ygg Room] Leahim | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109
//--------------------------------------------------------
//-          ._._____    _    _   _ ___ __  __           -
//-          | |____ |  / \  | | | |_ _|  \/  |          -
//-          | | |_  | / _ \ | |_| || || |\/| |          -
//-       ___| |___| |/ ___ \|  _  || || |  | |          -
//-      |_____|_____/_/   \_\_| |_|___|_|  |_|          -
//-           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;
 
}
//--- 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
Viewed 573 times, submitted by Mihael.