Swedis Place Name Generator

[Erik Sigra]

(game-module "citynames"
  (title "Citynames")
  (blurb "Game to test generation of random city names.")
  (variants
    (world-seen true) ;Desn't come true by default for some reason
    (see-all true) ;Desn't come true by default for some reason
    (world-size)
  )
)

(unit-type city
  (name "city")
  (image-name "city20")
  (help "A city")
  (namer "swedish-place-names")
  (acp-per-turn 1)
  (vision-range 16)
  (start-with 32)
)

(terrain-type default (image-name "black"))

(set sides-min 1)
(set sides-max 1)
(set country-radius-min 16)

(namer swedish-place-names
  (grammar root 100
    (root (or 15 name
	      1 (preword " " (capitalize name))
	  )
    )
    (preword (or svarta blåa gröna gula röda bruna vita
		 10 nya 10 gamla
		 10 norra 10 "Östra" 10 södra 10 västra
	     )
    )
    (name (or 4 (prefix suffix)
              2 (both suffix)
              2 (prefix both)
	      2 (both both)
                (prefix both suffix)
	        (complete)
          )
          (reject "Åå"
		  "åå"
		  "älvälv" ;Quotation needed to avoid segfault
		  bergberg
		  borgborg
		  daldal
		  fältfält
		  forsfors
		  hemhem
		  hemlösa    ;Means "homeless" (plural)
		  hemstad    ;Means "homecity"
		  höghög
		  hultshult
		  hushus
		  kullakulla
		  laxlax
		  markmark
		  markamarka
		  sandsand
		  sjösjö
		  slättslätt
		  stensten
		  strömström
		  sundsund
		  vivi
		  vikvik
		  rrr	     ;Norrryd
		  ttt        ;Slätttuna
	  ) ;This doesn't work! (How do I use reject?)
    )
    (prefix (or ;Colors
		svart blå grön gul röd brun vit
	        
		;Time
		ny gammel
		
		;Prepositions
  	        "Över" neder
		
		;Size
		stor lill
		
		;Directions
	        nord norr ost "Öst" "Öster" syd söder väst väster
		vest     ;Vestfjärd

		;Personal firstnames
		bengts everts fredriks oskars
		
		"Å" "Älv"
		back björne bjurs bjus brahe brunns
		djurs
		eke em
		fågel fin finn fogd frö furu
		gör göte glimminge gran	gränges	gryt
		halls han horn hults
		jön
		karl karle karls ki kors krono kvarn kyrk
		lek lin ling lule
		malm marie mjöl mört munk
		näck nåden
		ockel om on
		"Öre"    ;Capitalized because automatic capitalization
                         ;doesn't work for this letter.
		ox oxel på pite
		räfs råg rätt ronne ro run
		såg salt side sig simris skattung solberg sollen ställ
		stock svine 
		täll tammer tand töv tran
		ule ulvs ume unn upp
		våm var vår vikar vin ving vir
		ytter
            )
    )
    (suffix (or ;Quotations needed to avoid segfault
		"å" "åker" "åkra" "älv" "ås"

		björka bäck bäcka backe berga böle bro by byn dal dala
		dalen fjärd fred gård gården gärde gärdet gårda haga
		hamn hed heden hult hyttan kalix köping lösa mo myra
		näs näset ö ryd sala sätra slott stad sund tjärn torp
		tuna vattnet
	    )
    )
    (both (or berg
	      borg  ;Borgholm
	      dal
	      fält
	      fors
	      hem
	      hög
	      hus   ;Huskvarna
	      kulla
	      lax
	      mark
	      marka
	      sand
	      sjö
	      slätt
	      sten  ;Stenungsund
	      ström
	      sund  ;Sundsvall
	      vi
	      vik
          )
    )
    (complete (or "Åbo" ;Quotation needed to avoid segfault
		  alfta
		  "Älvho" ;Quotation needed to avoid segfault
		  artsjö bäcka bomarsund borlänge falun floda föglö
		  gagnef glimminge gustavs hamra hede idre jakobstad
		  järna kalix kalmar kökar lappträsk lemland lima los
		  lund malung mora mörkret nora orsa sälen särna solv
		  sveg tuna vasa växjö vendel
 	      )
    )
  )
)