Single Comment

This .zrf file plays WOTN well, but has two noticable bugs:

* The color scheme of the board is hard on my eyes.

* A king can capture the other King; this makes it impossible to checkmate
the person whose king was captured.

I have resolved both of these issues, and will place a fixed version on my
web page (http://www.samiam.org) momentarily.

Here is a UNIX-style patch which resolves the king-catpures-king issue,
basically remove lines with a '-' at the beginning of them and add lines
with a '+' at the beginning of them:

--- wotn.zrf.orig       Thu Dec 26 17:24:00 2002
+++ wotn.zrf    Thu Dec 26 17:30:17 2002
@@ -25,6 +25,7 @@
 (define CQ-add (high-king-capture) (if (and enemy? (not-piece? Pawn)
(not-piece? Squire) (not-piece? Deacon) (not-piece? Knight) (not-piece?
Bishop)) (add Paladin) else add))
 (define Pal-add (high-king-capture) (if (and enemy? (not-piece? Pawn)
(not-piece? Squire) (not-piece? Deacon) (not-piece? Knight) (not-piece?
Bishop) (not-piece? Jarl) (not-piece? Vicar)) (add Hero) else add))
 (define Hero-add (high-king-capture) (if (and enemy? (not-piece? Pawn)
(not-piece? Squire) (not-piece? Deacon) (not-piece? Knight) (not-piece?
Bishop) (not-piece? Jarl) (not-piece? Vicar)) (multi-king) (add King) else
add))
+(define King-add (high-king-capture) add)
 
 ;***** this macro lets you find out whose turn it is in the middle of a
move block! *****
 
@@ -55,7 +56,7 @@
 
 ;***** special movement macros *****
 
-(define King-shift ($1 (available) (set-attribute never-moved? false)
add))
+(define King-shift ($1 (available) (set-attribute never-moved? false)
(King-add)))
 
 (define O-O
         ( (verify never-moved?)
@@ -513,4 +514,4 @@
    (piece
       (name Three-Kings)
    )
-)
\ No newline at end of file
+)