// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    Questmaker Handbook 14.0 (F = Favorable)

031-5,97,41,0	script	Beatrice	NPC_SAVIOR_F,{
    mesn;
    mesq l("Hey there, %s. I deal with ultra rare items. If the Powers That Be decided you're out of luck, well, I am here to help you to bypass it.", get_race());
    next;
    mesn;
    mesq l("For that, I use a special currency - Aethyr points. You can trade rare items for points. I also sell one point for %d GP. So, what will it me?", .price);
    next;

L_Loop:
    clear;
    mesc l("Aethyr Points: %s", fnum(AETHYR_PTS)), 2;
    select
        l("Nothing right now."),
        l("Buying rares"),
        l("Selling rares"),
        l("Purchasing points");
    mes "";
    switch (@menu) {
    case 1:
        closeclientdialog;
        close;
    case 4:
        mesc l("How many points? (0-%d)", Zeny/.price);
        input .@points, 0, Zeny/.price;
        if (.@points * .price > Zeny)
            .@points = 0;
        Zeny-=.price*.@points;
        AETHYR_PTS+=.@points;
        mesc l("Done!"), 2;
        break;
    }
    goto L_Loop;

OnInit:
    .@npcId = getnpcid(.name$);
    setunitdata(.@npcId, UDT_HEADBOTTOM, CottonSkirt);
    setunitdata(.@npcId, UDT_HEADMIDDLE, SaviorArmor);
    setunitdata(.@npcId, UDT_HEADTOP, TrapperHat);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 9);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 18);

    .sex = G_FEMALE;
    .distance = 5;
    .price = 570;
    end;
}