viewing paste [Evento] Sala dos Cristais 1.0 | Text

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 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141
//========================================================
//=          ._._____    _    _   _ ___ __  __           =
//=          | |____ |  / \  | | | |_ _|  \/  |          =
//=          | | |_  | / _ \ | |_| || || |\/| |          =
//=       ___| |___| |/ ___ \|  _  || || |  | |          =
//=      |_____|_____/_/   \_\_| |_|___|_|  |_|          =
//=           www.forum.cronus-emulator.com              =
//========================================================
//= Caça aos Porings
//===== Por : ============================================
//= Leahim
//===== Versão Atual: ====================================
//= 1.0
//===== Descrição: =======================================
//= Um simples evento automático que abre 3 vezes ao dia.
//= Ao iniciar você poderá acessar o mapa do evento onde
//= um número x de Monstros Cristalóides serão invocados,
//= mate todos para dropar Bandeiras Nacionais, terminando
//= o evento todos os players do mapa serão teleportados a
//= prontera...
//==== Pedido do Autor : =================================
//= Não retire os créditos, pois dá trabalho para fazer.
//========================================================
prontera,160,186,4      script  Sala dos Cristais       4_M_BOSSCAT,{
 
mes .n$;
mes "Olá "+strcharinfo(0)+", eu sou o Mestre";
mes "do Evento Sala dos Cristais !";
mes "Posso te ajudar em alguma coisa ?";
set .@menu$, "Entrar no Evento (" + (($cri==1) ? "^0055FF Aberto ^000000":"^FF0000 Fechado ^000000")+"):Como Funciona ?:Cancelar";
switch(select(.@menu$)) {
 
        case 1:
        if($cri == 0){
                next;
                mes .n$;
                mes "Sinto muito, mas nós estamos fechados no momento...";
                mes "Nós abrimos 3 vezes ao dia ás :";
                mes "• ^FF000009:15H ~ 15:15H ~ 01:15H^000000 •";
                mes "Enfim ~ Aguardo sua Presença !";
                close;
        }
                next;
                mes .n$;
                mes "Corra, estamos para começar o evento !";
                next;
                warp .mp$,.@x,.@y;
                sleep2 4000;
                message strcharinfo(0),"[ Sala dos Cristais ] : Começaremos o Evento em Instantes !";
                end;
               
        case 2:
                next;
                mes .n$;
                mes "Ah, então você quer saber como funciona? certo, irei te explicar.";
                next;
                mes .n$;
                mes "A idéia é simples, o evento irá abrir todos os dias.";
                mes "Quando aberto todos poderam acessar a Sala dos Cristais, onde vários monstros";
                mes "seram invocados. Seu objetivo é de caçá-los e adquirir o máximo de";
                mes "Bandeiras Nacionais possiveis !";
                next;
                mes .n$;
                mes "Enfim... vence aquele que obter mais bandeiras, bem é isso, qualquer coisa é só me chamar novamente.";
                mes "Tenha um ótimo dia "+strcharinfo(0)+".";
                close;
               
        case 3:
                next;
                mes .n$;
                mes "Certo, volte quando precisar de meus serviços...";
                close;
}
 
OnClock0915:
OnClock1515:
OnClock0115:
        set $cri,1;
        killmonsterall .mp$;
        for(set .x,5; .x > 0; set .x,.x-1){
        announce "[ Sala dos Cristais ] : A Entrada para o evento está aberta e começaremos em "+.x+" minutos.",bc_all;
        sleep 60000;
}
        announce "[ Sala dos Cristais ] : A Entrada para o evento foi fechada... mais sorte da próxima vez!",bc_all;
        sleep2 3000;
        mapannounce .mp$,"[ Sala dos Cristais ] : Atenção! Iniciaremos em instantes, boa sorte a todos!",bc_map;
        set $cri,0;
        sleep 10000;
        if(getmapusers("nyd_dun02") < 2) {
        announce "[ Sala dos  Cristais ] : O evento foi cancelado por falta de participantes...",bc_all;
        sleep2 4000;
        mapwarp .mp$,"prontera",156,191;
        end;
        }
        mapannounce .mp$,"[ Sala dos Cristais ] : Os Cristais Apareceram !!!",bc_map;
        monster .mp$,0,0,"Cristal Encantado",1953,400,"Sala dos Cristais::OnMatou";
        end;
 
OnMatou:
        if(mobcount(.mp$,"all") == 0){
        announce "[ Sala dos Cristais ] : Parece que todos os Cristais Encantados foram derrotados...",bc_all;
        sleep2 2000;
        announce "[ Sala dos Cristais ] : O Evento Acabou, agradecemos a todos por participarem!",bc_all;
        sleep2 4000;
        mapwarp .mp$,"prontera",156,191;
        end;
}
        set .rd, rand(getarraysize(.pm));
        getitem .pm[.rd],.qn[.rd];
        end;
       
OnInit:
//=== Nome do Npc ==========================================================
set .n$,"[^FF0000 Sala dos Cristais ^000000]";
//=== Id da Premiação que será dada. =======================================
setarray .pm[0], 7549,7549,7549,7549,7549;
//=== Quantidade Sorteada ==================================================
setarray .qn[0], 1,3,5,7,10;
//=== Mapa que o evento ocorrerá ===========================================
set .mp$,"nyd_dun02";
//=== Coordenada de Teleporte X ============================================
set .@x, 0;
//=== Coordenada de Teleporte Y ============================================
set .@y, 0;
//=== Balão de Chat sobre o Npc ============================================
waitingroom "Sala dos Cristais",0;
//==========================================================================
end;
}
 
//=== Mapflags =============================================================
nyd_dun02       mapflag nomemo
nyd_dun02       mapflag noreturn
nyd_dun02       mapflag nosave
nyd_dun02       mapflag nobranch
nyd_dun02       mapflag noteleport
nyd_dun02       mapflag nowarp
nyd_dun02       mapflag nowarpto
nyd_dun02       mapflag noicewall
nyd_dun02       mapflag nodrop
nyd_dun02       mapflag noskill
Viewed 605 times, submitted by unknown.