Overview
| Comment: | add vocab |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
42789d9192cd8ce6182938e7544e00ec |
| User & Date: | lexi on 2024-03-30 17:29:42 |
| Other Links: | manifest | tags |
Context
|
2024-03-30
| ||
| 17:31 | add vocab Leaf check-in: fb764f1d55 user: lexi tags: trunk | |
| 17:29 | add vocab check-in: 42789d9192 user: lexi tags: trunk | |
|
2022-09-21
| ||
| 02:22 | fix broken shit check-in: 3fc4e683e3 user: lexi tags: trunk | |
Changes
Modified crime.ml from [1419510218] to [d9bc91dca8].
72 72 T "software piracy"; 73 73 T "piracy"; 74 74 T "theft"; 75 75 T "regicide"; 76 76 Tv "assault"; 77 77 T "battery"; 78 78 T "treason"; 79 + T "high treason"; 80 + T "treachery"; 81 + T "treason and treachery"; 79 82 T "bribery"; 80 83 T "manslaughter"; 81 84 T "bestiality"; 82 85 T "assault and battery"; 83 86 T "corruption"; 84 87 T "corruption of a minor"; 85 88 T "highway robbery"; ................................................................................ 383 386 Tv "unspeakable"; 384 387 T "tactless"; 385 388 Tv "indecent"; 386 389 Tv "intemperate"; 387 390 Tv "attempted"; 388 391 Tv "unlawful"; 389 392 T "malicious"; 393 + T "treacherous"; 390 394 Tv "aggravated"; 391 395 T "dread"; 392 396 T "horny"; 393 397 T "erotic"; 394 398 T "sexual"; 395 399 T "careless"; 396 400 T "negligent"; ................................................................................ 583 587 |] 584 588 ]; 585 589 T "within one week"; 586 590 T "within the hour"; 587 591 T "by day's end"; 588 592 |]) 589 593 ] 590 -let imprisonment = B[ 591 - sentence; 592 - O( T "spend" ); 593 - R[| 594 +let imprisonment = 595 + let time = R[| 594 596 B[ 595 597 R[|T "two"; T "three"; T "four"; T "five"; T "six"; T "seven"; 596 598 Tv "eight"; T "nine"; T "ten";|]; 597 - R[|T "seconds"; T "minutes"; T "days"; T "weeks"; T "years"; T "decades"; T "millennia"; 599 + R[| 600 + T "seconds"; T "minutes"; T "days"; T "weeks"; T "years"; T "decades"; T "millennia"; 598 601 T "hundred years"; T "thousand years"; Tv "eons"; Tv "ages"; Tv "eras"; T "million years"; 599 - T "billion years"; T "trillion years"; |]; 602 + T "billion years"; T "trillion years"; 603 + T "lives"; T "lifetimes"; T "kalpa"; 604 + |]; 600 605 ]; 601 606 B[ 602 607 R[|Indef;Tv "one";|]; 603 608 R[|T "second"; T "minute"; T "day"; T "week"; T "year"; T "decade"; T "millennium"; 604 609 T "hundred years"; T "thousand years"; Tv "eon"; Tv "age"; Tv "era"; T "million years"; 605 610 T "billion years"; T "trillion years"; |]; 606 611 ]; 607 612 Tv "a lifetime"; 608 613 Tv "an eternity"; 609 - |]; 610 - R[|Tv "of community service"; Tv "in state prison"; Tv "in federal prison"; Tv "in prison"; 611 - Tv "of jail time"; Tv "of prison time"; B[T "without"; R[|B[Indef; thing];thingp|];]; 612 - Tv "alone"; T "in the gulag"; Tv "in a labor camp"; Tv "in the county jail"; 613 - T "thinking about what you've done"; Tv "of penance"; Tv "in the Box"; 614 - Tv "in the Shame Cube"; Tv "in the nightmares of children"; 615 - Tv "in a magic lamp";Tv "in a cursed mirror"; Tv "of indentured servitude"; Tv "of slavery";|]; 616 -] 614 + |] in let mods = R[| 615 + B[T "without"; R[|B[Indef; thing];thingp;T "parole";|];]; 616 + |] in let states = R[| 617 + mods; 618 + Tv "alone"; 619 + T "thinking about what you've done"; 620 + |] in let ofsents = B[ 621 + Tv "of"; 622 + R[| 623 + T "community service"; 624 + T "jail time"; T "prison time"; 625 + T "indentured servitude"; 626 + T "penal servitude"; 627 + T "sexual servitude"; 628 + T "servitude"; 629 + T "sexual slavery"; 630 + T "slavery"; 631 + T "penance"; 632 + T "compensatory labor"; 633 + |]; 634 + O(R[| T"most abject"; T"most shameful"; T"most foul"; T"most arduous"; |]); 635 + ] in let insents = B[ 636 + Tv "in"; 637 + R[| 638 + T "state prison"; T "federal prison"; T "prison"; 639 + Tv "a labor camp"; T "the county jail"; 640 + B[ 641 + T "the"; 642 + O(R[| 643 + T "municipal"; 644 + T "county"; 645 + T "state"; 646 + T "federal"; 647 + |]); 648 + R[| 649 + T "snake pit"; 650 + T "gulag"; 651 + T "swamp"; 652 + T "Shame Cube"; 653 + |]; 654 + ]; 655 + T "the nightmares of children"; 656 + T "the Box"; T "the Pit"; T "the Crime Hole"; 657 + Tv "a magic lamp"; Tv "a cursed mirror"; 658 + |]; 659 + ] in (* yech *) R[| 660 + B[sentence; time; R[| 661 + ofsents; 662 + insents; 663 + mods; 664 + B[ofsents; mods]; 665 + B[mods; insents]; 666 + B[ofsents; insents]; 667 + B[ofsents; mods; insents]; 668 + B[ofsents; insents; mods]; 669 + |]]; 670 + B[sentence; T"spend"; time; R[| 671 + insents; 672 + states; 673 + B[states; insents]; 674 + B[ofsents; insents]; 675 + B[ofsents; states; insents]; 676 + B[ofsents; insents; states]; 677 + |]]; 678 + |];; 679 + 617 680 let status = R[| 618 681 T "citizenship"; 619 682 T "rank"; 620 683 T "all rank"; 621 684 T "all status"; 622 685 T "all rights"; 623 686 T "all privileges"; ................................................................................ 781 844 R[|T"name";T"sight";T"name and sight";|]]; 782 845 B[T "by the"; 783 846 R[|T"grace";T"power";T"grace and power";T"will";|]]; 784 847 |]; 785 848 Tv "of"; 786 849 R[| 787 850 T "the Queen"; T "the King"; T "her Majesty the Queen"; T "his Majesty the King"; 851 + T "Freyja"; T "Odin"; T "Thor"; T "Jupiter"; T "Jupiter Optimus Maximus"; T "Zeus"; T "Nyx"; T "Ra"; 852 + T "Friend Computer"; T "the Algorithm"; 853 + T "the Gods"; T "the Gods of Earth and Sky"; T "gods above and below"; 788 854 T "all that is holy"; T "justice"; T "God"; T "the Lord"; T "the Sultan"; T "the Caliph"; 789 855 T "the Prince"; T "the Princess"; T "the Realm"; T "the Kingdom"; T "our infernal master"; 790 856 T "Satan"; T "Lucifer"; T "Heaven"; T "the heavens"; T "the Prophet"; T "Yaldabaoth"; 791 857 T "Heaven and all its angels"; T "our Creator"; T "the Maker"; T "the spirits"; 792 858 T "our great and wretched God"; T "the People"; T "the People of the State of Kentucky"; 859 + 860 + (* great and nebulous powers *) 861 + T "the Organization"; T "the Directorate"; T "the Department"; T "the Division"; T "the Committee"; 862 + 863 + (* Spirals *) 864 + T "the Triumvirate"; T "the Society of Worlds"; 865 + T "her Radiance the Empress"; T "the First Empress"; 866 + T "Khata'e"; T "Matikhe"; 867 + 868 + (* SCPverse *) 869 + (* jannies *) 870 + T "the Foundation"; T "Overwatch Council"; T "the Site Directors' Committee of the Whole"; T "the Ethics Committee"; T "the Administrator"; 871 + Fn(fun () -> An("O5-" ^ (string_of_int (range 1 13)))); 872 + 873 + (* bookburners *) 874 + T "the United Nations Global Occult Coalition"; 875 + T "the Council of 108"; 876 + T "Undersecretary D.C. al Fine"; 877 + T "Madam al Fine"; 878 + 879 + (* snakefuckers *) 880 + T "the Serpent"; T "the Head Librarian"; 793 881 |]; 794 882 P ","; 795 883 ]); 796 884 R[| 797 885 B[court; 798 886 O(T "hereby"); 799 887 R[| T "finds"; T "declares"; T "proclaims"; T "pronounces"; T "judges"; Tv "adjudges";|]; ................................................................................ 806 894 R[| T "you"; T "the defendant"; T "the accused party";|]; 807 895 T "guilty"; 808 896 O(Tv "on all counts"); 809 897 Tv "of"; 810 898 charge; 811 899 P"."; 812 900 O(B[ 813 - R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole";|]; 901 + R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole"; T"Get thee to a nunnery";|]; 814 902 P"."; 815 903 ]); 816 904 ]) 817 905 let global = R[|conviction; accusation;|] 818 906 let () = Random.self_init (); 819 907 print_string 820 908 (String.trim 821 909 (flatten 822 910 (eval global)))