//============================================================
//| ___ __ |
//| /'\_/`\ /\_ \ /\ \ |
//| /\ \ __ \//\ \ __ __\ \ \/'\ ___ |
//| \ \ \__\ \ /'__`\ \ \ \ /\ \/\ \\ \ , < / __`\ |
//| \ \ \_/\ \/\ \L\.\_ \_\ \_\ \ \_\ \\ \ \\`\ /\ \L\ \ |
//| \ \_\\ \_\ \__/.\_\/\____\\ \____/ \ \_\ \_\ \____/ |
//| \/_/ \/_/\/__/\/_/\/____/ \/___/ \/_/\/_/\/___/ |
//| |
//| |C|R|O|N|U|S| |S|C|R|I|P|T|S| |
//===== Por ==================================================
//= Maluko
//===== Versão ===============================================
//= 1.0 Iniciando o Npc
//= 1.1 Habilitando Sistema de pontos
//= 1.2 Adicionado Menu para Gm
//= 1.3 Estabilizando o número de Mobs para não causar lag
//= 2.0 Feito e Adicionado o Npc para troca dos pontos
//= 3.0 Versão final do Crused Place
//===== Compatível ===========================================
//= SVN Cronus 900+
//===== Descrição ============================================
//= Evento que sumona monstros, com um leve sistema de pontos por cada Monstro derrotado,
//= Acontece de 4 em 4 horas ou quando o Gm lvl80+ ativalo.
//= Alem de tudo é bem divertido.
//===== Comentários Adicionais ===============================
//= Maluko-Scripts http://br.geocities.com/maluko_scripts
//=
//= Cronus Fórum http://www.cronus-emulator.com/forum
//============================================================
prontera.gat,164,173,3 script Crused Place 866,{
if(getgmlevel() > 79)goto C_inicio;
show "[^00FF00Porteiro^000000]";
show "Olá "+strcharinfo(0)+".";
show "Fale-me o que deseja aqui?";
next;
C_menu:
menu "Quero Entra no ^FF0000Crused Palce^000000",C_entra,
"Mais Informações",C_info,
"Cancelar",C_cancel;
C_entra:
if($start == 1)goto C_warper;
show "[^00FF00Porteiro^000000]";
show "Volte Mais tarde.";
show "Agora o ^FF0000Crused Palce^000000 está Fechado.";
close;
C_warper:
if(Baselevel < 80)goto C_level;
if(getmapusers("yggdrasil01.gat") == 20)goto C_cheio;
show "[^00FF00Porteiro^000000]";
show "Tudo bem, tome muito cuidado lá dentro";
next;
announce "O jogador "+strcharinfo(0)+" entrou no Crused Palce.",8;
warp "yggdrasil01.gat", 0, 0; end;
C_level:
show "[^00FF00Porteiro^000000]";
show "Sinto Muito mas você não pode entra no ^FF0000Crused Place^000000. seu nivel de Base é inferior a 80";
close;
C_cheio:
show "[^00FF00Porteiro^000000]";
show "O ^FF0000Crused Place^000000 está lotado agora";
show "Volte mais tarde";
close;
C_info:
show "[^00FF00Porteiro^000000]";
show "O ^FF0000Crused Palce^000000 é um Lugar onde só os mais fortes sobrevivem. Neste Lugar vivem muitos monstros ferozes, além de alguns Mvps e Mini-Boss.";
next;
show "[^00FF00Porteiro^000000]";
show "Ele Abre de 4 em 4 horas ou pelo comando do GM";
next;
show "[^00FF00Porteiro^000000]";
show "Existe um sitema de pontos que funciona da seguinte maneira:";
show "A cada monstro derrotado é adicionado 1 ponto ao jogador.";
next;
show "[^00FF00Porteiro^000000]";
show "Tambem existe os MvPs, a cada MvP derrotado o jogador ganha 5 pontos.";
next;
show "[^00FF00Porteiro^000000]";
show "E ainda existe os Mini-Boss, a cada Mini-Boss derrotado o jogador ganha 2 pontos";
next;
show "[^00FF00Porteiro^000000]";
show "É Necessário que o jogador sejá LvL 80+ para poder entra no ^ff0000Crused Place^000000.";
goto C_menu;
C_cancel:
show "[^00FF00Porteiro^000000]";
show "Sabio é aquele que não ousa entrar aqui";
show "Mas também medroso é o mesmo";
close;
C_inicio:
show "Olá [GM] "+strcharinfo(0)+", gostaria de fazer oque?";
menu "Iníciar o ^FF0000Crused Place^000000.",G_abrir,
"Finalizar o ^FF0000Crused Place^000000.",G_fechar,
// "Ranking de pontos",C_ranking,
"Entrar Agora no ^FF0000Crused Palce^000000.",G_entar,
"Cancelar",G_cancelar;
G_abrir:
if($start == 1){
show "Sinto Muito [GM] mas o Crused Place já esta aberto";
close;
}
announce "As Portas do Crused Place abriram-se!!!",8;
set $start, 1;
killmonsterall "yggdrasil01.gat";
end;
G_fechar:
if($start == 0){
show "Sinto muito [GM] mas o Crused Place já esta Fechado";
close;
}
announce "O Crused Place foi fechado por Mando do [GM]",8;
set $start, 0;
killmonsterall "yggdrasil01.gat";
mapwarp "yggdrasil01.gat","prontera.gat",150,150;
close;
G_cancelar:
show "Até mais Tarde";
close;
G_entrar:
show "Muito Bem [GM], vou lhe Teleporta agora mesmo";
next;
warp "yggdrasil01.gat",0,0;
end;
}
// ========================================================
// =========== Começo do Crused Place =====================
// ========================================================
yggdrasil01.gat,0,0,0 script InvisibleNpc -1,{
OnClock0400:
if($start == 1) close;
Announce "As Portas do Crused Place abriram-se!!! Em 10 Minutos irá começar!",8;
initnpctimer;
set $start,1;
killmonsterall "yggdrasil01.gat"; end;
OnClock0800:
if($start == 1) close;
Announce "As Portas do Crused Place abriram-se!!! Em 10 Minutos irá começar!",8;
initnpctimer;
set $start,1;
killmonsterall "yggdrasil01.gat"; end;
OnClock1200:
if($start == 1) close;
Announce "As Portas do Crused Place abriram-se!!! Em 10 Minutos irá começar!",8;
initnpctimer;
set $start,1;
killmonsterall "yggdrasil01.gat"; end;
OnClock1600:
if($start == 1) close;
Announce "As Portas do Crused Place abriram-se!!! Em 10 Minutos irá começar!",8;
initnpctimer;
set $start,1;
killmonsterall "yggdrasil01.gat"; end;
OnClock2000:
if($start == 1) close;
Announce "As Portas do Crused Place abriram-se!!! Em 10 Minutos irá começar!",8;
initnpctimer;
set $start,1;
killmonsterall "yggdrasil01.gat"; end;
OnClock2400:
if($start == 1) close;
Announce "As Portas do Crused Place abriram-se!!! Em 10 Minutos irá começar!",8;
initnpctimer;
set $start,1;
killmonsterall "yggdrasil01.gat"; end;
OnTimer60000:
if($start == 1) close;
Announce "Apenas 9 Minutos para começar o Crused Place!!!",8;
end;
OnTimer120000:
if($start == 1) close;
Announce "Apenas 8 Minutos para começar o Crused Place!!!",8;
end;
OnTimer180000:
if($start == 1) close;
Announce "Apenas 7 Minutos para começar o Crused Place!!!",8;
end;
OnTimer240000:
if($start == 1) close;
Announce "Apenas 6 Minutos para começar o Crused Place!!!",8;
end;
OnTimer300000:
if($start == 1) close;
Announce "Apenas 5 Minutos para começar o Crused Place!!!",8;
end;
OnTimer360000:
if($start == 1) close;
Announce "Apenas 4 Minutos para começar o Crused Place!!!",8;
end;
OnTimer420000:
if($start == 1) close;
Announce "Apenas 3 Minutos para começar o Crused Place!!!",8;
end;
OnTimer480000:
if($start == 1) close;
Announce "Apenas 2 Minutos para começar o Crused Place!!!",8;
end;
OnTimer540000:
if($start == 1) close;
Announce "Apenas 1 Minutos para começar o Crused Place!!!",8;
end;
OnTimer600000:
if($start == 1) close;
Announce "O Crused Place Começou Agora!!!",8;
set $start,0;
set $mob, 120;
initnpctimer "Info";
monster "yggdrasil01.gat",0,0, "[-]Mímico[-]",1191,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Soldado[-]",1316,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Injustiçado[-]",1257,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Ilusão das Trevas[-]",1302,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Pesadelo Sombrio[-]",1379,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Golem de Lava[-]",1366,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Múmia Anciã[-]",1297,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Orc Arqueiro[-]",1189,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Majoruros[-]",1310,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Anolian[-]",1206,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Mini Demônio[-]",1292,10,"InvisibleNpc::Onmobkill";
monster "yggdrasil01.gat",0,0, "[-]Zumbi Prisioneiro[-]",1197,10,"InvisibleNpc::Onmobkill";
end;
Onmobkill:
set $mob,$mob-1;
set #points,#points+1;
if($mob == 20) Announce "Restam apenas 50 monstros",8;
if($mob == 10) Announce "Falta apenas 10 monstros para poder começar o ataque dos Mini-chefes",8;
if($mob == 0) goto Onmini;
end;
Onmini:
Announce "Os Mini-chefes começaram o ataque",8;
set $mob, 6;
monster "yggdrasil01.gat",0,0, "[-]Quimera[-]",1283,3,"InvisibleNpc::Onmobkill2";
monster "yggdrasil01.gat",0,0, "[-]ArchAngeling[-]",1388,2,"InvisibleNpc::Onmobkill2";
monster "yggdrasil01.gat",0,0, "[-]Ghostring[-]",1120,1,"InvisibleNpc::Onmobkill2";
end;
Onmobkill2:
set $mob,$mob-1;
set #points,#points+2;
if($mob == 5) Announce "Ainda existe 5 Mini-Chefes no Crused Place",8;
if($mob == 4) Announce "Ainda existe 4 Mini-Chefes no Crused Place",8;
if($mob == 3) Announce "Ainda existe 3 Mini-Chefes no Crused Place",8;
if($mob == 2) Announce "Ainda existe 2 Mini-Chefes no Crused Place",8;
if($mob == 1) Announce "Ainda existe 1 Mini-Chefes no Crused Place",8;
if($mob == 0) Announce "Chegou a hora dos MvP's",8;
if($mob == 0) goto Onchefe;
end;
Onchefe:
Announce "Os MvP's começaram o ataque",8;
set $mob, 6;
monster "yggdrasil01.gat",0,0, "[-]Cavaleiro da Tempestade[-]",1251,1,"InvisibleNpc::Onmobkill3";
monster "yggdrasil01.gat",0,0, "[-]Bafomé[-]",1039,1,"InvisibleNpc::Onmobkill3";
monster "yggdrasil01.gat",0,0, "[-]Senhor dos Orcs[-]",1190,1,"InvisibleNpc::Onmobkill3";
monster "yggdrasil01.gat",0,0, "[-]Amon Ra[-]",1511,1,"InvisibleNpc::Onmobkill3";
monster "yggdrasil01.gat",0,0, "[-]Drácula[-]",1389,1,"InvisibleNpc::Onmobkill3";
monster "yggdrasil01.gat",0,0, "[-]Senhor das Trevas[-]",1272,1,"InvisibleNpc::Onmobkill3";
end;
Onmobkill3:
set $mob,$mob-1;
set #points,#points+5;
if($mob == 4) Announce "Restam 4 MvPs",8;
if($mob == 3) Announce "Restam 3 MvPs",8;
if($mob == 2) Announce "Restam 2 MvPs",8;
if($mob == 1) Announce "Restam 1 MvPs",8;
if($mob == 0) Announce "Ow meus Deus, Todos Os MvP's foram Mortos",8;
if($mob == 0) Announce "Parabêns a todos os Guerreiros que ajudaram a Deter o Mal",8;
if($mob == 0) goto C_area;
end;
C_area:
OnTimer50000:
mapwarp "yggdrasil01.gat","prontera.gat",150,150;
set $start,0;
end;
}
// ======================================================
// ============ Informações dos players =================
// ======================================================
yggdrasil01.gat,150,151,4 script Info -1,{
OnTimer20000:
if (getmapusers("yggdrasil01.gat") == 0) Announce "Ow Não, Todos os Guerreiros Falharam no Crused Place",8;
if (getmapusers("yggdrasil01.gat") == 0) set $start,0;
if (getmapusers("yggdrasil01.gat") == 0) killmonsterall "yggdrasil01.gat";
if (getmapusers("yggdrasil01.gat") == 0) end;
end;
}
// =============================================
// ============ Sistema de Pontos ==============
// =============================================
prontera.gat,143,170,4 script Verificador de Pontos 861,{
show "^c0c0c0|Yuri^000000";
show "Bom Dia, Eu posso informa-lhe quantos pontos você possui por matar os monstro no ^FF0000Crused Palce^000000";
next;
C_menu:
menu "Diga-me quantos pontos eu possuo.",C_points,
"Mostre-me a lista de itens.",C_lista,
"Adoraria trocar os meus pontos",C_trocar,
"Deixe para a próxima, Obrigado.",C_end;
C_points:
show "^c0c0c0|Yuri^000000";
show "Uhum, Irei chegar, Aguarde um instante...";
next;
show "^c0c0c0|Yuri^000000";
show "Aqui está:";
show "Você possui exatamente ^00FF00"+ #points +"^000000 pontos.";
next;
goto C_menu;
C_lista:
show "^c0c0c0|Yuri^000000";
show "Aqui está a lista de itens e a quantidade de pontos que precisa para resgatar.";
next;
show "^c0c0c0|Yuri^000000";
show "10 pontos, 10 Poções Brancas";
next;
show "^c0c0c0|Yuri^000000";
show "20 pontos, 5 Poções Brancas e 10 frutos de Yggdrasil";
next;
show "^c0c0c0|Yuri^000000";
show "50 pontos, 1 Quepe ou 1 chapéu de Gatinho";
next;
show "^c0c0c0|Yuri^000000";
show "70 pontos, 1 Asas Diabólicas ou 1 Orelhas de Anjo";
next;
show "^c0c0c0|Yuri^000000";
show "90 pontos, 1 Bota[1]+6 , 1 Sobrepeliz[1]+6 e 1 Óculos[1]";
next;
show "^c0c0c0|Yuri^000000";
show "150 pontos, 1 Bota[1]+7 , 1 Sobrepeliz[1]+7 , 1 Casaco[1]+7 e 1 Quepe";
next;
show "^c0c0c0|Yuri^000000";
show "200 pontos, 30 Frutos de yggdrasil , 1 Coroa do deus Sol e 1 Casaco[1]+7";
next;
show "^c0c0c0|Yuri^000000";
show "350 pontos, 1 Bota[1]+8 , 1 Sobrepeliz[1]+8 , 1 Casaco[1]+8 , 1 vembrassa[1]+8 , 1 Óculos escuro[1]+8...";
show "E também terá direito a um chapéu entre: Coroa do Deus Sol, Capacete de Orc Herói ou Chapéu de Gatinho+8";
next;
goto C_menu;
C_end:
show "^c0c0c0|Yuri^000000";
show "Tudo Bem";
show "até mais tarde";
close;
C_trocar:
show "^c0c0c0|Yuri^000000";
show "Você possui ^00FF00"+ #points +"^000000 pontos";
show "Escolha por quais pacotes você vai trocar";
next;
menu "10 Pontos",C_10p,
"20 Pontos",C_20p,
"50 Pontos",C_50p,
"70 Pontos",C_70p,
"90 Pontos",C_90p,
"150 Pontos",C_150p,
"200 Pontos",C_200p,
"350 Pontos",C_350p,
"Cancelar",C_end;
C_10p:
show "^c0c0c0|Yuri^000000";
if(#points < 10){
show "Você não tem Pontos Suficientes";
close;
}
show "Muito bem, a sua escolha foi 10 Poções Brancas?";
next;
menu "Isso mesmo",-,
"Não quero mais",C_end;
set @itemID, 504;
set @itemqts, 10;
set @ponto, 10;
goto C_premio;
C_20p:
show "^c0c0c0|Yuri^000000";
if(#points < 20){
show "Você não tem Pontos Suficientes";
close;
}
show "Muito Bem, a sua escolha foi 5 Poçoes Brancas e 10 Frutos de YggDrasil?";
next;
menu "Isso mesmo",-,
"Não quero mais",C_end;
set @itemID, 504;
set @itemqts, 5;
set @itemID2, 607;
set @itemqts2, 10;
set @ponto, 20;
goto C_premio;
C_50p:
show "^c0c0c0|Yuri^000000";
if(#points < 50){
show "Você não tem Pontos Suficientes";
close;
}
show "Você vai querer 1 Quepe ou 1 Chpéu de Gatinho?";
next;
menu "1 Quepe",-,
"1 chapéu de Gatinho",M_2_1,
"Não quero mais",C_end;
set @itemID, 5016;
set @itemqts, 1;
set @ponto, 50;
goto C_premio;
M_2_1:
set @itemID, 5099;
set @itemqts, 1;
set @ponto, 50;
goto C_premio;
C_70p:
show "^c0c0c0|Yuri^000000";
if(#points < 70){
show "Você não tem Pontos Suficientes";
close;
}
show "Você vai querer 1 Asas Diabólicas ou 1 Orelhas de Anjo?";
next;
menu "1 Asas Diabólicas",-,
"1 Orelhas de Anjo",M_2_2,
"Não quero mais",C_end;
set @itemID, 5044;
set @itemqts, 1;
set @ponto, 70;
goto C_premio;
M_2_2:
set @itemID, 5074;
set @itemqts, 1;
set @ponto, 70;
goto C_premio;
C_90p:
show "^c0c0c0|Yuri^000000";
if(#points < 90){
show "Você não tem Pontos Suficientes";
close;
}
show "Muito Bem, a sua escolha foi 1 Bota[1]+6 , 1 Sobrepeliz[1]+6 e 1 Óculos[1]?";
next;
menu "Isso mesmo",-,
"Não quero mais",C_end;
set @itemID, 2406;
set @itemqts, 1;
set @refine, 6;
set @itemID2, 2504;
set @itemqts2, 1;
set @refine2, 6;
set @itemID3, 2204;
set @itemqts3, 1;
set @refine3, 0;
set @ponto, 90;
goto C_premio2;
C_150p:
show "^c0c0c0|Yuri^000000";
if(#points < 150){
show "Você não tem Pontos Suficientes";
close;
}
show "Muito Bem, a sua escolha foi 1 Bota[1]+7 , 1 Sobrepeliz[1]+7, 1 Casaco[1]+7 e 1 Quepe";
next;
menu "Isso mesmo",-,
"Não quero mais",C_end;
set @itemID, 2406;
set @itemqts, 1;
set @refine, 7;
set @itemID2, 2504;
set @itemqts2, 1;
set @refine2, 7;
set @itemID3, 2310;
set @itemqts3, 1;
set @refine3, 7;
set @itemID4, 5016;
set @itemqts4, 1;
set @refine4, 0;
set @ponto, 150;
goto C_premio2;
C_200p:
show "^c0c0c0|Yuri^000000";
if(#points < 200){
show "Você não tem Pontos Suficientes";
close;
}
show "Muito Bem, a sua escolha foi 30 Frutos de Yggdrasil , 1 Coroa do deus Sol e 1 Casaco[1]+7";
next;
menu "Isso mesmo",-,
"Não quero mais",C_end;
set @itemID, 607;
set @itemqts, 30;
set @refine, 0;
set @itemID2, 5022;
set @itemqts2, 1;
set @refine2, 0;
set @itemID3, 2310;
set @itemqts3, 1;
set @refine3, 7;
set @ponto, 200;
goto C_premio2;
C_350p:
show "^c0c0c0|Yuri^000000";
if(#points < 350){
show "Você não tem Pontos Suficientes";
close;
}
show "Muito Bem, a sua escolha foi 1 Bota[1]+8 , 1 Sobrepeliz[1]+8 , 1 Casaco[1]+8 , 1 vembrassa[1]+8 , 1 Óculos escuro[1]+8...";
show "E também terá direito a um chapéu entre: Coroa do Deus Sol, Capacete de Orc Herói ou Chapéu de Gatinho+8";
next;
menu "Isso mesmo",-,
"Não quero mais",C_end;
set @itemID, 2406;
set @itemqts, 1;
set @refine, 8;
set @itemID2, 2504;
set @itemqts2, 1;
set @refine2, 8;
set @itemID3, 2315;
set @itemqts3, 1;
set @refine3, 8;
set @itemID4, 2102;
set @itemqts4, 1;
set @refine4, 8;
set @itemID5, 2202;
set @itemqts5, 1;
set @refine5, 8;
set @ponto, 350;
show "Qual chápeu você vai querer";
C_escolhar:
menu2 "Coroa do deus Sol",C_sol,
"Capacete de orc Herói",C_orc,
"Chapéu de gatinho+9",C_gatinho;
show "Por favor, escolha uma das 3 opções";
next;
goto C_escolhar;
C_sol:
set @itemID6, 5022;
set @itemqts6, 1;
set @refine6, 0;
goto C_premio2;
C_orc:
set @itemID6, 5094;
set @itemqts6, 1;
set @refine6, 0;
goto C_premio2;
C_gatinho:
set @itemID6, 5099;
set @itemqts6, 1;
set @refine6, 8;
goto C_premio2;
C_premio2:
show "^c0c0c0|Yuri^000000";
show "Aqui está seu prêmio";
additem2 @itemID,@itemqts,1,@refine,0,0,0,0,0;
additem2 @itemID2,@itemqts2,1,@refine2,0,0,0,0,0;
additem2 @itemID3,@itemqts3,1,@refine3,0,0,0,0,0;
additem2 @itemID4,@itemqts4,1,@refine4,0,0,0,0,0;
additem2 @itemID5,@itemqts5,1,@refine5,0,0,0,0,0;
additem2 @itemID6,@itemqts6,1,@refine6,0,0,0,0,0;
set #points,#points-@ponto;
next;
show "^c0c0c0|Yuri^000000";
show "Agora você possui ^00FF00"+#points+"^000000";
close;
C_premio:
show "^c0c0c0|Yuri^000000";
show "Aqui está seu prêmio";
additem @itemID,@itemqts;
additem @itemID2,@itemqts2;
set #points,#points-@ponto;
next;
show "^c0c0c0|Yuri^000000";
show "Agora você possui ^00FF00"+#points+"^000000.";
close;
}
// =================================================
// =================== Map Flags ===================
// =================================================
yggdrasil01.gat mapflag nowarp
yggdrasil01.gat mapflag nowarpto
yggdrasil01.gat mapflag noteleport
yggdrasil01.gat mapflag nosave SavePoint
yggdrasil01.gat mapflag nomemo
yggdrasil01.gat mapflag pvp
yggdrasil01.gat mapflag nobranch
yggdrasil01.gat mapflag nopenalty
yggdrasil01.gat mapflag noloot
               (
geocities.com/br)