From a5534e046656f14a951ba3c5f86023389fd97986 Mon Sep 17 00:00:00 2001 From: Jesusaves Date: Mon, 14 Dec 2020 15:28:58 -0300 Subject: Scholarship Titulation (manual mode) --- npc/027-0/enrique.txt | 22 +++++++++- npc/commands/titulate.txt | 110 ++++++++++++++++++++++++++++++++++++++++++++++ npc/functions/util.txt | 1 + npc/scripts.conf | 1 + 4 files changed, 133 insertions(+), 1 deletion(-) create mode 100644 npc/commands/titulate.txt (limited to 'npc') diff --git a/npc/027-0/enrique.txt b/npc/027-0/enrique.txt index 2f638fd65..d41f74f26 100644 --- a/npc/027-0/enrique.txt +++ b/npc/027-0/enrique.txt @@ -20,7 +20,8 @@ l("What are Magic Skill Points?"), l("What are Research Points"), l("What is the Scholar Rank?"), - l("Who are the most famous scholars?"); + l("Who are the most famous scholars?"), + rif(!ACADEMIC_RANK, l("I would like to enroll!")); // TODO: Give TMW2_STUDY for MSP. Need X skills learnt or 1M GP. mes ""; switch (@menu) { @@ -70,6 +71,25 @@ case 6: HallOfAcademic(); break; + case 7: + mesn; + mesq l("That is not how things are done here."); + next; + mesn; + mesq l("First, you need to contribute to the common knowledge of this world. Like, write a %s or something.", "[@@https://wiki.moubootaurlegends.org/|"+l("Wiki article")+"@@]"); + next; + mesn; + mesq l("Then someone of a scholarship rank above your must approve it, and say that your work is enough to the next scholar rank."); + next; + mesn; + mesq l("For the higher titles, you'll need vouch of multiple people. You can vouch for anyone below your rank with %s but never for someone of same or higher rank.", b("@titulate")); + next; + mesn; + mesq l("Do note that abuse will cause both you and the person you vouched for to be kicked from the Academy! So be mindful with to whom you give titles."); + next; + mesn; + mesq l("Abuse can be determined by your peers or by the grandmasters, so be careful."); + break; } } while (@menu != 1); close; diff --git a/npc/commands/titulate.txt b/npc/commands/titulate.txt new file mode 100644 index 000000000..ee3031837 --- /dev/null +++ b/npc/commands/titulate.txt @@ -0,0 +1,110 @@ +// TMW2 Script +// +// @grantpower +// Grants a legendary weapon to . Cannot be undone. +// Only way to bypass restrictions on legendary weapons. + +- script @titulate 32767,{ + end; + +OnCall: + .@request$ = ""; + .@request$ += implode(.@atcmd_parameters$, " "); + + // No argument supplied + if (.@request$ == "") { + Exception("Usage: @titulate ", 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) { + mesc l("You can only concede or vouch a title for people of academic rank smaller or equal to 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 vouced 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); + } + + // Inform everyone + kamibroadcast(sprintf("%s has vouched %s for the title of %s.", + strcharinfo(0), .@request$, academicrank(.@them+1))); + + close; + +OnInit: + bindatcmd "titulate", "@titulate::OnCall", 0, 100, 1; +} + diff --git a/npc/functions/util.txt b/npc/functions/util.txt index e612bf5a3..ce7bf3c71 100644 --- a/npc/functions/util.txt +++ b/npc/functions/util.txt @@ -888,6 +888,7 @@ function script mercrank { } function script academicrank { switch (getarg(0, ACADEMIC_RANK)) { + case 8: return l("Grand Master"); // Reserved for GM Team case 7: return l("Sage"); case 6: return l("Ph.D"); case 5: return l("Doctor"); diff --git a/npc/scripts.conf b/npc/scripts.conf index ac6fea326..417407631 100644 --- a/npc/scripts.conf +++ b/npc/scripts.conf @@ -115,6 +115,7 @@ "npc/commands/scheduled-broadcasts.txt", "npc/commands/shroom.txt", "npc/commands/super-menu.txt", +"npc/commands/titulate.txt", "npc/commands/warp.txt", "npc/commands/welcome.txt", "npc/commands/wgm.txt", -- cgit v1.2.3-60-g2f50