viewing paste Unknown #44269 | 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
prontera,150,150,5      script  Garota dos Eventos      4_F_KAFRA8,{
 
set .@name$,"[^cc0000Garota dos Evento^000000]";
 
mes .@name$;
mes "Olá "+strcharinfo(0)+" Seja bem vindo ao sistemas de eventos";
mes "do RagnaSekai. O que deseja?";
next;
switch(select("Participar dos Eventos:Informações:Cancelar")) {
 
        case 1:
                mes .@name$;
                mes "Ok, selecione o evento em que quer participar";
                next;
                set .@menu$, "Poring Prêmiado (" + (($por==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Devil Square (" + (($dev==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Guerra dos Tesouros (" + (($wot==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Sobrevivente (" + (($sob==1) ? "^0055FF Aberto  ^000000":"^FF0000 Fechado ^000000")+"):Cancelar";
                switch(select(.@menu$)) {
 
                        case 1:
                                callfunc "Poring";
                                end;
 
                        case 2:
                                callfunc "Devil";
                                end;
                               
                        case 3:
                                callfunc "WoT";
                                end;
                       
                        case 4:
                                callfunc "Sobrevivente";
                                end;
                               
                        case 5:
                                mes .@name$;
                                mes "Certo, volte quando precisar de meus serviços.";
                                close;
                        }
                       
        case 2:
                mes .@name$;
                mes "Em nosso servidor o sistemas de eventos é integrado.";
                mes "Ou seja, você não precisa se preocupar com perder tempo";
                mes "procurando a entrada de um evento...";
                next;
                mes .@name$;
                mes "Outra coisa que nós temos é o comando @evento, nele você abre";
                mes "minhas falas e pode participar de um evento em qualquer lugar do jogo....";
                next;
                mes .@name$;
                mes "Isso é tudo... espero que goste de nosso servidor !!!";
                close;
               
        case 3:
                mes .@name$;
                mes "Certo, volte quando precisar de meus serviços.";
                close;
OnInit:
waitingroom "[ Eventos  ]",0;
end;
}
}
 
 
function        script  Poring  {
 
OnClock0438:
set $por,1;
for(set .x,1; .x > 0; set .x,.x-1){
announce "[ Garota dos Eventos ] : O Poring Prêmiado está aberto e começará em "+.x+" minutos.",bc_all;
sleep 60000;
}
 
announce "[ Garota dos Eventos ] : A entrada para o Poring Prêmiado foi fechada...",bc_all;
set $por,0;
sleep 10000;
mapannounce .mp$,"[ Garota dos Eventos ] : O Poring Prêmiado começou, boa sorte a todos os participantes !!!",bc_map;
monster .mp$,0,0,"Poring Prêmiado",1002,1,"Poring Premiado::OnPremio";
monster .mp$,0,0,"P0qing Prêmoiado",1002,100,"Poring Premiado::OnDead";
end;
 
OnPremio:
announce "[ Garota dos Eventos ] : "+strcharinfo(0)+" Encontrou o Poring Prêmiado.",bc_all;
killmonsterall .mp$;
set .rd, rand(getarraysize(.pm));
getitem .pm[.rd],.qn[.rd];
sleep2 2000;
announce "[ Garota dos Eventos ] : Evento Encerrado... Obrigada a todos por participarem !",bc_all;
mapwarp .mp$,"aretnorp",219,214;
end;
 
OnDead:
if(mobcount(.mp$,"all") > 0){
mapannounce .mp$,"[ Garota dos Eventos ] : Que pena "+strcharinfo(0)+" esse não era um Poring Prêmiado.",bc_map;
warp "aretnorp",219,214;
end;
}
 
OnInit:
set .mp$, "06guild_01";
setarray .pm[0], 7180,7539,7539; // <- Id dos premios ganhos ao matar o poring premiado( O script vai sortiar um desses premios. )
setarray .qn[0], 5,40,20; // <- Quantidade de itens ganho.
end;
}
 
function        script  Devil   {
 
mes "[^cc0000Garota dos Evento^000000]";
mes "Em Construção !";
close;
 
}
 
function        script  Wot     {
 
mes "[^cc0000Garota dos Evento^000000]";
mes "Em Construção !";
close;
 
}
 
function        script  Sobrevivente    {
 
mes "[^cc0000Garota dos Evento^000000]";
mes "Em Construção !";
close;
 
}
Viewed 541 times, submitted by unknown.