viewing paste Unknown #43958 | 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
OnEventoWoT:
killmonsterall "prt_are_in";
announce "[Guerra dos Tesouros]: Terá início em 5 minutos!",8|bc_all;
set $@ligada,1;
 
OnTimer60000:
announce "[Guerra dos Tesouros]: Terá início em 4 minutos!",8|bc_all;
 
OnTimer120000:
announce "[Guerra dos Tesouros]: Terá início em 3 minutos!",8|bc_all;
 
OnTimer180000:
announce "[Guerra dos Tesouros]: Terá início em 2 minutos!",8|bc_all;
 
OnTimer240000:
announce "[Guerra dos Tesouros]: Terá início em 1 minuto!",8|bc_all;
 
OnTimer300000:
gvgon "arena_room";
gvgon "prt_are_in";
announce "[Guerra dos Tesouros]: Começou!",8|bc_all;
set $@ligada,0;
 
OnTimer360000:
announce "[Guerra dos Tesouros]: Os baús irão aparecer dentro de 5 minutos!",8|bc_map;
 
OnTimer420000:
announce "[Guerra dos Tesouros]: Os baús irão aparecer dentro de 4 minutos!",8|bc_map;
 
OnTimer480000:
announce "[Guerra dos Tesouros]: Os baús irão aparecer dentro de 3 minutos!",8|bc_map;
 
OnTimer540000:
announce "[Guerra dos Tesouros]: Os baús irão aparecer dentro de 2 minutos!",8|bc_map;
 
OnTimer600000:
announce "[Guerra dos Tesouros]: Os baús irão aparecer dentro de 1 minuto!",8|bc_map;
 
OnTimer640000:
if (getmapusers("prt_are_in") == 0 ){
announce "[Guerra dos Tesouros]: Os baús não apareceram porque não há jogadores suficientes no evento.",8|bc_all;
killmonsterall "prt_are_in";
gvgoff "prt_are_in";
}
gvgoff "prt_are_in";
gvgoff "arena_room";
announce "[Guerra dos Tesouros]: Os Baús dos Tesouros acabaram de surgir!",8|bc_map;
monster "prt_are_in",179,140,"Baú do Tesouro",1324,1,"Bau Destruido::OnBauDestruido";
monster "prt_are_in",177,140,"Baú do Tesouro",1324,1,"Bau Destruido::OnBauDestruido";
monster "prt_are_in",23,88,"Baú do Tesouro",1324,1,"Bau Destruido::OnBauDestruido";
monster "prt_are_in",21,88,"Baú do Tesouro",1324,1,"Bau Destruido::OnBauDestruido";
 
OnBauDestruido:
set @char,getcharid(0);
query_sql "UPDATE `char` set `baus` = `baus` +1 WHERE `char_id`="+@char+"";
getitem 607,10;
announce ""+(Sex?"O Jogador":"A Jogadora")+" ["+strcharinfo(0)+"] acaba de destruir um dos Baús na Guerra de Tesouros!",0,0xFFAB54,bc_all;
set $@ligada,0;
Viewed 574 times, submitted by unknown.