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

L_Set:
    input .@state, 0, 6;
    setq(KaizeiQuest_Cindy, .@state);
    close;

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

031-1,79,24,0	script	Angela	NPC195,{
    .@q = getq(KaizeiQuest_Cindy);
    if (.@q == 4) goto L_Please_Visit_Again;
    if (.@q > 2 && .@q < 6) goto L_Please_Visit;
    if (.@q == 2) 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 && .@q == 1)
        goto L_Menu_Potion;

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

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;
    setq(KaizeiQuest_Cindy, 1);
    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!\"";
    setq(KaizeiQuest_Cindy, 2);
    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;
//TODO OnTouch: if Level show emote
}