Tondar now hands out the ask-magic-progress spell

1 files changed, 54 insertions, 0 deletions

diff --git a/npc/024-1_Tulimshar_Canyon/tondar.txt b/npc/024-1_Tulimshar_Canyon/tondar.txt
index ba97d2ee..ea44e635 100644
--- a/npc/024-1_Tulimshar_Canyon/tondar.txt
+++ b/npc/024-1_Tulimshar_Canyon/tondar.txt
@@ -3,5 +3,59 @@
 024-1.gat,83,51,0	script	Tondar	168,{
 	mes "[Tondar]";
 	mes "\"We're not accepting any new students right now.\"";
+        if (getskilllv(SKILL_MAGIC) > 0)
+		goto L_may_ask;
+
 	close;
+
+L_may_ask:
+        next;
+        menu
+		"Can you teach me a spell?", L_askspell,
+                "Do you have a magic library?", L_library,
+		"Are you sure?  I can pay well...", L_nopay,
+                "That's unfortunate.", -,
+                "Goodbye, then.", -;
+
+	close;
+
+L_library:
+	mes "[Tondar]";
+	mes "\"Of course we do.  It is only for graduate students, alumni, and faculty.\"";
+        next;
+        menu
+		"Thank you, and goodbye.", L_end,
+		"Nobody else is allowed inside?", -;
+
+
+	mes "[Tondar]";
+	mes "\"Well, it is possible to get a special permit from the headmaster.  But he is currently on sabbatical.\"";
+        close;
+        
+
+L_askspell:
+	mes "[Tondar]";
+	mes "\"We only teach spells to students.\"";
+        next;
+
+        menu
+		"Oh, come on... just one little spell!", L_nopay,
+                "Pretty please?", L_spell,
+		"I can pay you, too...", L_nopay;
+
+
+L_spell:
+	mes "[Tondar]";
+	mes "\"Well, all right; this one can't do much harm.  Press your hands together and say `" + getspellinvocation("ask-magic-exp") + "'.\"";
+        mes "\"This will release a steady flow of magic within you.  Focus and try to control it; it is a good metitative practice.\"";
+        close;
+
+
+L_nopay:
+	mes "[Tondar]";
+        mes "The wizard frowns angrily.";
+	mes "\"Do not tempt me to teach you a different kind of lesson, young one!  Begone!\"";
+
+L_end:
+        close;
 }