// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    Leader of the PALADIN class

003-0,34,37,0	script	Paladin Master	NPC_PLAYER,{
    if (!is_staff())
        goto L_Close;
    if (!(MAGIC_SUBCLASS & CL_PALADIN))
        goto L_SignUp;
    goto L_Member;

// Sign Up
L_SignUp:
    // Not allowed if subclass filled or not from main class
    if (total_subclass() >= max_subclass() || getskilllv(MAGIC_WARRIOR) < 2)
        goto L_Close;
    mesn;
    mesq l("Hey there! Do you want to join the Paladin Class?");
    mesc l("Warning: If you join a subclass, you can't leave it later!"), 1;
    next;
    if (askyesno() != ASK_YES)
        close;
    // TODO: Requeriment for signing up to a subclass? Or is the tier quest hard enough?
    MAGIC_SUBCLASS=MAGIC_SUBCLASS|CL_PALADIN;
    mesn;
    mesq l("Welcome to the paladin guild!");
    close;

// Close
L_Close:
    goodbye;
    closedialog;
    close;

// Membership area
// Paladin
//  CR_TRUST (raise Max HP in 200 and Holy Resistance in 5%, passive)
//  AL_ANGELUS (DEF Increase 5% for	15s/LVL, 14x14 area for PARTY)
//  PR_REDEMPTIO (suicide with death penalty. Revive dead party members on a 29x29 area. Min. 1% xp. 0.01% xp penalty reduction per revive)
//  MER_INCAGI (raise agi and move speed for 20s/LVL. Have an HP cost.)
//  SM_BASH up to level 4 (+220% dmg and +20% acc). PS. If you have MP, SM_BASH is very powerful.

L_Member:
    mesn;
    mesq l("Hey there! Do you want to learn new skills for a very small teaching fee?");
    select
        rif(sk_intcost(SM_BASH) && sk_canlvup(SM_BASH), l("Improve Bash Skill"),
        rif(sk_intcost(AL_ANGELUS) && sk_canlvup(AL_ANGELUS), l("Improve Party Area Defense"),
        rif(sk_intcost(MER_INCAGI) && sk_canlvup(MER_INCAGI), l("Improve Increase Agility"),
        rif(sk_intcost(PR_REDEMPTIO) && !getskilllv(PR_REDEMPTIO), l("Learn Redemption"),
        rif(sk_intcost(CR_TRUST) && !getskilllv(CR_TRUST), l("Learn Last Standing Man"),
        l("Nothing at the moment.");
    mes "";
    switch (@menu) {
        case 1:
            // TODO: Requirem, quest, agree
            sk_lvup(SM_BASH);
            break;
        case 2:
            // TODO: Requirem, quest, agree
            sk_lvup(AL_ANGELUS);
            break;
        case 3:
            // TODO: Requirem, quest, agree
            sk_lvup(MER_INCAGI);
            break;
        case 4:
            // TODO: Requirem, quest, agree
            sk_lvup(PR_REDEMPTIO);
            break;
        case 5:
            // TODO: Requirem, quest, agree
            sk_lvup(CR_TRUST);
            break;
        default:
            goto L_Close;
    }

    goto L_Member;

OnInit:
    .@npcId = getnpcid(0, .name$);
    setunitdata(.@npcId, UDT_HEADTOP, WarlordHelmet);
    setunitdata(.@npcId, UDT_HEADMIDDLE, WarlordPlate);
    setunitdata(.@npcId, UDT_HEADBOTTOM, NPCEyes);
    setunitdata(.@npcId, UDT_WEAPON, JeansChaps);
    setunitdata(.@npcId, UDT_HAIRSTYLE, 2);
    setunitdata(.@npcId, UDT_HAIRCOLOR, 4);

    .sex=G_MALE;
    .distance=5;
    end;
}