path: root/npc/003-1/sarah.txt

// Author:
//    Saulc

003-1,90,144,0	script	Sarah	NPC_MONA,{

    .cake = CherryCake;
    .reward = FancyHat;
    
    function quest_completed{
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("It was so tasty, I can't eat anything more... Thank you.");
            close;
    }

    function quest_open {
        if (countitem(.cake) > 0)
        {
            speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
                l("You brought me Cherry Cake! Here is your @@, as promised.",getitemlink(.reward));
            delitem .cake,1;
            getitem .reward,1;
            setq TulimsharQuest_Sarah, 1;
            close;
        }
        else 
        {
            speech S_FIRST_BLANK_LINE,
                l("Sorry, that is not the cake I love.");
            close;
        }
    }

    function quest_started {
        speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
            l("Oh, Welcome then.");
        speech S_LAST_NEXT,
            l("Can you bring me a piece of Cherry Cake? Pretty please?");
        do
        {
        select
            l("Here is it!"),
            menuaction(l("Quit"));

        switch (@menu)
        {
            case 1:
                quest_open;
                break;
        }
    } while (@menu != 2);
    }
   
    do
    {
        .@chest = getq(TulimsharQuest_Sarah);
        if (.@chest == 1)
            goto quest_completed;
        select
            rif(.@chest == 0,
            l("Hello, I'm new here! Can I help you?")),
            menuaction(l("Quit"));

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

    closedialog;
    goodbye;
    close;

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