This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
Swedish place name generator again
- To: xconq7 at sourceware dot cygnus dot com
- Subject: Swedish place name generator again
- From: Erik Sigra <sigra at home dot se>
- Date: Fri, 27 Oct 2000 12:04:51 +0200
Hi,
Here is the newest Swedish place name generator. It has now reached the
impressing size of 3.9k, and I think the results are good.
(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 100)
(start-with 100)
)
(terrain-type default (image-name "black"))
(set sides-min 1)
(set sides-max 1)
(set country-radius-min 20)
;Generates place names in Swedish. Created and maintained by Erik
;Sigra (sigra@home.se).
;
;This would benefit a lot from a replace rule!
(namer swedish-place-names
(grammar root 100
(root (reject name Åå åå åkraåkra älvälv
bergberg borgborg by
daldal
fältfält forsfors
hemhem
hemhus
hemlösa ;Means "homeless" (plural)
hemstad ;Means "homecity
höghög
höghus ;Means "highouse"
hushem
hushög ;Means "pile of houses"
hultshult hushus
karlekarle kullakulla
laxlax leklek
markmark markamarka
sandsand sjösjö slättslätt smjöl stensten
strömström strömström sundsund
vivi vikvik
rrr ;Norrryd
ttt ;Slätttuna
)
)
(name (or 16 mainpart
1 (preword " " (capitalize mainpart))
)
)
(mainpart (or 8 (prefix suffix)
(prefix middle suffix)
2 (complete)
)
)
(prefix (or ;Color
svart blå grön gul röd brun vit
;Age
ny gammel
;Preposition
Över ;Capitalized because automatic capitalization
;doesn't work for this letter.
neder
;Size
stor lill
;Direction
nord nordan norr
Öst Östan Öster
söder syd sydan väst
västan väster vest ;Vestfjärd
;Personal firstname
adolfs bengts everts fredriks karls oskars tyres
;Other
Å åkers alings Älv ar Ås
bå back berg björ björne bjurs bjus bor borg brahe
bräm brunns
dal djurs
eke em en
fågel fält fin finn fogd fors frö furu
gör göte glimminge gran gränges gryt
halls halm han haninge helsing hem hög horn hults hus
jön
karle ki klags kol kors krono kulla kvarn kyrk
lapp lax lek lem lin ling lule lycke
malm mär marie mark marka mjöl morgon möln mört munk
myckel
näck nåden
ockel öd om on Öre ox oxel
på pite
räfs råg rätt ronne ro run
såg salt sand sibb side sig simris sjö skattung slätt
sol sollefte sollen ställ sten ström stock sund sve
svine
täll tammer tand töv tran troll
udde ule ulvs ume unn upp
våm var vår vet vikar vin ving vir
ytter
)
)
(suffix (or å åker åkra älv ås
bäck bäcka backe baden berg berga björka borg bo böle
bro bruk by byn
dal dala dalen
fält fjärd fors fred
gård gården gärde gärdet gårda gåva ;Morgongåva
haga hamn hättan hed heden hem hög hult hus hyttan
kalix köping kulla kvarn kvarna kyrka
landa lax lösa lycke
mark marka mo myra
näs näset
ö
ryd
sala sand sätra sjö slätt slott sta stad sten stig
ström sund
tjärn torp träsk tuna vattnet
valla vi vik
)
)
(middle (or å åkra ;Fyll på!
by
fors
karle
lek lycke
mjöl
näs
sjö ström
)
)
(complete (or alfta Älvho Ånge artsjö
bäcka bjus bjuv bomarsund borlänge
dals-ed dösjebro
falun floda föglö
gagnef glimminge gustavs
habo hamra haninge hede höör huddinge
idre
jakobstad järna
kalix kalmar kävlinge kökar kvidinge
lima los lund
malung mora mörkret motala
nacka nora
ore orsa
sälen särna skanör skövde solv svalöv sveg
tierp tuna
vasa växjö vendel
)
)
(preword (or ;Color
svarta blåa gröna gula röda bruna vita
;Age
16 nya 16 gamla
;Preposition
16 Övre 16 nedre
;Size
16 stora 16 lilla
;Direction
16 norra 16 Östra 16 södra 16 västra
)
)
)
)