viewing paste Eventos Test | 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
function    script  Poring  {
 
mes .n$;
mes "Esse é o evento Poring Premiado, são invocados 100 poring e apenas 5 deles contém prémios.";
next;
if($evo){
warp .mp$,50,50;
end;
}
 
mes .n$;
mes "O evento não foi iniciado, aguarde.";
close;
mapannounce .mp$,"O evento foi encerrado.",bc_map;
mapwarp .mp$,"prontera",155,185;
killmonsterall .mp$;
end;
OnClock1301:
set $evo,1;
for(set .x,5; .x > 0; set .x,.x-1){
announce "O evento Poring premiado esta aberto e vai começar em "+.x+" minutos.",bc_all;
sleep 60000;
}
 
announce "Entrada para o evento Poring Premiado fechada.",bc_all;
set $evo,0;
sleep 20000;
mapannounce .mp$,"O evento começou, boa sorte.",bc_map;
monster .mp$,0,0,"Poring Premiado",1002,5,"Poring Premiado::OnPremio";
monster .mp$,0,0,"Poring Premiado",1002,20,"Poring Premiado::OnDead";
monster .mp$,0,0,"Poring Premiado",1002,75,"Poring Premiado::OnBlood";
end;
 
OnPremio:
mapannounce .mp$,"O jogador "+strcharinfo(0)+" adquiriu um premio ao matar o poring premiado.",bc_map;
set .rd, rand(getarraysize(.pm));
getitem .pm[.rd],.qn[.rd];
if(!mobcount(.mp$,"all")){
mapannounce .mp$, "Todos os porings foram mortos, evento encerrado.",bc_map;
sleep 20000;
mapwarp .mp$,"prontera",155,185;
end;
OnDead:
if(mobcount(.mp$,"all") > 0){
mapannounce .mp$,"O jogador "+strcharinfo(0)+" não teve sorte ao encontrar os Porings verdadeiros.",bc_map;
warp "prontera",155,185;
end;
}
 
mapannounce .mp$, "Todos os porings foram mortos, evento encerrado.",bc_map;
sleep 20000;
mapwarp .mp$,"prontera",155,185;
set $evo,0;
end;
 
OnBlood:
if(!mobcount(.mp$,"all")){
mapannounce .mp$, "Todos os porings foram mortos, evento encerrado.",bc_map;
sleep 20000;
mapwarp .mp$,"prontera",155,185;
set $evo,0;
}
end;
 
OnInit:
set .n$, "[^FFAABBPoring Premiado^000000]";
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 gangos.
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 1073 times, submitted by Mihael.