Jogo caça itens.

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;
}
}
}

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!