*lib - HANGMAN_2019 *// Copyright 2019 DeadLetter Partners, Version 1.04 //* *// To play Hangman don't forget to add the appropriate text template (repository.deadletter.io/resources/HANGMAN.txt) or write your own.//* HANGMAN; @ID_HANGMAN.TXT { DRAW-STAGES; #00, #01, #02, #03, #04, #05, #06, #07 DRAW-NORMAL; #20, #21, #22, #23, #24, #25, #26, #27 } LAYOUT; @ID_HANGMAN.TXT {#20, #21, #22, #23, #24, #25, #26, #27, #28, #29, #30, #31, #32, #33, #34, #35, #36, #37, #38, #39} RESET; ^FLUSH HANGED; DRAW-STAGES -- SMALLEST TO LARGEST, [bnd _VAL #01 -- #07] WORDS; LIST, ALL -- @ID_ DAW_2019 AS '$_WRD*' {DRP _all -- .LTO '8' LETTERS, DRP _all -- .GTO '8' LETTERS SELECT 0, SET AS $_RAMDOM} MATCH; $_RAMDOM -- ?divide _ALL .GTO '0' RECORD, LETTERS singularly { SET _VAL AS; 1, 2, 3, 4, 5, 6, 7, 8, 9 on #35 as 'THE_WORD' } SET; $_RAMDOM as 'MATCH' NO-MATCH; DRAW, LAYOUT -- HANGED {.OVRIDE, CONFLICT; #20, #21, #22, #23, #24, #25, #26, #27, #28} ON-MATCH; CHANGE #35 TO ?MATCH FROM 'THE_WORD' LETTERS; A a, B b, C c, D d, E e, F f, G g, H h, I i, J j, K k, L l, M m, N n, O o, P p, Q q, R r, S s, T t, U u, V v, W w, X x, Y y, Z z /recall -- Oxford University Press *END