1;; ----------------------------------------------------------------------------
2;; Urt
3;;
4;; Urt is a troll ensnared and paralyzed in the abandoned cellar. Although
5;; paralyzed, he can speak.
6;; ----------------------------------------------------------------------------
7
8;;----------------------------------------------------------------------------
9;; Conv
10;;----------------------------------------------------------------------------
11(define urt-conv
12  (ifc basic-conv
13       ;; default if the only "keyword" which may (indeed must!) be longer than
14       ;; 4 characters. The 4-char limit arises from the kernel's practice of
15       ;; truncating all player queries to the first four characters. Default,
16       ;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
17       (method 'default (lambda (knpc kpc) (say knpc "(looks confused)")))
18       (method 'hail (lambda (knpc kpc) (say knpc "(grunts)")))
19       (method 'bye (lambda (knpc kpc) (say knpc "(grunts)")))
20       (method 'job (lambda (knpc kpc) (say knpc "Stuck")))
21       (method 'name (lambda (knpc kpc) (say knpc "Urt")))
22
23       (method 'eat (lambda (knpc kpc) (say knpc "Urt eat man")))
24       (method 'food (lambda (knpc kpc) (say knpc "All eater food for other")))
25       (method 'girl (lambda (knpc kpc) (say knpc "She HRENGI, UG THROGNI")))
26       (method 'hills (lambda (knpc kpc) (say knpc "VLARDOGNI in hills, "
27                                              "kill trolls. Trolls leave.")))
28       (method 'hren (lambda (knpc kpc) (say knpc "Urt not know man-word")))
29       (method 'man (lambda (knpc kpc) (say knpc "Urt look for man-child. "
30                                            "She yummy, tender. "
31                                            "She trick Urt. "
32                                            "URN SEGESTRUM, UG VIGIDUS!")))
33       (method 'sege (lambda (knpc kpc) (say knpc "'eater' in troll-word")))
34       (method 'spiders (lambda (knpc kpc) (say knpc "Urt hate spiders")))
35       (method 'stuck (lamda (knpc kpc) (say knpc "Spiders eat Urt")))
36       (method 'thro (lambda (knpc kpc) (say knpc "Urt not know man-word")))
37       (method 'troll (lambda (knpc kpc) (say knpc "Trolls hungry. "
38                                              "Food in hills."
39                                              "Home in hills.")))
40       (method 'ug (lambda (knpc kpc) (say knpc "'will be' in troll-word")))
41       (method 'urn (lambda (knpc kpc) (say knpc "'was' in troll-word")))
42       (method 'vigi (lambda (knpc kpc) (say kpnc "'food' in troll-word")))
43       (method 'vlar (lambda (knpc kpc) (say knpc "Urt not know man-word")))
44       ))
45
46