1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
001-2,95,79,0 script Tondar NPC168,{
mes "[Tondar]";
mes "\"We're not accepting any new students right now.\"";
if (getskilllv(SKILL_MAGIC) > 0)
goto L_may_ask;
goto L_End;
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.", L_End,
"Goodbye, then.", L_End;
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?", L_Next;
L_Next:
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 `" + get(.invocation$, "spell-experience") + "'.\"";
mes "\"This will release a steady flow of magic within you. Focus and try to control it; it is a good meditative 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!\"";
goto L_End;
L_End:
close;
}
|
