Index: crime.ml
==================================================================
--- crime.ml
+++ crime.ml
@@ -74,10 +74,13 @@
T "theft";
T "regicide";
Tv "assault";
T "battery";
T "treason";
+ T "high treason";
+ T "treachery";
+ T "treason and treachery";
T "bribery";
T "manslaughter";
T "bestiality";
T "assault and battery";
T "corruption";
@@ -385,10 +388,11 @@
Tv "indecent";
Tv "intemperate";
Tv "attempted";
Tv "unlawful";
T "malicious";
+ T "treacherous";
Tv "aggravated";
T "dread";
T "horny";
T "erotic";
T "sexual";
@@ -585,37 +589,96 @@
T "within one week";
T "within the hour";
T "by day's end";
|])
]
-let imprisonment = B[
- sentence;
- O( T "spend" );
- R[|
+let imprisonment =
+ let time = R[|
B[
R[|T "two"; T "three"; T "four"; T "five"; T "six"; T "seven";
Tv "eight"; T "nine"; T "ten";|];
- R[|T "seconds"; T "minutes"; T "days"; T "weeks"; T "years"; T "decades"; T "millennia";
+ R[|
+ T "seconds"; T "minutes"; T "days"; T "weeks"; T "years"; T "decades"; T "millennia";
T "hundred years"; T "thousand years"; Tv "eons"; Tv "ages"; Tv "eras"; T "million years";
- T "billion years"; T "trillion years"; |];
+ T "billion years"; T "trillion years";
+ T "lives"; T "lifetimes"; T "kalpa";
+ |];
];
B[
R[|Indef;Tv "one";|];
R[|T "second"; T "minute"; T "day"; T "week"; T "year"; T "decade"; T "millennium";
T "hundred years"; T "thousand years"; Tv "eon"; Tv "age"; Tv "era"; T "million years";
T "billion years"; T "trillion years"; |];
];
Tv "a lifetime";
Tv "an eternity";
- |];
- R[|Tv "of community service"; Tv "in state prison"; Tv "in federal prison"; Tv "in prison";
- Tv "of jail time"; Tv "of prison time"; B[T "without"; R[|B[Indef; thing];thingp|];];
- Tv "alone"; T "in the gulag"; Tv "in a labor camp"; Tv "in the county jail";
- T "thinking about what you've done"; Tv "of penance"; Tv "in the Box";
- Tv "in the Shame Cube"; Tv "in the nightmares of children";
- Tv "in a magic lamp";Tv "in a cursed mirror"; Tv "of indentured servitude"; Tv "of slavery";|];
-]
+ |] in let mods = R[|
+ B[T "without"; R[|B[Indef; thing];thingp;T "parole";|];];
+ |] in let states = R[|
+ mods;
+ Tv "alone";
+ T "thinking about what you've done";
+ |] in let ofsents = B[
+ Tv "of";
+ R[|
+ T "community service";
+ T "jail time"; T "prison time";
+ T "indentured servitude";
+ T "penal servitude";
+ T "sexual servitude";
+ T "servitude";
+ T "sexual slavery";
+ T "slavery";
+ T "penance";
+ T "compensatory labor";
+ |];
+ O(R[| T"most abject"; T"most shameful"; T"most foul"; T"most arduous"; |]);
+ ] in let insents = B[
+ Tv "in";
+ R[|
+ T "state prison"; T "federal prison"; T "prison";
+ Tv "a labor camp"; T "the county jail";
+ B[
+ T "the";
+ O(R[|
+ T "municipal";
+ T "county";
+ T "state";
+ T "federal";
+ |]);
+ R[|
+ T "snake pit";
+ T "gulag";
+ T "swamp";
+ T "Shame Cube";
+ |];
+ ];
+ T "the nightmares of children";
+ T "the Box"; T "the Pit"; T "the Crime Hole";
+ Tv "a magic lamp"; Tv "a cursed mirror";
+ |];
+ ] in (* yech *) R[|
+ B[sentence; time; R[|
+ ofsents;
+ insents;
+ mods;
+ B[ofsents; mods];
+ B[mods; insents];
+ B[ofsents; insents];
+ B[ofsents; mods; insents];
+ B[ofsents; insents; mods];
+ |]];
+ B[sentence; T"spend"; time; R[|
+ insents;
+ states;
+ B[states; insents];
+ B[ofsents; insents];
+ B[ofsents; states; insents];
+ B[ofsents; insents; states];
+ |]];
+ |];;
+
let status = R[|
T "citizenship";
T "rank";
T "all rank";
T "all status";
@@ -783,15 +846,40 @@
R[|T"grace";T"power";T"grace and power";T"will";|]];
|];
Tv "of";
R[|
T "the Queen"; T "the King"; T "her Majesty the Queen"; T "his Majesty the King";
+ T "Freyja"; T "Odin"; T "Thor"; T "Jupiter"; T "Jupiter Optimus Maximus"; T "Zeus"; T "Nyx"; T "Ra";
+ T "Friend Computer"; T "the Algorithm";
+ T "the Gods"; T "the Gods of Earth and Sky"; T "gods above and below";
T "all that is holy"; T "justice"; T "God"; T "the Lord"; T "the Sultan"; T "the Caliph";
T "the Prince"; T "the Princess"; T "the Realm"; T "the Kingdom"; T "our infernal master";
T "Satan"; T "Lucifer"; T "Heaven"; T "the heavens"; T "the Prophet"; T "Yaldabaoth";
T "Heaven and all its angels"; T "our Creator"; T "the Maker"; T "the spirits";
T "our great and wretched God"; T "the People"; T "the People of the State of Kentucky";
+
+ (* great and nebulous powers *)
+ T "the Organization"; T "the Directorate"; T "the Department"; T "the Division"; T "the Committee";
+
+ (* Spirals *)
+ T "the Triumvirate"; T "the Society of Worlds";
+ T "her Radiance the Empress"; T "the First Empress";
+ T "Khata'e"; T "Matikhe";
+
+ (* SCPverse *)
+ (* jannies *)
+ T "the Foundation"; T "Overwatch Council"; T "the Site Directors' Committee of the Whole"; T "the Ethics Committee"; T "the Administrator";
+ Fn(fun () -> An("O5-" ^ (string_of_int (range 1 13))));
+
+ (* bookburners *)
+ T "the United Nations Global Occult Coalition";
+ T "the Council of 108";
+ T "Undersecretary D.C. al Fine";
+ T "Madam al Fine";
+
+ (* snakefuckers *)
+ T "the Serpent"; T "the Head Librarian";
|];
P ",";
]);
R[|
B[court;
@@ -808,15 +896,15 @@
O(Tv "on all counts");
Tv "of";
charge;
P".";
O(B[
- R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole";|];
+ R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole"; T"Get thee to a nunnery";|];
P".";
]);
])
let global = R[|conviction; accusation;|]
let () = Random.self_init ();
print_string
(String.trim
(flatten
(eval global)))