// Money quest debug
// Author:
//    gumi

function	script	QuestDebug6	{
    do
    {
        clear;
        setnpcdialogtitle l("Quest debug");
        mes "ShipQuests_ArpanMoney";
        mes "---";
        mes l("Quest state: @@", getq(ShipQuests_ArpanMoney));
        next;

        GenericQuestDebug ShipQuests_ArpanMoney,
            l("Does not have the quest"), 0,
            l("Elmo told about money"), 1,
            l("Arpan gave money"), 2,
            l("Arpan gave clothes"), 3;

        if (@menuret < 0)
        {
            return;
        }

    } while (1);
}