//==

//== Autor:Caio

//==



-	script	initarmy	-1,{

OnInit:

set $na$,"One";                   //Nome que vai aparecer no anuncio

}



//====================================================== (Conteudo) =======================================================



prontera,163,224,4	script	Evento One	440,{



//===== Sets =======================================

set .n$,"[^ff0000One^000000]";     //Nome Npc mes

set .na2$,"One";                   //Nome do evento

//==================================================

//===== Start ======================================



mes .n$;

mes "Bem Vindo ^AA77CC"+strcharinfo(0)+"^000000 ao evento solo";

mes "O que eu poderia fazer por você?";

if (getgmlevel() >= 60){

switch(select("Painel de Player:Painel Administração")){

case 1:

goto jogador;

end;



case 2:

next;

mes "[^ff0000Informações^000000]";

mes "Mapa Atual: ^0000FF"+$mapa$+"^000000";

mes "Prêmio: ^0000ff"+getitemname($premiosolo);

mes "^000000Quantidade: ^0000ff"+$quantidadesolo+"^000000";

mes "Kills: ^0000ff"+$kills312+"^000000";



switch(select("Ligar evento:Definir kills:Definir horários:Definir prêmio:Definir mapa")){



case 1:

next;

mes .n$;

mes "Evento ligado com sucesso";

callsub OnEventStart;

end;



case 2:

next;

mes .n$;

mes "Aqui voce irá definir quantos Kills é necessário para ganhar o evento";

mes "Digite a quantidade de kills";

next;

input $kills312;

next;

mes .n$;

mes "Kills definido com sucesso!";

mes "Kills: ^0000ff"+$kills312+"^000000";

close;

end;



case 3:

next;

mes .n$;

mes "Em Breve(talves)";

close;

end;



case 4:

next;

mes .n$;

mes "Digite o ID e a Quantidade do premio que sera entregue ao vencedor";

next;

input $premiosolo;

input $quantidadesolo;

mes .n$;

mes "Você escolheu:";

mes "Premio: ^0000ff"+getitemname($premiosolo);

mes "^000000Quantidade: ^0000ff"+$quantidadesolo+"^000000";

close;

end;



case 5:

next;

mes .n$;

mes "Digite o mapa que você deseja utilizar para o evento.";

mes "Você não deve colocar @warp na frente";

mes "Exemplo:";

mes "Para definir o mapa ^007FFF@warp guild_vs2^000000";

mes "Você deve deixar ^007FFFguild_vs2^000000";

next;

input $mapa$;

next;

mes .n$;

mes "Mapa definido com sucesso!";

mes "Mapa Atual: ^0000FF"+$mapa$+"^000000";

close;

end;



}

}

}



jogador:

switch(select("Entrar no evento:Como funciona o evento:Sair")){



case 1:

if ($soloaberto == 0) goto fechado;

warp $mapa$,0,0;

end;



case 2:

next;

mes .n$;

mes "Você esta sozinho nessa soldado";

mes "Sua missão é matar sozinho ^ff0000"+$kills312+"^000000 players";

mes "Ao completar sua missão seu prêmio será entregue!";

mes "Boa Sorte Soldado, "+strcharinfo( 0 )+"";

close;

end;



case 3:

close;

end;



}

fechado:

next;

mes .n$;

mes "O Evento não está aberto";

mes "Confira o npc horário para saber quando o evento estará aberto";

close;

end;



Onclock0530: callsub OnEventStart;

Onclock1130: callsub OnEventStart;

OnClock1730: callsub OnEventStart;

OnClock2330: callsub OnEventStart;



OnEventStart:

set $soloaberto,1;

pvpoff $mapa$;

announce "[ One ]: O evento One está aberto fale comigo para entrar!",0;

sleep2 60000;

announce "[ One ]: Você tem 4 minutos para entrar no evento!",0;

sleep2 60000;

announce "[ One ]: Você tem 3 minutos para entrar no evento!",0;

sleep2 60000;

announce "[ One ]: Você tem 2 minutos para entrar no evento!",0;

sleep2 60000;

announce "[ One ]: Você tem 1 minutos para entrar no evento!",0;

sleep2 60000;

announce "[ One ]: O Evento "+.na2$+" começou! Portais fechados!",0;

set $soloaberto,0;

goto comecou;

end;



comecou:

if(getmapusers($mapa$) <= 1) goto cancelado;

MapAnnounce $mapa$,"[ One ]: Preparem-se soldados o evento One tera inicio em 1 minuto!",0;

sleep2 58000;

MapAnnounce $mapa$, "Ready?",0;

sleep2 1000;

MapAnnounce $mapa$, "Steady!",0;

sleep2 1000;

MapAnnounce $mapa$, "Go!!!",0;

pvpon $mapa$;

atcommand "@skillon";

end;



cancelado:

announce "[ One ]: O evento "+.na2$+" foi cancelado pela falta de jogadores.",0;

sleep2 5000;

mapwarp $mapa$,"prontera",145,168;

end;





OnPCKillEvent:

if( strcharinfo(3) != $mapa$ || rid2name(killedrid) == strcharinfo(0) ) end;

set @kills123,@kills123+1;

MapAnnounce $mapa$,"[One]: "+strcharinfo( 0 )+" esta com "+@kills123+"/"+$kills312+" !",0;

if( @kills123 < $kills312 ) end;

pvpoff $mapa$;

sleep2 2000;

announce "[One]: O jogador "+strcharinfo( 0 )+" venceu o evento "+.na2$+"!",bc_all;

getitem $premiosolo,$quantidadesolo;

dispbottom "Parabêns você ganhou o evento!. Prêmios entregues com sucesso!";

set @kills123,0;

sleep2 2000;

mapwarp $mapa$,"prontera",145,168;

end;



OnPCDieEvent:

if( strcharinfo(3) != $mapa$ ) end;

dispbottom "Você morreu. Aguarde para retornar ao evento";

sleep2 2000;

atcommand "@alive";

warp $mapa$,0,0;

}





//MapFlags

pvp_y_3-2	mapflag	nomemo

pvp_y_3-2	mapflag	nopenalty

pvp_y_3-2	mapflag	nobranch

pvp_y_3-2	mapflag	pvp_noguild

pvp_y_3-2	mapflag	noloot

pvp_y_3-2	mapflag	noexp

pvp_y_3-2	mapflag	noteleport

pvp_y_3-2	mapflag	noreturn

pvp_y_3-2	mapflag	nowarp

pvp_y_3-2	mapflag	nowarpto

pvp_y_3-2	mapflag	nosave

pvp_y_3-2	mapflag	pvp