path: root/npc/000-1/ale.txt

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

000-1.gat,55,23,0,1	script	Ale	105;2,{

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

    mesn;
    mesq l("Ouch...");
    next;
    mesq l("These eavy boxs are killing me, I don't feel my arms anymore!");
    next;

    menu
        l("Gugli sent me down here to help you."), -,
        l("What's this fruit?"), l_Plushroom;
        l("See you aboard."), close;

    mes "";
    mesn;
    mesq l("Really? That's kind from you, I accept your help!");
    next;
    mesq l("Hmm... Let's see, take this one.");
    next;

    setq ShipQuests_Ale, 1;
    getitem "AquadaBox", 1;

    mes "";
    mesn;
    mesq l("I will care of the other ones don't worry.");
    next;

l_CallFunc:
    callfunc "SailorFood";

    menu
        rif(getq(ShipQuests_Ale) == 1, l("I'm still busy, I need to find the other sailors.")), -,
        l("What's this fruit?"), l_Aquada;

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

    menu
        rif(getq(ShipQuests_Astapolos) == 0, l("Astapolos.")), l_Bottom,
        rif(getq(ShipQuests_Gulukan) == 0, l("Gulukan.")), l_Bottom,
        rif(getq(ShipQuests_Jalad) == 0, l("Jalad.")), l_Jalad,
        rif(getq(ShipQuests_QMuller) == 0, l("QMuller.")), l_Bottom,
        rif(getq(ShipQuests_Tibbo) == 0, l("Tibbo.")), l_Bottom,
        l("Nobody."), -;

    close;

l_Bottom:
    mes "";
    mesn;
    mesq l("I've seen him on the bottom of the island, ask Jalad for more information.");

    close;

l_Jalad:
    setcamnpc "Jalad";

    next;
    mesn;
    mesq l("Look, he's there!");
    next;

    restorecam;
    close;

l_Aquada:
    mes "";
    mesn;
    mesq l("This is an @@, a light blue sea fruit. They're highly desired in the archipelago.", getitemlink("Aquada"));
    next;
    mesq l("You can find them in the ocean, near corals and other sea beings. But the sea is too heavy today, you shouldn't try to swim there.");
    next;
    mesq l("Orelse, if you really wish one, and if you feel capable, you can try killing tortugas or crocs if you're strong enough. I'm sure they could drop one or two @@s.", getitemlink("Aquada"));

    close;

}