SHARE
TWEET

Evento Sobrevivente

sesshoumaru Jul 25th, 2013 370 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //By x Twilight
  2. //Version 1.0
  3.  
  4. prontera,156,224,5      script  Evento Sobrevivente     734,{
  5. disablenpc "sobreviventepremiador";
  6.      
  7. set @npc$,"[^ff1111 Sobrevivente ^000000]";
  8.  
  9. mes @npc$;
  10. mes ""+strcharinfo(0)+", bem-vind"+(Sex?"o":"a")+" ao evento sobrevivente.";
  11. mes "O que deseja fazer hoje?";
  12. next;
  13. if(getgmlevel() >= 80) set .@a$,"Manipular o evento";
  14. switch(select("Entrar no evento","Informações",.@a$,"Sair"))
  15. {
  16.         next;
  17.         mes @npc$;
  18.         case 1:
  19.                 if(!$event_sobre)
  20.                 {
  21.                         mes "Desculpe, mas você não pode entrar no evento enquanto ele estiver fechado.";
  22.                         close;
  23.                 }
  24.                 mes "Boa sorte!";
  25.                 warp "guild_vs2",0,0;
  26.                 close;
  27.                    
  28.         case 2:
  29.                 mes "Sobre o que você deseja se informar?";
  30.                 switch(select("Como funciona:Horários:Prêmiações:Nada"))
  31.                 {
  32.                         next;
  33.                         mes @npc$;
  34.      
  35.                         case 1:
  36.                                 mes "Quando o evento abrir, você deverá falar comigo para ser levado para um mapa especial.";
  37.                                 next;
  38.                                 mes @npc$;
  39.                                 mes "Dentro desse mapa, você deverá aguardar 3 minutos para o início do evento.";
  40.                                 next;
  41.                                 mes @npc$;                    
  42.                                 mes "Quando ele se iniciar, os jogadores dentro do mapa deverão se enfrentar.";
  43.                                 next;
  44.                                 mes @npc$;
  45.                                 mes "A utilização de Fruto de Yggsrail e Semente de Yggdrasil são proibidas, caso você tentar usá-las, você não será curado.";
  46.                                 next;
  47.                                 mes @npc$;
  48.                                 mes "O último jogador que sobreviver, ganha o evento e leva os prêmios.";
  49.                                 mes "Boa sorte!";
  50.                                 close;
  51.      
  52.                         case 2:
  53.                                 mes "O evento acontece todos os dias às 10 horas e às 20:15.";
  54.                                 close;
  55.      
  56.                         case 3:
  57.                                 mes "Os prêmios são os seguintes:";
  58.                                 for(set @i, 0; @i < getarraysize($id_premios); set @i, @i + 1)
  59.                                         mes ""+$quantity_premios[@i]+" - "+getitemname($id_premios[@i])+"";
  60.                                 close;
  61.      
  62.                         case 4:
  63.                                 mes "Volte quando quiser.";
  64.                                 close;
  65.                 }
  66.      
  67.         case 3:
  68.                 mes "O que o senhor deseja fazer?";
  69.                 switch(select("Iniciar o evento:Mudar prêmiação:Sair"))
  70.                 {
  71.                         next;
  72.                         mes @npc$;
  73.      
  74.                         case 1:
  75.                                 if(!$event_sobre)
  76.                                 {
  77.                                         mes "O evento foi iniciado com sucesso.";
  78.                                         close2;
  79.                                         callsub start_event;
  80.                                         end;
  81.                                 }
  82.                                 mes "O evento já foi iniciado.";
  83.                                 close;
  84.      
  85.                         case 2:
  86.                                 mes "Você deseja mudar as prêmiações?";
  87.                                 if(select("Não:Sim") == 1 ) close;
  88.                                 next;
  89.                                 mes @npc$;
  90.                                 mes "Digite o ID do 1º item."; input @id_one;
  91.                                 next;
  92.                                 mes @npc$;
  93.                                 mes "Digite a quantidade do 1º item."; input @quantity_one;
  94.                                 next;
  95.                                 mes @npc$;
  96.                                 mes "Digite o ID do 2º item."; input @id_two;
  97.                                 next;
  98.                                 mes @npc$;
  99.                                 mes "Digite a quantidade do 2º item."; input @quantity_two;
  100.                                 next;
  101.                                 mes @npc$;
  102.                                 mes "Digite o ID do 3º item."; input @id_three;
  103.                                 next;
  104.                                 mes @npc$;
  105.                                 mes "Digite a quantidade do 3º item."; input @quantity_three;
  106.                                 next;
  107.                                 mes @npc$;
  108.                                 mes "1º prêmio: ^777777"+@quantity_one+" - "+getitemname(@id_one)+"^000000";
  109.                                 mes "2º prêmio: ^777777"+@quantity_two+" - "+getitemname(@id_two)+"^000000";
  110.                                 mes "3º prêmio: ^777777"+@quantity_three+" - "+getitemname(@id_three)+"^000000";
  111.                                 next;
  112.                                 if(select("Confirmar:Cancelar") == 2 ) close;
  113.                                 next;
  114.                                 mes @npc$;
  115.                                 mes "Prêmiações editadas com sucesso.";
  116.                                 close2;
  117.                                 setarray $id_premios,@id_one,@id_two,@id_three;
  118.                                 setarray $quantity_premios,@quantity_one,@quantity_two,@quantity_three;
  119.                                 end;
  120.                         case 3:
  121.                                 mes "Volte quando quiser.";
  122.                                 close;
  123.                 }
  124.                
  125.         case 4:
  126.                 mes "Volte quando quiser.";
  127.                 close;
  128. }
  129. OnClock2015:
  130. OnClock1000:
  131. start_event:
  132.  
  133.         set $event_sobre,1;
  134.         pvpoff "guild_vs2";
  135.         announce "Evento Sobrevivente : O evento está aberto! Vocês tem apenas 3 minutos para entrar.",8;
  136.         sleep 60000;
  137.         announce "Evento Sobrevivente : O evento irá se iniciar, vocês tem de 2 minutos!",8;
  138.         sleep 60000;
  139.         announce "Evento Sobrevivente : O evento irá se iniciar, vocês tem 1 minuto! Corram, irá se fechar!",8;
  140.         sleep 60000;
  141.        
  142.         set $event_sobre,0;
  143.        
  144.         mapannounce "guild_vs2","A batalha vai começar em 30 segundos.",bc_blue;
  145.         sleep 25000;
  146.         mapannounce "guild_vs2","05.",bc_blue;
  147.         sleep 1000;
  148.         mapannounce "guild_vs2","04.",bc_blue;
  149.         sleep 1000;
  150.         mapannounce "guild_vs2","03.",bc_blue;
  151.         sleep 1000;
  152.         mapannounce "guild_vs2","02.",bc_blue;
  153.         sleep 1000;
  154.         mapannounce "guild_vs2","01.",bc_blue;
  155.         sleep 1000;
  156.        
  157.         if(getmapusers("guild_vs2") <= 1)
  158.         {
  159.                         announce "Evento Sobrevivente : O evento foi cancelado por falta de jogadores.",8;
  160.                         end;
  161.         }
  162.         pvpon "guild_vs2";
  163.         announce "Evento Sobrevivente : O evento começou!",8;
  164.         end;
  165.      
  166. OnPCDieEvent:
  167.         if(strcharinfo(3) == "guild_vs2")
  168.         {
  169.                 warp "prontera",150,150;
  170.                 dispbottom "Você perdeu.";
  171.         }
  172.         sleep 1000;
  173.         if(getmapusers("guild_vs2") == 1)
  174.         {
  175.                 mapannounce "guild_vs2","Evento Sobrevivente : Você é vencedor(a)! Vá ao centro do mapa e retire seu prêmio.",bc_blue;
  176.                 enablenpc "sobreviventepremiador";
  177.                 end;
  178.         }
  179.         end;
  180.        
  181.        
  182. OnInit:
  183. set $event_sobre,0;
  184. disablenpc "sobreviventepremiador";
  185. end;
  186. }
  187.      
  188. guild_vs2,49,49,4       script  Premiador#1::sobreviventepremiador      734,{
  189.  
  190.         announce "Evento Sobrevivente : "+(Sex?"O vencedor":"A vencedora")+" do evento sobrevivente foi [ "+strcharinfo(0)+" ]",bc_blue;
  191.     for(set @i, 0; @i < getarraysize($id_premios); set @i, @i + 1)
  192.                 getitem $id_premios[@i],$quantity_premios[@i];
  193.         warp "prontera",150,150;
  194.         disablenpc "sobreviventepremiador";
  195.         end;
  196.     }
  197.      
  198. guild_vs2       mapflag gvg     off
  199. guild_vs2       mapflag pvp     off
  200. guild_vs2       mapflag nowarp
  201. guild_vs2       mapflag nowarpto
  202. guild_vs2       mapflag nobranch
  203. guild_vs2       mapflag novending
  204. guild_vs2       mapflag nomemo
  205. guild_vs2       mapflag noteleport
  206. guild_vs2       mapflag zone    Mapa sem Ygg
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top