viewing paste Poring Event | Athena

Posted on the | Last edited on
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
// Poring Event
// Translate pt_BR by Macabu
// Create by hellflaem aka Nezra
// Correção by Envolvents (Wellington Ferraz)
 
-       script  Evento Poring#var       -1,{
        OnInit:
                //- ID do item do prêmio.
                set $ipe, 607;
 
                //- Quantidade do item do prêmio.
                set $qpe, 5;
 
                //- Tirar 50% de HP quando matar
                //- um poring falso?
                //- [0=NÃO|1=SIM]
                set $hpe, 0;
               
                // Nível de GMs
                set $@GMLevel, 50;
        end;
}
//===== Script: ==============================================
prontera,147,171,3      script  Evento Poring   763,{
 
        if(getgroupid() >= $@GMLevel)
        {
                if(!.poringcatch)
                {
                        mes "[Evento Poring]";
                        mes "Não tem evento por inquanto.";
                        close;
                }
                mes "[Evento Poring]";
                mes "Olá "+strcharinfo(0)+" o que posso fazer por você?";
                next;
                switch(select("Entrar no evento.:Informação."))
                {
                        case 1:
                                mes "[Evento Poring]";
                                mes "Divirta-se!";
                                next;
                                warp "poring_c01", 100, 100;
                                end;
 
                        case 2:
                                mes "[Evento Poring]";
                                mes "São invocados 100 Porings.";
                                mes "Só UM é verdadeiro e você tem que acha-lo.";
                                mes "Caso consiga, ganhará um item.";
                                mes "Boa Sorte.";
                                close;
                }
        }
        mes "[Evento Poring]";
        mes "Olá "+strcharinfo(0)+" o que posso fazer por você?";
        next;
        if(select("Ligar evento.:Entrar no evento.") == 1) callsub OnStart;
        mes "[Evento Poring]";
        mes "Divirta-se!";
        next;
        warp "poring_c01", 100, 100;
        end;
 
                Onclock0200: callsub OnEventStart;
                Onclock0030: callsub OnEventStart;
                OnClock1630: callsub OnEventStart;
                OnClock0500: callsub OnEventStart;
                OnClock2000: callsub OnEventStart;
                OnClock1900: callsub OnEventStart;
 
                OnEventStart:
                        announce "[Evento Poring]: Gente, é hora do evento. Falem comigo para entrar.",0;
                        initnpctimer;
                        monster "poring_c01",0,0,"Poring",1002,1,strnpcinfo(0)+"::OnMobKilled";
                        monster "poring_c01",0,0,"Pouring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Proing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Poirng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Poing",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Porimg",1002,5,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Porinq",1002,1,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Poring",1113,1,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Poring",1062,1,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Por|ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Por1ng",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Porong",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"P0ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"P@ring",1002,10,strnpcinfo(0)+"::OnWrongKilled";
                        monster "poring_c01",0,0,"Porng",1002,1,strnpcinfo(0)+"::OnWrongKilled";
                        set .poringcatch,1;
                        end;
                        return;
 
                OnTimer600000:
                        stopnpctimer;
                        announce "[Evento Poring]: O tempo acabou, tente na próxima vez.",0;
                        set .poringcatch,0;
                        killmonsterall "poring_c01";
                        end;
 
                OnMobKilled:
                        stopnpctimer;
                        announce "[Evento Poring]: "+strcharinfo(0)+" encontrou o Poring. Tente denovo na próxima vez.",0;
                        dispbottom "Parabéns, você me achou.";
                        getitem $ipe,$qpe;
                        killmonsterall "poring_c01";
                        set .poringcatch,0;
                        end;
 
                OnWrongKilled:
                        dispbottom "Whaa, você errou feio.";
                        if($hpe) percentheal -50,0;
                        warp "prontera",157,175;
                        end;
}
Viewed 808 times, submitted by Envolvents.