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
55
56
57
58
|
// A professor at Tulimshar's magic academy
// Lab hint by Ledmitz
001-2,95,79,0|script|Tondar|168
{
mes "[Tondar]";
mes "\"We're not accepting any new students right now, but feel free to experiment at a table. Be careful to not blow us all up and do try to keep it down.\"";
mes "\"AND... I better not see any gum chewing in this class or out you go!\"";
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;
}
|
