Implement the second tier summoning magic (Astral and Dark)

Kalakarenk, Kalboo, Kalgina, Kalrenk, Halhiss and Helorp.
Update Sagatha, Pauline and Waric on the way.

1 files changed, 12 insertions, 10 deletions

diff --git a/npc/013-1/sagatha.txt b/npc/013-1/sagatha.txt
index c0251ebd..460dcb7f 100644
--- a/npc/013-1/sagatha.txt
+++ b/npc/013-1/sagatha.txt
@@ -257,27 +257,27 @@ L_Teach_N14:
     mes "\"Some forest creatures sometimes overgrow their fur or hide. That makes them uncomfortable.\"";
     next;
     mesn .@n$;
-    mes "\"You can help them with shearing magic. Press your hands together and say '" + get(.invocation$, "shear") + "'. Then touch them with your hands, and brush off any excess.\"";
+    mesq l("You can help them with shearing magic. Press your hands together and say '" + get(.invocation$, "shear") + "'. Then touch them with your hands, and brush off any excess.");
     next;
     mesn .@n$;
-    mes "\"The spell is strong, so you only need to do this once. Be careful not to cut them. Some things they shed are useful. Often they will leave them to you as a thank-you.\"";
+    mesq l("The spell is strong, so you only need to do this once. Be careful not to cut them. Some things they shed are useful. Often they will leave them to you as a thank-you.");
     goto L_practice;
 
 L_Teach_N10:
     if (@mexp < 150 || getskilllv(SKILL_MAGIC) < 2)
         goto L_Teach_noexp;
     mesn .@n$;
-    mes "\"Next, a nature spell. Take a cocoon shell. Hold it in your hand. Feel its lightness.\"";
+    mesq l("Next, a nature spell. Take a cocoon shell. Hold it in your hand. Feel its lightness.");
     next;
     mesn .@n$;
-    mes "\"Now whisper '" + get(.invocation$, "flying-backpack") + "', and if your backpack was pressing on you you should no longer feel it now.\"";
+    mesq l("Now whisper '" + get(.invocation$, "flying-backpack") + "', and if your backpack was pressing on you you should no longer feel it now.");
     goto L_practice;
 
 L_Teach_A10:
     if (@mexp < 180 || getskilllv(SKILL_MAGIC) < 2)
         goto L_Teach_noexp;
     mesn .@n$;
-    mes "\"To protect against others' magic, take a small mushroom from a shady place. Mushrooms draw things out of the earth. Rub your mushroom into pieces between your hands.\"";
+    mesq l("To protect against others' magic, take a small mushroom from a shady place. Mushrooms draw things out of the earth. Rub your mushroom into pieces between your hands.");
     next;
     mesn .@n$;
     mesq l("Then say %s and let the mushroom's power take over.", b("betsanc"));
@@ -288,10 +288,11 @@ L_Teach_A11:
     if (@mexp < 200 || getskilllv(SKILL_MAGIC) < 2)
         goto L_Teach_noexp;
     mesn .@n$;
-    mes "\"If you must fight, call allies. You can call spiky mushrooms out of the ground with a mushroom spike and a root. Hold up the spike and call out to them: '" + get(.invocation$, "smsmushrooms") + "'. Then press the root to the ground.\"";
+    mesq l("If you must fight, call allies. You can call spiky mushrooms out of the ground with a mushroom spike and a root. Hold up the spike and call out to them: '%s'. Then press the root to the ground.", b("Kalrenk"));
+    learnskill SKILL_KALRENK;
     next;
     mesn .@n$;
-    mes "\"Spiky mushrooms often grow too many spikes, so you can shear the spikes off of some.\"";
+    mesq l("Spiky mushrooms often grow too many spikes, so you can shear the spikes off of some.");
     next;
     goto L_practice;
 
@@ -299,7 +300,8 @@ L_Teach_A12:
     if (@mexp < 220 || getskilllv(SKILL_MAGIC) < 2)
         goto L_Teach_noexp;
     mesn .@n$;
-    mes "\"You can call fluffies, too. But for them you must call out '" + get(.invocation$, "smfluffies") + "' instead, with white fluffy fur instead of a spike. And don't forget the root.\"";
+    mesq l("You can call fluffies, too. But for them you must call out '%s' instead, with white fluffy fur instead of a spike. And don't forget the root.", b("Kalakarenk"));
+    learnskill SKILL_KALAKARENK;
     goto L_practice;
 
 L_Teach_N11:
@@ -310,12 +312,12 @@ L_Teach_N11:
     learnskill EVOL_PHYSICAL_SHIELD;
     next;
     mesn .@n$;
-    mes "\"You can also remove this spell from yourself if you say '" + get(.invocation$, "antiprotect") + "'.\"";
+    mesq l("You can also remove this spell from yourself if you say '" + get(.invocation$, "antiprotect") + "'.");
     goto L_practice;
 
 L_Teach_noexp:
     mesn .@n$;
-    mes "\"You must practice more first.\"";
+    mesq l("You must practice more first.");
     next;
     goto L_Main;