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
|
;;; This was too good to pass up...
;;; From: fishkin@parc.xerox.com (Ken Fishkin)
;;; Newsgroups: soc.history
;;; Date: 1 Jul 91 17:37:02 GMT
;;;
;;; For those interested, here are some honest-to-god nicknames given
;;; to Medieval European rulers:
(namer royal-adjective (random
"Bald" "Beloved" "Black"
"Conqueror" "Cruel"
"Elder"
"Fair" "Fat" "Fowler"
"Glorius" "Good" "Great"
"Hardy" "Harefoot" "Headstrong"
"Just"
"Lion"
"Mad" "Martyr"
"Peaceful"
"Simple" "Sluggard" "Stammerer" "Slobberer" ; somebody mentioned this one too
"Tall"
"Unready"
"Victorious"
"Wise"
"Younger"
))
;;; Example of use.
;;;
;;; (include "ng-weird")
;;; (include "ng-nickname")
;;;
;;; (namer funny-king-names (grammar full-name
;;; (full-name (first-name " the " royal-adjective))
;;; (first-name generic-names)))
;;;
;;; (unit-type king ... (namer "funny-king-names") ...)
;;;
;;; This is most sensible if some unit type represents the ruler of a
;;; side personally.
|
