Hit-RO Full PvP 0 LAG

Bém vindo ao War-RO BR

• Dedicado 0 lag
• Servidor Reinaugurado
• Quests temporariamente vendidas
Hit-RO Full PvP 0 LAG

O seu Ragnarok Full PvP !


    Evento batalhas épicas!

    Compartilhe

    0d1n

    Mensagens : 17
    Data de inscrição : 17/07/2011
    Idade : 21
    Localização : Cataguases,Minas Gerais

    Evento batalhas épicas!

    Mensagem por 0d1n em Sab Jul 23, 2011 2:12 pm

    //==============================================//
    //==============================================//
    // Npc Criado por: ============//
    // _____ _ __ _ ============//
    //|_ _|| |_ ___ __| | ___ | |_ ___ ___ //
    // | | | || -_| | | || . || '_|| -_|| _|//
    // |_| |_|_||___| |_____||___||_,_||___||_|==//
    //==============================================//
    //===============Changelog======================//
    //=*Npc Iniciado por:==========*[The Joker]*====//
    //==============================================//
    //==============================================//

    prontera,158,159,5 script Batalha Épica 110,{

    //=======Nome do npc====================================//
    set @nome$,"^0000FF[Batalha Épica]^000000";//Nome do npc//
    //======================================================//
    //======Não mexa aqui!!!================================//
    if($test == 0){ //
    set $test,1; //
    setarray $premios[0],0,0,0,0,0,0,0,0,0,0,0,0,0,0,0; //
    setarray $pontos[0],0,0,0,0,0,0,0,0,0,0,0,0,0,0,0; } //
    //======================================================//
    if(getgmlevel() == 99)goto adminmenu;

    mes @nome$;
    mes "Olá "+strcharinfo(0)+", o que deseja?";
    switch(select("Entrar no evento:Me informar como funciona:Gastar meus pontos:Nada")){
    case 1:
    if($portao_batalha == 0){ mes @nome$; mes "O evento não está funcionando no momento, volte outra hora."; close; }
    next;
    mes @nome$;
    mes "Vamos lá!!!";
    close2;
    warp "guild_vs1.gat",0,0;
    case 2:
    next;
    mes @nome$;
    mes "Funciona da seguinte maneira, você entra em uma arena PvP, e a cada pessoa que você mata, você ganha 1 ponto";
    next;
    mes @nome$;
    mes "Essa arena abre nos horários pares do dia, e fica aberta durante 10 minutos.";
    next;
    mes @nome$;
    mes "Com esses pontos você pode conseguir itens.";
    next;
    mes @nome$;
    mes "Cada personagem da conta tem um contador próprio, se você matou 50 com um char e entra com outro, ele não vai ter os mesmos numeros de pontos.";
    close;
    case 3:
    next;
    mes @nome$;
    mes "Você tem atualmente "+pontospvp+".";
    mes "Deseja trocar por qual item?";
    mes "OBS: Se algum item estiver como 0, não escolha ou irá perder seus pontos.";
    switch(select(""+getitemname($premios[0])+":"+getitemname($premios[1])+":"+getitemname($premios[2])+":"+getitemname($premios[3])+":"+getitemname($premios[4])+":"+getitemname($premios[5])+":"+getitemname($premios[6])+":"+getitemname($premios[7])+":"+getitemname($premios[8])+":"+getitemname($premios[9])+":"+getitemname($premios[10])+":"+getitemname($premios[11])+":"+getitemname($premios[12])+":"+getitemname($premios[13])+":"+getitemname($premios[14])+":Nada")){
    case 1:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[0]+" pontos.";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[0]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[0];
    getitem $premios[0],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 2:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[1]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[1]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[1];
    getitem $premios[1],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 3:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[2]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[2]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[2];
    getitem $premios[2],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 4:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[3]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[3]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[3];
    getitem $premios[3],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 5:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[4]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[4]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[4];
    getitem $premios[4],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 6:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[5]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[5]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[5];
    getitem $premios[5],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 7:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[6]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[6]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[6];
    getitem $premios[6],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 8:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[7]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[7]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[7];
    getitem $premios[7],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 9:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[8]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[8]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[8];
    getitem $premios[8],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 10:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[9]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[9]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[9];
    getitem $premios[9],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 11:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[10]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[10]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[10];
    getitem $premios[10],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 12:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[11]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[11]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[11];
    getitem $premios[11],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 13:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[12]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[12]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[12];
    getitem $premios[12],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 14:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[13]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[13]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[13];
    getitem $premios[13],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 15:
    next;
    mes @nome$;
    mes "Este item custa "+$pontos[14]+".";
    mes "Você tem "+pontospvp+".";
    mes "Deseja trocar?";
    if(select("Sim:Não")==1){
    if(pontospvp < $pontos[14]){ mes @nome$; mes "Você não tem o numero de pontos suficiente, volte quando tiver."; close; }
    set pontospvp,pontospvp-$pontos[14];
    getitem $premios[14],1;
    next;
    mes @nome$;
    mes "Prontinho, volte aqui quando precisar de mim novamente!";
    close; }
    else { mes @nome$; mes "Está bem então, volte depois se precisar da minha ajuda."; close; }
    case 16:
    next;
    mes @nome$;
    mes "Está bem, volte quando decidir.";
    close;
    }
    case 4:
    next;
    mes @nome$;
    mes "Está bem, volte quando decidir.";
    close;
    }

    adminmenu:
    mes @nome$;
    mes "Olá Administrador "+strcharinfo(0)+", o que deseja?";
    switch(select("Entrar no evento:Alterar os itens:Alteras os custos:Nada")){
    case 1:
    if(@evento_ligado == 0){ mes @nome$; mes "O evento não está funcionando no momento, volte outra hora."; close; }
    next;
    mes @nome$;
    mes "Vamos lá!!!";
    close2;
    warp "guild_vs1.gat",0,0;
    case 2:
    next;
    mes @nome$;
    mes "Digite o numero do item a ser alterado. De 1 a 15.";
    digit @itemalterado;
    mes @nome$;
    mes "Digite agora o ID do novo item.";
    digit @item;
    next;
    mes @nome$;
    mes "O numero de item à ser alterado é "+@itemalterado+" e o Item escolhido é "+getitemname(@item)+", certo?";
    if(select("Sim:Não") == 1){
    set $premios[@itemalterado-1],@item;
    mes @nome$;
    mes "Prontinho, item alterado com sucesso!";
    close; }
    else { mes @nome$; mes "Volte aqui quando precisar da minha ajuda."; close }
    case 3:
    next;
    mes @nome$;
    mes "Digite o item escolhido, de 1 a 15.";
    digit @itempoints;
    mes @nome$;
    mes "Agora digite o Numero de pontos escolhido.";
    digit @points;
    next;
    mes @nome$;
    mes "O numero de pontos escolhido para o item "+getitemname(@itempoints)+" foi "+@points+".";
    mes "Tem certeza?";
    if(select("Sim:Não") == 1){
    setarray $pontos[@itempoints-1],@points;
    mes @nome$;
    mes "Prontinho, o item está configurado!";
    close; }
    else { mes @nome$; mes "Está bem, volte aqui quando decidir."; close; }

    case 4:
    next;
    mes @nome$;
    mes "Está bem, volte quando decidir.";
    close;
    }

    OnClock0000: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock0005: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock0010: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock0200: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock0205: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock0210: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock0400: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock0405: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock0410: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock0600: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock0605: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock0610: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock0800: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock0805: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock0810: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock1000: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock1005: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock1010: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock1200: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock1205: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock1210: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock1400: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock1405: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock1410: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock1600: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock1605: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock1610: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock1800: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock1805: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock1810: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock2000: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock2005: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock2010: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;
    OnClock2200: set $portao_batalha,1; announce "O Evento 'Batalhas épicas' irá começar, vocês só tem 5 minutos !",bc_yellow; end;
    OnClock2205: set $portao_batalha,0; announce "Os portões para o evento foram fechados !",bc_yellow; end;
    OnClock2210: announce "O evento 'Batalhas épicas' terminou, vá gastar os seus pontos!!!",bc_yellow; end;
    mapwarp "guild_vs1.gat","prontera.gat",155,185;

    }

    - script OnPCKillEvent -1,{

    OnPCKillEvent:

    getmapxy @map$,@x,@y,0;
    if (@map == "guild_vs1.gat"){
    set pontospvp,pontospvp+1;
    }

    }

    guild_vs1.gat mapflag nomemo
    guild_vs1.gat mapflag nowarp
    guild_vs1.gat mapflag nowarpto
    guild_vs1.gat mapflag noicewall
    guild_vs1.gat mapflag nomemo
    guild_vs1.gat mapflag noreturn
    guild_vs1.gat mapflag nosave
    guild_vs1.gat mapflag noicewall

    0d1n

    Mensagens : 17
    Data de inscrição : 17/07/2011
    Idade : 21
    Localização : Cataguases,Minas Gerais

    Re: Evento batalhas épicas!

    Mensagem por 0d1n em Sab Jul 23, 2011 2:13 pm

    Nome: Batalhas Épicas
    Autor: The Joker /creditos á ele!
    Descrição: Arena que abre nos horários pares do dia, cada personagem que o char mata ele ganha um ponto, juntando vários ele pode trocar por premios, que o Adm define In-Game(os itens que "vendem" e os pontos que ele custa)...A arena fica aberta por 10 minutos, depois disso todos são teleportados de volte a Prontera.

      Data/hora atual: Qui Dez 08, 2016 5:07 pm