path: root/npc/commands/titulate.txt

// TMW2 Script
//
// @titulate <username>
// Grants a title to <username>. Cannot be undone.
// @cassate
// Opens a prompt to strip someone from their titles.
// Can also ban from titles. Grandmasters only.

-	script	@titulate	32767,{
    end;

OnCall:
    .@request$ = "";
	.@request$ += implode(.@atcmd_parameters$, " ");
    .@request$ = strip(.@request$);

    // No argument supplied
    if (.@request$ == "") {
        Exception("Usage: @titulate <target charname>", RB_ISFATAL|RB_DISPBOTTOM);
    }

    // Player is not attached
    .@ori = getcharid(3);
    .@id = getcharid(3, .@request$);
    if (.@id < 1 || .@ori < 1) {
        Exception("Player not found.", RB_ISFATAL|RB_DISPBOTTOM);
    }

    // Obtain your own title
    .@mine=ACADEMIC_RANK;
    .@them=getvariableofpc(ACADEMIC_RANK, .@id, 99);

    mes ".:: " + l("Titulation") + " ::.";
    if (.@mine <= .@them || .@them < 0) {
        mesc l("You can only concede or vouch a title for people of academic rank inferior than your own.");
        close;
    }

    mesc l("You're about to concede an academic title to \"@@\".", .@request$), 1;
    mesc l("If this is found out to be a fraudulent titulation, both you as target will have their titles cased by the Academic Council, or by the Alliance High Council."), 1;
    mesc l("This action CANNOT BE UNDONE."), 1;
    mes l("Are you sure?");
    if (askyesno() == ASK_NO)
        close;

    // Grant the title
    if (attachrid(.@id)) {
        switch (ACADEMIC_RANK) {
        case ACADEMIC_LAYMAN:
        case ACADEMIC_STUDENT:
        case ACADEMIC_TECHNIC:
            // Instant promotion
            ACADEMIC_RANK+=1;
            .@upgrade=true;
            break;
        case ACADEMIC_BACHELOR:
        case ACADEMIC_MASTER:
            // Two-Man rule
            if (array_find(ACADEMIC_VOUCH, .@ori)) {
                end;
            }
            array_push(ACADEMIC_VOUCH, .@ori);
            if (array_entries(ACADEMIC_VOUCH) >= 2) {
                ACADEMIC_RANK+=1;
                deletearray(ACADEMIC_VOUCH);
                .@upgrade=true;
            }
            break;
        case ACADEMIC_DOCTOR:
        case ACADEMIC_PHD:
            // Three-Man rule
            if (array_find(ACADEMIC_VOUCH, .@ori)) {
                end;
            }
            array_push(ACADEMIC_VOUCH, .@ori);
            if (array_entries(ACADEMIC_VOUCH) >= 3) {
                ACADEMIC_RANK+=1;
                deletearray(ACADEMIC_VOUCH);
                .@upgrade=true;
            }
            break;
        // Invalid
        case ACADEMIC_SAGE:
            Exception("The Grand Master title can only be issued by the president of the Alliance High Council.", RB_ISFATAL|RB_SPEECH);
        default:
            Exception("Invalid titulation rank: "+ACADEMIC_RANK, RB_ISFATAL|RB_SPEECH);
        }

        // Message
        if (.@upgrade) {
            dispbottom l("You received the %s title from %s.",
                         academicrank(), strcharinfo(0, "someone", .@ori));
        } else {
            dispbottom l("You were vouched to the %s title by %s. You still need %d more vouches to be promoted.",
                        academicrank(ACADEMIC_RANK+1), strcharinfo(0, "someone", .@ori),
                        (ACADEMIC_RANK >= ACADEMIC_DOCTOR ? 3 : 2) - array_entries(ACADEMIC_VOUCH));
        }

    // Oops, player disconnected
    } else {
        Exception("Player not found.", RB_ISFATAL|RB_SPEECH);
    }

    attachrid(.@ori);
    // Inform everyone
    kamibroadcast(sprintf("%s has vouched %s for the title of %s.",
                  strcharinfo(0), .@request$, academicrank(.@them+1)));
    // Log in a special log file as well
    logmes(sprintf("%s has vouched %s for the title of %s.",
                  strcharinfo(0), .@request$, academicrank(.@them+1)));

    close;

OnCassate:
    if (ACADEMIC_RANK < ACADEMIC_GM) {
        mesc l("Only Academy Grand Masters may cassate someone.");
        close;
    }
    mes ("To revoke someone's title and optionally apply a ban on them.");
    mes ("Please insert the nickname of person to cassate (they must be online)");
    input .@request$;
    if (.@request$ == "")
        close;
    mes ("Ban them from the Magic Academy as well?");
    .@ban=(askyesno() == ASK_YES);
    next;
    .@ori = getcharid(3);
    .@id = getcharid(3, .@request$);
    if (.@id < 1 || .@ori < 1) {
        Exception("Player not found.", RB_ISFATAL|RB_DISPBOTTOM);
    }

    // Execute the banishment
    if (attachrid(.@id)) {
        ACADEMIC_RANK=(.@ban ? -1 : ACADEMIC_LAYMAN);
        skill TMW2_STUDY, 0, 0;
        dispbottom l("Your academy titles have been rescinded%s",
            (.@ban ? l(", and you have been banned from the Academy.") : "."));
    } else {
        Exception("Player not found.", RB_ISFATAL|RB_DISPBOTTOM);
    }

    attachrid(.@ori);
    // Inform everyone
    kamibroadcast(sprintf("%s (A.GM) has stripped %s from their academic titles.",
                  strcharinfo(0), .@request$));
    // Log in a special log file as well
    logmes(sprintf("%s (Grandmaster) has stripped %s from their academic titles.",
                  strcharinfo(0), .@request$));

    close;

OnInit:
    bindatcmd "titulate", "@titulate::OnCall", 0, 100, 1;
    bindatcmd "cassate", "@titulate::OnCassate", 60, 100, 1;
}