Differences From
Artifact [c18b15fcb7]:
28 28 let range min max = (Random.int (max-min)) + min
29 29 let chance n = range 0 n = 0
30 30 let pick (r: 'a array) : 'a = r.(range 0 (Array.length r));;
31 31 let prefixes = [| "crack"; "crystal"; "powdered"; "raw"; "pure"; "liquid"; "street";
32 32 "super"; "electric"; "diced"; "homemade"; "traditional"; "old-school"; "purified";
33 33 "high-caliber"; "high-octane"; "old-fashioned"; "good old"; "honest-to-god";
34 34 "weapons-grade"; "soviet"; "american"; "canadian"; "british"; "russian";
35 - "synthetic"; "french"; "cyber"; "dank"; "dinky"; "dismal"; "fire"; "wild"; "wacky"; "snazzy"; "sleazy"; "skanky"; "sexy"; "screwy"; "funky"; "queer"; "kinky"; "fascist"; "nazi"; |]
35 + "synthetic"; "french"; "cyber"; "dank"; "dinky"; "dismal"; "fire"; "wild"; "wacky";
36 + "snazzy"; "sleazy"; "skanky"; "sexy"; "screwy"; "funky"; "queer"; "kinky"; "fascist";
37 + "irish"; "nazi"; |]
36 38 let word () = (if chance 3 then (pick prefixes) ^ " " else "") ^
37 39 (if chance 5 then "" else pick initials) ^
38 40 (pick nuclei) ^
39 41 (pick finals)
40 42
41 43 let greets = [| "hey"; "whassup"; "what's up"; "what up"; "yo"; "hey there"; "what's shakin'" |]
42 44 let names = [| "dude"; "bro"; "man"; "babe"; "sweetheart"; "honey"; "baby"; "hottie"; "girl"; |]
................................................................................
248 250 Plain "bagged"; Plain "bugged";
249 251 Plain "blurry"; Plain "blurred";
250 252 Plain "blobbed"; Plain "cubed";
251 253 Plain "orbed"; Plain "squared";
252 254 Plain "[REDACTED]"; Plain "wrangled";
253 255 Plain "wrassled"; Plain "glib";
254 256 Plain "maudlin"; Plain "schooled";
257 + Plain "flailed"; Plain "whaled";
258 + Plain "sloshed"; Plain "sprayed";
259 + Plain "spayed"; Plain "prayed to";
260 + Plain "prayed out"; Plain "prayed off";
261 + Plain "prayed for"; Plain "prayed away";
262 + Plain "snacked"; Plain "snacked up";
263 + Plain "snacked out"; Plain "snacked away";
255 264 |]
256 265 let roas = [| "on"; "shooting up"; "using"; "mainlining"; "snorting"; "vaping"; "smoking"; "cybering";
257 266 "sucking down"; "gargling"; "doing"; "trying"; "slurping"; "guzzling"; "popping"; "downing"; "chewing"; "pooping"; "shitting"; "pissing";
258 267 "crunching"; "sniffing"; "zapping"; "downloading"; "dropping"; "cooking up"; "freebasing"; "hooting"; "tooting"; "blasting"; "blazing";
259 268 "tweeting"; "honking"; "plugging"; "plugging in"; "hooking up"; "turning on"; "boofing"; "whacking"; "choking"; "ravishing"; "looting"; "slaughtering";
260 269 "drinking"; "eating"; "slugging"; "ghouling" |]
261 270 let vroas = [| "shoot up"; "mainline"; "snort"; "vape"; "smoke"; "slurp";