// Evol scripts.
// Author:
//    Reid
// Description:
//    Captain Nard dialogs.
//    Nard does the introduction with a small quest.
//    This quest is meant to teach the player how to use a weapon,and to bring food to the ship.
//    4 bits array:
//    ShipQuests
// Variable:
//    0    ShipQuests_Nard
//    1    ShipQuests_Gugli
//    2    ShipQuests_ChefGado
// Values:
//    00   Introduction of the boxes and Nard. This is displayed when the player never spoke to Nard or his box.
//    01   Nard spoke and gave access to the outdoor of the ship.
//    02   Completed the Gugli quest.
//    03   ChefGado Quest accepted.
//    04   ChefGado Quest completed and "Introduction" chapter finalized.
//    05   Reward taken from the box.
//    10   Never talked with Gugli.
//    11   Gugli gives you the task.
//    12   Gave all of the boxes to Gugli.

000-2-3.gat,25,26,0,1	script	Nard	306;5,{

    set @nard, getq(ShipQuests_Nard);
    set @gugli, getq(ShipQuests_Gugli);
    set @gado, getq(ShipQuests_ChefGado);

l_Checker:
    if (@gado > 3 && @nard == 3) goto l_ChefQuestComplete;
    if (@nard == 2) goto l_ChefQuestStart;
    if (@nard == 3) goto l_ChefQuestGiven;
    if (@nard == 4) goto l_Reward;
    if (@nard > 4) goto l_Already;
    if (@gugli == 2) goto l_Done;
    if (@nard == 1) goto l_NotYet;

    mesn;
    mesq l("Hello.");
    next;
    mesq l("Let me introduce myself, I am Nard, captain of this ship.");
    next;
    mesq lg("It is nice to see that you woke up fine at the same time. Elmo came here to tell me this good news!");
    next;

    setcamnpc "Elmo";
    mesn "Elmo";
    mesq l("Oh... Err, yes I did, or, well, good day to you!");
    next;
    restorecam;

    mesn;
    mesq l("Hehehe, he is a bit nervous, please forgive him, it is not everyday we have a new member in the crew!");
    next;
    mesq l("So, how do you feel? I see that Julia did a marvelous job! You look like you're in good health now.");
    next;

l_Menu:
    menu
        lg("I feel ok."), l_Ok,
        l("Who's this Julia?"), l_Julia,
        lg("I'm a bit sick..."), -;

    mes "";
    mesn;
    mesq l("Oh, I was going to ask you if you wanted to help the crew search for some food and explore the island out there.");
    next;

l_MenuQuest:
    menu
        l("What do you need?"), -,
        l("Is there a reward?"), l_NeedHead;

    mes "";
    mesn;
    mesq l("Oh! I like that sort of answer!");
    next;
    mesq g(l("We need manpower on the island... Oh forgive me, women are also welcome, of course."),
           l("We need manpower on the island."));
    next;

    goto l_NeedContent;

l_NeedHead:
    mes "";
    mesn;

l_NeedContent:
    mesq l("Sure, there is a reward for your task.");
    next;
    mesq l("Our crew is like a family, and if you agree to help us, I would like to invite you to join our family!");
    next;
    mesq l("What? It's not a good reward?");
    next;
    mesq l("Oh well. I'll also give you one of these hats from the box near you, but only after you complete your task!");
    next;
    mesq l("I give you this key, it opens any doors on this ship.");
    next;
    mesq l("Now go outside and talk with Gugli, he'll tell you what we need.");
    next;

    set @item, 718;
    set @count, 1;
    callfunc "InventoryPlace", @item, @count;

    setq ShipQuests_Nard, 1;
    getitem "JohanneKey", 1;

    close;

l_Ok:
    mes "";
    mesn;
    mesq l("Good to know.");
    next;
    mesq l("We made a stop at a little island, before making it to the port of Artis.");
    next;
    mesq l("It would be good for you to do some exercise, the ship isn't big enough for that.");
    next;

    goto l_SpecialTask;

l_Julia:
    mes "";
    mesn;
    mesq l("You have an awful amnesia.");
    next;
    mesq l("She is the nurse and shipkeeper of this ship.");
    next;
    mesq lg("But most important, she is the one who took care of you when you were unconscious.");
    next;

l_SpecialTask:
    mesq l("I know that you are just starting to feel better, but I'd like to give you a special task.");
    next;

    goto l_MenuQuest;

l_NotYet:
    mesn;
    mesq l("You still haven't completed your tasks.");
    close;

l_Done:
    mesn;
    mesq l("Hi @@.", strcharinfo(0));
    next;
    mesq l("Elmo and Gugli told me that you did all of the tasks outside, congrats!");

    setq ShipQuests_Nard, 2;
    next;
    goto l_ChefQuestRedir;

l_ChefQuestStart:
    mesn;
    mesq l("Elmo told me you are now considered as one of us on the island. And I do appreciate the efforts you did down there.");
    next;

l_ChefQuestRedir:
    mesq l("Unfortunately, we still need help from you. This time it will be a delicate task, here onboard.");
    next;
    mesq l("Elmo reported me about some frictions between my old and new lieutenants. You probably already met Julia and Gado the Chef.");
    next;
    mesq l("They are both valid and I need them. In the past, I probably did mistakes I now regret. I was wondering if you could investigate and... Sort out this situation.");
    next;

    menu
        l("Who of them two has the 'good' on his side?"), -;

    mes "";
    mesq l("I do not want to point my finger on someone. I just put my trust in you. I am sure you will be able to judge and solve this annoying problem.");

    setq ShipQuests_Nard, 3;

    close;

l_ChefQuestGiven:
    mesn;
    mesq l("It seems you still have some work to do.");

    close;

l_ChefQuestComplete:
    mesn;
    mesq l("Congratulations!");
    next;
    mesq l("You are now officially part of my crew! Thanks again for your help.");
    next;
    mesq l("Take your reward from the box next to my desk!");
    next;

    menu
        l("I will take it! Thank you captain!"), -;

    setq ShipQuests_Nard, 4;

//  Need to add a skill for the crew at this line.

    mes "";
    mesn "Narrator";
    mes col(l("This is it, the end of the Second Beta Release of Evol Online!"), 9);
    next;
    mes col(lg("We hope you liked this introduction and to see you again in our future releases!"), 9);
    next;
    mes col(l("The adventure begins!"), 9);

    close;

l_Reward:
    mesn;
    mesq l("Hey! There's a reward for you in the box next to me!");

    close;

l_Already:
    mesn;
    mesq l("Sorry, I don't need any help right now. Come back later.");

    close;

}