Sketch for testing: Paladin Class Master

3 files changed, 106 insertions, 0 deletions

diff --git a/npc/003-0/_import.txt b/npc/003-0/_import.txt
index c7c3d11f3..9363c4fa0 100644
--- a/npc/003-0/_import.txt
+++ b/npc/003-0/_import.txt
@@ -1,3 +1,7 @@
 // Map 003-0: Magic Academy
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/003-0/_warps.txt",
+"npc/003-0/audsbel.txt",
+"npc/003-0/mages.txt",
+"npc/003-0/paladin.txt",
+"npc/003-0/warriors.txt",
diff --git a/npc/003-0/paladin.txt b/npc/003-0/paladin.txt
new file mode 100644
index 000000000..38dfbd7cf
--- /dev/null
+++ b/npc/003-0/paladin.txt
@@ -0,0 +1,94 @@
+// TMW2 scripts.
+// Authors:
+//    Jesusalva
+// Description:
+//    Leader of the PALADIN class
+
+003-0,34,37,0	script	Paladin Master	NPC_PLAYER,{
+    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;
+}
+
diff --git a/npc/functions/util.txt b/npc/functions/util.txt
index 37764ed1b..f73d447de 100644
--- a/npc/functions/util.txt
+++ b/npc/functions/util.txt
@@ -293,4 +293,12 @@ function	script	sk_lvup	{
     return;
 }
 
+// Returns the intelligence cost based on skill level
+// sk_intcost( sk )
+function	script	sk_intcost	{
+    .@cost=(getskilllv(getarg(0))+1)*17;
+    if (readparam(bInt) >= .@cost)
+        return 1;
+    return 0;
+}