/* ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___
/\ \ /\ \ /\ \ /\__\ /\ \ /\ \ /\ \ /\ \ /\__\ /\__\ /\ \
\:\ \ /::\ \ /::\ \ /:| _|_ /::\ \ /::\ \ /::\ \ /::\ \ /:| _|_ /:/ _/_ /::\ \
/::\__\ /::\:\__\ /:/\:\__\ /::|/\__\ /:/\:\__\ /:/\:\__\ /::\:\__\ /:/\:\__\ /::|/\__\ /:/_/\__\ /\:\:\__\
/:/\/__/ \:\:\/ / \:\ \/__/ \/|::/ / \:\/:/ / \:\ \/__/ \;:::/ / \:\/:/ / \/|::/ / \:\/:/ / \:\:\/__/
\/__/ \:\/ / \:\__\ |:/ / \::/ / \:\__\ |:\/__/ \::/ / |:/ / \::/ / \::/ /
\/__/ \/__/ \/__/ \/__/ \/__/ \|__| \/__/ \/__/ \/__/ \/__/
(C) Copyright TecnoCronus 03/06/15
*--------------------------------------------eAthena Script---------------------------------------------*
*- Evento Guerra do Empério *
*------------------------------------------------ By: --------------------------------------------------*
*- TecnoCronus *
*------------------------------------------ Current Version: -------------------------------------------*
*- 2.0 *
*------------------------------------------ Description: -----------------------------------------------*
* *
* - NPC de evento, Não-Oficial, criado por mim, com base na História do Ragnarok. Toda vez que a *
* WOE começar, existe uma chance de esse evento começar, e o NPC íris vai ser ativado, quem falar *
* com o NPC enquanto o evento estiver ativo poderá fazer a quest primeiro para poder participar *
* do evento, que é trazer 100 mantos e estar usando um manto sagrado. O Objetivo é matar 100 players *
* (por padrão) na WOE para ganhar o prêmio que é uma Coroa do Deus-Sol () *
* *
*---------------------------------------- Additional Comments: -----------------------------------------*
* *
* - Enquanto o jogador estiver no evento, há uma chance de ele ser bufado e ganhar porção branca *
* - O NPC vai dar prêmio somente para 1 jogador, ou seja, o primeiro a matar 100 players *
* *
*-------------------------------------------- Changelog ------------------------------------------------*
*- http://trac.xp-dev.com/TC_Scripts/log/scripts/PT/Woe Event.txt *
*-------------------------------------------------------------------------------------------------------*/
prontera,168,187,4 script Íris 117,{
OnClick:
if($WEventON == 1) {
set @PName$, strcharinfo(0);
if(IrisH==1) {
mes "^D8202F [Íris] ^000000";
mes "^3FF000 "+ @PName$ +" ^000000, meu Subordinado, lhe esqueci de contar algo:";
mes "O Feitiço de Chaos sempre existirá, Os Corações Humanos almadiaçoados pela ganância";
mes "é a sua fonte de poder, que pena você não poder mais me Ajudar, agora preciso";
mes "tentar novamente me libertar, mas somente um Guerreiro Mais Forte que você pode me ajudar";
close;
}
if(IrisComplete==1) {
mes "^D8202F [Íris] ^000000";
mes "Meu mais importante subordinado, você completou sua jornada, e me ajudou";
mes "Você, ^0F0F0F "+ @PName$ +" ^000000, provou sua Honra e Coragem, agora";
mes "você receberá aquilo que lhe prometi, um ^FF0000 Coroa do Deus Sol ^000000, os deuses";
mes "de Rune Midgard estão felizes, pois consegui prová-los que sou uma boa líder";
mes "e agora eles me libertarão daqui, como prometido...";
getitem 5022, 1;
close2;
npctalk "Obrigado "+ @PName$ +" agora estou livre";
sleep2 1500;
npctalk "Estarei no Céu, sempre olhando por você....";
set Iriscomplete, 0;
set IrisHelper, 0;
set IrisTest, 0;
set IrisKill, 0;
set IrisH, 1;
callfunc "Ending";
end;
}
if(IrisHelper==1) {
callfunc "IrisHelper";
mes "^D8202F [Íris] ^000000";
if(@MyQuest<100 || isequipped(2325) != 1) {
mes "Escute, ^6E26D7 "+ @PName$ +" ^000000, complete os requisitos para começar sua missão";
mes "São eles: ^FF0000 100 Mantos Cerimoniais Celestiais ^000000";
mes "e estar usando um Manto Sagrado (Armadura)";
mes "Você já tem ^333333 "+ @MyQuest +" ^000000 Manto(s) Sagrado(s)";
mes "e/ou ainda não está usando o Manto Sagrado";
close;
}
mes "Parabéns meu Fiél Subordinado, você provou que tem Força e Honra suficiente";
mes "Para ser meu subordinado, Meus Parabéns, agora você já pode começar sua missão";
mes "Você se Lembra dela?";
next;
if(select("Sim Mestre","Desculpe-me Mestre, esqueci)==2) {
mes "^D8202F [Íris] ^000000";
mes "Não precisa se desculpar, sua Missão é a seguinte:";
mes "^D39337 Matar 100 Humanos na Guerra do Empério ^000000 nos Castelos de ^0FF000 Prontera ^000000";
mes "Quando você fizer isso, eu lhe invocarei aqui e lhe darei sua Recompença";
mes "Uma Lendário ^FF0000 Coroa do Deus Sol ^000000, que ganhei de presente dos Deuses";
mes "Vamos começar o Ritual, você receberá 50 Porções Brancas agora";
mes "E receberá meus Buffs agora e quando matar...";
set IrisTest, 1;
close2;
callfunc "StartingMainQuest";
end;
}
mes "Certo, agora devo lhe contar sua recompença, é algo muito valioso,";
mes "Uma Lendária ^FF0000 Coroa do Deus Sol ^000000, que ganhei de presente dos Deuses";
mes "Agora vá e Complete sua Missão";
mes "Vamos começar o Ritual, você receberá 50 Porções Brancas agora";
mes "E receberá meus Buffs agora e quando matar...";
set IrisTest, 1;
close2;
callfunc "StartingMainQuest";
end;
}
if (BaseLevel<60 || Upper < 1) {
mes "^D8202F [Íris] ^000000";
mes "Desculpe-me, ^6E26D7 "+ @PName$ +" ^000000, não preciso de sua ajuda,";
mes "Você é muito fraco";
}
mes "^D8202F [Íris] ^000000";
mes "Olá ^6E26D7 "+ @PName$ +" ^000000, eu me chamo íris";
mes "sou uma Guerreira muito antiga, e estou procurando por fiéis Guerreiros";
mes "Você deseja ouvir minha História ?";
if(select("Sim, Me Conte mais","Não, estou Ocupado") ==2) {
mes "Que pena ^6E26D7 "+ @PName$ +" ^000000...";
mes "É uma grande honra poder ajudar uma guerreira valkíria.";
close;
}
mes "Há muito, MUITO tempo atrás os Deuses de Rune Midgard estavam anciosos.";
mes "Eles temiam o Fim do Mundo, O Terrível ^FF1200 Ragnarok ^000000, o dia em que o mundo acabaria";
mes "nesses tempos de preocupações, os deuses selecionavam, em toda Rune Midgard";
mes "os guerreiros mais valentes para formar a Guarda Celestial, que protegeria os Humanos.";
next;
mes "^D8202F [Íris] ^000000";
mes "Os Guerreiros da Guarda Celestial eram muito Fortes e temidos";
mes "por toda Rune Midgard, eles eram abençoados pelos deuses e";
mes "adorados pelos mortais...";
next;
mes "^D8202F [Íris] ^000000";
mes "Eu, era a Líder da primeira Guarda celestial";
mes "os deuses de Rune Midgard me abençoaram com a imortalidade";
mes "Mas, o meu principal Subordinado e membro da Guarda Celestial";
mes "Chaos guardava muita inveja em seu coração e,";
mes "Ajudado pelos Demônios que queriam acabar com Rune Midgard,";
mes "Conseguiu me enfeitiçar e retirar minha imortalidade...";
next;
mes "^D8202F [Íris] ^000000";
mes "Todos os Deuses ficaram muito preocupados, mas não sabiam";
mes "Sobre a Traição de ^080833 Chaos ^000000, e assim o elegeram";
mes "Novo Líder da Guarda Celestial";
next;
mes "^D8202F [Íris] ^000000";
mes "Chaos, juntamente com os Demônios, se rebeleram contra os";
mes "deuses de Rune Midgard, Assim Começou Temido ^FF1200 Ragnarok ^000000";
mes "Deuses e Demônios travaram uma batalha Terrível,";
mes "Que durou 7 Dias e 7 Noites, O Terror estava espalhado por Rune Midgard,";
mes "os Deuses venceram, mas, antes de ser destruído, Chaos";
mes "Lançou seu último e mais Malígno feitiço";
next;
mes "^D8202F [Íris] ^000000";
mes "Ele conseguiu o que queria, plantou o Mal, a Ambição nos Corações dos Mortais";
mes "Ele criou a ^A6A413 Guerra do Empério ^000000, onde os mortais procurariam cada";
mes "vez mais e mais o poder, Ele Amaldiçoou os 17 Templos dos deuses, onde os Humanos";
mes "Procurariam por Poder, os Deuses não podiam ficar mais em Rune Midgard, pois estavam";
mes "muito fracos e não conseguiram retirar seu feitiço até hoje,";
mes "Assim Os Deuses de Rune Midgard Subirão ao Céu, onde lá estão";
next;
mes "^D8202F [Íris] ^000000";
mes "Disse Chaos que eu os Deuses só me libertariam dessa prisão, quando eu";
mes "provar novamente que mereço ser Líder da Guarda Celestial, então, eu";
mes "procuro por guerreiros que possa me ajudar em minha longa Jornada...";
mes "Os Deuses Ficaram impedidos de me liberta, somente quando eu comcluir minha missão";
mes "Mas, como seu último ato, os Deuses me deram uma ^FF0000 Coroa do Deus Sol ^000000, para";
mes "recompensar aqueles que me ajudarem...";
next;
mes "^D8202F [Íris] ^000000";
mes "Mas, Primeiramete, você tem que passar no meu teste,";
mes "para provar sua força, eu preciso que você mate ^D39337 100 ^000000";
mes "Humanos na ^A6A413 Guerra do Empério ^000000 nos Castelos de ^0FF000 Prontera ^000000";
mes "Mas Primeirante, precisamos iniciar nosso ritual, assim";
mes "provará que é forte o Bastante para me ajudar a sair";
mes "dessa maldita prisão, eu lhe irei ajudar, como disse, ainda tenho";
mes "alguns poderes...";
next;
mes "^D8202F [Íris] ^000000";
mes "Bem, ^6E26D7 "+ @PName$ +" ^000000, primeiramente me traga alguns items";
mes "Para que eu lhe poça curar e abençoar durante sua missão";
mes "Mas, antes de tudo desejo saber se você pode me ajudar...";
if(select("Certamente, serei seu mais Fiél Subordinado","Não, Sou Muito Fraco...")==2) {
emotion 23;
mes "Que pena, ^6E26D7 "+ @PName$ +" ^000000, vejo que você";
mes "é realmente fraco e Covarde, vá embora!";
close;
}
next;
emotion 21;
mes "^D8202F [Íris] ^000000";
mes "Muito Obrigada, ^6E26D7 "+ @PName$ +" ^000000, para começar sua jornada, traga-me";
mes "--- ^FF0000 100 Mantos Cerimoniais Celestiais ^000000 ---";//7165
mes "E Use um ^FF0000 Manto Sagrado ^000000, esses são os requisitos";//2325
mes "Para que eu possa começar o Ritual Sagrado, que permitirá que eu lhe";
mes "transfira minha força para você, vá meu caro subordinado, não demore";
mes "volte antes que a ^A6A413 Guerra do Empério ^000000 acabe, pois só posso";
mes "surgir enquanto ela durar, quando ela acaba, sou levada misteriosamente";
mes "para outro lugar...";
set IrisHelper, 1;
close;
}
end;
}
function script IrisHelper {
set @MyQuest, countitem(7165);
return @MyQuest;
}
function script StartingMainQuest {
delitem 7165, 100;
percentheal 100,100;
sc_start 32,240000,10; //Increase Agi.
sc_start 30,240000,10; //Blessing
sc_start 39,240000,10; //Kyrie Eleison
sc_start 21,240000,10; //Endure
sc_start 43,240000,10; //Adrenaline Rush
sc_start 46,240000,10; //Maximize Power
sc_start 110,240000,10; //Improve Concentration
sc_start 40,240000,10; //Magnificat
getitem 505, 50;
}
function script Ending {
set @FirstRandomNumber, rand(100,600);
set @SecondRandomNumber, rand(100,600);
movenpc "Íris",@FirstRandomNumber,@SecondRandomNumber;
end;
}
- script OnPCKillEvent -1,{
if(IrisTest!=1) end;
if(IrisH == 1) end;
if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) end;
if (@mapname$ == "prtg_cas01") || (@mapname$ == "prtg_cas02") || (@mapname$ == "prtg_cas03") || (@mapname$ == "prtg_cas04") || (@mapname$ == "prtg_cas05") {
set IrisKill, Iriskill+1;
if(IrisKill==$WEPKAmount) {
set IrisComplet, 1;
announce "Mensagem de Íris: Você completou sua Missão, Venha receber sua recompensa",bc_self,0;
sleep2 2000;
warp "prontera",166,185;
end;
}
dispbottom "VOZ PROFUNDA: Parabéns Meu Subordinado, continue assim, até matar os 100...";
set @IrisTestRandTakePotion, rand(1,100);
if (@IrisTestRandTakePotion<=$WEBuffChance) {
percentheal 100,100;
sc_start 32,240000,10; //Increase Agi.
sc_start 30,240000,10; //Blessing
sc_start 39,240000,10; //Kyrie Eleison
sc_start 21,240000,10; //Endure
sc_start 43,240000,10; //Adrenaline Rush
sc_start 46,240000,10; //Maximize Power
sc_start 110,240000,10; //Improve Concentration
sc_start 40,240000,10; //Magnificat
if(checkweight(505,50)==1) getitem 505,50;
dispbottom "VOZ PROFUNDA: Íris está te ajudando...";
end;
}
end;
}
- script WEventControl -1,{
end;
OnInit:
// Chance pro evento começar, em porcentagem. (1%-100%)
set $WEChance, 10;
// Chance pros jogadores ser bufados quando matar alguém, em porcentagem.
set $WEBuffChance, 10;
// Quantidade de jogadores que deve se matar para ganhar o prêmio.
set $WEPKAmount, 100;
disablenpc "Íris";
end;
OnAgitStart:
set $RandomChanceToStart, rand(1,100);
if($RandomChanceToStart<=$WEChance) {
enablenpc "Íris";
announce "VOZ PROFUNDA: Uma Lendária Guerreira precisa de Ajuda, ela se encontra em Prontera e Procura por Guerreiros para lhe ajudar...",0;
set $WEventON, 1;
}
end;
OnAgitEnd:
if($WEvent == 1) {
set $WEvent, 0;
disablenpc "Íris";
announce "VOZ PROFUNDA: Algo de muito estranho aconteceu, A Guerreira Íris que estava em Prontera sumiu Misteriosamente...",0;
}
end;
}