path: root/npc/005-2/saxsochest.txt

// Author:
//    Crazyfefe

005-2,44,41,0	script	Saxso Chest	NPC_NO_SPRITE,{

    .key = SaxsoKey;
    .reward = ToothNecklace;
    
    function quest_completed{
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("you allready open the chest.");
            setq CandorQuest_Chest, 0;
            close;
    }

    function quest_open {
        if (countitem(.key) > 0)
        {
            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
                l("You open the chest and found a @@.",getitemlink(.reward));
            delitem .key,1;
            getitem .reward,1;
            setq CandorQuest_Chest, 1;
            close;
        }
        else 
        {
            speech S_FIRST_BLANK_LINE,
                l("you don't have the key.");
            close;
        }
    }

    function quest_started {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("it look close.");
        narrator S_LAST_NEXT,
            l("you should use a key for open it.");
        do
        {
        select
            l("Use a key."),
            menuaction(l("Quit"));

        switch (@menu)
        {
            case 1:
                quest_open;
                break;
        }
    } while (@menu != 2);
    }
   
    do
    {
        .@chest = getq(CandorQuest_Chest);
        if (.@chest == 1)
            goto quest_completed;
        select
            rif(.@chest == 0,l("There are a dusty chest.")),
            menuaction(l("Quit"));

        switch (@menu)
        {
            case 1:
                quest_started;
                break;
        }
    } while (@menu != 2);

    closedialog;
    goodbye;
    close;

OnInit:
    .sex = G_MALE;
    .distance = 3;
    end;
}