;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\207" [require chess chess-display chess-game chess-message chess-message-catalog english ((queen-would-take . "The queen would take your knight!") (congratulations . "Congratulations!") (knight-1-done . "Goal: take all the pawns, without letting the queen take your knight") (cannot-take-queen . "You cannot take the queen"))] 3) #@37 (fn GAME IGNORE EVENT &rest ARGS) (defalias 'chess-tutorial-knight-1 #[899 "\301=\205h\302\204\303\304!\210\305\"\211\211:\205(\211@\306!\205&\211G\307U\262\262\2045\310\311\312\313E\"\210\211@\266\203\211\314\306!\205F\211G\307U\262\204S\310\311\315\316E\"\210\211\317>\204a\310\311\320\321E\"\210\302\322\323\211W\203\202\211\324#\203z\211B\262\210\211T\262\202d\266\266\202\204\227\325\302\326\327\330#!\266\202\202f\331\211\332\306!\205\246\211G\307U\262\204\263\310\311\315\316E\"\210\211\317>\204\301\310\311\320\321E\"\210\302\322\323\211W\203\342\211\324#\203\332\211B\262\210\211T\262\202\304\266\266\202@\333#\203\302\334\335\"\210)\336\302\337\327\330#!\266\202\202f\211\333\306!\205\211G\307U\262\204\310\311\315\316E\"\210\211\317>\204*\310\311\320\321E\"\210\302\322\323\211W\203K\211\324#\203C\211B\262\210\211T\262\202-\266\266\202?\205f\302\334\335\"\210)\340\302\337\327\330#!\266\202\262\207" [chess-display-handling-event move nil cl--assertion-failed game chess-game-ply vectorp 75 signal wrong-type-argument chess-ply ply 112 chess-pos position #1=(t nil 32 75 81 78 66 82 80 107 113 110 98 114 112) (member . #1#) piece-or-color 64 0 #[771 "\300!\205 \211G\301U\262\204\302\303\304\305E\"\210\250\203)\306Y\203)\307X\2041\302\303\310\311E\"\210\211\312>\204?\302\303\313\314E\"\210\300!\205L\211G\301U\262\204Y\302\303\304\305E\"\210\211\250\203j\211\306Y\203j\211\307X\204r\302\303\315\311E\"\210H\266\202\211\316U\203\206\247\205\227\211U\207\317\267\202\224\211\320W\207\211\320V\207\211U\207" [vectorp 75 signal wrong-type-argument chess-pos position 0 63 (integer 0 63) index #2=(t nil 32 75 81 78 66 82 80 107 113 110 98 114 112) (member . #2#) piece-or-color (integer 0 63) 32 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 140 nil 144)) 97] 10 "Return non-nil if at POSITION/INDEX there is the given PIECE-OR-COLOR.\nIf PIECE-OR-COLOR is t for white or nil for black, any piece of that\ncolor will do.\n\n(fn POSITION INDEX PIECE-OR-COLOR)"] congratulations message apply chess-string chess-search-position 78 113 chess-game-undo 1 queen-would-take error cannot-take-queen] 17 (#$ . 496)]) #@34 A simple chess training display. (defalias 'chess-tutorial #[0 "r\302\303!q\210\304\211\211\203r\211q\210\303\211)\266\202\303\211\266\305\306!\210\307\310\304!\311\"\210\303\312\304!\210\313\304\314\315\316#!\266\202)\207" [chess-module-leader chess-pos-always-white chess-create-display t nil chess-display-set-from-fen "8/3p1p/2p3p/4q/2p3p/3p1p/8/N w - -" chess-game-add-hook chess-display-game chess-tutorial-knight-1 chess-display-popup knight-1-done message apply chess-string] 7 (#$ . 2801) nil]) (provide 'chess-tutorial)