031-1,81,24,0	script	Debug#Angela	NPC195,{
    mes "Current state: " + QL_CINDY;
    mes "---";
    mes "Available states:";
    mes "0 - can not do the quest.";
    mes "5 - does not have the quest.";
    mes "6 - got the quest.";
    mes "1 - can go rescue cindy.";
    mes "2 - rescued cindy.";
    mes "3 - got reward from cindy.";
    mes "4 - got reward from angela.";
    menu
        "set state", L_Set,
        "close", L_close;

L_Set:
    input @state;
    if(@state < 0 || @state > 6) set @state, 0;
    QL_CINDY = @state;
    goto L_close;

L_close:
    close;

OnInit:
    if (!debug) disablenpc strnpcinfo(0);
    end;
}

031-1,79,24,0	script	Angela	NPC195,15,15,{
    if (QL_CINDY == 3) goto L_Please_Visit_Again;
    if (QL_CINDY > 1 && QL_CINDY < 5) goto L_Please_Visit;
    if (QL_CINDY == 1) goto L_Please_Help;

    mes "[Angela]";
    mes "\"Please, I need help! My little daughter!\"";
    next;
    mes "\"It's terrible, oh my dear child!\"";
    next;
    if (countitem("ConcentrationPotion") > 0 && BaseLevel >= .minlevel && QL_CINDY == 6)
        goto L_Menu_Potion;

    menu
        "\"Please calm down and tell me what happened.\"", L_Whining,
        "Leave", L_close;

OnTouch:
    if(BaseLevel >= .minlevel && QL_CINDY < 1)
        QL_CINDY = 5;
    end;

L_Whining:
    mes "[Angela]";
    mes "\"My poor little daughter, please! Oh no, oh no...\"";
    next;
    mes "\"We need to do something! My poor little Cindy! My cute little girl!\"";
    next;
    mes "\"It's so terrible, how could that happen? Please, I need help, it's so terrible.\"";
    next;
    mes "\"Those awful filthy monsters - terrible!\"";
    next;
    mes "\"Oh Cindy, my little Cindy - oh no...\"";
    next;
    mes "\"Please help, we need to do something!\"";
    next;
    mes "\"It's so terrible, my poor cute little Cindy...\"";
    next;
    mes "\"Oh, when I think what might happen to her right now!\"";
    next;
    mes "She is crying and sobbing.";
    next;
    mes "It seems she is too upset to tell you anything helpful. If she would just calm down and concentrate a bit...";
    if(BaseLevel >= .minlevel) goto L_GetQuest;
    goto L_close;

L_GetQuest:
    next;
    QL_CINDY = 6;
    mes "Perhaps you could give her something to help concentrate ?";
    goto L_close;

L_Menu_Potion:
    menu
        "\"Please calm down and tell me what happened.\"", L_Whining,
        "Give her a concentration potion.", L_Calm_Down,
        "Leave", L_close;

L_Calm_Down:
    if (countitem("ConcentrationPotion") == 0)
        goto L_No_Potion;
    delitem "ConcentrationPotion", 1;
    mes "She drinks the concentration potions and calms down.";
    mes "[Angela]";
    mes "\"Thank you, this was helpful.\"";
    next;
    mes "\"My daughter Cindy and I were on our way to Santa, to bring him some presents. Many people here in Nivalis are helping Santa with his business.\"";
    next;
    mes "\"When we passed the entrance of this cave, a pack of Yetis came out of there. It's disturbing, because usually they are very shy.\"";
    next;
    mes "\"We tried to run away, but there were too many of them. They took my poor little Cindy and all the presents with them.\"";
    next;
    mes "\"Oh my poor little girl. I'm so worried - what might they do with her? Oh no!\"";
    next;
    mes "\"You look like an adventurer! Please, can you go in that cave and rescue my little Cindy? I beg you for help!\"";
    QL_CINDY = 1;
    goto L_close;

L_No_Potion:
    mes "You don't have a concentration potion.";
    goto L_close;

L_Please_Help:
    mes "[Angela]";
    mes "\"Please go in that cave and rescue my daughter!\"";
    goto L_close;

L_Please_Visit:
    mes "[Angela]";
    mes "\"Thank you so much for rescuing my beloved Cindy. Please come to visit us in our house at the beach.\"";
    next;
    mes "\"My husband is an adventurer like you, and I want to give you something he got on his travels to show my gratitude.\"";
    goto L_close;

L_Please_Visit_Again:
    mes "[Angela]";
    mes "\"Hello! You are welcome to visit us in our house at the beach everytime. Cindy loves to see you!\"";
    next;
    mes "\"If you have found any present boxes the Yetis took away, please bring them to our house. Usually, the Yetis are very shy... their behavior is a bit odd.\"";
    goto L_close;

L_close:
    close;

OnInit:
    .minlevel = 70;
    end;
}