procgen  beleidigung.scm at trunk

File beleidigung.scm artifact 7414b89676 on branch trunk


(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")