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 !


    Jogo caça itens.

    Compartilhe

    0d1n

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

    Jogo caça itens.

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

    prontera,150,150,5 script Jogo Caça Itens 719,{

    set .nn3$,"[^1E90FFJogo Caça Itens^000000]";

    if(getgmlevel() > 80) goto ADM;

    if($jogo_on == 0){mes .nn3$; mes "O jogo não esta aberto!!"; close;}
    if($jogo_on == 1){
    if(countitem($id1) >= $quantia1)
    {
    mes .nn3$;
    mes "Olá ^FF0000"+strcharinfo(0)+"^000000 vejo que você comprio a prova!!";
    mes "Aqui Está sua recompensa";
    next;
    getitem $premio1,$quantia_p1;
    delitem $id1,$quantia1;
    Announce "[Jogo Caça Itens]: "+strcharinfo(0)+" Comprio a prova parabens",8;
    set $jogo_on,0; close;
    }
    mes .nn3$;
    mes "Me desculpe, você não tem todos os itens necessários para esta quest.";
    mes "Você precisa me trazer:";
    mes "";
    mes "[^006400"+getitemname($id1)+"^000000]";
    mes "[^006400Quantidade = "+$quantia1+"^000000]";
    mes "Para ganhar:";
    mes "[^006400"+getitemname($premio1)+"^000000]";
    mes "[^006400Quantidade = "+$quantia_p1+"^000000]";
    close;
    ADM:
    mes .nn3$;
    mes "Olá"+strcharinfo(0)+" Oque deseja fazer?";
    switch(select("Configura jogo","Inicia Jogo","Nada")){ next;
    case 1:
    NAO:
    next;
    mes .nn3$;
    mes "Escreva a Tarefa para os players comprirem..";
    mes "^FF0000Exemplo: O primeiro player que me trazer 10 Yggdrazil ganha 1 custom item.^000000";
    next;
    input $tarefa1$;
    next;
    mes .nn3$;
    mes "^FF0000Está correto?^000000";
    mes ""+$tarefa1$+"";
    if(Select("Sim","Não")==2) goto NAO;

    next;
    mes .nn3$;
    mes "Digite o ID do item que o player tera que trazer, Exemplo: 607.";
    input $id1;
    next;
    mes "Digite a quantidade do item, Exemplo: 10";
    input $quantia1;
    next;
    mes "Digite o ID Do premio";
    input $premio1;
    next;
    mes "Digite a Quantidade";
    input $quantia_p1;
    next;
    mes "^FF0000Confira se ta tudo certo ?^000000";
    mes ""+$tarefa1$+"";
    mes "[^006400"+getitemname($id1)+"^000000]";
    mes "[^006400Quantidade = "+$quantia1+"^000000]";
    mes "Recompensa";
    mes "[^006400"+getitemname($premio1)+"^000000]";
    mes "[^006400Quantidade = "+$quantia_p1+"^000000]";
    next;
    if(Select("Sim","Não")==2) goto NAO;

    mes .nn3$;
    mes "Pronto você termino de configura o jogo, agora pode ir para o menu principal para inicia o jogo..";
    close;
    case 2:
    OnStart:
    Announce "[Jogo Caça Itens]: O jogo Caça Itens começo Aguarde o anuncio da Prova!!",8; close2;
    initnpctimer; end;

    OnTimer15000:
    Announce "[Jogo Caça Itens]: "+$tarefa1$+"",8;
    set $jogo_on,1; end;
    }
    }
    }

    0d1n

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

    Re: Jogo caça itens.

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

    Nome: Jogo Caça Itens
    Descrição: Um joguinho muinto legal onde você ( ADM ou GM ) Faz um pedido aos plays. Ex: O primeiro player que min trazer 5 carta poporing ganha 50 Yggdrazil.
    Ou seja acho que com isso ficaria melhor fazer eventinhos com bandeiras Coreanas!

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