procgen  Check-in [5d470c919c]

Overview
Comment:add insult generator
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 5d470c919c17a72837f4becd037f5358fcd485371a7bb16d509391ead59818ec
User & Date: lexi on 2019-10-12 07:03:53
Other Links: manifest | tags
Context
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
2019-10-03
00:08
add vocab check-in: eee9fbeda0 user: lexi tags: trunk
Changes

Added beleidigung.scm version [ada33942ea].

            1  +(include "lib/lisp-macro.scm")
            2  +(include "lib/bot.scm")
            3  +
            4  +(bank modifier
            5  +	  "dumm" "arsch" "stink" "kotz" "rotz" "schweine" "weich" "piss"
            6  +	  "affen" "kack" "rosetten" "dreck" "rillen" "dammschweiß" "lumpen"
            7  +	  "anal" "spalten")
            8  +
            9  +(bank noun
           10  +	  "arsch" "kopf" "stiefel" "kotz" "brocken" "hund" "gesicht"
           11  +	  "backe" "tüte" "trinker" "affe" "lecker" "tante" "scheißer"
           12  +	  "kind" "wichser" "sack" "kopp" "akrobat" "fotze" "schnüffler"
           13  +	  "kuh" "lutscher" "fresse" "vogel")
           14  +
           15  +(rule (modifier-phrase)
           16  +	  ((modifier))
           17  +	  ((modifier) (modifier-phrase)))
           18  +
           19  +(rule (insult)
           20  +	  ((modifier-phrase) (noun)))
           21  +
           22  +(display (insult))
           23  +(display "\n")