// Evol scripts.
// Author:
//    Reid
// Description:
//    Sailor part of the Gugli's quest.

000-1.gat,22,50,0,1	script	Astapolos	107;2,{

    set @q, getq(ShipQuests_Astapolos);
    if (@q == 1) goto l_CallFunc;

// Some dialogues will be here.
    setq ShipQuests_Astapolos, 1;
// And here too.

l_CallFunc:
    callfunc "SailorFood";

    menu  
        rif(getq(ShipQuests_Astapolos) == 1, l("I'm still busy, I need to find the other sailors.")), -,
        l("How are things going?"), l_HowAreYou,
        l("Who are you?"), l_Who;

    mes "";
    mesn;
    mesq l("Who are you searching?");
    next;

    menu
        rif(getq(ShipQuests_Ale) == 0, l("Ale.")), l_Top,
        rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), l_Bottom,
        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), l_Top,
        rif(getq(ShipQuests_QMuller) == 0, l("QMuller.")), l_Bottom,
        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Bottom,
        l("Nobody."), -;

    close;

l_HowAreYou:

    mes "";
    mesn;
    mesq l("A sunny and hot day,");
    next;
    mesq l("a quiet place,");
    next;
    mesq l("a ground!");
    next;
    mesq l("I hope that answers your question.") + " " + l("Hehe!");

    close;

l_Who:
    mes "";
    mesn;
    mesq l("My name is Astapolos, Q'Muller and I joined Nard's crew a few years ago when it was just a little merchant ship.");
    next;
    mesq l("At this time, we were selling crab food on our old mushroom island.");
    next;
    mesq l("And now I'm a sailor, as you can see!");

    close;

l_Bottom:
    mes "";
    mesn;
    mesq l("I've seen him at the bottom of the island, check around.");

    close;

l_Top:
    mes "";
    mesn;
    mesq l("I've seen him at the top of the island.");
    next;
    mesq l("You should walk to the north.");

    close;

}