procgen  Check-in [b48a343962]

Overview
Comment:add insult vocab
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b48a343962878e98b9d6a525626ccedcbbfa6acb158751c74e949d2e1664a5e0
User & Date: lexi on 2019-10-16 03:25:00
Other Links: manifest | tags
Context
2019-10-29
11:19
update crime generator check-in: 56c4410455 user: lexi tags: trunk
2019-10-16
03:25
add insult vocab check-in: b48a343962 user: lexi tags: trunk
2019-10-12
07:03
add insult generator check-in: 5d470c919c user: lexi tags: trunk
Changes

Modified beleidigung.scm from [ada33942ea] to [7414b89676].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(include "lib/lisp-macro.scm")
(include "lib/bot.scm")

(bank modifier
	  "dumm" "arsch" "stink" "kotz" "rotz" "schweine" "weich" "piss"
	  "affen" "kack" "rosetten" "dreck" "rillen" "dammschweiß" "lumpen"
	  "anal" "spalten")

(bank noun
	  "arsch" "kopf" "stiefel" "kotz" "brocken" "hund" "gesicht"
	  "backe" "tüte" "trinker" "affe" "lecker" "tante" "scheißer"
	  "kind" "wichser" "sack" "kopp" "akrobat" "fotze" "schnüffler"
	  "kuh" "lutscher" "fresse" "vogel")

(rule (modifier-phrase)
	  ((modifier))
	  ((modifier) (modifier-phrase)))

(rule (insult)
	  ((modifier-phrase) (noun)))

(display (insult))
(display "\n")






|





|










1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(include "lib/lisp-macro.scm")
(include "lib/bot.scm")

(bank modifier
	  "dumm" "arsch" "stink" "kotz" "rotz" "schweine" "weich" "piss"
	  "affen" "kack" "rosetten" "dreck" "rillen" "dammschweiß" "lumpen"
	  "anal" "spalten" "reichs")

(bank noun
	  "arsch" "kopf" "stiefel" "kotz" "brocken" "hund" "gesicht"
	  "backe" "tüte" "trinker" "affe" "lecker" "tante" "scheißer"
	  "kind" "wichser" "sack" "kopp" "akrobat" "fotze" "schnüffler"
	  "kuh" "lutscher" "fresse" "vogel" "hitler")

(rule (modifier-phrase)
	  ((modifier))
	  ((modifier) (modifier-phrase)))

(rule (insult)
	  ((modifier-phrase) (noun)))

(display (insult))
(display "\n")