home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / ng-nickname.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  997 b   |  44 lines  |  [TEXT/XCNQ]
  1. ;;; This was too good to pass up...
  2.  
  3. ;;; From: fishkin@parc.xerox.com (Ken Fishkin)
  4. ;;; Newsgroups: soc.history
  5. ;;; Date: 1 Jul 91 17:37:02 GMT
  6. ;;;
  7. ;;; For those interested, here are some honest-to-god nicknames given
  8. ;;; to Medieval European rulers:
  9.  
  10. (namer royal-adjective (random
  11.   "Bald" "Beloved" "Black"
  12.   "Conqueror" "Cruel"
  13.   "Elder"
  14.   "Fair" "Fat" "Fowler"
  15.   "Glorius" "Good" "Great"
  16.   "Hardy" "Harefoot" "Headstrong"
  17.   "Just"
  18.   "Lion"
  19.   "Mad" "Martyr"
  20.   "Peaceful"
  21.   "Simple" "Sluggard" "Stammerer" "Slobberer" ; somebody mentioned this one too
  22.   "Tall"
  23.   "Unready"
  24.   "Victorious"
  25.   "Wise"
  26.   "Younger"
  27. ))
  28.  
  29. ;;; Example of use.
  30. ;;;
  31. ;;;  (include "ng-weird")
  32. ;;;  (include "ng-nickname")
  33. ;;;
  34. ;;;  (namer funny-king-names (grammar full-name
  35. ;;;    (full-name (first-name " the " royal-adjective))
  36. ;;;    (first-name generic-names)))
  37. ;;;
  38. ;;;  (unit-type king ... (namer "funny-king-names") ...)
  39. ;;;
  40. ;;; This is most sensible if some unit type represents the ruler of a
  41. ;;; side personally.
  42.  
  43.  
  44.