diff options
| author | John Wiegley <johnw@newartisans.com> | 2002-04-12 20:21:58 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2002-04-12 20:21:58 +0000 |
| commit | 5df29686990334d699a6558d59b1e3bec102e3a7 (patch) | |
| tree | 40ba87257c37f964c1b6e52b77ed79fac6d6b06b /chess-random.el | |
| parent | 758e770833d91fde40219e2f8bd9f8588b56706f (diff) | |
*** no comment ***
Diffstat (limited to 'chess-random.el')
| -rw-r--r-- | chess-random.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/chess-random.el b/chess-random.el index 3155373..210ba31 100644 --- a/chess-random.el +++ b/chess-random.el @@ -50,11 +50,21 @@ (throw 'retry t)) (setq first-rook i)))))) (setq position (chess-pos-create))))) + + ;; set the home row pieces (dotimes (i 8) (chess-pos-set-piece position (chess-rf-to-index 0 i) (aref pieces i)) (chess-pos-set-piece position (chess-rf-to-index 7 i) (upcase (aref pieces i)))) + + ;; jww (2002-04-12): Until I fully support Fischer Random + ;; castling, I will disable it here + (chess-pos-set-can-castle position ?K nil) + (chess-pos-set-can-castle position ?Q nil) + (chess-pos-set-can-castle position ?k nil) + (chess-pos-set-can-castle position ?q nil) + position)) (provide 'chess-random) |