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