// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    History Books

009-2,61,61,0	script	#BookA	NPC_FINAL_POINT,{
    .@book_name$ = l("Fluffy Animals who Love Their Owners");
    if (openbookshelf(.@book_name$))
        PetcaringBook();
    closeclientdialog;
    close;
OnInit:
    .bookname$ = "Fluffy Animals who Love Their Owners";
    .distance=2;
   end;
}


009-2,60,64,0	script	#BookB	NPC_FINAL_POINT,{
    .@book_name$ = l(getitemname(FishingGuideVolI));
    if (openbookshelf(.@book_name$))
        FishingBook();
    closeclientdialog;
    close;
OnInit:
    .bookname$ = getitemname(FishingGuideVolI);
    .distance=2;
   end;
}


009-2,66,56,0	script	#BookC	NPC_FINAL_POINT,{
    doevent "@rules::OnShelfUse";
    closeclientdialog;
    close;
OnInit:
    .distance=2;
   end;
}


009-2,62,58,0	script	#BookD	NPC_FINAL_POINT,{
    .@book_name$ = l("The Book of Towns");
    if (openbookshelf(.@book_name$)) {
        mes sprintf("##B.:: %s ::.##b", l("Tulimshar"));
        mesc l("Tulimshar is the oldest human city, and its foundation is the year zero of our calendar.");
        mesc l("The city only flourished because Janett Platinum had the idea to build city walls surrounding this city.");
        mesc l("Is the capital and where the High Council seat is at.");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("Hurnscald"));
        mesc l("Hurnscald was founded after Tulimshar, in more fertile lands. Their walls are not so sturdy as the ones of Tulimshar.");
        mesc l("Under the leadership of King Wusher, they were the first to accept immigrants from other races. You will find humans and non-humans there.");
        mesc l("Collectively, these races are called \"Talpans\".");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("Halinarzo"));
        mesc l("Halinarzo was founded to explore Mana Stones.");
        mesc l("However, once the mines depleted, the town was mostly abandoned.");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("Nivalis"));
        mesc l("Nivalis was the last human settlement built during the First Era.");
        mesc l("It's cold, harsh climate makes difficult to live there. It was founded by people thrown away from Tulimshar and Hunrscald for political reasons.");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("Frostia"));
        mesc l("Frostia is the only city known that was not founded by humans.");
        mesc l("Not much is known about the town due to strict access policies.");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("Land of Fire Village"));
        mesc l("Halinarzo was founded to explore Mana Stones.");
        mesc l("However, once the mines depleted, the town was mostly abandoned.");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("Artis"));
        mesc l("Artis is a city port founded after the Great Fire on the other continent.");
        mesc l("It is the second largest city in the world, and the capital of the Aurora continent.");
        dnext;
        mes sprintf("##B.:: %s ::.##b", l("The Lost Cities"));
        mesc l("Thermin, Aethyr, Oceania, Esperia and the Redy Volcano Village are lost cities.");
        mesc l("They might no longer exist in our world.");
        next;
    }
    closeclientdialog;
    close;
OnInit:
    .bookname$ = "The Book of Towns";
    .distance=2;
   end;
}


// Source: https://web.archive.org/web/20201021105118/https://sites.google.com/site/tmwbrasil/historia-do-mundo/aeros-a-ilha-flutuante
// Author: Kriloz, 07 Sept 2009
// Reviewed by Indigovox, Translated by Jesusalva with DeepSeek
009-2,62,52,0	script	#BookE	NPC_FINAL_POINT,{
    .@book_name$ = l("The Legend of Aeros");
    if (openbookshelf(.@book_name$)) {
        mes l("Once in a while, it's always nice to look up at the sky. If you want to ");
        mes l("see the floating island named Aeros as well, you can do so too. The large ");
        mes l("floating island has the characteristic of not staying still in just one ");
        mes l("place. Because of its lower layer, which contains a huge sphere that lifts ");
        mes l("the island above the ground. On the surface, we have the city, with ");
        mes l("well-made streets and grand houses. Their gardens are rich in plants that ");
        mes l("are well taken care of but also dangerous. The waters are crystalline, and ");
        mes l("at the center of all this beauty stands the temple. It is adorned with ");
        mes l("precious stones and constructed in the purest form of marble that has ");
        mes l("never been seen before. Its citizens go there to receive forces for their ");
        mes l("battles and be cured of illnesses.");
        next;
        mes l("Such people are excellent singers, some claim that they can cure diseases ");
        mes l("with their voice as well. Science is also very advanced, reaching a point ");
        mes l("where its scientists have built portals that allow matter transport, thus ");
        mes l("enabling space travel for people from their current location.");
        mes l("");
        mes l("In the dark caverns and forests, creatures like limeflies, maggots, and ");
        mes l("snakes live. However, these are stronger than usual, and some have wings. ");
        mes l("Additionally, there is a fish-like creature with wings that can grow as ");
        mes l("large as three men!");
        next;
        mes l("In its history, there is a princess named Nayta Ambhar, from the Ambhar ");
        mes l("lineage, at 15 years old, who was destined to arrange a marriage with the ");
        mes l("prince known as Eldrun. She did not love him and didn't want to obey her ");
        mes l("parents' orders. She escaped to the highest mountain on the fortress ");
        mes l("island and cried to the stars, which transported her to an island above ");
        mes l("the clouds!");
        next;
        mes l("But not everything is flowers. In the same way that beauty and harmony ");
        mes l("coexist on one side of the island, on its other side lies chaos and ");
        mes l("destruction. He did not want to lose his future wife and created a ");
        mes l("powerful magic that allowed him to fly. He followed her and found a ");
        mes l("fortress where its inhabitants were subjects to the same magic, allowing ");
        mes l("them to gain strength without dying! However, the magic granted them wings ");
        mes l("instead of their left arm! Thus, Eldrun became very happy, as he could now ");
        mes l("have an endless army with just his right hand and wield a great sword with ");
        mes l("ease!");
        next;
        mes l("On the other side of the island, Nayta met Zolrac, the captain of the ");
        mes l("elite army on the island. The love between them caused Eldrun to deploy ");
        mes l("his endless army to attack him. However, Zolrac and his group, called ");
        mes l("Zarech, were benazed by the stars to have their swords granted with the ");
        mes l("power of light! They live at the highest mountain, subjected to extreme ");
        mes l("training to prove their loyalty to the princess, and the war continues!");
        next;
        mes l("But now, the princess is no longer alone. She has someone she loves as her ");
        mes l("husband and lives forever with her people in the floating island of Aeros!");
        dnext;
        mesc l("Some notes were added to the book.");
        if ($GAME_STORYLINE >= 5)
            mesc l("The Moubootaur has decimated the once beautiful island, and like Artis, it is now a ruin of what it once was. It now serves as a critical component in the Moubootaur's magical rituals and as his seat of power.");
        else if ($GAME_STORYLINE >= 3)
            mesc l("The Monster King has overtaken Aeros Island, and its current status is unknown. However, the fortress has most certainly have been destroyed.");
        else
            mesc l("The island certainly exists, but no one knows to reach it. The story is also extremely old, and no one knows if the island is still inhabited.");
        next;
    }
    closeclientdialog;
    close;
OnInit:
    .bookname$ = "The Legend of Aeros";
    .distance=2;
   end;
}