Script

prontera,144,178,5 script Ultimo Sobrevivente 106,{

set @nome$,"[^BC8F8F Ultimo Sobrovivente ^000000]"; mes @nome$; mes "Olá ^BC8F8F"+strcharinfo(0)+"^000000"; mes "Bem-vind"+ (Sex?"o":"a") +" ao ^FF8C00Sobrevivente^000000"; mes "O que deseja fazer hoje?"; next; if (2000000 == getcharid(3)) set .@a$,"Ligar o evento"; switch(select("Entrar no evento","Informações",.@a$,"Sair")) {

case 1: if(!$sobrevivente) { mes @nome$; mes "O evento está fechado."; close; } if(Class == 25){ mes @nome$; mes "Desculpe, mas essa classe está restrita a este mapa!"; close; } if (!getcharid(2)) { mes @nome$; mes "Desculpe, mas você precisa está em uma Guild para entrar nesta Arena."; close; } set @evento, rand(1,8); if(@evento == 1){ warp "payon",27,68; } if(@evento == 2){ warp "payon",27,35; } if(@evento == 3){ warp "payon",60,35; } if(@evento == 4){ warp "payon",60,68; } if(@evento == 5){ warp "payon",54,61; } if(@evento == 6){ warp "payon",34,61; } if(@evento == 7){ warp "payon",34,42; } if(@evento == 8){ warp "payon",55,42; } close; case 2: mes @nome$; mes "Na Arena nós testaremos sua força."; mes "Você ira para uma arena onde terá uma guerra, que o ultimo(a) player sobrevivente será o vencedor."; mes "Lembrando que, não é fácil. Por isso, prepare-se!"; mes "Caso você sejá o ultimo sobrevivente da Arena, você será recompensado com um Premio!"; close;

case 3: mes @nome$; mes "O evento foi iniciado com sucesso."; close2; callsub start_event; close;

case 4: mes @nome$; mes "Volte quando quiser."; close; } //= Evento ===========================
OnClock0930:
OnClock1500:
OnClock2200:
start_event: disablenpc "Premiador"; set $sobrevivente,1; pvpoff "payon"; announce "Ultimo Sobrevivente: O evento está aberto! em 5 minutos ele irá iniciar.",0,0xFF8C00; sleep 60000; announce "Ultimo Sobrevivente: O evento