Overview
| Comment: | $100 will make me extremely more racist |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ca1d956dffc9280e234ab08769e42160 |
| User & Date: | lexi on 2021-08-29 17:08:39 |
| Other Links: | manifest | tags |
Context
|
2022-09-21
| ||
| 01:40 | modernize botsoc check-in: 92ed9358a3 user: lexi tags: trunk | |
|
2021-08-29
| ||
| 17:08 | $100 will make me extremely more racist check-in: ca1d956dff user: lexi tags: trunk | |
|
2020-10-17
| ||
| 06:26 | updates check-in: ab1b71a07a user: lexi tags: trunk | |
Changes
Modified botsoc.scm from [e2cbed27a3] to [06502ccea6].
12 12 ("juche") ("nationalism") ("human extinctionism") 13 13 ("demonology") ("linguistics") ("voluntary human extinction") 14 14 ("onanism") ("anthropology") ("authoritarianism") 15 15 ("totalitarianism") ("social justice") ("identity politics") 16 16 ("idpol") ("terrorism") ("islamism") 17 17 ("hedonism") ("libertinism") ("computer science") 18 18 ("transhumanism") ("posthumanism") ("humanism") 19 - ("humanitarianism") 19 + ("humanitarianism") ("racism") 20 20 ("libertarianism"); ("static typing") ("dynamic typing") 21 21 ("neoliberalism")) 22 22 (rule (ideology-prefix) 23 23 ("neo-") ("social ") ("democratic ") 24 24 ("paleo-") ("retro-") ("anarcho-") 25 25 ("femino-") ("neo") ("anti-") 26 26 ("sado-") ("eroto-") ("strangulo-") 27 27 ("theo-") ("ultra-") ("arachno-") 28 28 ("anti") ("post-") ("post") 29 29 ("ethno-") ("marxism-") ("left-") 30 30 ("alt-") ("right-") ("space ") ("gay ") 31 - ("quantum ")) 31 + ("quantum ") ("racial ")) 32 32 (rule (ideology) 33 33 ((base-ideology)) 34 34 ((adjective) " " (ideology)) 35 35 ((ideology-prefix) (base-ideology))) 36 36 (rule (problem) 37 37 ("poverty") ("hunger") ("hatred") 38 38 ("racism") ("mortality") ("misogyny") ................................................................................ 90 90 ("enchant " (things)) ("perform wizardry") ("engage in witchcraft") 91 91 ("have sex") ("fuck" (: ((group)))) ("own " (thingss)) 92 92 ("declare war") ("deprive " (group) " of " (necessity))) 93 93 94 94 (rule (trait) 95 95 ("power") ("influence") ("wealth") ("solidarity") 96 96 ("hope") ("conviction") ("autonomy") ("freedom") 97 - ("liberty") ("faith") ("humanity") ("sapience")) 97 + ("liberty") ("faith") ("humanity") ("sapience") 98 + ("purity") ("flesh purity") ("racial purity")) 98 99 99 100 (rule (necessity) 100 101 ("sex") ("water") ("food") ("money") 101 102 ("wealth") ("income") ("welfare") ("tea") 102 103 ("therapy") ("pain relief") ("medical care") 103 104 ("medicine") ("reproduction") ("hope") ("faith") 104 - ("love") ("pain") ("love") ("oxygen") ("nutrition")) 105 + ("love") ("pain") ("love") ("oxygen") ("nutrition") 106 + ("racial hygiene")) 105 107 106 108 (rule (thing) 107 109 ((problem)) ((necessity)) ("Russia") ("Mars") 108 110 ("activism") 109 111 ((thing) " activism") ("anti-" (thing) " activism") 110 112 ((adjective) " activism") ("bitcoin") ("humanity") 111 113 ("vaccination") ("autism") ("medical care") ................................................................................ 115 117 ("meth") ("heroin") ("dialectics") ("the dialectic") 116 118 ("the Discourse") ("medical care") ("psychiatry") 117 119 ("influenza") ("alien life") ("mind control") 118 120 ("terrorism") ("identity") ("healthcare") 119 121 ("literature") ("grass") ("catnip") ("virginity") 120 122 ("television") ("romance") ("finance") 121 123 ("opium") ("law") ("dating") ("online dating") ("friendship") 122 - ("the Resistance")) 124 + ("the Resistance") ("the Manosphere") ("race") ("Qanon")) 123 125 124 126 (rule (things) 125 127 ("pandas") ("lasers") ("toasters") 126 128 ("kulaks") ("opiates") ("painkillers") 127 129 ("teacups") ("umbrellas") ((thing) " rights") 128 130 ((adjective) " rights") (group) 129 131 ("humans") ("vaccines") 130 132 ("doctors") ("drugs") ("hospitals") ("UFOs") ("aliens") 131 133 ("flowers") ("pumpkins") ("guns") ("babies") 132 - ("friends") ("bitcoins") 133 - ) 134 + ("friends") ("bitcoins")) 135 + 134 136 (rule (thingss) 135 137 ((thing)) ((things))) 136 138 137 139 (rule (group) 138 140 ("gays") ("whites") ("African-Americans") 139 141 ("the poor") ("the rich") ("Jewish people") 140 142 ("natives") ("otherkin") ("psychics") ................................................................................ 154 156 ("lizards") ("bureaucrats") ("politicians") 155 157 ("catholics") ("methodists") ("mormons") 156 158 ("kulaks") ("slaves") ("human trafficking victims") 157 159 ("victims") ("crime victims") ("victims of " (problem)) 158 160 ("losers") ("thieves") ("queer people") 159 161 ("queers") ("senators") ("presidents") 160 162 ("queens") ("kings") ("emperors") 161 - ("aliens") 163 + ("aliens") ("racists") 162 164 ((thing) " activists") ("anti-" (adjective) " activists") 163 165 ((ideology) " activists") ((adjective) " activists")) 164 166 165 167 ; utility fns 166 168 (rule (adjfor adj con g) 167 169 (adj) 168 170 (adj con g))
Modified bottist.ml from [b567179d0e] to [a67f7988a8].
1 1 let adjs = [| "queer"; "electric"; "space"; "super"; "discount"; "extreme"; "far-left"; 2 - "far-right"; "unreconstructed"; "modern"; "eternal"; "original"; "historical"; "tankie"; "mystical"; "arcane"; "catholic"; "protestant"; "irish"; "dialectical"; "confucian"; "orbital"; "suborbital"; "martian"; "minimalist"; "moist"; "dire"; "trotskyite"; "trotskyist"; "supreme"; "objective"; "object-oriented"; "moist"; "authentic"; "nazi"; "anti-revisionist"; "revisionist"; "revolutionary"; "counter-revolutionary"; "populist"; "de-leonist"; "lexical"; "armed"; "unarmed"; "people's"; "sectarian"; "israeli"; "palestinian"; "american"; "mexican"; "russian"; "soviet"; "reformist"; "canadian"; "automatic"; "automated"; "luxury"; "deluxe"; "gay"; "full"; "islamic"; "christian"; "visionary"; "magical"; "magic"; "social"; |] 2 + "far-right"; "unreconstructed"; "modern"; "eternal"; "original"; "historical"; "tankie"; "mystical"; "arcane"; "catholic"; "protestant"; "irish"; "dialectical"; "confucian"; "orbital"; "suborbital"; "martian"; "minimalist"; "moist"; "dire"; "trotskyite"; "trotskyist"; "supreme"; "objective"; "object-oriented"; "moist"; "authentic"; "nazi"; "anti-revisionist"; "revisionist"; "revolutionary"; "counter-revolutionary"; "populist"; "de-leonist"; "lexical"; "armed"; "unarmed"; "people's"; "sectarian"; "israeli"; "palestinian"; "american"; "mexican"; "russian"; "soviet"; "reformist"; "canadian"; "automatic"; "automated"; "luxury"; "deluxe"; "gay"; "full"; "islamic"; "christian"; "visionary"; "magical"; "magic"; "social";"racist"; |] 3 3 let prefixes = [|"neo"; "post"; "retro"; "anti"; "counter"; "pre"; "paleo"; "femino"; "anarcho"; "oligo"; "meta"; "diabolo"; "theo"; "petro"; "sado"; "arachno"; "psycho"; "socio"; "eroto"; 4 4 "nano"; "mini"; "xeno"; "astro"; "femto"; "electro"; "endo"; "arch"; "macro"; 5 5 "cardio"; "mesmo"; "chrono"; "nycto"; "megalo"; "lesbo"; "masculo"; "ultra"; "urtla"; 6 6 "proto"; "weebo"; "thanato"; "volcano"; "strangulo"; "quasi"; "pseudo"; "procto"; 7 7 "copro"; "hydro"; "gastro"; "thermo"; "mystico"; "arcano"; "disastro"; "vagino"; "dino"; 8 8 "nympho"; "pharma"; "macho"; "tele"; "bio"; "cryo"; "homo"; "hetero"; "auto"; "arachno"; 9 - "christo"; "islamo"; "narco"|] 10 -let ists = [| "plurali"; "femini"; "activi"; "sociali"; "marxi"; "lenini"; "stalini"; "fasci"; "sadi"; "stirneri"; "masochi"; "imperiali"; "arcani"; "syndicali"; "masturbati"; "pedantici"; "posadi"; "hoxhai"; "maoi"; "papi"; "catholici"; "protestanti"; "coloniali"; "francoi"; "materiali"; "immateriali"; "sexuali"; "stallmani"; "minarchi"; "totalitariani"; "authoritariani"; "revisioni"; "legali"; "supremaci"; "masculi"; "primitivi"; "brezhnevi"; "populi"; "kautskyi"; "hitleri"; "pacifi"; "zioni"; "reformi"; "canadiani"; "tribadi"; "automati"; "autonomi"; "luddi"; "libertariani"; "capitali"; "chauvini"; "anarchi"; "mystici"; "islami"; "nazi"|] 9 + "christo"; "islamo"; "narco"; "levo"; "dextro";|] 10 +let ists = [| "plurali"; "femini"; "activi"; "sociali"; "marxi"; "lenini"; "stalini"; "fasci"; "sadi"; "stirneri"; "masochi"; "imperiali"; "arcani"; "syndicali"; "masturbati"; "pedantici"; "posadi"; "hoxhai"; "maoi"; "papi"; "catholici"; "protestanti"; "coloniali"; "francoi"; "materiali"; "immateriali"; "sexuali"; "stallmani"; "minarchi"; "totalitariani"; "authoritariani"; "revisioni"; "legali"; "supremaci"; "masculi"; "primitivi"; "brezhnevi"; "populi"; "kautskyi"; "hitleri"; "pacifi"; "zioni"; "reformi"; "canadiani"; "tribadi"; "automati"; "autonomi"; "luddi"; "libertariani"; "capitali"; "chauvini"; "anarchi"; "mystici"; "islami"; "nazi"; "arsoni"|] 11 11 12 12 let range min max = (Random.int (max-min)) + min 13 13 let chance n = range 0 n = 0 14 14 let pick (r: 'a array) : 'a = r.(range 0 (Array.length r));; 15 15 16 16 let rec accumulate fn times = fn () ^ if times = 0 then "" else " "^(accumulate fn (times-1)) 17 -let makeist () = (if chance 2 then (pick prefixes)^"-" else "") ^ (pick ists)^(pick [|"st"; "te"|]) 17 +let makeist () = (if chance 2 then (pick prefixes)^"-" else "") ^ (pick ists)^(pick [|"st"; "st"; "st"; "te"|]) 18 18 let ideology () = (if chance 3 then (if chance 4 then (pick prefixes) else "") ^ (pick adjs)^" " else "" ) 19 19 ^ (accumulate makeist (range 0 2)) ^ " " 20 20 ^ (if chance 3 then (pick prefixes)^"-" else "") ^ (pick ists) ^ "sm" 21 21 (* original "mock the anarchists" mode: 22 22 ^ (if chance 2 then ((if chance 3 then pick prefixes else "") ^"anarchism") else (pick [|"anarcho-";"arachno-"|])^(pick ists)^"sm") *) 23 23 let () = Random.self_init (); print_string (ideology ()) 24 24